1090 "G" INPUT "Jahr=";J: IF J<1582 OR J>2200 THEN 1090
 1091 X= INT (J/100): ON 22-X GOSUB 1092,1093,1093,1094,1095,1096,1096: GOTO 1097
 1092 M=24:N=6: RETURN 
 1093 M=24:N=5: RETURN 
 1094 M=23:N=4: RETURN 
 1095 M=23:N=3: RETURN 
 1096 M=22:N=2: RETURN 
 1097 A=J- INT (J/19)*19:B=J- INT (J/4)*4:C=J- INT (J/7)*7:D=19*A+M:D=D- INT (D/30)*30
 1098 E=2*B+4*C+6*D+N:E=E- INT (E/7)*7:F=22+D+E:G=D+E-9: IF F>31 THEN 1100
 1099 PAUSE "Ostersonntag "+ STR$ J: PRINT "ist der ";F;"Maerz": GOTO 1104
 1100 IF G<25 THEN 1103
 1101 IF G=26 LET G=19: GOTO 1103
 1102 IF D=28 AND A>10 LET G=18
 1103 PAUSE "Ostersonntag "+ STR$ J: PRINT "ist der ";G;"April"
 1104 INPUT "nochmal?";A$: IF A$="J" THEN 1090
 1105 END