StandardIO

Var X Time

X = 1
ClearScreen
Writeln 'Speed Check ...'
Writeln
Time[1] = Timer
Loop 20000
   if LoopIndex mod 2000 = 0 then writeln LoopIndex
EndLoop
writeln
Time[2] = Timer
Writeln (Time[2] - Time[1])