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
Note that non-ascii characters in the above source code will be escaped (such as \x9f).