53280,0:53281,0:""6 ND(12),MO$(12):4,4T$" ---------------------------------------------------------------- "C$" ":T$" "T$LO112:ND(LO),MO$(LO):LOLL17:DY$:AA$AA$" "DY$: #D1:MO1:YR2000 (2003 -"MONTH & YEAR (MM,YYYY)";MO,YR< 2120h 7XX(ND(MO)J)7:NU(XX):XXNUNUNU1 < (YR4)(YR4)0 ND(2)29 ASR(J10)4 F300 K:"AGAIN (Y/N)";XZ$:XZ$"Y" P4 U Z300 _ c DAY#7 d 31,JANUARY,28,FEBRUARY,31,MARCH,30,APRIL,31,MAY,30,JUNE,31,JULY,31t i AUGUST,30,SEPTEMBER,31,OCTOBER,30,NOVEMBER,31,DECEMBER n SUN,MON,TUE,WED,THU,FRI,SAT xQYR(MO3):J(275MO9)((7Q7)4)367YRD(((Q100)1)34) }JJ47((J4)7):  SUN,MON,TUE,WED,THU,FRI,SATH "":10)"* CALENDAR GENERATOR *": " INPUT ANY MONTH IN TWO (2) DIGIT FORM AND ANY YEAR IN FOUR (4)"; " DIGIT FORM. A CALENDAR FOR THAT MONTH AND YEAR WILL BE DUMPED"; " TO THE PRINTER." ::" TURN ON PRINTER NOW! "B ::" HIT ANY KEY TO CONTINUE"U G$:G$""235[ ,CE(64(MO$(MO))212)29:4:4,CE)(14);MO$(MO)" ";YR 14,(15):4 6IN4:GU0:N9$"01":N91 ;4,7)AA$ @4,T$ ELO1NU J4," "; OL317$ TININ9:INSRGU18 YN9ND(MO)GU0F ^GU0360 c4,(C$,7);(N9$,2);:N9N91:N9$"0"((N9),2):365 h4,C$; mL3:4,"" rL228 w4," ";C$;C$;C$;C$;C$;C$;C$;"":L2 |4,T$ LO:4,(12)