ClearScreenOnExit Off

Var Time

ClearScreen
Writeln 'Speed Check ...'
Writeln
Time[1] = Timer
Test
writeln
Time[2] = Timer
Writeln (Time[2] - Time[1])

Procedure Test
var X
   X = 1
   repeat
      X = X + 1
      if X mod 5000 = 0 then writeln X
   until X = 50000
EndProc