10 P=56577:REM USER PORT
20 POKEP+2,255:REM ALL PINS OUTPUT
30 POKEP,0:REM ALL PINS LOW
40 PRINTCHR$(147):POKE53281,14:POKE646,6
50 PRINT"SET CLOCK AT:"
60 R=8:GOSUB290:K=43200:REM 43200 SECONDS IN 12 HOURS
70 IFI$="PM"THENX=K
80 FORI=1TO3:H=INT(T(I)/10):L=T(I)-10*H:T(I)=16*H+L:NEXT
90 C=56331:POKEC,T(1):POKEC-1,T(2):POKEC-2,T(3)
100 PRINT"ACTIVATE USER PORT AT:"
110 R=18:GOSUB290
120 IFI$="PM"THENY=K
130 B=Y+T(1)*3600+T(2)*60+T(3)
140 PRINT"PRESS ANY KEY TO START CLOCK.
150 [161]A$:[139]A$[178]""[167]150
160 [151]C[171]3,0
170 H[178][194](C):M[178][194](C[171]1):S[178][194](C[171]2):T[178][194](C[171]3)
180 C1$[178][199]((16[175]H)[173]16[170]48)[170][199]((15[175]H)[170]48)
190 H[178][197](C1$)[172]3600
200 [139]C1$[178]"00"[167]C1$[178]"12"
210 C2$[178][199]((240[175]M)[173]16[170]48)[170][199]((15[175]M)[170]48):M[178][197](C2$)[172]60
220 C3$[178][199]((240[175]S)[173]16[170]48)[170][199]((15[175]S)[170]48):S[178][197](C3$)
230 A[178]X[170]H[170]M[170]S:[139]A[178]2[172]K[167][151]C,0:[151]C[171]3,0:X[178]0
240 [139]A[178]B[167]420
250 [139]A[179]K[167]J$[178]"AM":[137]270
260 J$[178]"PM"
270 [153]"TIME IS "C1$[170]":"[170]C2$[170]":"[170]C3$[170]":"T;J$[170]"ON"
280 [137]170
290 H$[178]"":[133]"HOURS";H$:[139]H$[179]"0"[176]H$[177]"9"[167][153]"ONON":[137]290
300 T(1)[178][197](H$):[139]T(1)[179]0[176]T(1)[177]12[167][153]"ONON":[137]290
310 [139]T(1)[178]12[167]T(1)[178]0
320 M$[178]"":[133]"MINUTES";M$:[139]M$[179]"0"[176]M$[177]"9"[167][153]"ONONON":[137]320
330 T(2)[178][197](M$):[139]T(2)[179]0[176]T(2)[177]59[167][153]"ONONON":[137]320
340 S$[178]"":[133]"SECONDS";S$:[139]S$[179]"0"[176]S$[177]"9"[167][153]"ONONON":[137]340
350 T(3)[178][197](S$):[139]T(3)[179]0[176]T(3)[177]59[167][153]"ONONON":[137]340
360 [153]"AM OR PM (PRESS A OR P)"
370 [161]I$:[139]I$[179][177]"A"[167][139]I$[179][177]"P"[167]370
380 [139]I$[178]"A"[167]I$[178]"AM":[137]400
390 I$[178]"PM"
400 [151]214,R:[153]:[151]211,24:[153]I$
410 [142]
420 [153]"LOADUSER PORT PIN C ON."
430 [153]"PRESS ANY KEY TO TURN OFF.
440 POKEP,1:REM TURNS ON PIN C
450 GETA$:IFA$=""THEN450
460 POKEP,0
470 PRINT"USER PORT PIN C OFF."