for y=2001to 3e3g=mod(y,19)+1
c=int(y/100)+1
x=int(3*c/4)-12
e=mod(11*g+15+int((8*c+5)/25)-x,30)
n=44-e-(e=25and g>11or e=24)
if n<21n=n+30
n=n+7-mod(int(5*y/4)-x-10+n,7)
a$=" MARCH"
if n>31a$=" APRIL":n=n-31
?str$(n,"%02.0f"),a$,", 0",y
next