RosettaCodeData/Task/Time-a-function/ZX-Spectrum-Basic/time-a-function.basic
2023-07-01 13:44:08 -04:00

4 lines
118 B
Text

1 DEF FN t()=(PEEK 23672+256*PEEK 23673+65536*PEEK 23674)/50
10 LET time=FN t()
20 PRINT ASN 0.5
30 PRINT FN t()-time