1 PRINT"[147][155]"SPC(10)"[196]IE  [212]AGESBERECHNUNG":PRINTSPC(12)"[152]VON [193]LBERT [213]LMER[155]"CHR$(14)
2 POKE53280,0:POKE53281,0:PRINTSPC(10)"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]":PRINT
3 DIMB$(12):FORI=0TO6:READA$(I):NEXTI:FORI=1TO12:READB$(I):NEXTI
4 INPUT"WELCHES [196]ATUM: [212][212].[205][205].19[202][202][157][157][157][157][157][157][157][157][157][157][157][157]";DA$:IFLEN(DA$)<>10THENPRINT"[145][145]":GOTO4
5 T=VAL(LEFT$(DA$,2)):M=VAL(MID$(DA$,4,2)):J=VAL(RIGHT$(DA$,4)):A=T:B=M:C=J
6 IFT>((M-7*INT((M-1)/7))AND1)+30+(M=2)*(2+(J/4=INT(J/4)))ORT<1THENPRINT"[145][145]":GOTO4
7 IFM<1ORM>12ORJ<1582ORJ>9999THENPRINT"[145][145]":GOTO4
8 IFM>2THENM=M-2:GOTO10
9 M=M+10:J=J-1
10 H=INT(J/100):J=J-100*H:W=INT(J/4)+INT(H/4)+INT((13*M-1)/5)+T+J-2*H
11 IFW>0THENW=W-INT(W/7)*7:GOTO13
12 IFW<0THENW=W+7:GOTO12
13 PRINT:PRINT:PRINT"[196]ER"A"[157]. "B$(B)"DES [202]AHRES"C:PRINT"IST EIN "A$(W)"[146]!"
14 PRINT:PRINT"[206]OCH MAL ?[146]":GETK$:IFK$<>"J"ANDK$<>"N"THENPRINT"[145][145][145]":GOTO14
15 IFK$="N"THENPRINT"[147][195]IAO.":END
16 FORI=5TO11:POKE781,I:SYS59903:NEXTI:POKE214,4:POKE211,0:SYS58640:GOTO4
17 DATA"[211]ONNTAG","[205]ONTAG","[196]IENSTAG","[205]ITTWOCH","[196]ONNERSTAG","[198]REITAG","[211]AMSTAG"
18 DATA"[202]ANUAR","[198]EBRUAR","[205]AERZ","[193]PRIL","[205]AI","[202]UNI","[202]ULI","[193]UGUST"
19 DATA"[211]EPTEMBER","[207]KTOBER","[206]OVEMBER","[196]EZEMBER"