100 :
110 REM MAERZ-VOLLMONDE 1900-2099
120 REM (W) BY FRED SEYFERTH
130 REM (C) BY 64'ER
140 :
150 INPUT"[147]WELCHES JAHR";J
160 :
170 A=19*(J-19*INT(J/19))+24
180 B=A-30*INT(A/30)+22
190 IFB>31THENB=B-30
200 :
210 PRINT"VOLLMOND AM"B"[157].MAERZ"J
220 :