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