StandardIO

Var Time

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

Procedure Test
var X Y Z
   Z = 'XX'
   X = 1
   repeat
;      Writeln X
      X = X + 1
      if X mod 400 = 0 then writeln X
      Y = Str(X) + 'XX' + Z
   until Y = ('4000' + 'XX' + Z)
EndProc