1070 "Z" CLEAR : CLS : DIM A$(6)*10,B$(0)*10: RESTORE 1081: FOR I=0 TO 6: READ A$(I): NEXT I
 1071 WAIT 0: PRINT "Datum:TT.MM.JJJJ ": WAIT 
 1072 CURSOR 6: INPUT B$(0):T= VAL ( MID$ (B$(0),1,2)):M= VAL ( MID$ (B$(0),4,2))
 1073 J= VAL ( MID$ (B$(0),7,4)): IF J<1582 PAUSE "Eingabefehler": GOTO 1072
 1074 IF M>2 LET M=M-2: GOTO 1076
 1075 M=M+10:J=J-1
 1076 H= INT (J/100),J=J-100*H:W= INT (J/4)+ INT (H/4)+ INT ((13*M-1)/5)+T+J-2*H
 1077 IF W>0 LET W=W-7* INT (W/7): GOTO 1079
 1078 IF W<0 LET W=W+7: GOTO 1078
 1079 CURSOR 28: PRINT " ="+A$(W): CLS : INPUT "Nochmal?";A$: IF A$="J" THEN 1072
 1080 END 
 1081 DATA "SONNTAG","MONTAG","DIENSTAG","MITTWOCH"
 1082 DATA "DONNERSTAG","FREITAG","SAMSTAG"