17 lines
313 B
Plaintext
17 lines
313 B
Plaintext
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
|