100 REM TOD CLOCK EXAMPLE
110 GOSUB 150: PRINT CHR$(147)
120 GOSUB 260: PRINT T$;CHR$(19)
130 GOTO 120
140 :
150 REM SET AND START THE CLOCK
160 BA=56331: REM CIA#1
170 INPUT"ENTER THE TIME (HHMMSS)";T$
180 IF LEN(T$)<>6 THEN 170
190 FOR X=0 TO 5 STEP 2
200 Y=VAL(MID$(T$,X+1,2))
210 Y=INT(Y/10)*16+(Y-INT(Y/10)*10)
220 POKE BA-X/2,Y: NEXT X
230 POKE BA-3,0
240 RETURN
250 :
260 REM READ THE TIME
270 T$="":M$=" AM":FOR X=0 TO 5 STEP 2
280 T2$=STR$((PEEK(BA-X/2)AND 112)/16) + STR$(PEEK(BA-X/2)AND 15)
290 T$=T$+MID$(T2$,2,1)+MID$(T2$,4,1)
300 IF X<>4 THEN T$=T$+":"
310 NEXT X: X=PEEK(BA-3)
320 RETURN