10 PRINT"[147]             DIGI-CLOCK"
20 PRINT"ENTER  SYS 682 [146] TO RESTART CLOCK AFTER  PRESSING RUN/STOP RESTORE."
30 PRINT"    CHANGE CLOCK COLOR BY ENTERING:
40 [153]"       POKE 40981, COLOR NUMBER
50 GOSUB290
60 INPUT"HOUR";HR
70 IFHR<1ORHR>12THENPRINT"MUST BE IN RANGE 1-12":GOTO60
80 H$=STR$(HR):IFLEN(H$)=2THENH=0:R=HR:GOTO100
90 H=VAL(LEFT$(H$,2)):R=VAL(RIGHT$(H$,1))
100 HR=(H*16)+R
110 INPUT"MIN";MI
120 IFMI<0ORMI>59THENPRINT"MUST BE IN RANGE 0-59":GOTO110
130 M$=STR$(MI):IFLEN(M$)=2THEN160
140 M=VAL(LEFT$(M$,2)):I=VAL(RIGHT$(M$,1))
150 MI=(M*16)+I
160 INPUT"SEC";SE
170 IFSE<0ORSE>59THENPRINT"MUST BE IN RANGE 0-59":GOTO160
180 S$=STR$(SE):IFLEN(S$)=2THEN210
190 S=VAL(LEFT$(S$,2)):E=VAL(RIGHT$(S$,1))
200 SE=(S*16)+E
210 PRINT"A[146]M OR P[146]M";:INPUTA$
220 IFA$<>"A"ANDA$<>"P"THEN210
230 IFA$="P"THENHR=HROR128
240 IFA$="P"ANDHR=146THENHR=18
250 IFA$="A"ANDHR=18THENHR=146
260 PRINT"PRESS ANY KEY WHEN READY TO START CLOCK"
270 GETG$:IFG$=""THEN270
280 POKE679,HR:POKE680,MI:POKE681,SE:SYS695:PRINT"[147]":NEW
290 I=682
300 READA:IFA=256THEN320
310 POKEI,A:I=I+1:GOTO300
320 I=40960
330 READA:IFA=256THENRETURN
340 POKEI,A:I=I+1:GOTO330
350 DATA 120,169,210,141,20,3,169
360 DATA 2,141,21,3,88,96,32
370 DATA 170,2,173,167,2,141,11
380 DATA 220,173,168,2,141,10,220
390 DATA 173,169,2,141,9,220,169
400 DATA 0,141,8,220,96,169,54
410 DATA 133,1,32,0,160,169,55
420 DATA 133,1,76,49,234,256
430 DATA 169,32,162,12,157,0,4
440 DATA 232,224,40,208,248,169,32
450 DATA 141,0,4,141,9,4,169
460 DATA 1,162,0,157,0,216,232
470 DATA 224,12,208,248,169,58,141
480 DATA 3,4,141,6,4,173,11
490 DATA 220,72,41,15,24,105,48
500 DATA 141,2,4,104,72,41,112
510 DATA 74,74,74,74,24,105,48
520 DATA 201,48,208,5,169,32,76
530 DATA 74,160,169,49,141,1,4
540 DATA 104,42,176,8,169,1,141
550 DATA 10,4,76,94,160,169,16
560 DATA 141,10,4,169,13,141,11
570 DATA 4,173,10,220,72,41,15
580 DATA 24,105,48,141,5,4,104
590 DATA 41,240,74,74,74,74,24
600 DATA 105,48,141,4,4,173,9
610 DATA 220,72,41,15,24,105,48
620 DATA 141,8,4,104,41,240,74
630 DATA 74,74,74,24,105,48,141
640 DATA 7,4,173,8,220,96,0,256