! * CALENDAR V.3 *! * WRITTEN BY W.DELEKAT *! * OCTOBER 1990 *:3,0:240V#0:15,1:40:21,191r238,191r238,60r21,60r21,191:I~171r75pu16:21,Ir238,I:I40,171r40,60[@8,1;M$(1):CJ~1:I~3r15p2:@4,I;(XA$(1,CJ),2);@7,I;(XA$(1,CJ),32):CJ~CJt1:I:TCB~17\47,56r208,56r208,15r47,15r47,56:1,13:@9,17;DN$(1):15,5:I~2r5:@9,It16;DN$(I):I 1,11:UI~1:@9,23;HNT$; IE,0:KPR~(IQ) KPR~32 s 14 KPR~13 s 17 10815,5:@9,TCB;DN$(TCBu16):TCB~TCBt1:TCB}21sTCB~171,13:@9,TCB;DN$(TCBu16)  10TCB~17s23:10TCB~18s52:10TCB~19s55:10TCB~20s58:10TCB~21s  1031,15:@9,TCB;DN$(TCBu16)::15,1:XP~4:YP~3 @XP,YP;QO~:QO}127s:25QO~13s36 QO~4s37 QO~8s40QO~10s43QO~11s44QO~25s45 QO~26s49!QO~27s35"(QO):37T#I~3r15p2:VX~(Iu1)x2:XA$(UI,VX)~((I),5,35):I:1,13:@9,TCB;DN$(TCBu16)::$XP~4:YP~15s24YP~YPt2:24%XP~38zYP~15s:24&XP~38sXP~4:YP~YPt2:24"'XP~XPt1:XP}6s24XP~XPt1:24(XP~4zYP~3s:24)XP~4sXP~38:YP~YPu2:24"*XP~XPu1:XP}6s24XP~XPu1:24%+YP~YPt2:YP17s24YP~YPu2::24$,YP~YPu2:YP}1s24YP~YPt2::24-XP}7s(25):XP~XPu1:24!.XP~7s" ";(25):XP~XPu2:24+/XP~5s@4,YP;((YP),6,1);" ":XP~4:24A0((YP),6,1);" ":XP~38:YP~YPu2:YP}1s24XP~4:YP~YPt2::24'1XP}6z((YP),39,1)~" "s(QO):24=2XP~4z((YP),6,1)~" "s@5,YP;((YP),5,1);@4,YP;" ":24 3:24+41,15:@9,TCB;DN$(TCBu16):15,1:CJ~1Y5I~3r15p2:XA$(UI,CJ)~(K$,35):@4,I;(XA$(UI,CJ),2);@7,I;(XA$(UI,CJ),32):CJ~CJt1:I$61,13:@9,TCB;DN$(TCBu16):::71,15:@9,TCB;DN$(TCBu16):15,1:UI~UIt1:UI}12sUI~1W8@8,1;M$(UI):CJ~1:I~3r15p2:@4,I;(XA$(UI,CJ),2);@7,I;(XA$(UI,CJ),32):CJ~CJt1:I$91,13:@9,TCB;DN$(TCBu16)::::1,15:@9,TCB;DN$(TCBu16):15,1:UI~UIu1:UI1sUI~12W;@8,1;M$(UI):CJ~1:I~3r15p2:@4,I;(XA$(UI,CJ),2);@7,I;(XA$(UI,CJ),32):CJ~CJt1:I$<1,13:@9,TCB;DN$(TCBu16)::%=#0:15,1:32: Y}0 s @0,0;Y2$>DQ~D1:1,13k?Z~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@(IQ)~27slA1,5:@4,0;M11$;@11,0;M12$;@18,0;M13$;@25,0;M14$;@4,8;M15$;@11,8;M16$;@18,8;M17$;@25,8;M18$;@4,16;M19$;B@11,16;M20$;@18,16;M21$;@25,16;M22$:15,1: Y~0 s 72CM~1:H1~4:H2~9:V1~1:V2~7RDI~1r3:J~1r4:K~H1rH2:L~1rA%(M):@K,DQ;(Lt222);:DQ~DQt1:DQ}V2sDQ~V1:K~Kt1E L~A%(M) s K~H2.F(IQ)~27sL~A%(M):K~H2:J~4:I~3:L,K,J,I:GGL,K:M~Mt1:H1~H1t7:H2~H2t7:J:H1~4:H2~9:V1~V1t8:V2~V2t8:DQ~DQt8:I*H:@0,8;(20);:WRY$~$:@0,8;(17):6I#0:15,1:40:@16,1;"CALENDAR";@16,2;"========"aJ@1,4;"THIS PROGRAM WILL DISPLAY ALL 12 MONTH";@1,5;"OF THE CHOSEN YEAR ON A SINGLE SCREEN."aK@1,7;"CONNECTED TO A MICRO-PRO CPA80 PRINTER";@1,8;"YOU CAN COPY A CALENDAR TO 'A4' PAPER."cL@1,10;"YOU MAY ENTER DETAILS OF NOTABLE DATES";@1,11;"TO SAVE TO DISC OR COPY TO 'A4' PAPER."cM@1,13;"CHANGES OF THE GREGORIAN CALENDAR WILL";@1,14;"NOT BE ACCOUNTED FOR BY THIS PROGRAM.!"4N@1,17;"YOU MAY CHOOSE ANY YEAR FROM 0 - 9999."3O@6,21;"ENTER YEAR REQUIRED ? : ":Y2$~"":XX~30"P@XX,21;" ";@XX,21;:Y1$~$(1) QY1$~(25)zXX~30sY2$~"":80;RY1$~(25)zXX}30sXX~XXu1:YY~(Y2$):Y2$~(Y2$,YYu1):80SY1$~(13)zY2$~""s80TY1$~(13)s90 UY1$(48){Y1$}(57)s:80"VY2$~Y2$tY1$:XX~XXt1:XX34s80WR~:R~13s900XR~25sXX~XXu1:YY~(Y2$):Y2$~(Y2$,YYu1):80 Y 87ZYY~(Y2$):YY}3s94[YY~1sY2$~"000"tY2$\YY~2sY2$~"00"tY2$]YY~3sY2$~"0"tY2$`^Y~(Y2$):A%(2)~28:Z~Yu1:C~(Zx4)u(Zx100)t(Zx400):X~YtCt1:D~(Xu7w(Xx7))w4u3: D~0 s D~25F_D1~((Dt4)x4):Y~4w(Yx4)zY}100w(Yx100){Y~400w(Yx400)sA%(2)~29``#0:15,1:40:CM$(1)~DCA$tY2$tL$:@9,3;CMA$;@9,4;CMB$:47,128r208,128r208,79r47,79r47,128)aI~8r13:I~TCAs1,13:@9,I;CM$(Iu7)"bI}TCAs15,5:@9,I;CM$(Iu7)c I:1,11:@9,18;HNT$dIE,0:KPR~(IQ)e KPR~32 s 104f KPR~13 s 107 g 1006h15,5:@9,TCA;CM$(TCAu7):TCA~TCAt1:TCA}13sTCA~8i1,13:@9,TCA;CM$(TCAu7) j 100k15,1:TCA~8s61:96lTCA~9s114:96mTCA~10s5:96nTCA~11s139:96oTCA~12s165:96pTCA~13s73 q 100Kr40:47,120r208,120r208,79r47,79r47,120:CG~(32):CG~CGz28:CG}16s138Hs@9,10;PRO$;@9,12;CM$(2):1,11:@9,18;HNS$:DQ~D1:A%(2)~29sDQ~DQt7.tC$~C1$tY2$tC2$:Y~0sC$~C1$tL$tL$tC2$:DQ~0Du#1:K2$;"1";:K2$;"l";(2);:K2$;"U";(1);::A$:(IQ)~27s137vB$:(IQ)~27s137wB$:(IQ)~27s137xC$:(IQ)~27s137yB$:(IQ)~27s137zD$:(IQ)~27s137{::(IQ)~27s137%|I~1r4:E$:(IQ)~27sI~4:I:137}F$:(IQ)~27sI~4:I:137"~MX$(I):(IQ)~27sI~4:I:137G$:(IQ)~27sI~4:I:137H$:(IQ)~27sI~4:I:137QJ~1r6:W$(J);U$(N%(DQ,I,J,1));W$(J);U$(N%(DQ,I,J,2));W$(J);U$(N%(DQ,I,J,3)) (IQ)~27sJ~6:I~4:J,I:137$I$:(IQ)~27sJ~6:I~4:J,I:137$H$:(IQ)~27sJ~6:I~4:J,I:137cJ:W$(7);U$(N%(DQ,I,7,1));W$(7);U$(N%(DQ,I,7,2));W$(7);U$(N%(DQ,I,7,3)):(IQ)~27sI~4:I:137 J$:(IQ)~27sI~4:I:137::(IQ)~27sI~4:I:137 I:::K2$;"@";:UI~1r3:15,13:@11,11;PNR$::J~1r50:J:1,13:@11,11;PNR$::J~1r50:J:I:K40:47,120r208,120r208,79r47,79r47,120:CG~(32):CG~CGz28:CG}16s138W@9,10;PRO$;@9,12;CM$(4):1,11:@9,18;HNS$:CB$~C3$tY2$tC4$:Y~0sCB$~C3$tL$tL$tC4$D#1:K2$;"1";:K2$;"l";(2);:K2$;"U";(1);::A$:(IQ)~27s164B$:(IQ)~27s164B$:(IQ)~27s164CB$:(IQ)~27s164B$:(IQ)~27s164D$:(IQ)~27s164::(IQ)~27s164&I~1r6:XT$:(IQ)~27sI~6:I:164-K2$;"A";K6$;:Z9$:(IQ)~27sI~6:I:164,K2$;"1";:XM$(I):(IQ)~27sI~6:I:164XS$:(IQ)~27sI~6:I:164;J~1r6:K2$;"A";K1$;:ZPB$:(IQ)~27sJ~6:I~6:J,I:164cK2$;"A";K5$;:T$;(XA$(I,J),2);T$;(XA$(I,J),32);Y$;T$;(XA$(It6,J),2);T$;(XA$(It6,J),32);Y$ (IQ)~27sJ~6:I~6:J,I:164/K2$;"1";:XZ$:(IQ)~27sJ~6:I~6:J,I:1647J:K2$;"A";K1$;:ZPB$:(IQ)~27sJ~6:I~6:J,I:164cK2$;"A";K5$;:T$;(XA$(I,7),2);T$;(XA$(I,7),32);Y$;T$;(XA$(It6,7),2);T$;(XA$(It6,7),32);Y$(IQ)~27sI~6:I:164)K2$;"1";:XF$:(IQ)~27sI~6:I:164I~3sK2$;"A";K6$;:(IQ)~27sI~6:I:164I~3sK2$;"1";I::::K2$;"@";:f#0:15,1:40:@5,0;"EXISTING NOTE FILES ON THIS DISC":6,180r248,180r248,76r6,76r6,179r247,179a247,77r7,77r7,179:65,178r65,78r66,78r66,178:125,178r125,78r126,78r126,178:ZTZ~1:229a185,178r185,78r186,78r186,178:47,72r208,72r208,47r47,47r47,72:@15,16;"CHECKING DISC":0>SEC~0:I~216r222p2:&FB50,0,2,SEC,0,I:&E000:SEC~SECt1:IKV~0:I~&D801r&DFE1p32(Iu1)}0s176(I)}78s176(It1)}79s176(It2)}84s176(It3)}69s176>KV~KVt1:RNJ$(KV)~"":J~IrIt7:RNJ$(KV)~RNJ$(KV)t((J)):JIKV~0sBRH~2:BRV~2:182VK~1:I~2r32p10:J~2r13:@I,J;RNJ$(K):KV~KsBRH~I:BRV~Jt1:BRV~14sBRH~BRHt10:BRV~2KV~KsJ~13:I~32:181 K~Kt1 J,IL@15,16;(K$,13):47,40r208,40r208,15r47,15r47,40:1,13:@9,19;EH$(1)@TCB~19:15,5:I~2r3:@9,It18;EH$(I):I:1,11:@9,23;HNT$;IE,0:KPR~(IQ) KPR~32 s 188 KPR~13 s 191 184815,5:@9,TCB;EH$(TCBu18):TCB~TCBt1:TCB}21sTCB~191,13:@9,TCB;EH$(TCBu18) 184TCB~19s195:184TCB~20s209:184TCB~21s 184ZTZ~0:229X1,15:@9,TCB;EH$(TCBu18):15,1:@11,16;((32),21);@11,16;" SAVE NOTE":213:0>SEC~0:I~216r222p2:&FB50,0,2,SEC,0,I:&E000:SEC~SECt1:IVJ~0:I~&D800r&DFE0p32:(I)}0{(I)}127s199:J~Jt(((((u(((It15))x128))w8))w2))I:KSF~188uJ:KSF6s207KSF6sK~3:237:206QNZT~12::HNV$,FD$:#FD$;NZT:I~1r12:J~1r7:XA$(I,J):J,I::J~0:KV~KVt1: KV}48sK~7:237:165#I~1rKV:(HNV$,8)~RNJ$(I)sJ~1I:J~1sKV~KVu1:206MRNJ$(KV)~(HNV$,8):@BRH,BRV;RNJ$(KV):BRV~BRVt1:BRV~14sBRH~BRHt10:BRV~2<15,1:@11,16;(K$,21):1,13:@9,TCB;EH$(TCBu18)::%I~1r48:RNJ$(I)~(HNV$,8)sKSF~7 I:200ZTZ~0:229X1,15:@9,TCB;EH$(TCBu18):15,1:@11,16;((32),21);@11,16;" LOAD NOTE":213:0>:HNV$,FD$:#FD$;NZT:I~1r12:J~1r7:XA$(I,J):J,I:: 5@11,16;(K$,21):1,13:@9,TCB;EH$(TCBu18)::O2$~"":XX~24"@XX,16;" ";@XX,16;:O1$~$(1)!O1$~(25)zXX~24sO2$~"":214<O1$~(25)zXX}24sXX~XXu1:YY~(O2$):O2$~(O2$,YYu1):214O1$~(13)zO2$~""s214O1$~(13)s224!O1$(48){O1$}(57)s:214#O2$~O2$tO1$:XX~XXt1:XX28s214R~:R~13s2241R~25sXX~XXu1:YY~(O2$):O2$~(O2$,YYu1):214 221YY~(O2$):YY}3s228YY~1sO2$~"000"tO2$YY~2sO2$~"00"tO2$YY~3sO2$~"0"tO2$HNV$~"NOTE"tO2$t".DAT":~20sK~1:237~34sK~2:237~30sK~3:237~31sK~3:237~25sK~4:237~27sK~5:2375K~6:10sROP$~():MOP$(6)~MOP$(6)t"0"tROP$t" ",}9sROP$~():MOP$(6)~MOP$(6)tROP$t" "YI~1r3:15,13:@11,16;MOP$(K)::J~1r50:J:1,13:@11,16;MOP$(K)::J~1r50:J:I:ZTZ~1sC15,1:@11,16;(K$,21):1,13:@9,TCB;EH$(TCBu18)::229:&D7FF:&E000,&CF,&A2,&C9Y1:15,1:15,1:40:@10,10;"INITIALISING CALENDAR";@10,12;"DELAYS FOR 25 SECONDS"l A%(12),N%(14,4,7,3),RNJ$(48),MX$(4),CM$(6),DN$(5),MOP$(7),EH$(3),XM$(6),W$(7),M$(12),U$(18),XA$(12,7)p 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0D 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0r 2,14,14,4,16,16,8,18,18,11,1,2,13,3,4,15,7,8,17,11,11,6,18,12,9,2,14,12,4,16,14,8,18,16,11,2,18,13,4,2,15,7r 6,16,9,10,18,12,12,2,14,14,4,16,16,8,18,18,11,2,2,13,4,2,14,10,4,16,12,8,18,14,11,2,16,13,4,18,15,7,2,17,11r 4,18,12,12,2,14,14,4,16,16,8,18,18,11,1,2,13,3,4,15,7,8,2,16,9,4,18,12,7,2,14,11,4,16,13,8,18,15,11,2,17,13q 4,2,14,6,4,16,9,8,18,12,11,2,14,13,4,16,15,8,18,17,11,2,18,12,6,2,14,10,4,16,12,8,18,14,11,2,16,13,4,18,15r 7,2,16,9,10,18,12,12,2,14,14,4,16,16,8,18,18,11,1,2,13,3,4,18,14,6,2,16,9,4,18,12,7,2,14,11,4,16,13,8,18,15r 11,2,18,12,2,2,14,4,4,16,7,8,18,11,11,2,13,13,4,15,15,8,17,16,9,2,18,12,4,2,14,8,4,16,11,8,18,13,11,2,15,13p 4,17,14,5,6,16,9,10,18,12,12,2,14,14,4,16,16,8,18,18,11,1,2,16,12,2,18,14,4,2,16,7,4,18,11,7,2,13,11,4,15p 13,8,17,16,10,18,18,12,2,2,14,4,4,16,7,8,18,11,11,2,13,13,4,15,14,6,18,16,9,2,18,12,4,2,14,8,4,16,11,8,18q 13,11,2,15,12,1,2,14,3,4,16,7,8,18,11,11,2,13,13,4,15,15,8,17,17,14,10,18,16,12,2,18,14,4,2,16,7,4,18,11,7r 2,13,11,4,15,14,6,16,16,10,18,18,12,2,2,14,4,4,16,7,8,18,11,11,2,13,12,2,16,14,4,18,16,7,2,18,11,4,2,13,8,4q 15,11,8,17,13,10,18,18,12,1,2,14,3,4,16,7,8,18,11,11,2,13,13,4,15,15,12,6,16,14,10,18,16,12,2,18,14,4,2,16p 7,4,18,11,7,2,13,12,2,14,14,4,16,16,8,18,18,11,2,2,13,4,4,15,7,8,17,11,10,18,14,12,2,16,14,4,18,16,7,2,18p 11,4,2,13,8,4,15,11,6,16,16,10,18,18,12,1,2,14,3,4,16,7,8,18,11,11,2,13,13,9,2,14,12,4,16,14,8,18,16,11,2p 18,13,4,2,15,7,4,17,11,10,18,12,12,2,14,14,4,16,16,8,18,18,11,2,2,13,4,4,15,7,6,16,12,10,18,14,12,2,16,14p 4,18,16,7,2,18,11,4,2,13,8,2,14,12,4,16,14,8,18,16,11,2,18,13,3,2,15,7,4,17,11,8,2,16,9,4,18,12,7,2,14,11q 4,16,13,8,18,15,11,2,17,13,4,2,14,6,4,16,9,8,18,12,11,2,14,13,4,16,15,8,18,17,11,2,18,12,6,2,14,10,4,16,12p 8,18,14,11,2,16,13,4,18,15,7,2,18,12,10,2,14,12,4,16,14,8,18,16,11,2,18,13,3,2,15,7,4,18,14,6,2,16,9,4,18r 12,7,2,14,11,4,16,13,8,18,15,11,2,18,12,2,2,14,4,4,16,7,8,18,11,11,2,13,13,4,15,15,8,17,16,9,2,18,12,4,2,14q 8,4,16,11,8,18,13,11,2,15,13,4,17,16,9,6,18,12,10,2,14,12,4,16,14,8,18,16,11,2,18,13,3,2,16,12,2,18,14,4,2p 16,7,4,18,11,7,2,13,11,4,15,13,8,17,16,10,18,18,12,2,2,14,4,4,16,7,8,18,11,11,2,13,13,4,15,14,6,18,16,9,2r  18,12,4,2,14,8,4,16,11,8,18,13,11,2,15,14,5,2,16,9,4,18,12,8,2,14,11,4,16,13,8,18,15,11,2,17,14,10,18,16,12r  2,18,14,4,2,16,7,4,18,11,7,2,13,11,4,15,14,6,16,16,10,18,18,12,2,2,14,4,4,16,7,8,18,11,11,2,13,12,2,16,14,4p  18,16,7,2,18,11,4,2,13,8,4,15,11,8,17,13,12,2,18,14,3,2,16,7,4,18,11,8,2,13,11,4,15,13,8,17,15,12,6,16,14q  10,18,16,12,2,18,14,4,2,16,7,4,18,11,7,2,13,12,2,14,14,4,16,16,8,18,18,11,2,2,13,4,4,15,7,8,17,11,10,18,14r  12,2,16,14,4,18,16,7,2,18,11,4,2,13,8,4,15,11,10,18,16,12,2,18,14,3,2,16,7,4,18,11,8,2,13,11,4,15,13,9,2,14q 12,4,16,14,8,18,16,11,2,18,13,4,2,15,7,4,17,11,10,18,12,12,2,14,14,4,16,16,8,18,18,11,2,2,13,4,4,15,7,6,16o 12,10,18,14,12,2,16,14,4,18,16,7,2,18,11,4,2,13,8,6,16,14,10,18,16,12,2,18,14,3,2,16,7,4,18,11,8,2,13,11q 6,18,12,9,2,14,12,4,16,14,8,18,16,11,2,18,13,4,2,15,7,6,16,9,10,18,12,12,2,14,14,4,16,16,8,18,18,11,2,2,13c 4,2,14,10,4,16,12,8,18,14,11,2,16,13,4,18,15,7,2,17,11,4,31,28,31,30,31,30,31,31,30,31,30,31II~0r14:J~1r4:K~1r7:L~1r3:N%(I,J,K,L):L,K,J,I:I~1r12:A%(I):Io 160,"000000000000000000001A22124A31000000525A565292000000497A4A4A4900": 164,"0000925A56529200":K$~" "i 254,"00007A3232323100": 166,"00005E505C509E00": 167,"00004B4A4B7A4B00":L$~" ":O$~"":P$~""m 168,"0000DC129212DC0000007A323332320000005252D2524C0000007B4273424200":Q$~("",24):R$~"":S$~""r 172,"00009E4C8C8C5E0000001922134A320000009E4CCC4C4C0000003C0909093100":T$~"":UF$~"":V$~"":WF$~""o 176,"0000C92DEB2929000000494A4B4A320000009C52DC5452000000909060606000":X$~" ":Y$~" ":Z$~(K$,13)tY$d 180,"00003D21392121000000EE09CE09EE000000724A7252490000004C525E529200":Z1$~Y$tL$:Z2$~""k 184,"0000E494E3A3930000008080000000000000243D252525000000CE29EE2A2900":Z3$~""t(P$,11):Z4$~" "tQ$r 188,"00003A4243423A0000004040C0404000000019253D2525000000CE29CE0A0900":Z5$~Q$t" ":Z6$~" ":W$(7)~"SAT "n 192,"00007A3232327B00000000000000C0000000C929E626260000003D0909093000":M$(1)~"JANUARY ":W$(1)~"SUN "n 196,"0000292D2B29C9000000784070407800000028282828CF000000484830303000":M$(2)~"FEBRUARY ":W$(2)~"MON "n 200,"000019253D252400000026282B29C60000004849484A31000000DE0C8C4C8C00":M$(3)~"MARCH ":W$(3)~"TUE "n 204,"00000D11092519000000EE09CE08E80000007B32333233000000D21E9212D200":M$(4)~"APRIL ":W$(4)~"WED "n 208,"0000E794E794E7000000B8243828A40000001825252518000000EF060606E600":M$(5)~"MAY ":W$(5)~"THU "n  212,"0000334A4B4A330000009E509C509E000000E090E0A09000000024352D252400":M$(6)~"JUNE ":W$(6)~"FRI "p! 216,"0000C9292926C60000007A4372427A0000005CD25C525C000000F784E785F400":M$(7)~"JULY ":MA$~T$tM$(1)tZ$p" 220,"000000800000800000003925252539000000E708C808E7000000040C04040E00":M$(8)~"AUGUST ":MB$~T$tM$(2)tZ$p# 224,"0000040A02040E0000000C0204020C00000002060A0E020000000E080C020C00":M$(9)~"SEPTEMBER":MC$~T$tM$(3)tZ$q$ 228,"000004080C0A040000000E02040808000000040A040A04000000040A06020400":M$(10)~"OCTOBER ":MD$~T$tM$(4)tZ$q% 232,"0000246A2A2A74000000246C24247E000000246A22247E0000002C6224227C00":M$(11)~"NOVEMBER ":ME$~T$tM$(5)tZ$q& 236,"000022662A2E720000002E682C227C00000024682C2A740000002E6224287800":M$(12)~"DECEMBER ":MF$~T$tM$(6)tZ$g'MG$~T$tM$(7)tZ$:MH$~T$tM$(8)tZ$:MI$~T$tM$(9)tZ$:MJ$~T$tM$(10)tZ$:MK$~T$tM$(11)tZ$:ML$~T$tM$(12)tZ$b( 240,"0000246A242A74000000246A262274000000245A1A2A74000000245C14247E00":A$~Z3$t(P$,26)t""i) 244,"0000245A12247E0000002C5214227C00000022561A2E720000002E581C227C00":B$~T$t(L$,37)tT$:D1$~""d* 248,"000024581C2A740000002E52142878000000245A142A74000000245A16227400":C1$~Z4$t(L$,4)t(14)D+ 252,"0000641A2A1A64000000641C24146E00":C2$~(20)t(L$,4)tZ5$r,D2$~"":D3$~"":D4$~"":D5$~"":D6$~"":D7$~"":M11$~"":M12$~"":M13$~"":M14$~""t-M15$~" ":M16$~"Š":M17$~"Ǡ":M18$~"ˠ":M19$~"":M20$~"֠":M21$~"":M22$~""].D$~Z2$t(P$,35)t"":E5$~Z3$t""tL$:F5$~T$t(L$,11)tY$:G5$~R$t(WF$,6)tX$:H5$~Z1$t(Y$,7)[/I5$~R$t(UF$,6)tX$:J5$~Z2$t(V$,6)tZ6$:E$~(E5$,3):F$~(F5$,3):G$~(G5$,3):H$~(H5$,3)h0I$~(I5$,3):J$~(J5$,3):MX$(1)~MA$tMB$tMC$:MX$(2)~MD$tME$tMF$:MX$(3)~MG$tMH$tMI$:MX$(4)~MJ$tMK$tML$"1U$(0)~" "k2U$(1)~" 1 81522 ":U$(2)~" 1 8152229 ":U$(3)~" 2 91623 ":RA$~(O$,13)i3U$(4)~" 2 9162330 ":U$(5)~" 2 91623 ":U$(6)~" 2 9162330 ":RB$~""tP$k4U$(7)~" 3101724 ":U$(8)~" 310172431 ":U$(9)~" 3101724 ":RC$~(P$,15)q5U$(10)~" 310172431 ":U$(11)~" 4111825 ":U$(12)~" 4111825 ":RD$~(L$,11)tY$l6U$(13)~" 5121926 ":U$(14)~" 5121926 ":U$(15)~" 6132027 ":X4$~""tP$m7U$(16)~" 6132027 ":U$(17)~" 7142128 ":U$(18)~" 7142128 ":X8$~RD$tZ1$p8X1$~Z3$tRA$t""tL$:X5$~RB$tWF$tRC$tX$:X6$~RB$tUF$tRC$tX$:X7$~X4$tV$tRC$tZ6$:X9$~" NOTABLE DATES "f9XT$~X1$tX1$:XS$~X5$tX5$:XZ$~X6$tX6$:XF$~X7$tX7$:C3$~T$tX9$t(L$,4)t(14):C4$~(20)t(L$,4)tX9$tT$c:Z8$~Y$t(L$,10)tZ$:Z9$~Z8$tZ8$:K2$~(27):K1$~(1):K5$~(5):K6$~(6):DCA$~" DISPLAY CALENDAR "m;CM$(2)~" PRINT-OUT OF CALENDAR ":CM$(3)~" DISPLAY NOTABLE DATES ":CM$(4)~" PRINT-OUT OF NOTABLES "J<CM$(5)~" SAVE OR LOAD NOTABLES ":CM$(6)~" EXIT TO YEAR REQUIRED "J=DN$(1)~" ADD NOTES. ESC To end ":DN$(2)~" WIPE NOTES THIS MONTH "m>DN$(3)~" FORWARD TO NEXT MONTH ":DN$(4)~" REVERSE TO LAST MONTH ":DN$(5)~" EXIT TO CALENDAR MENU "m?EH$(1)~" SAVE THE NEW NOTABLES ":EH$(2)~" LOAD THE OLD NOTABLES ":EH$(3)~" EXIT TO CALENDAR MENU "g@CMA$~" CALENDAR MENU ":CMB$~" ============= ":HNT$~" USE SPACE & ENTER KEY "cAHNS$~" Hold ESC to abort ":PRO$~" PROCEEDING WITH ":PNR$~" PRINTER NOT READY "dBMOP$(1)~" FAULT IN DISC DRIVE ":MOP$(2)~" THIS DISC IS LOCKED ":MOP$(3)~" THIS DISC IS FILLED "aCMOP$(4)~" NO SUCH FILE EXISTS ":MOP$(5)~" THIS FILE IS LOCKED ":MOP$(6)~" CHECK ERROR CODE "MDMOP$(7)~" DIRECTORY IS FILLED ":ZPY$~T$tL$tT$t(L$,16)tY$:ZPB$~ZPY$tZPY$aEI~1r6:XM$(I)~Z1$tM$(I)tX8$tM$(It6)tRD$:J~1r7:XA$(I,J)~(K$,35):XA$(It6,J)~(K$,35):J,I:0*FTCA~8:IE~&013D:IQ~64326:5,0:4,0:73