RosettaCodeData/Task/System-time/Atari-BASIC/system-time.basic

5 lines
169 B
Plaintext

10 REM DETECT NTSC OR PAL SYSTEM
20 FPS=60:IF PEEK(53268)=1 THEN FPS=50
30 JIFFIES=65536*PEEK(18)+256*PEEK(19)+PEEK(20)
40 PRINT JIFFIES/FPS;" SECONDS SINCE LAST RESET"