(d40:" ENTER YEAR TO BE PRINTED":Y*i"TO OUTPUT TO PRINTER PRESS 'P'":P$2nD~Yu1900:YY~Yx100:L~(Dx4):S~DtL:Dy4~0sS~Su1!sZ~1r30:S}~7sS~Su7:S7s130xZX~1r12:M$,DYy4~0zM$~"FEBRUARY"s D~29'YYx4u(YYx4)~0zM$~"FEBRUARY"sD~28P$~"P"{P$~"p"s#1:q10,32);M$;q22);Yq10);q27,45):1q3,32);"MON TUE WED THU FRI SAT SUN "300:C~0:S~0s210K~1rS:"! ";:C~Ct1:K*J~1rD:"!";:2,0:J;:C~Ct1:C}7s230"!":300:C~0 J:0,0YK~1r7uC:"! ";:K:"!":300:P$~"P"{P$~"p"s250: "PRESS ENTER TO CONTINUE";A$S~StDu28:S}~7sS~Su7X 320sJANUARY,31,FEBRUARY,28,MARCH,31,APRIL,30,MAY,31,JUNE,30,JULY,31,AUGUST,31,SEPTEMBER,30,OCTOBER,31,NOVEMBER,30" DECEMBER,31,V~1r36:"-";:V:"":6QQ~1r100:H@#0::"WOULD YOU LIKE TO SEE ANOTHER YEAR < Y/N >";A$:A$~"Y"s: xy