:ClockTest()
:Prgm

:Local startTime,endTime,iterations,i
:Local computeVal := 1

:"Clear home screen"
:ClrHome

:"Set number of iterations"
:100→iterations

:"Get start time"
:getTime()→startTime

:"Perform computational loop"
:For i,1,iterations
:  computeVal+1→computeVal
:EndFor

:"Get end time"
:getTime()→endTime

:"Calculate elapsed time in seconds"
:(endTime-startTime)/1000→elapsed

:"Estimate operations per second"
:iterations/elapsed→opsPerSec

:"Display results"
:Disp "Est. Operations/sec:"
:Disp opsPerSec
:Disp ""
:Disp "Note: This is an"
:Disp "approximation only"

:EndPrgm