Time a function: Difference between revisions
Time a function in True BASIC
(Time a function in BASIC256) |
(Time a function in True BASIC) |
||
Line 2,628:
==> 13.257
</lang>
=={{header|True BASIC}}==
{{trans|QBasic}}
<lang qbasic>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</lang>
=={{header|TUSCRIPT}}==
| |||