5"";:Z$(8)(13)(15):Q$(14):K$(15):10]I17:4,"";::4,Z$;:I17:4,"";::4,Z$;:I17:4," ";::4,Z$;: D$(7):I17:D$(I)::50 SUN,MON,TUE,WED,THU,FRI,SAT, JANUARY,31,FEBRUARY,28,MARCH,31,APRIL,30,MAY,31,JUNE,30t( JULY,31,AUGUST,31,SEPTEMBER,30,OCTOBER,31,NOVEMBER,30,DECEMBER,31-"ERROR!"2"YEAR";Y$:(Y$)2Y$"19"Y$7Y$"QUIT"4:<"MONTH";M$F"FIRST DAY";D$PI17:(D$,3)D$(I):45 ZD2I5dI112:A$,A:(M$,3)(A$,3):45WnA28(Y$)4((Y$)4)A29ps4,4:4,(14)(16);x4,("0"(((40(Y$" "A$))),2),2);4,A$" "Y$:4,(15)2:I17:4," "D$(I)" ";::4,Z$;3:20I17:D.DA4,""Q$((D)" ",2,2)K$" ";:180F4," ";hDD1::4,Z$;:J17:4::3zDA2:160I14:4:4,(16)"50B & B ENTERPRISES"50