Source Code
1 REM "DIGITAL CLOCK"
10 PRINT "AM OR PM"
20 INPUT M$
30 PRINT " INPUT TIME IN FORM 352 OR 1107"
40 INPUT T
50 LET H=INT (T/100)
60 LET M=T-H*100
70 LET P=3572
80 CLS
90 GOTO 200
100 LET M=M+1
110 IF INKEY$="F" THEN LET P=P-1
120 IF INKEY$="D" THEN LET P=P+1
130 IF INKEY$="J" THEN LET M=M-2
140 IF M=60 THEN LET H=H+1
150 IF M=60 THEN LET M=0
160 IF H=13 THEN LET H=1
170 LET C$=M$
180 IF H=12 AND M=1 AND C$="AM" THEN LET M$="PM"
190 IF H=12 AND M=1 AND C$="PM" THEN LET M$="AM"
200 PRINT AT 21,18;H;".";M;" ";M$;" "
210 PAUSE P
220 POKE 16437,255
230 GOTO 100
240 SAVE "1016%6"
250 RUN
