StandardIO

Var X STime ETime

X = 1
ClearScreen
Writeln 'Speed Check ...'
Writeln
STime = Timer
repeat
   X = X + 1
   Report
until X = 10000
writeln
ETime = Timer
Writeln (ETime - STime)

Procedure Report
   if X mod 1000 = 0 then writeln X
   Dummy(1,2,3,4,5,6)
   Dummy(1,2,3,4,5,6)
   Dummy(1,2,3,4,5,6)
   Dummy(1,2,3,4,5,6)
   Dummy(1,2,3,4,5,6)
EndProc

Procedure Dummy(A,B,C,D,E,F)
EndProc