Task

Write a program which uses a timer (with the least granularity available
on your system) to time how long a function takes to execute.

Whenever possible, use methods which measure only the processing time used
by the current process; instead of the difference in system time
between start and finish, which could include time used by
other processes on the computer.

This task is intended as a subtask for Measure relative performance of sorting algorithms implementations.




SUB cont (n)
    LET sum = 0
    FOR i = 1 TO n
        LET sum = sum+1
    NEXT i
END SUB
 
LET timestart = TIME
CALL cont (10000000)
LET timedone = TIME
 
!midnight check:
IF timedone < timestart THEN LET timedone = timedone+86400
LET timeelapsed = (timedone-timestart)*1000
PRINT timeelapsed; "miliseconds."
END