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