Digital Clock

Gallery

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