' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]L L}BBL] 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"_]` L/浍굺L  !"#$%&'()*+,-./0123456789:;<=>?  1#"""  (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0EB H  @H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`HIHHHHhHH݌hHhHh݌H6 ˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `LĦeff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^L iõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- ( D ՠ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈m浍浭m䵍䵐`"L ŵ8ŵH ~(`F d ֠z# u`ՊЀР* @A@AЪЀРРՀРтЀРЀЀЀРԪԂЀР"***@(@*@*ШՂЪՂЀՊРՀ*A**A(P P AЀЀРЀЀЀРԪՊ"***@(@*@*РՂЪԀЀՂРՀ*A**A(P P AԠЪРЀЀЀЪРЀЀЀՂԪЀРՀժРՀԀЀՂР@A@ P AՠЪРЀЀЀРЀЀЀՊԪЀРՂժԪՂЪ@'C8C'#8C#cRa<4<7xժЪՂЀԪՊЀԪՂՀՊЀ@xЀЪժՂЀЀЂՀՊЀpXD@`abX0KbcxՀ ->??w- -3-M:w -N --66vIMM13M13M1s-N M13M13MN IM13M1n >7MqM1s  3MqJM1s 6vI---.-uJ--;.>.>.-u5rVw-->.>.>*-u7RMJ?)-n) nM13MI??MI-)3 >n-uNI  VI @@C?.- ??N -5?*m?7M13-u J)36Ms-N -3M13M13-u ---n?76--NJ--n?76NII)-6n)-uMM13M1??n n N )66-N I166s-N Mn7 n N 666--NMM17 n n NIM13m1n)n N )3M13M1s-N -3M?76NI )3M13 mN -3M?7 n N )3?RI NIIVI 5)3M5.M-Nm >6-N))sI.-u-->N-N>I> 3--v 5--.-6s-N -޻M:?n -N.--6NI))3M?M1s-N.)3M1?w *uIRR >RNIN---ޛ-- *NI.)s N J M13--n N -3M &7IIIN" 66N inR>i----nN> ? ? ?wqImmw M:N)N-)n mN 6R 6N5 6N --NN n:?w1VIJN7RI:((((((((((((((((((((((((((((((((PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPd +2<FWbisz#.9DOUgx&7EWhx $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;?``` Q` Q``&` `` .``` 8``0` `L<``aai ``9`H8 h``` ````?aaaa(޽aa(`%ЀРЪՂՂШԪԪՂԂՂpx4@`Rax<@GHPaaSyԪՂЪ $$H$$$H$$prD""I8ժЪՂЀԪՊЀԪՂԪԪՂԂՂЀ@ԪՂЪ d$H$d$H$d<2D ""IժЪՂЀԪՊЀԪՂԪԪՂԂՂЀЀЪ0ժՂЀЀЂՀՊЀdD@dOHLqՀ`ЀЪժՂЀЀЂ*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*ЂЀDD@D@HHHr Հ@%DHD%HD#`b I<ЀЪԪժժժժժժժժժժժժժժժՀժՂЀЀԪժժժժժժժժժժժժժժժՀՂՂШЂЀDL`2D@HHH02  &$H$&DH$$<"<I@ժЪՂЀ*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*ԪԪՂԂՂԪՂԪՂЪ ՂՂШЂЀ          z#????     "Π!ӠŠԠՠ Ӳ)ծԠѠ٠Ҡ2ՠԠŠ"  "PRESS ANY KEY TO CONTINUE.".~O19:8:20400>O19:35:A$DOrO - SUBROUTINE TO PRINT TEXT WITH CLICKS.xO~OOI1(A$)O(A$,I,1);OX(16336)OIOOPRESS ANY KEY TO CONTINUE."&N19:81N20400=N19:35EOA$PO20010yOA$"DO NOT SAVE DATA TO THIS DISK."$O7:5.O204008OA$"PLEASE FORMAT A WORK DISK AT"BO9:6LO20400VOA$"THE MAIN MENU."`O11:13jO20400tOA$;:I)\NI222:I:1:" ";:39:" ";:IGfN23:1:I139:" ";:I:MpNXzN20010~NA$"WE STRONGLY SUGGEST THAT YOU"N10:6N20400NA$"MAKE A BACKUP COPY OF THIS"N12:7N20400NA$"DISKETTE"N14:15N20400NA$"PPLESOFT2-BINARY'3-TEXT FILE1 1O 1,MONTHLY BUDGETERb 1,THE CASINOt1,RUSTY NAIL N20090*N9364N3:3::I337:" ";:I>NI421:I:3:" ";:37:" ";:IHN21:3:I337:" ";:IRN1:1::I139:" "ING..." JT(A)1ĺ"RUN"A$(A); TT(A)2ĺ"BRUN";A$(A)V ^T(A)3ĺ"EXEC";A$(A)h hER(222):20n r | DATA FOR DESCRIPTION  2  THE MONTHLY BUDGETER  TO KEEP TRACK OF YOUR MONTHLY BUDGET DATA FOR PROGRAM NAMES1-A:24:7:"PRESS ANY KEY TO CONTINUE.";:A$:K #:12:13:"FORMATTING..." )(4)"INIT HELLO,D1":(4)"DELETE HELLO,D1"::17:"DONE"::2:"INSERT MASTER DISK"; ,AN1ĺ" AND PRESS RETURN";:A$:A$: @AN2ĺ"RUN MENUQ" A::12:14:"LOAD5:1102 VTV1(X)2:HT15.4:A$"WHICH ONE?":110N A$:KB(A$):A$""240c KB1KBN2240 VTV1(X)2:HT25.5:A$(KB):110::AKB:: AN321 AN1300, ":::(4)"BRUN INITFDOS,A$8000":10:5:"INSERT BLANK DISK IN DRIVE ONE"UBLISHING 1985":110G :N:X1N:A$:VTV(X):HT20((A$)2):110: N:X1N:T(X),A$(X):VTV1(X):HT12.5:A$(X)") "A$(X):110: A$(X)") CREATE WORK DISK":VTV1(X):HT12.5:110:XX1  A$(X)") QUIT":VTV1(X):HT12.(X1)14.0(X1.2):H ZQ7:Q17.7:Q21:Q3100:Q499:Q532:Q632:Q764Q d150 nTQ5:HTHTQ:VTVTQ1:A(A$):Q3HT,VT:X8Q2A xC(X8)Q7T(T)Q5:X8X8Q2 C(X8)Q6ĔQ2:Q4:: C(X8)Q2T:Q4:: VT24:HT5:A$"_ GREEN VALLEY P 1012,020000" 360(B12:14:"LOADING..."["BLOAD MS2,A$4000"u(C(X8)((A$,X8,1))2230,32:3086:16300,0:16297,0:16302,0:16304,0:3:0:1:232,144:233,98:24576<QA0FV(1)10.6:V(2)11.8 PX05:V1     ЀР@A@ բЪРЀЀЀРЀЀЀՊԪЀРՂԪЀՂРՀ*ЀР@**@*A@ ЀРՀЀЀРЀЀЊЀРժЀՂЪРՀ*ЀР@**@*A@ ЀРՀЀРЪՂРъՀЊЀРժЀՂЪРՀՊЀР* @A@AЀРՀ@'РՂРтՀ               ::10:10:"INSERT NEW DISK AND"::11:"PRESS CTRL-RESET"D *42K 22X d TARGETE 50)POKE 214,255: POKE 2049,1I"BLOAD QUIT TITLE,A$2000"}230,32:16300,0:16297,0:16302,0:16304,0(A$:::10:10:"INSERT NEW DISK AND"::11:"PRESS CTRL-RESET"*42220,0:16297,0:16302,0:16304,0< (A$: `` `@L LLAx>V鷩DP (E>D Z t+0x8x D- ܸDD#HX`8?E Vk *f???0xE   Hh D#-EEE8` D ܸx D - ܸx8`L ΍ЍΠՍժժժժժߪժ?xCp|p@pժժժժժ?xaa~p@|pժժժߪp~`~<`ߪժժժתתժת?x?x~?xppתߪժתժժժժժժժߪժժߪժժժժߪժժߪժժժժժժժժժժߪժժ?xp`p`pժժߪժժժ?xaa~pACpժժժߪժժժתתժߪ?x?x~?xpCpתߪժתժժժժժժժߪߪժժߪժժתժժժתժժժժժժժժժժתժժ?xpp`pժժתժժժ?xaa~v`Cpժժժߪժժժתժժߪ?x|~?xpCpתժתժժժժժժժժߪժժժתժժתժժժתժժժժժժժժժժתժת?xx~p`pתժժժժժժժ?xaa~pCpժժժߪժժժתժժߪ?x|~x`Ap תժתժժժժժתժժߪժժժ          40,1380,1500,1620,1660,1780G11:"MORTGAGE EXPENSES $";MQ4000_A0MAi 106011:"GAS & ELECTRIC $"U4000(A0UA21060<11:"TELEPHONE $"TF4000PA0TAZ1ARDS & DEPT STORES.".4:" F) GROCERIES."L4:" G) MISCELLANEOUS."m4:" H) SAVINGS ACCOUNTS.":4:" M) RETURN TO MAIN MENU."22:13::"SELECTION : ";:N$:N$"M"70N$"A"N$"H"1210(N$)641260,1300,136:2:I138:" ";::BL3:6:"MODIFICATION/EXAMINATION MENU"nV4:"SELECT ITEM TO EXAMINE OR MODIFY:"`9:4:" A) MORTGAGE OR RENT."j4:" B) GAS & ELECTRIC"t4:" C) TELEPHONE."~4:" D) TRANSPORTATION."4:" E) CREDIT CNTH : $";PK2X$" ":AICPK:A0AA:X$"-"["NET WORTH FOR MONTH : "X$"$"AmPR1ė:2200{D$"PR#0"394070$L0ė:2191%::1:2:I138:" ";:.I223:I:2:" ";:39:" ";:823:2:I138:" ";:B CARDS & DEPT STORES $"Y?"GROCERIES $"Ge"MISCELLANEOUS EXPENSES $"W"SAVINGS ACCOUNTS $"KPMUTSYGWK17:393019:1:"INCOME FOR MONTH : $";IC "TOTAL EXPENSES FOR MO THE MONTH OF":3:1:3920 S;\4:14:A$(X2)", 19"X3Kf6:1:3930Qg[p8:1z"MORTGAGE OR RENT $"M"GAS AND ELECTRICITY $"U"TELEPHONE $"T"TRANSPORTATION EXPENSES $"S"CREDITA$"Y"790 :A$"N"840t*8:" MAKE SURE YOUR PRINTER IS HOOKED INTO"::" SLOT #1 AND READY TO PRINT."424:5:"DO YOU WANT TO CONTINUE (Y/N)? ";:A$:A$"N"A$"Y"820>:A$"Y"ĺ:(4)"PR#1":PR1H3930IRN$"BUDGET FORCOUNTS (Y/N)? ";:A$:A$"Y"A$"N"6808A$"N"70B3950QB11070oIB1:3960:A$"STOP"70BB1:S$(B)A$:S(B)AKKS(B)730  L02191PR0 12:1:"SEND MONTHLY BUDGET TO PRINTER (Y/N)? ";:A$:A$"N"YYA(D)&5100e:12:1:"ANY MISCELLANEOUS EXPENSES (Y/N)? ";:A$:A$"Y"A$"N"570uDA$"N"670N3950lC110670vIC1:3960:A$"STOP"670CC1:I$(C)A$:I(C)AWWI(C)620)12:1:"ANY SAVINGS AC1:3960:A$"STOP"4500 NN1:T$(N)A$:B(N)A= SSB(N)F 400L  12:1:"ANY CREDIT CARD OR STORE CREDIT (Y/N)?";:A$:A$"N"A$"Y"460 A$"N"560 3950 D110560 ID1:3960:A$"STOP"560 DD1:C$(D)A$:A(D)A V8:F27:4170:U(B$)X J10:1:868:"TELEPHONE CHARGES: $";:V10:F21:4170:T(B$)^ T ^N0:D0:C0:B0:Y0:W0:K0:S0 h12:1:"ANY TRANSPORTATION EXPENSES (Y/N)?";:A$:A$"N"A$"Y"360 rA$"N"450 |3950 N110450 IN "2:1:868:"INCOME FOR MONTH: $";:V2:F20:LN6:LA46:HA57:4170:IC(B$) ,4:1:868:"MORTGAGE OR RENT PAYMENT : $";:V4:F29:4170:M(B$) 66:1:868:"GROCERIES : $";:V6:F14:4170:G(B$) @8:1:868:"GAS & ELECTRIC PAYMENT : $";:6"190- (A$)220,3310,1060,2190,3610,7807 4130= 11:1:"WHAT IS THE MONTH (1-12): ";:V11:F27:LN2:LA48:HA57:4170:X2(B$) X21X21270 13:1:"WHAT IS THE YEAR? 19";:V13:F21:4170:X3(B$) B$""70  L1O NEW MONTH":, 10:"2. LOAD OLD MONTH":K 10:"3. MODIFY A MONTH":k 10:"4. BUDGET ANALYSIS": 10:"5. SAVE MONTH TO DISK": 10:"6. DISPLAY MONTH": 10:"Q. QUIT" 22:10:"SELECTION: ";:A$:A$"Q"ė:4470 A$"1"A$"g/  4360A$(12)$D$(4)9(I112:A$(I):2"JAN","FEB","MAR","APR","MAY","JUN","JUL","AUG","SEP","OCT","NOV","DEC"<2500FPN$" THE MONTHLY BUDGETER"Z3930d5:1:3930:24:1:3930n3:3920 x7:10:"1. ENTER               :1&^ I$" ":0,V)10I$":"(&h XX0;&r 1,V)1E$H$N&| 1,V)2E$H$a& 1,V)9E$H$& 1,V)4E$" ":LTLT1:XX1& G$N$:N$(LT)& 1,V)0E$" ":N$" ":N$" "G$" "J$G$& G$" "N$" "VSV21:3060' " ";:50,63192NTHLY BUDGETER"% 3940@% H$" "K%" J$"W"^%, :D$"CATALOG"%6 24:1:" SELECT LETTER - HIT RETURN TO ABORT.";%@ 4:3:"SELECT THE DESIRED BUDGET FILE:"%J X1452:(5,X)11)Ă&T LT64:XX1:VX442::V21$ 70$ 2810.$ :12:15:"LOADING..."F$ D$"OPEN "F$",L800"\$ D$"READ "F$",R0"c$ Zt$ D$"CLOSE"F$|$ 70$ :5:" INSERT YOUR DATA DISK INTO THE DRIVE."% 12:"DO NOT ATTEMPT TO LOAD FILES CREATED BY"::"ANY OTHER PROGRAM THAN MO70#2 D$"RENAME "F$",GUMBY"T#< :12:"THERE IS ALREADY A FILE BY THAT NAME ON":#F " THIS DISK. PLEASE DELETE IT FIRST."#P D$"RENAME GUMBY,"F$#Z 4360#d 2500#n 4360# D$"OPEN "F$",L800"# D$"WRITE "F$",R0"# 0$ D$"CLOSE"F$N20:LA32:HA90:4170:F$B$:F$""2500<" F$F$" BUDGET"" (F$,1)"0"(F$,1)"9"ė:12:" ILLEGAL FILE NAME - PLEASE TRY AGAIN.":3940:2530" :10:" INSERT YOUR DATA DISK INTO THE DRIVE."" 3940" 12:9:"INITIALIZING NOW..."#( 260:": :":j! A$"DO YOU HAVE AN OLD BUDGET FILE (Y/N)?":I1(A$):14:2:(A$,I);:! A$:A$"N"A$"Y"2510! I130:X(16336)::! A$"Y"2740! (" 9:"WHAT DO YOU WANT TO CALL THE DATA FILE?"::">";:V11:F3:LES";:30:X((WP100.5)100)100, ~ 4090c "SAVINGS ACCOUNTS";:30:X((KP100.5)100)100m 4090 :"TOTAL";:30 XX5:4100 PR1ĺD$"PR#0" 3940 70! ::4:10:": :":10:" THE MONTHLY BUDGETER ":10.5)100)100. 4090V8 "TRANSPORTATION EXPENSES";:30:X((SP100.5)100)100`B 4090L "CREDIT CARDS & DEPT STORES";:30:X((YP100.5)100)100V 4090` "GROCERIES";:30:X((GP100.5)100)100j 4090" t "MISCELLANEOUS EXPENSDGET ANALYSIS"3930$*J"ITEM";:30:"% OF INCOME"SX50Y"MORTGAGE OR RENT";:30:X((MP100.5)100)100 4090 "GAS AND ELECTRICITY";:30:X((UP100.5)100)100 4090$ "TELEPHONE";:30:X((TP10WQ)I(R)4RCCC1">1060<HXB:4030:A$""1060IRS$(R)A$T\QS(R)_fS(R)AppK(KQ)S(R)zRBBB11060L0Ģ12:1:"YOU HAVEN'T LOADED A BUDGET INTO MEMORY":3940:70PIC393012:"BU""1060T$(R)A$QB(R)*B(R)A;S(SQ)B(R)JRNNN1T1060nXD:4030:A$""1060{C$(R)A$QA(R)A(R)AY(YQ)A(R)RDDD11060XC:4030:A$""1060 I$(R)A$QI(R) I(R)A *W(1BI". "S$(I);&30:"$"S(I),&L0B9ĺB1". ADD NEW ENTRY."Z::3930:~D:"TOTAL EXPENSES:";:30:"$"KN24:1:"DO YOU WANT TO CHANGE ANY DATA (Y/N)? ";:N$:N$"Y"N$"N"1870XN$"Y"2120b1060lXN:4030vA$C9ĺC1". ADD NEW ENTRY.",:3930:P:"TOTAL EXPENSES:";:30:"$"W24:1:"DO YOU WANT TO CHANGE ANY DATA (Y/N)? ";:N$:N$"N"N$"Y"1750N$"Y"20501060" ACCOUNT AMOUNT":B01840IA (Y/N)? ";:N$:N$"Y"N$"N"15906@N$"Y"1980@J1060lT11:"GROCERIES $"Gv^4000hA0GAr1060|" ITEM AMOUNT":C01720I1CI". "I$(I);30:"$"I(I)"1470N$"N"1060!1900B" ACCOUNT";:30:"AMOUNT":PD01560[I1DlI". "C$(I);}30:"$"A(I)D9ĺD1". ADD NEW ENTRY."":3930:,:"TOTAL EXPENSES:";:30:"$"Y%624:1:"DO YOU WANT TO CHANGE ANY DAT060#d" ITEM";:25:"AMOUNT":1nN01440<xI1NMI". "T$(I);^25:"$"B(I)dN9ĺN1". ADD NEW ENTRY.":3930::"TOTAL EXPENSES:";:25:"$"S24:1:"DO YOU WANT TO CHANGE ANY DATA (Y/N)? ";:N$:N$"Y"N$"NO WRITE ON WRITE-PROTECTED DISK"*6:452096DE54440q6N12:" ERROR IN READING DATA FROM THIS FILE.":45206XE844606b12:" I/O ERROR - CHECK YOUR DISK DRIVE.":45206lE25545107v12:1:"DO YOU REALLY WANT TO QUIT NOW (Y/N)? ";:RR1B$(B$,RR1)5RRRR145V:F:868:B$;>54190x5:12:" INSERT YOUR MASTER DISK IN THE DRIVE.":394054320512:14:"LOADING...."5(4)"RUN MENU"55E(222)5E1(218)(219)2565&E44420 6012:"UNABLE T/N)? ";:A$:A$"N"A$"Y"4140346A$"N"ġ:7094@I4JV:F:B$""R4TRR0Z4^C$m4h(C$)1342604r(C$)8RR042704|((C$)LA(C$)HA)C$","41904RRLN41904RRRR1:C$;:B$B$C$441904V1:1:4RR1B$""5:4170:A(B$):B$""4070 3,3X5X5X@3X10ĺ" "X"%"X3X9X100ĺ" "X"%"h3X99ĺX"%"n3y3"L0ı3':9:" ENTERING OR LOADING A NEW MONTH WILL"::" ERASE THE MONTH CURRENTLY IN MEMORY.":!4,14:5:"DO YOU WANT TO CONTINUE (Y:N220:1:"WHICH ITEM NUMBER? ";:V20:F20:LN2:LA48:HA57:4170:R(B$)]2A$"":A1r2R1RX1R9ı220:1:868:"NEW ITEM #"R": ";:V20:F16:LN20:LA32:HA90:4170:A$B$:B$""4060322:1:"AMOUNT : $";:V22:F11:LN5:LA46:HA57"A0:S114:1:"AMOUNT: $";:V14:F10:LA46:HA57:LN5:4170:A(B$):A03980Y1113:1:"CHANGE THE AMOUNT (Y/N)? ";:A$:A$"Y"A$"N"40001A1:A$"N"ı215:1:"ENTER CORRECTED AMOUNT: ";:V15:F25:LN5:LA46:HA57:4170:A(B$)NY KEY TO CONTINUE.";:A$::0n:"YOU MAY ENTER UP TO 9 ITEMS. PLEASE"::"ENTER ";::"STOP";::" FOR 'ITEM' WHEN ALL DATA"::"HAS BEEN ENTERED.":0x10:1:958:"ITEM #"I::"> ";:V12:F3:LA32:HA90:LN20:4170:A$B$:B$""39601A$"STOP(I):A(I):/C1/ C0āI1C:I$(I):I(I):8/BW/(B0āI1B:S$(I):S(I):h/2D$"CLOSE"F$p/<70/F23:13::"**ABORTED**";:I11500:::2500/P(20(N$)2):N$:/ZA$" ":PR1A$"_"/[:I139:A$;:::0d24:7:"PRESS AOPEN "F$",L800".ML13680;.VD$"WRITE "F$",R"L:3750Q.`D$"READ "F$",R0"X.jZb.tZZ1j.~LZ.D$"WRITE "F$",R0".Z.D$"WRITE "F$",R"Z.X2:X3.IC:M:U:T:G.N.N0āI1N:T$(I):B(I):.D /D0āI1D:C$āI1C:I$(I):I(I):WWI(I):&- BN- B0āI1B:S$(I):S(I):KKS(I):_-D$"CLOSE"F$i-1050y-:L02191-#12:1:" DO YOU REALLY WANT TO SAVE IT (Y/N)?";:A$:A$"N"A$"Y"3619-.A$"N"70-8-912:15:"WRITING...".LD$"B$),p S0:Y0:W0:K0,,z L1LZL0:70\, :12:15:"READING...":D$"OPEN "F$",L800"r, D$"READ "F$",R"L~, X2:X3, IC:M:U:T:G, N, N0āI1N:T$(I):B(I):SSB(I):, D, D0āI1D:C$(I):A(I):YYA(I):, C- C0ORDED :"+ +* I1Z/+4 D$"READ "F$",R"I;+> X2:X3M+? I16ĢI3:1a+@ I15ĢI12:20+H I10ĺI". "A$(X2)", 19"X3+R I9ĺI". ";A$(X2)", 19";X3+\ +] D$"CLOSE "F$,f 23:1:"ENTER SELECTION: ";:V23:F18:LN2:LA48:HA57:4170:L(* O10N32* O11N48B* X015:H,V)XF$F$(XN):J* :l* 4130:::D$"OPEN "F$",L800"* D$"READ "F$",R0"* Z* Z0ė:D$"CLOSE"F$:12:"THERE IS NO DATA ON FILE AT THIS TIME.":3940:70+ ::"THE FOLLOWING MONTHS ARE REC0SP0)l O10TS0SPSP1-)v SP232203) h) ME1313,22:ME1466,21:ME1463,12:ME1464,253w) F$(F$,5)) (F$,9)" BUDGET "ė:12:1:"THAT IS NOT A BUDGET FILE, TRY AGAIN.":3940:2820) ) OH,V1):TSH,V)* N64:O13N80>(& I0462:(5,I)TS5,I1)O)(4,I1)96,I1)9)3130D(0 R(: F$"OPEN"(D JX21VS1:J:1:" ";::VS:1:958(N I21:1::" ";:2:F$;:(X VI:H737:3250:TS:H,V:O12(O12O13)8(O10O11):H,V1)b O10TS(I$" ")(' XX0ĺ" ";::"*";::E$;7' XX1ĺE$;P' :" ";::XX1ĺN$;V' ^' :n' VS0VS24' VS:1:37):6::" CHOICE :";:16368,0:A$' A$(13)ĢVS:15::A$;" ";:' TS14,2VS2):O14,2VS1)' A$J$A$"A"ī3910A$7A$"N"A$"Y"4470+7A$"N"70574320T7"ERROR #"E" AT LINE "E1:^73940f7704520}7XE844607b12:" I/O ERROR - CHECK YOUR DISK DRIVE.":45207lE25545107v12:1:"DO YOU REALLY WANT TO QUIT NOW (Y/N)? ";:A$ 8A$"N"A$"Y"4470(8A$"N"70284320Q8"ERROR #"E" AT LINE "E1:[83940c870Dƍ`O@P-Q`LOčPQ`2LHA>VDP (ED Z c(0x8x D- ܸDD#L H8?E Vk *f???0xE ݀ ݀ ݀Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE!! ., - LAST UPDATE 11/05/85 - VERSION 3.5 "