. (147)(5)(14): 53281,10: 53180,16:R8)"ҠԠ٠1.0"p12)"BY ٠. "(8)"========================="215)"ISK LEEVE"<15)"ASSETTE LEEVE"F15)"ALENDAR"P15)"ILE"Z15)"ND"- d4)":'٠'ϠŠ "Y n4)" ''Ϡ "f x""p BB1 B 6 ""12)" ":B0: 130 ""12)" ":12)"==>" B$: B$ "" 160 B$ (13) 190 130 B 220,750,1560,4650,210! B0: 10' [ (147)(14)(5)5)"NTER ATE (--) "; PS$:" ISK AME";FZ$:FZ$"**** "FZ$" ****" BE$": : *":EE$"* : :" A$(200): C$(200):(147)5)"EADING ISK ILES..."  100,8,0,"$0" #100,A$,B$+ #100,A$,B$= " ST0 360M ,#100,A$,B$W 6PP1c @N$(0)p J#100,A$ T A$ "" 280 ^A$(P)A$(P)A$:: 330 h100:5)"NE OMENT LEASE... " r A 2 P1 | Z 1 (A$(A))(  (A$(A),Z,1) (34)A$(A)(A$(A),(A$(A))Z):4100  Z8  AJ  A 2 P1a  Z 1 (A$(A))  (A$(A),Z,1) (34) A$(A)(A$(A),Z1):460  Z  A  D 2 P1 C$(D1)A$(D)  D 1,4:PD2:P(P)  LL 1 72:1,"";: LL:1! 1,BE$(16)"62"EE$9 1,BE$(16)"62"EE$a 1,BE$25(FZ$)2)FZ$(16)"62"EE$y &1,BE$(16)"62"EE$ 01,BE$(16)"62"EE$ :1,BE$20)PS$(16)"62"EE$ D1,BE$20)""(16)"62"EE$ N1,BE$(16)"62"EE$ X D 1 44b D(P) C$(D)""Hl1,BE$8)C$(D)(16)"43"C$(DP)(16)"62"EE$]v D 15 710e D1,8)"---------------------------------------------------------"15)"NTER NOTHER (Y/N) ";AA$: AA$ "Y" AA$ "" 10& "INSERT DISK AND PRESS RETURN"; AA$2: 220J1,BE$(16)"62"EE$l LL 1 72:1,"-";: LL:1BE$" : ":EE$" : "(147)9)(5)(14)"ŠŠ"11)"Š"13)"EPT 10, 1988" 14)"ERSION 1.0"G5)"1) OW TO 2) NTER "t 5)"3) IEW 4) OAD "*5)"5) AVE 6) CAN "45)"7) RINT 8) XIT">H$H H$ (137) 930R H$ (134) 1340\ H$ (135) 11403f H$ (136) 1260Lp H$ (133) 1460ez H$ (138) 1070~ H$ (139) 1400 H$ (140) 1480 830:C$(25):D$(25): 950(147)" " B 1 22/ B 1 C$(B) " ":BB1: 1050R B 17 "NTER ERFORMER"q B 18 "NTER ITLE" B 16 C$(B) "------------------------------------": 1050 B 19 C$(B) "------------------------------------": 1050,">";C$(B): (C$(B))35 "E-ENTER": 1030h C$(B) "_" C$(B) "":BB1:C$(B)" ":BB1p Bz$ 750.:C$(25):D$(25):"AME";C$: C$ "\" 75081,8,0,C$:1,BB E 1 22L1,C$(E)V C$(E) "*" C$(E) ""`Ej1: 7500t"AME";C$: C$ "\" 750C~1,8,1,C$:1,BT E 1 22o C$(E)"" C$(E)"*"|1,C$(E) E1:C$C$".TEXT,SEQ"1,8,1,C$ E 1 22: C$(E) "*" C$(E) ""1,20(C$(E))2)C$(E) E1: 750+(147)14)"OW RINTING"41,4g1," "x  E 1 221," "18(C$(E))2)(17)C$(E)(16)"40";""E(1," "21:1:1:750<::(147)F E 1 223P20(C$(E))2)C$(E);Z ETdA$: A$ "" 1380^n 750{x E 1 22:(147)::C$(E)"E-NTER ";C$(E)"E: 750(147) 75010)"EADY....." 54296,15: 54277,100: 54278,140: 54276,17& 54273,205 54276,16AX0:K0i" O YOU WISH TO (/) ";AN${ AN$"N"  10 CALENDAR"LC$(14):RE$(15):GM$(8):NR7, CM(255)6MO$(12),LD(12),DA$(60),MS$(50,NR1),DD$(2,60),L$(20),ML$(18),C(255)M@SP$" ":I05:SP$SP$SP$::SP$(SP$,31):SS$(SP$,10)eJ53280,15:53281,11oT""^11)"٠ "hI27 127:CM(I)1:CM(I128)1:rI2| A: A1 1690CM(A)I:II1:1660 17,145,29,157,147,13,19,20,148,95,-1I0& A$@T((A$,1)):C(T)I1nA$(I)(49I)" "(T)""(A$,(A$)1)II1: A$"QUIT" 1700 "NEW CALENDAR","YEAR AND MONTH",MEMO,"ENHANCE DATES",PRINT,SAVE,LOAD QUITH112:MO$(H),LD(H):H N4I1'I0 N4::12) A$(I):=A$: A$"" 1790cA2(A$): C(A2) A2C(A2):1830V(A$): V0 VI A2V:18301790& A2 4490,1870,3590,2850,2340,3730,3920,34900"":1780:"": YR$"" "CHOOSE YEAR AND MONTH FIRST":1880:1850D$N""EX"ENTER CALENDAR YEAR: ";Nb T$^l T$"" v (T$)100 (T$)9999 1870YR$T$:Y(YR$)"""SELECT MONTH(1-12)"I19:10)""I""MO$(I):I1012:9)""I""MO$(I):"ENTER MONTH";NU$@NU(NU$):NU1NU12HH0:2030LI112lNU$MO$(I)NUI:HH0:2030sI}1940 CALCULATIONSLD(2)28:3500A(Y100):B(Y100):CAB C02100A(Y4):B(Y4):CAB C0AD1:2130*AD0:2130-4A(Y400):B(Y400):CABA>C0AD1:2130PHAD0:2130{RA(Y4):B(Y400):C(Y100):DABC\E(YD)7:F((YD)7):G(EF)7:SD(G):HGSDfH.9SDSD1pSDSDADzSD0SDSD7$NU2730,2740,2750,2760,2770,2780,2790,2800,2810,2820,2830,28406DS6DSDS7HDS0DSDS7eD0:FLAG1FLAG0:2230rHH0~I150IDS0DA$(I)"":2270IDSLD(NU)DA$(I)"":2270DA$(I)(IDS):DA$(I)(DA$(I),(DA$(I))1)IDS0LD(NU)28R4:2310+DA$(36)""R5:23103R6P HD$MO$(NU)" "YR$h CS((40(HD$))2)n $ 1850: A25 2370. T$"INCLUDE MEMO BAR IN PRINT OUT":44508 MB$"N": Q MB$"Y"B "MAKE SURE PRINTER IS ON..." L "_ FOR MENU, ANY OTHER KEY TO PRINT"3 V CH$:CH$""2390E ` CH$"_" r j 3520:5:5,4,6:4,4:4,LC$;CS)HD$;RE$; t 4:5,(20) ~ 4,""; 4,"";GM$/! 4,RE$;"SUNDAY MONDAY TUESDAY WEDNESDAY THURSDAY ";T! 4,"FRIDAY SATURDAY ";GM$^! 2700i! I1Rs! 2700! 4,RE$;! Z17:TB(Z)11:TB$(TB):TB$(TB$,2)! 4,"";LC$;DA$(DZ);RE$;(16)TB$;! Z! 4,(16)"77";"";GM$" 4,RE$;:D7DDS" TT1NRA" T17:TB(T)11:TB$(TB):TB$(TB$,2)k" D8D7T: D80 D831 T$SS$:2600" T$MS$(D7T,TT1)"( 4,"";T$;(16)TB$;"2 T"< 4,(16)"77";"";GM$"F 4,RE$;"P TT"Z DD7:I"d MB$"N"3540<#n 4,RE$;"";Z#x 4,""GM$i# 4,4:3120# 4,RE$;"";# 4,"";GM$# # DSSD:$ DSSD3:LD(NU)LD(NU)AD:$ DSSD3AD:'$ DSSD1AD:8$ DSSD1AD:I$ DSSD4AD:Z$ DSSD1AD:k$ DSSD2AD:|$ DSSD5AD:$ DSSDAD:$ DSSD3AD:$ DSSD5AD:$" ENHANCE DATES$, "": YR$"" "CHOOSE YEAR AND MONTH FIRST":1880 %6 DU0:"";%@ HD$>%J "SUN MON TUE WED THU FRI SAT"I%T U05U%^ UU17v%h DO(UU1)5:DO)DA$(UUDU);%r TU7UU%| UU% "":DUDU7% U% " INPUT 'Q' WHEN FINISHED ENHANCING DATES": "ENTER DATE";MD$& MD$"Q" MD$"" & MD(MD$)4& MD1 MDLD(NU)"":2970j& PR$"ENTER MESSAGE FOR "MO$(NU) " "(MD)""~& B$"":HNR:W10& I0 NR& T$MS$(MD,I): (T$)W T$SS$& B$B$T$& & 4050:J0& I1 HW1 W' MS$(MD,J)(B$,I,W):JJ1' '& 2870C'0 NU1N112:N22:Y(1)Y1:Y(2)Y:3150o': NU12N111:N21:Y(1)Y:Y(2)Y1:3150'D N1NU1:N2NU1:Y(1)Y:Y(2)Y'N NUN1:YY(1):HH1:CH1:D0'X 2040'b D0'l I150'v IDS0DD$(HH,I)" ":3230( IDSLD(NU)DD$(HH,I)" ":3230A( IDS10DD$(HH,I)" "(IDS):3230W( DD$(HH,I)(IDS)( I:HD$(HH)MO$(NU)" "(Y(HH)):CS(HH)((22(HD$(HH)))2)( HH2CS(HH)CS(HH)56( CS$(HH)(CS(HH)):CS$(HH)(CS$(HH),2)) HH1HH2:NUN2:YY(2):2040:31709) L$(1)""(16)"22"(16)"55"(16)"77"|) L$(2)""(16)CS$(1)HD$(1)(16)"22"LC$" MEMOS"RE$) L$(2)L$(2)(16)"55"(16)CS$(2)HD$(2)(16)"77") L$(3)L$(1)) L$(4)" SU MO TU WE TH FR SA"* L$(4)L$(4)(16)"55 SU MO TU WE TH FR SA"2* L$(5)L$(1):J6@* I6182N* L$(I)""Z* II17v** L$(I)L$(I)DD$(1,IID)~*4 II*> T$ML$(J): (T$)31 T$SP$:ML$(J)SP$*H L$(I)L$(I)(16)"22 "T$"":JJ1*R II17:L$(I)L$(I)DD$(2,DII):II+\ L$(I)L$(I)(16)"77"++f L$(I1)L$(1)8+p DD7:Ix+z L$(18)""+ L$(18)L$(18)""+ 3520:4,4:I118:4,RE$;L$(I);GM$:I+ 4,4:Y(YR$):NU(NU$):2040:, 53280,14:53281,6:"";:: 107, "CALCULATING..."=, n, "PRINTING...(PRESS RUN/STOP TO ABORT)"t, , 4,RE$;"";, 4,"";GM$, 3480/- JANUARY,31,FEBRUARY,28,MARCH,31,APRIL,30,MAY,31,JUNE,30,JULY,31o- AUGUST,31,SEPTEMBER,30,OCTOBER,31,NOVEMBER,30,DECEMBER,31-PR$"ENTER MEMOS"-B$"":W31:H6-X612-$T$ML$(X):T$T$(SP$,W(T$)):B$B$T$-.-84050-B X6 12.LML$(X)ML$(X)(SP$,(31(ML$(X))))::X64.V I1 HW1 WW.`T$(B$,I,W): T$S2$ T$" "k.jML$(X)T$:XX1q.t.~ML$(13)SP$..1850:NM$"":"FILENAME FOR SAVE";NM$. NM$"" .15,8,15,"I0":2,8,2,NM$",W,S":15,EN,EM$,ET,ES(/EN1EN;EM$;ET;ES:I1300:I:2:15:3730V/"";10)"SAVING CALENDAR ...."b/P131n/Q0NR~/T$MS$(P,Q)/ T$"" T$SS$/2,"X"T$"X"/Q:P/P612:T$ML$(P)/  (T$)31 T$T$(SP$,31(T$))/2,"X"T$"X":P0 MB$"" MB$"N"+0( HD$"" HD$" "E02 YR$"" YR$"1989"e0<2,MB$:2,HD$:2,YR$:2,NU$y0F2:15:X(0):0PNM$"":"FILENAME TO LOAD";NM$0Z NM$"" 0d15,8,15,"I0":2,8,2,NM$",S,R":15,EN,EM$,ET,ES1nEN1EN;EM$;ET;ES:I1300:I:2:15:3920B1x"";10)"LOADING CALENDAR ...."V1P131:Q0NRt12,T$:MS$(P,Q)(T$,2,10)~1Q:P1P61212,T$:ML$(P)(T$,2,31)1P12,MB$,HD$,YR$,NU$:Y(YR$):NU(NU$)12:15:2040:X(0):1PYY-2X0:Y0:MTHW1:"";PR$:"PRESS _ WHEN DONE"T2"":W)"":I1 H:::W)""q2"": I1 HW1 W2(B$,I,W):2TXY401144: XW TTX402 T,(T) 1282A$: A$"" 41202"A(A$)3, CM(A) 4370,4160,4180,4200,4230,4260,4270,4310,4320,4420,4440(364120B3@ YH1 YY1:4080L3J4120d3T Y0 YY1:4080n3^41203hXX1: XW 40803r YH1 XX1:40803|YY1:X0:40803XX1: X0 40803 Y0 XW1:YY1:40803X0:40804B$"":I1 HW1:B$B$" "::406004 YH1 4440H4 XW YH2 4440`4 XW YY2:4080t4X0:YY1:40804X0:Y0:40804A$"":XX1: X0 43504 Y0 XW1:YY1:43504X0:41204TXYW5L(B$):B$(B$,T)(B$,LT1)" ":4080"5TXYW: TMT 4120H5L(B$):B$(B$,T)A$(B$,LT1)^5&XX1: XW 4080x50 YH1 XX1:40805:YY1:X0:40805DTXYW:L(B$):B$(B$,T)" "(B$,LT):B$(B$,HW)5N40805XYPY:5b""T$;" (Y/N) ";"N";: R$6l R$"N" Q0:)6v R$"Y" Q1:364450F6 YR$"" 4550p6T$"CLEAR OUT "MO$(NU)" "YR$:4450~6 Q0 635006P131:Q0NR:MS$(P,Q)SS$::6X612:ML$(X)SP$:618706MB$"N":T$"INCLUDE MEMO BAR":44507 Q MB$"Y":3590-7T$"ENHANCE DATES":4450=7 Q 2850Y7T$"PRINT IT NOW":4450i7 Q 23407 T$"SAVE CALENDAR TO DISK":44507 Q 37307 7* " SEQUENTIAL FILE LISTER"74 " FROM DISK OR TAPE (D/T) ? D";8> V$: V$"T" U1: A0: 473068H V$"D" "": 4660^8R " DISK UNIT NR (8-15) ? 8 ";8\ U: U8 U15 "": 46908f " DISK DRIVE NR (0/1) ? 0";8p N: N0 N1 "": 47109z " TO SCREEN OR PRINTER (S/P) ?S"; 9P$: P$"S" D3: 4790?9 P$"P" "": 4740k9 " PRINTER DEVICE NR (2/4-6) ? 4";9 D: D2 47909 D4 D6 "": 47609 " FILE-NAME TO LIST (OR END)"9 " ? END";F$: F$"END" 4960:F$(F$,16): V$"D" 4830L: " PUT TARGET TAPE IN DRIVE AND REWIND": 4850{: " PUT TARGET DISK IN UNIT";U;"DRIVE";N:F$((N),1)":"F$: A2: P$"P" " READY PRINTER AND ALIGN PAPER": " THEN PRESS ANY KEY TO CONTINUE" ; A$: A$"" 4870+; 1,U,A,F$: 4,D: C$(13)G;4," LISTING OF: ";F$s;$#1,A$: EST: D3 A$"" 4970;.4, A$;: E0 4900;8 E64 4," READ ERROR";B4,C$;C$;" END OF FILE: ";F$: 4: 1