12 lines
257 B
Plaintext
12 lines
257 B
Plaintext
'Keeping time using the
|
|
'59.98 Hz frame counter
|
|
10 input H,M,S:B=peek(14)
|
|
20 T=S*60:V=3599:goto 50
|
|
30 if T>=V T=T-V: M=M+1
|
|
40 if M>59 M=M-60:H=H+1
|
|
50 print H;":";M/10;M%10;
|
|
60 S=T/60:?":";S/10;S%10
|
|
70 A=B:B=peek(14):A=B-A
|
|
80 if A<0 A=A+256
|
|
90 T=T+A:goto 30
|