" U$=UHRZEIT   12 UHR 1 = 12.01.00
" W$=WECKZEIT  13 UHR 1 = 13.1.0 !!
" Bitte vor der šbertragung die ersten 3 Zeilen l”schen
10:WAIT 38
20:INPUT U$,W$
30:H=VAL (LEFT$ (U$,2))
40:M=VAL (MID$ (U$,4,2))
50:S=VAL (MID$ (U$,7,2))
60:U$=STR$ (H)+"."+STR$ (M)+"."+STR$ (S)
70:PRINT U$
80:S=S+1
90:IF S=60 THEN LET S=0:M=M+1
100:IF M=60 THEN LET M=0:H=H+1
110:IF U$=W$ BEEP 1:S=S+1
120:FOR I=1 TO 10:NEXT I
130:GOTO 60