RosettaCodeData/Task/Time-a-function/ZX-Spectrum-Basic/time-a-function.basic

5 lines
118 B
Plaintext

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