%This test will takes 6 seconds find how many times your program will loop
%My computer (4 Gb of ram LBTP) runs at 600000-800000
%The first loop is normally the slowest
%Remember this is without pictures, music, drawn objects ect. so this is only what turing is at it's max speed
View.Set ("graphics:max;max;offscreenonly;nocursor")
var timervar, timervar2, checksec, reading1, reading2, reading3, reading4,
    reading5, readingcheck, average : int := 0
Time.Delay (100)
procedure computerspeed
    timervar := Time.Sec
    loop
        timervar2 := Time.Sec
        checksec += 1
        if timervar + 1 <= timervar2 then
            exit
        end if
        %View.Update %if you want to see preformence with graphics on(not pretty the reduction)
        %cls % also see how this change as the graphics size increases (on my LPTB I cut 600000-800000 to 100-200 on max)
    end loop
    if reading1 = 0 and readingcheck = 0 then
        readingcheck := 1
        reading1 := checksec
    elsif reading2 = 0 and readingcheck = 0 then
        readingcheck := 1
        reading2 := checksec
    elsif reading3 = 0 and readingcheck = 0 then
        readingcheck := 1
        reading3 := checksec
    elsif reading4 = 0 and readingcheck = 0 then
        readingcheck := 1
        reading4 := checksec
    elsif reading5 = 0 and readingcheck = 0 then
        readingcheck := 1
        reading5 := checksec
    end if
    checksec := 0
    readingcheck := 0
    timervar := Time.Sec
end computerspeed
for i : 1 .. 5
    computerspeed
end for
average := ((reading1 + reading2 + reading3 + reading4 + reading5) div 5)
timervar := Time.Sec
View.Set ("graphics:400;50;offscreenonly;nocursor")
loop
    timervar2 := Time.Sec
    put ("Your computer loops at an average of "), average, (" loops per 1 second")
    if timervar + 10 <= timervar2 then
        timervar := Time.Sec
    elsif timervar + 8 <= timervar2 then
        put "Reading 5: ", (reading5)
    elsif timervar + 6 <= timervar2 then
        put "Reading 4: ", (reading4)
    elsif timervar + 4 <= timervar2 then
        put "Reading 3: ", (reading3)
    elsif timervar + 2 <= timervar2 then
        put "Reading 2: ", (reading2)
    elsif timervar <= timervar2 then
        put "Reading 1: ", (reading1)
    end if
    View.Update
    cls
end loop

int reading : array 1..? of int

function compSpeed : int
    var tstart : int := Time.Sec
    var t, cycle : int := 0
    loop
        t := Time.Sec
        exit when t > tstart + 1
        cycle += 1
    end loop
    result cycle
end compSpeed

const READINGS := 5
var speed : array 1 .. READINGS of int
var avg : int := 0
for i : 1 .. READINGS
    speed (i) := compSpeed
    put "Reading ", i, ": ", speed (i)
    avg += speed (i)
end for
avg := round (avg / READINGS)
put "Avg: ", avg