'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