100 DEFFNUR(N)=VAL(MID$(UR$,3*N+1,2))
110 DEFFNBC(UR)=UR+6*INT(UR/10)
115 DEFFNDZ(UR)=UR-6*INT(UR/16)
120 UH=56331:GOTO360
130 :
140 REM ===== UHR STELLEN =========
150 PRINTCHR$(147)"UHRZEIT  00-00-00[157][157][157][157][157][157][157][157][157][157]";
160 INPUTUR$
170 POKEUH+3,PEEK(UH+3)OR128:REM 50HZ
180 POKEUH+4,PEEK(UH+4)AND127:REM UHR
190 UR=FNUR(0):IFUR>=12THENUR=UR+68
200 FORI=0TO2:POKEUH-I,FNBC(UR)
210 UR=FNUR(I+1):NEXT
220 PRINT:PRINT"START AUF TASTENDRUCK"
230 GETA$:IFA$=""THEN230
240 POKEUH-3,0:RETURN
250 :
260 REM ===== UHR LESEN ==========
270 UR=FNDZ(PEEK(UH)):IFUR=12THENUR=0
280 IFUR>12THENUR=UR-68
290 IFUR=24THENUR=12
300 UR$="":FORI=1TO3
310 UR$=UR$+CHR$(48+INT(UR/10))+CHR$(48+UR-10*INT(UR/10))+":"
320 UR=FNDZ(PEEK(UH-I)):NEXT
330 UR$=LEFT$(UR$,8):RETURN
340 :
350 REM ====== HAUPTPROGRAMM =======
360 GOSUB150:PRINTCHR$(147);
370 GOSUB270:PRINTCHR$(19)UR$;:GOTO370