10 REM STELLEN DER UHR
20 C=56328:REM BASISADRESSE DER CIA-UHR
30 POKEC+7,PEEK(C+7)AND127:REM UHRZEIT SETZEN
40 POKEC+6,PEEK(C+6)OR128:REM F=50 HZ
50 INPUT"[147]ZEIT (HHMMSS)";TI$
60 H=VAL(LEFT$(TI$,2))
70 IFH>11THENH=H+68:REM PM-FLAG
80 POKEC+3,16*INT(H/10)+H-INT(H/10)*10
90 M=VAL(MID$(TI$,3,2))
100 POKEC+2,16*INT(M/10)+M-INT(M/10)*10
110 S=VAL(RIGHT$(TI$,2))
120 POKEC+1,16*INT(S/10)+S-INT(S/10)*10
130 POKEC,0:REM ZEHNTELSEKUNDEN AUF 0 SETZEN UND UHR STARTEN
140 :
150 :
160 REM UHR AUSLESEN
170 DATA 173,8,220,173,9,220,141,82,3,173,10,220,141,83,3,173,11,220,141
180 DATA84,3,96:REM MASCHINENPROGRAMM
190 FORI=49152TO49173:READA:POKEI,A:NEXT
200 C=850:POKE53281,0:POKE53280,0:PRINT"[147]"
210 SYS49152:H=PEEK(C+2):M=PEEK(C+1):S=PEEK(C):REM UHR AUSLESEN
220 F$="AM":IF(HAND128)THENH=HAND127:F$="PM"
230 PRINT"";:A=H:GOSUB270:PRINT":";:A=M:GOSUB270:PRINT":";:A=S:GOSUB270
240 PRINT" ";F$:GOTO210
250 :
260 :
270 REM AUSGABE VON A IN HEXADEZIMAL
280 A$=STR$(INT(A/16)):PRINTRIGHT$(A$,1);
290 A=A-16*VAL(A$):A$=STR$(A):PRINTRIGHT$(A$,1);
300 RETURN