0 REM THIS LIST 1 CREATES (AND SHOULD NOT BE CALLED) CALENDAR.ML
5 OPEN 8,8,8,"CALENDAR.ML,P,W"
6 CT=0:PRINT"[147]"
10 READ A$:IF A$="-1" THEN CLOSE8:PRINT:PRINT"ALL DONE!":END
12 PRINT"READING LINE "+STR$(CT):CT=CT+1
15 IF LEN(A$)<62 THEN 55
20 B$=MID$(A$,1,20)+MID$(A$,22,20)+MID$(A$,43,20)
25 FOR I=1 TO 30
30 C$=MID$(B$,(I*2)-1,2):H$=LEFT$(C$,1):L$=RIGHT$(C$,1)
35 H=VAL(H$):IF H$>"9" THEN H=ASC(H$)-55
40 L=VAL(L$):IF L$>"9" THEN L=ASC(L$)-55
45 BY=H*16+L:PRINT#8,CHR$(BY);
50 NEXT:GOTO 10
55 IF LEN(A$)<21 THEN B$=A$:GOTO 70
60 IF LEN(A$)<42 THEN B$=LEFT$(A$,20)+RIGHT$(A$,(LEN(A$)-21)):GOTO 70
65 B$=LEFT$(A$,20)+MID$(A$,22,20)+RIGHT$(A$,LEN(A$)-42)
70 FOR I=1 TO LEN(B$)/2
75 C$=MID$(B$,(I*2)-1,2):H$=LEFT$(C$,1):L$=RIGHT$(C$,1)
80 H=VAL(H$):IF H$>"9" THEN H=ASC(H$)-55
85 L=VAL(L$):IF L$>"9" THEN L=ASC(L$)-55
90 BY=H*16+L:PRINT#8,CHR$(BY);
95 NEXT:GOTO 10
100 REM HEX DATA FOR CALENDAR.ML
101 DATA 00804CA088A9188D18D0*A93B8D11D0A9C88D16D0*60A9158D18D0A91B8D11
102 DATA D0A9C88D16D0A99320D2*FF60A000A90199000499*FA0499F40599EE06C8C0
103 DATA FAD0EFA000A961991106*C8C012D0F8A000A92199*620699B20699DA069902
104 DATA 07992A07995207997A07*C8C002D0E66020E4FFC9*00F0F960A90085FBA920
105 DATA 85FCA900A000A90091FB*C8D0F9E6FCA5FCC940D0*EF60A9FF91FB18A5FB69
106 DATA 0885FBA5FC690085FCCA*D0EC6086FB84FCA216A0*0760A248A02020A18020
107 DATA 8C80A288A02120A18020*8C80A208A02920A18020*8C80A208A03D20A18020
108 DATA 8C8060B1FB05FD91FBC8*C008D0F5A00018A5FB69*4085FBA5FC690185FCCA
109 DATA D0E360A90185FDA94085*FBA92085FCA007A21820*D380A98085FDA9F885FB
110 DATA A92085FCA007A21820D3*80A90185FDA91885FBA9*2385FCA206A00020D380
111 DATA 60A216A90885FBA92E85*FCA000B9F88891FBC8C0*08D0F618A5FB690885FB
112 DATA CAD0EA60AD00048DA802*8CAB02A200A0001820F0*FFADAB0220D2FFAD0004
113 DATA 84FCAEA8028E00040A26*FC0A26FC0A26FC85FB18*A5FC69D085FCAD0EDC29
114 DATA FE8D0EDCA50129FB8501*A000B1FB990089C8C008*D0F6A50109048501AD0E
115 DATA DC09018D0EDC60204C81*A0008CA9028CAA02A200*A9808DA702B900892CA7
116 DATA 02D0154EA702E8E004D0*19ADA9028DAA02A9008D*A902F0E3ADA9021D0889
117 DATA 8DA9024CC381E008D0D3*98EAA8ADAA0291A39818*6908A8ADA90291A39838
118 DATA E908EAA8C8C008F00AA9*008DA9028DAA02F0A560*A90485FDA9008DAC02A9
119 DATA C885A3A93185A4A90485*FDA5A385FBA5A485FCA0*04A20920D38018A5A369
120 DATA 1885A3A5A4690085A4EE*AC02ADAC02C908D0D660*A2D0A031208082A250A0
121 DATA 34208082A2D086FBA03B*84FCA007A214208C80A9*078D4C348DCC318DCF3B
122 DATA A9FC8DF4348D74328D77*3C6086FB84FCA004A214*208C80608497A9008DAD
123 DATA 02A497B91089A8204C81*20A782E697CEAF02D0ED*60A000B1A319008991A3
124 DATA C8C008D0F418A5A36908*85A3A5A4690085A46084*97A9008DAD02A497B910
125 DATA 89A820A98118A5A36910*85A3A5A4690085A4E697*CEAF02D0E360A98885A3
126 DATA A93085A4ACBF02B96789*8DAF02B95A89A820C382*60A9068DB302A9008DB0
127 DATA 02A9D08DB102A9228DB2*02A9288DB402A9238DB5*02ACB002B967898DAF02
128 DATA B95A89A8ADB10285A3AD*B20285A4208C82ACB302*B967898DAF02B95A89A8
129 DATA ADB40285A3ADB50285A4*208C8218ADB40269408D*B402ADB50269018DB502
130 DATA 18ADB10269408DB102AD*B20269018DB202EEB302*EEB002ADB002C906D09D
131 DATA 60A000B9738999D92199*593DB9788999E1219961*3DC8C005D0E960A98885
132 DATA FBA92185FCADBF02C906*301318A5FB695885FBA5*FC690085FC38ADBF02E9
133 DATA 06A8C818A5FB694085FB*A5FC690185FC88D0F0A0*00B1FB49FF91FBC8C058
134 DATA D0F560A228A000C8D0FD*CAD0F860A9008DAD02A9*1085A3A93385A4ACAD02
135 DATA B97D89A820A98118A5A3*691885A3A5A4690085A4*EEAD02ADAD02C907D0DF
136 DATA 60A9018DB902ACBF02AD*C0028DB802A9008DAD02*206084EEC302ADC302C9
137 DATA 07D008A9008DC302EEC4*02F818ADB90269018DB9*02D8EEAD02ADAD02CDB8
138 DATA 02D0D5A9008DC3028DC4*0260A93885A3A93485A4*ACC402C8A940A20120AB
139 DATA 8488D0F6ACC302C8A918*A20020AB8488D0F6ADB9*024A4A4A4A186930C930
140 DATA D002A920A8204C8120A7*82ADB902290F186930A8*204C8120A782601865A3
141 DATA 85A38A65A485A460A918*85A3A93185A4ADC10220*CB84ADC20220CB84608D
142 DATA BA024A4A4A4A20EC84A8*204C8120A782ADBA0229*0F20EC84A8204C8120A7
143 DATA 826018693060A9008DAD*02ACAD02B9908985FBC8*B9908985FCC8B9908985
144 DATA FDC8A2028CAD02A00020*D380ADAD02C912D0DAA0*00A20CA9F085FBA92C85
145 DATA FC208C8060A004B9A689*99702A99782A99802AB9*9E8999B82A99C02A99C8
146 DATA 2AB9AE8999882A99B02A*B9AA8999AC2B99B42B99*BC2BB9A28999F42B99FC
147 DATA 2B99042CB9B28999C42B*99EC2BC8C008D0B920F0*8460A900A00099403FC8
148 DATA C040D0F8A91B8D00D0A9*358D01D0A9FD8DF807A9*058D27D0A9018D15D0A0
149 DATA 00A200B9BA899D403FE8*E8E8C8C008D0F26020DF*83206880C991F01AC911
150 DATA F022C99DF02AC91DF03A*C90DF007AD01DCC9EFD0*DF4C908638AD01D0E908
151 DATA 8D01D04CB08518AD01D0*69088D01D04CB08538AD*00D0E9088D00D0AD10D0
152 DATA E9008D10D04CB08518AD*00D069088D00D0AD10D0*69008D10D04CB085A901
153 DATA 8D21D0A9008D8602A912*20D2FFA92020D2FFA992*20D2FF206880C95FD003
154 DATA 4C6586203D864C2D8648*205A86A99D20D2FF6820*D2FFA91220D2FFA92020
155 DATA D2FFA99220D2FF60A99D*20D2FFA92020D2FF6020*5A86A9E785FBA90785FC
156 DATA A000B1FBC920D01138A5*FBE90185FBA5FCE90085*FCC903D0E9E6FBD002E6
157 DATA FC6038AD00D0E9188DBB*02AD10D0E9008DBC02AD*BC02F0034CB085ADBB02
158 DATA C948B0034CB085C9F890*034CB08538AD01D0E932*8DBC02ADBC02C910B003
159 DATA 4CB085C94090034C0587*209D83A9008DAD02ADBB*02C9A09005A9068DAD02
160 DATA ADBC024A4A4AA8888898*186DAD028DBF02A90160*209D83200D884CB085AD
161 DATA BC02A240A05020EE87AD*AD02D013A90460A9188D*18D0A93B8D11D0202880
162 DATA 4CB085ADBB02A270A0D0*20EE87ADAD02D0034CB0*85A000A9008DAD02ADBB
163 DATA 02D9C2899008C8EEAD02*C005D0F0ADAD02C902D0*09201380A9008D15D060
164 DATA 20BE8720DF8320DF8320*BE87ACAD02C004D00320*9487C000D00320A987C0
165 DATA 01D00320A987C003D003*209487A90260200D884C*B085F818ADC20279D189
166 DATA 8DC202ADC10269008DC1*02D860F838ADC202F9D1*898DC202ADC102E9008D
167 DATA C102D860ADAD020AA8B9*C78985FBB9C88985FC18*A5FB694085FDA5FC6901
168 DATA 85FEA000B1FB49FF91FB*B1FD49FF91FDC8C010D0*EF6048A9008DAD028EBD
169 DATA 028CBE0268CDBD02B001*60CDBE02900160A9018D*AD0260201D8820B68420
170 DATA E882202A8820198460A0*00A900998830C8C0B0D0*F860A99085FBA93585FC
171 DATA A9008DAD02A5FB85A3A5*FC85A4A200A000A90091*A3C8C010D0F918A5A369
172 DATA 1885A3A5A4690085A4E8*E007D0E318A5FB694085*FBA5FC690185FCEEAD02
173 DATA ADAD02C905D0C2A200A9*D085A3A93B85A4A000A9*00B9D68991A3C8C010D0
174 DATA F618A5A3691885A3A5A4*690085A4E8E007D0E060*A9038DC302A9008DC402
175 DATA A91F8DC002A9008DBF02*A9198DC102A9928DC202*20038020288020708020
176 DATA AA8020F180202B812010*82204C8220018320E882*208383209D8320EA8320
177 DATA 198420B684202B852078*854CB085201380603810*0808FF08103818183818
178 DATA 18187E00C0300C03C030*0C034A414E5541525946*454252554152594D4152
179 DATA 4348415052494C4D4159*4A554E454A554C594155*4755535453455054454D
180 DATA 4245524F43544F424552*4E4F56454D4245524445*43454D42455200070F14
181 DATA 191C20242A333A424A07*08050503040406090708*08010303030180C0C0C0
182 DATA 80534D54575446533229*32313231323231323132*682A01782A01902A80A8
183 DATA 2A01B82A01D02A800020*30383C38302000040C1C*3C1C0C04001818181818
184 DATA 1818F0E0F0980C060301*8090B0C0D0702A802A90*2AB02AC02A1001000110
185 DATA 00000000000000FF0000*0000000000FF00FF00FF*00FF00FF00FF00FF00FF
186 DATA -1