ƒ„Ü«>À>ED¨EI¤EA¨CD¨CI¤CA¨A¤D¨I¤F¤CAS¤EAS¤ELASÔCLASÔETOÔCTOÔCATOÔEATOÔDONÅÁÉIÂIÌX±ÄÊPROMPÔIÓPÇIÅYÙDTÅDECNÔDCCNÔINPT¤X²IENÄÓIBÇDTE¤ÃTOTPÇA1¤@€@@€@€@€€ € €  !€"#$%&€'()€*"INVEST" by TOM LEWRY›A +'0@@@A0@@@ ‰‰€9A,;A@,‚9A,ƒ9A,„;A@,…9A,†;@,ª;@,ˆ;@ ,‰;@,Š;A,‹;A,*§;@,‡9@,*6§. / / .( (.( CAPITAL AND EXPENSE PROGRAM((( ------- --- ------- -------#( by TOM LEWRY(##@@K:2K6Œ-6-'6Ž-36-?6-K6‘-<F67@,. %67A@,. 467@,.:6„.@6‹.„F6Š.‹A AFk6’-6“-€8”,,6€8”,-€8”%@,=6€8”%@,-“F6“-‚8”,Z6‚8”,-‚8”%@,k6‚8”%@,-“Kk#6•-+”&@,$@ %@16–-”$@ :6ˆ.7•,P67•<–,.7•%@ ,k67•%@ <–%@ ,.ˆM:6•-”%@6ˆ.‹7”<”,,6‹7”<”,.‹7•<•,76‹7•<•,.ˆ:$Pk6’-6“-ƒ8”,,6ƒ8”,-ƒ8”%@,=6ƒ8”%@,-“F6“-…8”,Z6…8”,-…8”%@,k6…8”%@,-“Uk#6•-+”&@,$@ %@16–-”$@ :6ˆ.„7•,P6„7•<–,.„7•%@ ,k6„7•%@ <–%@ ,.ˆW:6•-”%@6ˆ.Š7”<”,,6Š7”<”,.Š7•<•,76Š7•<•,.ˆ:$d$$--ENTRIES FROM TAPE OR DISK?--›iX( (B(3Do you want to work on entries you made earlier?O)@“X6†.>:“,n(††4NAx†0YAz?((From Tape or Disk?+)@“?“"AUA| 6†.>:“,(† †4TA2~†0DA"AR(€bb(YType in one of these data file names: EXPOAKyr,EXPINVyr,INCOAKyr or INCINVyr(yr=80,81...)ˆˆ4A"‚S6‰7@,.ˆ,6‰7@<@,.D:I@@‰S A@„q( (q(cPosition tape to beginning of data, push PLAY on the recorder, then hit RETURN on the keyboard.‡##@@C:Œ A?6Ž-‚8,!6-…8,06‘-€8,?6-ƒ8,‘@–--PRINT CHOICES--› 70@@@70@@@¢jAR(}(T(0Add, Change, Display, Print, or Stop/Save:a)@“j6†.>:“,£++†0A*†0D*†0C*†0P*†0SAb¥ †4S(S Ap§AR@ª†4DA´†4CA¾†4PAÈ--ADD ENTRIES--›ÍI0@@@70@@ @IARÒ3 (} (3(" ADD ENTRIES (to stop, type 'S')Õ!-@@!(DATE: Ö6—-@×”-@Ü;)@˜˜"@ƒ& A`0 AP;--SORT--›á#˜"A& AQ# APæ (>:˜,ë-˜ @H)˜!@X# AP- APð6‡8”,-A:>:˜,,õ.”"@)”"@ (-.6—-—%@ø6—-—%@ú ”h-@@:( Enter a description of the item.U(Limit 20 characters Yˆhˆ4A`^-@@.(Expense or Capital:;)@“D6†.>:“,H(†^†0E*†0CAp: A€-@@6(Enter the amount :“" B$B-@@,(Mark this entry? 9)@”B6ª.>:”,&ª0Y*ª0NA’,†4CAP6bŒ"A:(&You have the maximum number of expenseb(#entries. You must delete one first71Œ"A#™-@A' ™1 A;6Œ-Œ%@@tt6€8Œ,-‡8@,$B%‡8@,$B%‡8,$A%‡8@,$A%‡8@,$@%‡8@,JI067+Œ&@,$@ %@<Œ$@ ,.ˆ96‚8Œ,-“A6Ž-Ž%“I6‘-‘%“O ª4Y6‹7Œ<Œ,.* 6‘-‘&“T A^b"A:(&You have the maximum number of capitalb(#entries. You must delete one first_1"A#™-@A' ™1 Ah6-%@rtt6ƒ8,-‡8@,$B%‡8@,$B%‡8,$A%‡8@,$A%‡8@,$@%‡8@,|I06„7+&@,$@ %@<$@ ,.ˆ96…8,-“A6-%“I6-%“ ª4Y6Š7<,.* 6-&“† A--DISPLAY--›‘6š-’6›-@6œ-@•I0@@@70@@@IAR@šh (}'(EXPENSES (Total = $Ž)9-@0h(p.œ of P:+Œ&@,'@,%@œ3-@@3((Unmarked total = $‘)Ÿ?Œ"(()( No expenses.56-? A¤@-@@@(&DATE ITEM AMOUNT®A-@@A('-------- -------------------- -------¸6-›%@!Œ6-ŒÂ ”-›Ç6ž-”&@$+œ&@,Ö<6ˆ.=:€8”,, A!<6ˆ.7+”&@,$@ %@,à<-@ž%@)(§ ‹7”<”,ˆ26“-‚8”,< APê ”ôš"@A€÷hAR'-@@"R(%Forward, Back, Capital, Page or Stop?_)@“h6†.>:“,ù++†0F*†0B*†0C*†0S*†0PAúAR@û†4CAPý†4SAPþB†4F*"Œ(.(This is the last page.8 BPB AI†4B*›"@(5(This is the first page.? BPI A1 †4F6›-›%@'6œ-œ%@1 A1 †4B6›-›&@'6œ-œ&@1 AS †4P(}S(Enter page number (1 - P:+Œ&@,'@,%@)5œ'6›-+œ&@,$@%@5›ŒA9(( No page # œ+“-@A/ “9 A5!--CAPITAL ITEMS--›&a6›-@6œ-@50@@@O0@@@aAR@0g (}&(CAPITAL (Total = $)8-@0g(p.œ of P:+&@,'@,%@23-@@3((Unmarked total = $)5D"((.( No capital items.:6-D A`:@-@@@(&DATE ITEM AMOUNTDA-@@A('-------- -------------------- -------N6-›%@!6-X ”-›]6ž-”&@$+œ&@,v<6ˆ.=:ƒ8”,, A!<6ˆ.„7+”&@,$@ %@,€<-@ž%@)(§ Š7”<”,ˆ26“-…8”,< APŠ ””š"@A™iAR'-@@"S(&Forward, Back, Expenses, Page or Stop?`)@“i6†.>:“,ž++†0F*†0B*†0E*†0S*†0PAe AR@£†4SAP¨†4EA²B†4F*"(.(This is the last page.8 BPB A`¼I†4B*›"@(5(This is the first page.? BPI A`Æ1 †4F6›-›%@'6œ-œ%@1 A`È1 †4B6›-›&@'6œ-œ&@1 A`ËW †4P(}((W(Enter page number (1 - P:+%@,'@,%@)Ì5œ'6›-+œ&@,$@%@5›A`Í9(( No page # œ+“-@A/ “9 Aä--FORMATS FOR AMOUNTS--›î5 “"P:“,(-@7&B:=:“,,ž%@2(“.005$øC“$@"P:“$@,8-@9&B:=:“,,ž%@@(“0C$&-@@&B:=:“,,ž%@#(“&$$$--PROMPTS FOR DELETE ROUTINE--› I0@@@70@@@IAR@ lAR'-@@#V()œFwd, Bck, Cap, Mark, Pg, Rmv, Stop: c)@“l6†.>:“,77†0F*†0B*†0C*†0M*†0P*†0R*†0SA€AR@†4PA5†4F)†4BA$I0@@@70@@@IAR@lAR'-@@#V()œFwd, Bck, Exp, Mark, Pg, Rmv, Stop: c)@“l6†.>:“,77†0F*†0B*†0E*†0M*†0P*†0R*†0SAAR@†4PA†4F)†4BA$--DELETE--› 6 -6¡-%6š-@ A*†4CA, †4M6ˆ.E A /†4SAP4T-@@"?(%Position cursor and hit 'R' T(Hit 'S' to stop970@@@70@@@>!6ž-@!ARH,-@ ž( #)@“,6†.>:“,R%%†0*†0*†0R*†0SA@W †4S A€ A\-†4*ž!@#6ž-ž&@- A@f-†4*ž @!#6ž-ž%@- A@p†0RA@u!6”-ž&@%›!”!ŒA@z+6€8”,-B™™™ 6 - %@+6Ž-Ž&‚8”,„-@ž(99/99/99Ž1-@!@#(Ž) 16ž-ž%@˜‹7”<”,4*A@¢56‘-‘&‚8”, -@%@+(‘) 5 A@ç--CAPITAL ITEMS--›è6š-@ APò†4EAô †4M6ˆ.C A ÷†4SAPüT-@@"?(%Position cursor and hit 'R' T(Hit 'S' to stop70@@@70@@@!6ž-@!AR,-@ ž( #)@“,6†.>:“,%%†0*†0*†0R*†0SA@ †4S A A$-†4*ž!@#6ž-ž&@- A@.-†4*ž @!#6ž-ž%@- A@8†0RA@=!6”-ž&@%›!”!A@B+6ƒ8”,-B™™™ 6¡-¡%@+6-&…8”,L-@ž(99/99/99V1-@ @#() 16ž-ž%@`Š7”<”,4*A@j56-&…8”, -@%@+() 5 A@~ A`--SORT--›ˆ 6Œ-Œ& 6-&¡’ AP°--LOAD--›º¢;@0,ÄA@¢*6Œ-A:¢7@<@,,A6-A:¢7@:“,‡(†“"AUAŒ, †4N"(@>:@,, AP–†0DA (@>:@,ªh-@@Z(?How many entries per page? (Hit ÒÅÔÕÒÎfor a continuous listing)d Ah¤¬Z-@@9(Do you wish to print EXPENSES?F)@“Z“"AUA® 6†.>:“,†4NA°†0YAR´% B6›-@%6œ-@¾@ (}-@@6(EXPENSE ITEMS, page œ@ APÀ%Œ"6©-@% A€Â 6©-P:+Œ&@,'¤,%@È<<(@ p.œ of ©ÜW*(@EXPENSES (Total = $Ž)W(@ (Unmarked total = $‘)æMŒ"(@%(@C(@ No expenses.M A`ð 6-›%¤!Œ6-Œú+ A ”-›!6ˆ.=:€8”,,+ A!T&6ˆ.7+”&@,$@ %@,A(@§ ‹7”<”,ˆJ6“-‚8”,T A3 ” Œ6›-%@)6œ-œ%@3 Ap0(@(@$(@*¤"Œ06¤-@_-@@>(#Do you wish to print CAPITAL ITEMS?K)@“_“"AUAA 6†.>:“,†4NAB†0YAEX6›-@6œ-@!(}3-@@N(CAPITAL ITEMS, page œX APG%"6©-@% A H 6©-P:+&@,'¤,%@I<<(@ p.œ of ©JV)(@CAPITAL (Total = $)V(@ (Unmarked total = $)TR"(@%(@H(@ No capital items.R A^ 6-›%¤!6-h+ A ”-›!6ˆ.=:ƒ8”,,+ A!rT&6ˆ.„7+”&@,$@ %@,A(@§ Š7”<”,ˆJ6“-…8”,T A|3 ” 6›-%@)6œ-œ%@3 A¤2@(0@@@2 A`<((Printer is not on.' BP2@< A` 6¤-Œ ARk-- AMOUNT FORMAT--›l7 6ˆ.=:“,6“-B:ˆ,!“ @-6¨-@7 A0v86¨-@,ˆ7“&@<“&@,4.86¨-€, ˆ7“&@<“&@,4.,6¨-@ŠW™-@@ &“&¨+(@ / ™=(@ˆI¨"T(@W$”!¨"@(@0!$™#¨"@ (@.00#$ž=(0(%Insert paper. Hit any key when ready=)@“¨((Printing page œ$Ï--HEADINGS--›Ð77(@&DATE ITEM AMOUNTÚF8(@'-------- -------------------- -------C(@F$4v+6§7@<@,.ˆ7@<@,S6§7@<@,.ˆ7@<@,s6§7@,.ˆ7@<@,v$ˆ--INV. CHAR.--›’AR@'-@@6( ýINVALID!!J™-@AN ™`-@@o( }6”-”&@ARœ(1—@“-—@%(>:“,($ì--DEL. FOR DATE ENTRY--›ö6”-”&@ —"@6”-”%@ $56£-—&@'£"@ )£"@56£-£&@-AR@( -AR .1£@“-£@%(>:“,+6—-£.$p%-@@#%( SORTING...zŒ @A`p„6¤-Œ&@6¥-Ž”-@¤“6’-@˜-¥"#€8”,!€8”%@,- @p-¥"@#ƒ8”,!ƒ8”%@,- @€¢ ”¬*6¤-¤&@*¤!*+(’,A`0±¥"@$¶ @$»'6¤-&@6¥-@' A`0X--STOP--›]G( (-(Do you want to save your work?:)@“C6†.>:“,G(†b†4NA€g†0YAPl!6‚8,-Ž!6…8,-n=((To Tape or Disk?))@“=“"AUApp 6†.>:“,(† †4TAp0q†0DAp"rO(O(DWhat is the name of the file where thedata is stored (e.g. EXPOAK81)s ‰46‰. tJ( ‰7@,7@…F:@…,&B:‰,%@;ˆJˆ4Ap"uS6‰7@,.ˆ,6‰7@<@,.D:I@@‰S Ap@vg(g(\Position the tape, press RECORD and PLAY on the recorder, then hit RETURN on the keyboard.x##@@C:€ A@@X(7(+Do you want to look at a different file?D)@“M6†.>:“,U†4YX%J* †4N@‚@'+*T Ap(#--Selective Total--›<#U-@@"?(%Hit 'M' to mark,'X' to remove a mark.U(Hit 'S' to stop.F#70@@@70@@@P#!6ž-@!ARZ#6”-ž&@%›d#>-@ ž!AR(( 5)@“>6†.>:“,f#†0Afg#)6ž-ž%@ž!@!)6ž-@!h# APj#†0Apk#)6ž-ž&@ž @)6ž-@l# APn#†0MA‘s# A€%+ˆ4E,$@x#))Š7”<”,4*)ƒ8”,"B™™™)”!AP}#K (*6Š7”<”,.*!6-&…8”,3-@%@A() K A‘P‚#))‹7”<”,4*)€8”,"B™™™)”!ŒAP‡#K (*6‹7”<”,.*!6‘-‘&‚8”,3-@%@A(‘) K AcŒ#? †4S% A€%+ˆ4C,$@? A%+ˆ4C,$A–#†0XA`›# A‘ %+ˆ4E,$@ #))Š7”<”,4 )ƒ8”,"B™™™)”!AP¥#K ( 6Š7”<”,. !6-%…8”,3-@%@A() K A‘Pª#))‹7”<”,4 )€8”,"B™™™)”!ŒAP¯#K ( 6‹7”<”,. !6‘-‘%‚8”,3-@%@A(‘) K Ac˜:b%2@AU@@9”-@A= ”_2@b$€ D2:INVEST.BAS