L ::MN$(13),MD(13),DY$(7),DA$(7),C(13,7,6),LY$(1),SP$(8),HD$(12,31,2)M$(1)"Print a yearly calendar.":M$(2)"Print a calendar for a month.":M$(3)"Quit this program."SP$(0)" ":SP$(4)SP$(0):SP$(8)" "(LY$(0)"not ":LY$(1)""4 2H1$"====================":H2$" S M T W T F S"H <D$(4):I$(9)| FI112:MN$(I)::MN$(0)MN$(12):MN$(13)MN$(1) U " JANUARY "," FEBRUARY "," MARCH "," APRIL "," MAY "," JUNE " Z " JULY "," AUGUST "," SEPTEMBER "," OCTOBER "," NOVEMBER "," DECEMBER " dI013:MD(I):: 31,31,28,31,30,31,30,31,31,30,31,30,31,31_ nI17:DY$(I),DA$(I):: SUN,"Sunday",MON,"Monday",TUE,"Tuesday",WED,"Wednesday",THR,"Thursday",FRI,"Friday",SAT,"Saturday" x:"***********************************" y"* *" z"* AMERICA ONLINE'S *" {"* *"8 |"* APPLE // EDUCATION FORUM *"c }"* *" ~"* PRESENTS *" "* *" "* THE CALENDAR PRINTER *":"* *"< "***********************************":::f "You may:":I13:I". "M$(I):::: 20:"YOUR SELECTION (1, 2, or 3): ";A$:A(A$):A1A3140 10:M$(A):: A180,380,720,820,170 :12:"Year for calendar (YYYY) ";YR:YR17531806DY1:MN1:900:960:1020?IDWKM112SR1bD1MD(M)qC(M,I,R)DII1:I8I1:RR1DM1040:::D$"PR#1":I$"80N""36);"********":36);"* "YR" *":36);"********",::M1466" ";MN$(M);" ";MN$(M4);" ";MN$(M8)@" "H1$" "H1$" "H1$:" "H2$" "H2$" "H2$:" "H1$" "H1$" "H1$J" ";:R16TX084:I17:C(MX,I,R)0ĺ" ";:360^C(MX,I,R)10);C(MX,I,R);" ";1hI:SP$(X);:X::" ";:R:::::MHr(12):D$"PR#0":|12:"Month for calendar (1-12) ";M1:M11M11238014:"Year for calendar (YYYY) ";Y1:Y1175339016:"Do you want holidays to appear (Y/N) ";H$:H$"Y"H1:430H$"N"N0:430400?MNM11:YRY1:MN0MN12:YRYR1dDY1:960:1020:MNM1:YRY1:900mIDW~MMN1MN1R1D1MD(M)C(M,I,R)DII1:I8I1:RR1DMHİ10501040:::D$"PR#1":I$"80N"&26);YR;MN$(MN);YR::z0" ";:I171:"=";:::" ";:I17:"| "DY$(I)" ";::"|":" ";:I171:"=";:::R16:" ";:X17D"| ";:C(MN,X,R)0ĺ" ";:600NC(MN,X,R)10);C(MN,X,R);" ";XX:"|":X14:" ";:J17:"| ";::"|":dbJ12:" ";:X17:HD$(MN,C(MN,X,R),J)""ĺ"| ";:630~lHD$(MN,C(MN,X,R),J);v:"|":" ";:X171:"-";::R:17);MN$(MN1)" "MN$(MN1):17);H2$" "H2$17);:R160X112:I17:C(MNX,I,R)0ĺ" ";:700WC(MNX,I,R)10);C(MNX,I,R);" ";yI:" ";:X::17);:R:(12):D$"PR#0":(4)"RUN STARTUP"MD(2)28:LY0YR4(YR4)LY1YR100(YR100)LY0YR400(YR400)LY1LYMD(2)297F365YRDY31(MN1)FMN21000qFF((YR1)4)(.75((YR1)100)1){1010FF(.4MN2.3)(YR4)(.75((YR100)1))DWF((1F)71)7:DW0DW7:"** TURN ON YOUR PRINTER **"::.I18:M,D:HD$(M,D,1),HD$(M,D,2):$ 1,1,"|NEW YEARS","| DAY ",2,12,"|LINCOLN'S", "BIRTHDAY ",2,14,"|VALENTINE ","| DAY ",2,12,"|WSHNGT N'S","|BIRTHDAY "c. 7,4,"|INDEPEND.","| DAY ",10,31,"| ","|HALLOWEEN",11,11,"|VETERAN'S","| DAY ",12,25,"|CHRISTMAS","| DAY "w8R6:MN51110BC(5,2,R)0RR1:1090LHD$(5,C(5,2,R),1)"|MEMORIAL ":HD$(5,C(5,2,R),2)"| DAY "VI17:C,D,M:MMNćA$,A$:1160`R1:X0#jC(M,D,R)0RR1:1130>tXX1:XCRR1:1140g~HD$(M,C(M,D,R),1),HD$(M,C(M,D,R),2)m 3,2,2,"|WASHINGT.","|BIRTHDAY ",2,1,5,"|MOTHER'S ","| DAY ",3,7,5,"| ARMED ","|FORCES DY",3,1,6,"|FATHER'S ","| DAY ",1,2,9,"| LABOR ","| DAY "[ 2,2,10,"|COLUMBUS ","| DAY ",4,5,11,"|THANKSGIV","| DAY "zI121:Y,M,D:YYR1210HD$(M,D,2)"| EASTER "o 1989,3,26,1990,4,1,1991,3,31,1992,4,19,1993,4,11,1994,4,3,1995,4,16,1996,4,7,1997,3,30,1998,4,12,1999,4,4,2000,4,23,2001,4,15,2002,3,31,2003,4,20,2004,4,11,2005,3,27,2006,4,16,2007,4,8,2008,3,23,2009,4,12I13:Y,M,D:YYR1250HD$(M,D,1)"| HANUKAH ":HD$(M,D,2)"| BEGINS " 1989,12,23,1990,12,12,1991,12,9