100 KEY OFF:CLS
110 DEFINT A-Z:DEFSNG T
120 DIM D(58),WT$(6)
130 DATA "Sonntag", "Montag", "Dienstag", "Mittwoch", "Donnerstag", "Freitag"
140 DATA "Sonnabend"
150 RESTORE 130
160 FOR I=0 TO 6:READ WT$(I):NEXT I
170 WHILE INKEY$=""
180   WHILE INP(513)<&HF0:WEND
190   LET T1=TIMER
200   WHILE INP(513)>&HEF:WEND
210   LET T0=TIMER
220   IF T0-T1<1.5 THEN GOTO 180
230   FOR I=0 TO 58
240     WHILE INP(513)>&HEF:WEND
250     LET T0=TIMER
260     WHILE INP(513)<&HF0:WEND
270     LET T1=TIMER
280     LET D(I)=(T1-T0)>.12:REM empirisch ermittelt, vgl. Zeile 250
290     REM PRINT I,(T1-T0)*100:rem Kalibrierhilfe
300   NEXT I
310   LET MH=(D(27)*2+D(26))*2+D(25)
320   LET ML=((D(24)*2+D(23))*2+D(22))*2+D(21)
330   LET MINUTE=-10*MH-ML
340   LET SH=D(34)*2+D(33)
350   LET SL=((D(32)*2+D(31))*2+D(30))*2+D(29)
360   LET STUNDE=-10*SH-SL
370   LET TH=D(41)*2+D(40)
380   LET TL=((D(39)*2+D(38))*2+D(37))*2+D(36)
390   LET TAG=-10*TH-TL
400   LET WOCHENTAG=-((D(44)*2+D(43))*2+D(42))
410   LET MOL=((D(48)*2+D(47))*2+D(46))*2+D(45)
420   LET MONAT=-10*D(49)-MOL
430   LET JL=((D(53)*2+D(52))*2+D(51))*2+D(50)
440   LET JH=((D(57)*2+D(56))*2+D(55))*2+D(54)
450   LET JAHR=-10*JH-JL
460   LET S=0
470   FOR I=21 TO 28:LET S=S+D(I):NEXT I
480   IF (S AND 1)=1 THEN PRINT "Fehler 1"
490   LET S=0
500   FOR I=29 TO 35:LET S=S+D(I):NEXT I
510   IF (S AND 1)=1 THEN PRINT "Fehler 2"
520   LET S=0
530   FOR I=36 TO 58:LET S=S+D(I):NEXT I
540   IF (S AND 1)=1 THEN PRINT "Fehler 3"
550   PRINT "heute ist "WT$(WOCHENTAG);", der";TAG;".";MONAT;".";JAHR
560   PRINT "es ist "STUNDE;":"MINUTE
570 WEND
580 REM DCF sendet immer die n„chste Minute