) *********************************Q * WILL CORLEY *y * SACRAMENTO,CA * * MAY 21 1986 * ********************************* "";: 53280,6: 53281,1: 650,128  M$(12),L(12): X1 12: M$(X):4  X1 12: L(X): XF YEAR1986:M5] ( 16)"CALENDAR"t ) 16)"" * 13)"BY WILL CORLEY" + 13)"" , 13)"SACRAMENTO, CA" - 13)""; 2TI$"000000": 161,1: ""A < 5)"î"j F 5)" " P 5)"ý" Z 5)""; d X1 6 n ""; x X "" Y1 6 X1 7 5)" "; X ""# 5)"";1 X1 6C  "";: XM  ""U  Yf  5)" ";t " X1 6 , " "; 6 X @ ""  5)"";  X1 6  "";  X  ""  ""  5)"SATSUNMONTUEWEDTHUFRI"=  8)"M _ NEXT MONTH"a  8)"Y _ NEXT YEAR"  8)"SHIFT M _ PREVIOUS MONTH" & 8)"SHIFT Y _ PREVIOUS YEAR"  30000 L(2)28:ZYEAR400:Z((Z(Z))400): Z0 L(2)29: 2000. ZYEAR100:Z((Z(Z))100): Z0 L(2)28: 2000[ ZYEAR4:Z((Z(Z))4): Z0 L(2)29l MNM:YNYEAR  M3 YNYN1:MN12M A(32MN(3(MN1)5)YN(YN4)(YN100)(YN400))7 A((A(A))7.5) Z1:F0: ""; Y1 6: "";  X0 60 F1 2100G  XA F1: 2100[*A$" ": 2120o4 ZL(M) 2090>A$(Z):ZZ1: (A$)3 A$" "A$H "";A$;R X::: Y 198,0: 198,1A$: A$"" 1010 A$"M" MM1: M12 M1 A$"Y" YEARYEAR1? A$"" MM1: M0 M12r A$"" YEARYEAR1: YEAR1581 YEAR1582 198,0:TI$"000000": 162,16 30000 4005' JANUARY,FEBUARY,MARCH,APRIL,MAY,JUNE,JULY,AUGUST,SEPTEMBER,OCTOBER ' NOVEMBER,DECEMBER6$' 31,28,31,30,31,30,31,31,30,31,30,31v0uT$M$(M)(YEAR):L(T$):L(27L)2: X1 L:T$" "T$: X:u X1 L:T$T$" ": XDu "";T$Nu