! **************************! * *! * CALENDAR *! * *! * WRITTEN BY W.DELEKAT *! * *! * OCTOBER 1988 *! * *! ************************** :1:15,1: 2000d40: (17)'@16,1;"CALENDAR";@16,2;"========"a@1,4;"THE COMPUTER WILL DISPLAY ALL 12 MONTH";@1,5;"OF THE CHOSEN YEAR ON A SINGLE SCREEN."a@1,7;"CHANGES OF THE GREGORIAN CALENDAR WILL";@1,8;"NOT BE ACCOUNTED FOR BY THIS PROGRAM.!"4@1,10;"YOU MAY CHOOSE ANY YEAR FROM 0 - 9999."-@6,14;"ENTER YEAR REQUIRED ? : ":1,114@1,18;"PRESS ANY KEY TO RETURN TO THIS SCREEN" 15,1"Y2$~"":XX~30",@XX,14;" ";@XX,14;:Y1$~$(1)'6 Y1$~(25) z XX~30 s Y2$~"": 300B@ Y1$~(25) z XX}30 s XX~XXu1:YY~(Y2$):Y2$~(Y2$,YYu1): 300J Y1$~(13) z Y2$~"" s 300T Y1$~(13) s 500'^ Y1$(48) { Y1$}(57) s : 300&hY2$~Y2$tY1$:XX~XXt1: XX34 s 300rR~: R~13 s 5005| R~25 s XX~XXu1:YY~(Y2$):Y2$~(Y2$,YYu1): 300  370YY~(Y2$): YY}3 s 540 YY~1 s Y2$~"000"tY2$ YY~2 s Y2$~"00"tY2$ YY~3 s Y2$~"0"tY2$ Y~(Y2$)" ** CALCULATE DATES FOR YEARA(2)~28:Z~Yu1C~(Zx4)u(Zx100)t(Zx400) X~YtCt1$D~(Xu7w(Xx7))w4u3. D~0 s D~258D1~((Dt4)x4)>B Y~4w(Yx4) z Y}100w(Yx100) { Y~400w(Yx400) s A(2)~29LV ** PRINT YEAR`j32t@0,0;Y2$~ ** PRINT DAYS 1,13kZ~1: ZY~1 r 3:@1,Z;D1$;@1,Zt1;D2$;@1,Zt2;D3$;@1,Zt3;D4$;@1,Zt4;D5$;@1,Zt5;D6$;@1,Zt6;D7$;:Z~Zt8: ZY ** PRINT MONTHS 1,5,@4,0;M1$;@11,0;M2$;@18,0;M3$;@25,0;M4$,@4,8;M5$;@11,8;M6$;@18,8;M7$;@25,8;M8$3@4,16;M9$;@11,16;M10$;@18,16;M11$;@25,16;M12$ ** PRINT DATES  15,1M~1:H1~4:H2~9:V1~1:V2~7( X4~1 r 32 X3~1 r 4< X2~H1 r H2F X1~1 r A(M)P@X2,D1;(X1t222); ZD1~D1t1d D1}V2 s D1~V1:X2~X2t1n X1~A(M) s X2~H2 x X1  X2M~Mt1:H1~H1t7:H2~H2t7  X3H1~4:H2~9:V1~V1t8:V2~V2t8 D1~D1t8  X4@0,8;(20);W$~$: 100# ** SHAPES OF DAY,MONTH,DATES  A(12)* 31,28,31,30,31,30,31,31,30,31,30,31 N~1 r 12: A(N):  160,"0000000000000000"  161,"00001A22124A3100"* 162,"0000525A56529200"4 163,"0000497A4A4A4900"> 164,"0000925A56529200"H 254,"00007A3232323100"R 166,"00005E505C509E00"\ 167,"00004B4A4B7A4B00"f 168,"0000DC129212DC00"p 169,"00007A3233323200"z 170,"00005252D2524C00" 171,"00007B4273424200" 172,"00009E4C8C8C5E00" 173,"00001922134A3200" 174,"00009E4CCC4C4C00" 175,"00003C0909093100" 176,"0000C92DEB292900" 177,"0000494A4B4A3200" 178,"00009C52DC545200" 179,"0000909060606000" 180,"00003D2139212100" 181,"0000EE09CE09EE00" 182,"0000724A72524900" 183,"00004C525E529200" 184,"0000E494E3A39300" 185,"0000808000000000" 186,"0000243D25252500"$ 187,"0000CE29EE2A2900". 188,"00003A4243423A00"8 189,"00004040C0404000"B 190,"000019253D252500"L 191,"0000CE29CE0A0900"V 192,"00007A3232327B00"` 193,"000000000000C000"j 194,"0000C929E6262600"t 195,"00003D0909093000"~ 196,"0000292D2B29C900" 197,"0000784070407800" 198,"000028282828CF00" 199,"0000484830303000" 200,"000019253D252400" 201,"000026282B29C600" 202,"00004849484A3100" 203,"0000DE0C8C4C8C00" 204,"00000D1109251900" 205,"0000EE09CE08E800" 206,"00007B3233323300" 207,"0000D21E9212D200" 208,"0000E794E794E700" 209,"0000B8243828A400" 210,"0000182525251800" 211,"0000EF060606E600" 212,"0000334A4B4A3300"( 213,"00009E509C509E00"2 214,"0000E090E0A09000"< 215,"000024352D252400"F 216,"0000C9292926C600"P 217,"00007A4372427A00"Z 218,"00005CD25C525C00"d 219,"0000F784E785F400"n 220,"0000008000008000"x 221,"0000392525253900" 222,"0000E708C808E700" 223,"0000040C04040E00" 224,"0000040A02040E00" 225,"00000C0204020C00" 226,"000002060A0E0200" 227,"00000E080C020C00" 228,"000004080C0A0400" 229,"00000E0204080800" 230,"0000040A040A0400" 231,"0000040A06020400" 232,"0000246A2A2A7400" 233,"0000246C24247E00" 234,"0000246A22247E00" 235,"00002C6224227C00" 236,"000022662A2E7200" 237,"00002E682C227C00"" 238,"000024682C2A7400", 239,"00002E6224287800"6 240,"0000246A242A7400"@ 241,"0000246A26227400"J 242,"0000245A1A2A7400"T 243,"0000245C14247E00"^ 244,"0000245A12247E00"h 245,"00002C5214227C00"r 246,"000022561A2E7200"| 247,"00002E581C227C00" 248,"000024581C2A7400" 249,"00002E5214287800" 250,"0000245A142A7400" 251,"0000245A16227400" 252,"0000641A2A1A6400" 253,"0000641C24146E00" D1$~(161)t(162) D2$~(163)t(164) D3$~(254)t(166) D4$~(167)t(168) D5$~(169)t(170) D6$~(171)t(172) D7$~(173)t(174)2 M1$~(175)t(176)t(177)t(178)t(179)t(160)2 M2$~(180)t(181)t(182)t(183)t(184)t(185)2 M3$~(186)t(187)t(188)t(189)t(160)t(160)2& M4$~(190)t(191)t(192)t(193)t(160)t(160)20 M5$~(186)t(194)t(160)t(160)t(160)t(160)2: M6$~(195)t(196)t(197)t(160)t(160)t(160)2D M7$~(195)t(198)t(199)t(160)t(160)t(160)2N M8$~(200)t(201)t(202)t(203)t(160)t(160)2X M9$~(204)t(205)t(206)t(207)t(208)t(209)3b M10$~(210)t(211)t(212)t(213)t(214)t(160)3l M11$~(215)t(216)t(217)t(218)t(219)t(220)3v M12$~(221)t(222)t(217)t(218)t(219)t(220) :1:X(42),Y(42):142,"00304884FC8484003078FCFC78300000":5:A~0:B~191:A$~"TREBLE