@L}5 _$% l0$)$$Hȱ$ UhL" `e$$%`$%`  R@P!( L(1   Y I`  d  Ld M * @  $ % CC$$)%1 Udߥ$9%: !0 S$% DD˙`  }J)Lr d M * @  $ % CC$$)%1 Udߥ$9%: !0 S$%} DD˙`  }J)Lr J  ((  p L ()   J}L= ( L 0q A    IB JC;? D W } LL  ` W )LA!  ߰")-݆ p" } $G@LL 08`Q")<2Q0 -G$Ș݆ UL# ; p8(()(0ʥ)NQ` }$GȘ݆LU )L ݆ L GȘ ݆LL )W>Z   HH)H }p h  hyhy D L> L JJ    ! LA*` BF }7'8  M HN H` 8 Z  \LdJJ!"! GFE@F (!L }EE !E^ ^ E E7EȩEdE/EȩE  D } .L }  ;F d  ;?F7F? ( .   Z D LL d } . D  L    p  E` , d)  D L) 0BM݊L݉} ML  N݆ L NLML [ TEqEHȱEqEh 0Gȹ G} HLL GɛL  LFREE SECTORS G) *Gȩ GȽG GȌ*jj >G} C8jJ3j2CD( C202C ԠBX` N 1? l LlD:RAMDISK}.COMLu L1 L ;LHL  T`  `8  ɐ     `TU  } L ? .  t`GBJ ~DEHI B V0dV!}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEh"}DEL8HI4 0 HI,0 0  9 .G VLO#},0 L4*IJ`llD1:AUTORUN.SYSNEED MEM.SAV TO LOAD THIS FILE.D8:MEM.SAV J y08 B|DEHI$} V0 0`B;DEL`?<0LV`@ʆ v s? F0Ξ05: [ BDEHI%} VY8 B V  @  /DE `E:D8:DUP.SYSERROR-SAVING USER MEMORY ON DISKTYPE Y TO &}STILL RUN DOS B;DE J  (` 9 V⪍ ઍ  -'}LLu ÝDEHILV 9 .l 9 .l  `` s$B BH(}I|DE V BLV nB,DE JLV B V BLVDEIʩ BꭝLu }YZ33ADHBTOTXDCMCFCLCATMAXEEDERJUSROUNCATMECATHENUMENIAx*}xAARn }  AA A = B@B0BP+}B @@@!@@2@I !,}"#$%& + HOME FINANCE MANAGER AUTHOR: WILLIAM D. SEIVERTWRITTEN -}JUNE-JULY, 1980#--ADJUST MAXE ON LINE 100 FOR MEMORY SIZE(hh;@ ,;@,;A ,;@,9@,;@.},9@,;@(,;@,2BBA$ IS GENERAL STRING, D$ IS DATE (MM/DD/YY), H$ IS MENU LIST<TOT IS TOTAL P/}ER DIVISIONFTOT(0) IS GRAND TOTALP';@,;AG,'247=13*19Z//CL$ IS CURRENT CAT, CAT$ IS CATAGORY LIST0}d;6-A;MAXE IS MAXIMUM NUMBER OF ENTRIES ALLOWEDn@9,9,;$@(,@ENTRY GROUP, AMT AND DESCRIPTIONS1}ii1. ENTER NEW DATA 2. DISPLAY REPORTS 3. SAVE/RESTORE 4. CHANGE OR DELETE 5. EXIT ?""DATA AT 150 IS FO2}R MENU (H$)ABCDEFGHIJKLMNDATA AT 160 IS FOR B$56-B@5ADDRESS OF RIGHT JUSTIFYING ROUTINE-6-B03}-ADDRESS OF ROUNDING ROUTINE*6-BP*ADDRESS OF CATAGORY MENU56-B 5ADDRESS OF CATAGORY HEADING BUILDE4}RINITIALIZE!"!READ MAIN MENU HEADINGS''67A,. ENTER CHOICE (1-5)  " READ SELECTION LETTERS5}SET UP CATAGORY HEADINGS&&67@,.Automotive &&67@ ,.Business &&67@9,.Clot6}hing &&67@X,.Donations &&67@w,.Entertainment &&67@,.Food 7} &&67A,.Gasoline &&67A4,.Home Improvements &&67AS,.Investments &&68}7Ar,.Taxes &&67A,.Rent/Mortgage &&67A,.Miscellaneous &&67A),.9}Medical B68@,-@-68@,-@B68@ ,-@B68@,-@-68@,-:}@B68@,-@B68@,-@-68@,-@B68@,-@B68@,-@-68@;},-@B68@,-@68@,-@:##@@K:D#6-#NUMBER OF ENTR<}IESNXMAIN MENUb8 +@@)AR@8ERASE CURSORg5@@'@@95SET=} MARGINSl/-@@/6-+&@,$@ v-$@--@@ 6-%-6-@:7<,,>}"@:?,Ap*@  )@? :? :? :?@:1,*@:5,A9AV?}@'AX9AW@!!(INVALID CHOICE, TRY AGAIN-@@%%2A@@}@-@@  %%2   A6-A:>:,,9AVA}@'AX9AW@!!( !-$@!@:*@B}&@2:CHANGE COLOR OF SELECTED NUMBER-@@P $//A A0A@APB.&&NEC}W, DISPLAY, TAPE, CHANGE, EXITENTER NEW DATA ROUTINE%@!A AR@ 2-%@D}2(ENTER CHOICE (A-M) X TO QUIT)@"@:X,A@:A,*@:M,A" -%@*##(E}INVALID CHOICE, TRY AGAIN 4-@@>%%2A@@H-@@ R%%2F}\ f A `2-%@2( +6-&@:A,%@G}+COMPUTE CATAGORY-%@%0(>:%A(,0HIGHLIGHT SELECTED CATAGORY-@@  BH} 1 +AR1-@@V (6.` @-@@@(%ENTER DATE OF TRANSACTION (MM/DD/YY) I}j o B:,"A$p B:,"@A$ q -B:,%@@r 67<,.  t :-@@J}:( ENTER DESCRIPTION OF TRANSACTIONy $$SHOW USER HOW MUCH ROOM HE HAS~ .-@@.(  K}"-@@"6-B:, -@6@ 6-@:7<,, "@: ,6-@: , 67<,.>:,  *L}-@@*(ENTER AMOUNT $  A& B  6-%@!A 6-$@(&@'M}  68,-SAVE CATAGORY -@@ %67<,.7<,!6-%@%  -@ %67<,.7<,!N}6-%@%   68,-SAVE VALUE A'( ILLEGAL VALUE SUPPLIED2 2-@@2(ILLEGAL VALUE, TRO}Y AGAIN< -@@F %%2A@@P -@@ Z %%2P}d  n =-@@=(# x G-@@=(# Q} G A$  BCANCEL TRAP -@@ ++("NEXT ENTRY FOR THIS CATEGORY (Y/N) )@R} >:,4YA#p -@@ --(%  -@@ !!(DIFFERS}ENT CATAGORY (Y/N) )@ >:,4YA  # A#RETURN TO MAIN MENU DISPLAY REPORTS "T}A8 *-@&68,-*  %-@%ACCUMULATE TOTALS  6-8,CATAGORY NUMBER U}68,-8,%8, 68,-8,%8,   -@  6-8, 68,-    +V}AR& ( CURRENT TOTALS0 '6-@6-@'6-@: -@@D -%I 28,"W}(( 7<%@,2 A2J  6-8, L 6-8,N (7<, 7<%,X %-@ @!(. %X} b -%@%%l ($ 6-%@  -%@ ( GRAND TOTAL ,-%@%%@(6-8Y},,  ($ AR@  8-%@8("Details of which? Enter X to stop. )@ Z}"@:X,A9 @:A,*@:M,A4P 8-%@8(" INVALID CHOICE, TRY AGAIN  -@@[}* %%2A@@4 -@@ > %%2H  R A3z \}6-&@:A,%@ 8,A4 B-%@8(" NO DETAIL FOR THIS CATAGORY B A3` -%]} 0(>:%A(,0HIGHLIGHT SELECTED CATAGORY -@@P   6-  +6- (^} DETAIL OF  -@ 8,A7 %6-%@% @ A5 >6-@.(Press RETURN to_} continue 2>6-@6-@($ 6-8, "A6@$-@@(.-@@`} 855(7&@'<&@ , 7&@<,$t ~ 6-8, 8"@!-@@&(8-@a}@ +(+( TOTAL $ (Another catagory? (Y/N))@"@:Y,b}A1 AAR@< +-@@<( NO REPORTS TO DISPLAY%-@@c} % A< ASAVE TO TAPE1 +@@1AR@-@@))(!Saved} or Restore from file (S/R/X))@"@:X,A+@:S,*@:R,! AH+ A@@""(Is filee} Tape or Disk (T/D))@+@:T,*@:D,! AH+ A@$@:D,6-$ AAP"@ARf}@(&Enter disk filename (e.g., D:FILE.EXT)'**(" D:HOMEFIN.DAT is assumed filename,%6-@%ARg}@1&B:,"&6. D:HOMEFIN.DAT6 AI@"@:S,6-@J"@:R,6-@T)"h})@C:^&"@&@h"@ACr$ @$"ABP|i}-@6-$@(// @8,,8,,7&@'<, @ AE$@$j}"AC`9 !/(!TOO MANY ENTRIES FOR THIS VERSION9 AC`-@6-$@(&@k}68,-&68,--@@(+'67&@(%<&@(%,.7<,+  @ B Al}3-@@3(INVALID CHOICE, TRY AGAIN-@@%%2A@m}-@@ %%2-@@  3-@@3( n} $$I/O ERROR./-@@/( I/O Error F:A,8-@@B%%2o}A@L-@@ V%%2`-@@ j t3p}-@@3( ~ ACHANGE OR DELETE BPAR@2-%@q}2(ENTER CHOICE (A-M) X TO QUIT)@"@:X,A@:A,*@:M,AR-%@r}$$(INVALID CHOICE, TRY AGAIN -@@%%2A@@-@@  s}%%2  AP`PZ2-%@2( d+6-&@:At},%@+COMPUTE CATAGORYiE8," -%@;(NO ENTRIES IN CATAGORYE AQn-%@%x0(>:u}%A(,0HIGHLIGHT SELECTED CATAGORY-@@  B J-@T8,AYv}^1 +AR@1-@@h(6.r6-@($| 6-8, 'AR@'-@w}@55(7&@'<&@ , 7&@<,$!!(Change this entry (Y/N/X))@"@:x}X,A@:Y,AX (Change the date (Y/N) #)@#@:Y,AV&?AR)(y}Enter new date -?AR@0Q-@@;67&@(%<&@(%,.7<,? QAR@:!!(z}Change description (Y/N) D)@N@:Y,AWPX/AR/(Enter new descriptionb-AR{}@--@@ g7 !B:,-67&@ %<&@ %,. 7 AWEl''67&@ %<&@ %,.7<,|}q v(Change amount (Y/N))@@:Y,AX6AR AW6(Enter new amount }} B AR@68,- AY (Delete this entry (Y/N) #)@#@:Y,~}AY"AXp --&@'0%@(!$@(&67<,. 0 AXU##67<,.7%@(<}%@(, 1 "68,-'68,-1 AXe+68,-8%@,+68,-8%@, 6-&}@ AT`   AP/-@@/6-+&@,$@ (#' +'(ERROR: Table ove}rflow2#++(#Some entries must be deleted before<#(more can be added.F#-@@P#%%2A@}@Z#-@@ d#%%2n#-@@ x# #6-&@} A'-@A 'C +AR1@@C@@9$'@.%%}SET UP CATAGORY HEADING GIVEN L.6-$@6-. -@@6@.76-@:7<,,%B} P7NON-BLANK FOUND/5"@: ,B 5DON'T INVERT TRAILING BLANKS/6-@/9!@:Z,6-&@29CON}VERT TO CAPITAL LETTERS&/6-%A(0/67<,.>:,:/6-&@ D/$211ROUTINE TO ROUND X TO 2 DECIMAL PLA}CES IN Y2)&6-P:+%>P,$A,'A)$6RIGHT JUSTIFYING ROUTINE6//GIVEN X, RETURNS XD$, DESTROYS VALUE IN }X66. .0066-$A69967@<@,.>:@:0,%&P:'@,$@,66-P:'@,69967@}<@,.>:@:0,%&P:'@,$@,66-P:'@,7 -@@6@ 7"BA 7--}67<,.>:@:0,%&P:'@,$@,76-P:'@,(7 27$:CATAGORY MENU:+ +6-@%6-@}+-:(:-%@(| A :(7@<@, |:-%@(| B :(7@ <@8,} |:-%@(| C :(7@9<@W, |:-%@(| D :(7@X<@v, |:-}%@(| E :(7@w<@, |:-%@(| F :(7@<A, |:-%@(}| G :(7A<A3, |:-%@(| H :(7A4<AR, |:-%@ (| I :(}7AS<Aq, |:-%@(| J :(7Ar<A, |:-%@(| K :(7A<A }, |:-%@(| L :(7A<A(, |:-%@(| M :(7A)<AG, |:}-%@:(:$ D:FINANCE.BASEDERJUSROUNCATMECATHENUMENIAx1_ PCDTITLEERNURAV@@w &@@ mmĠϠ}ŠŠŠ ٠͠ŠƠɠ ЧӠӠˠBAR GRAPH::Written by } Clark Peterson>>5931 Clydesdale Ave San Jose, Ca 95123XXEnter as many set}s of titles and yearly data as desired in DATA Statements.99Press any key to go from one chart to the next.};@,;@8, A #A ""@@K +@ 0@@ @} ++ # J F M A M J J A S O N D++ # A E A P A U U U E C O E++ # N B R R Y N L G P T } V CAR@"  *0@@@*BACKGROUND('0@@@}'@,K,@@`',@@`9,AW@`K,AX@`-',@@@',AX@@}.',@@ ',AX@ /',@',AX2-@AD@7"<%%6-+}@y&+$@y'A,,F,@yG /H,%@@yI/%@_ '0@@}'@-@AD@"%%6-+@y&+$@y'A,,,%@@y/%@},%@@y/%@,%@@y/%@ "3 F:Ad,"AUA3}WAIT FOR ANY KEY'AdAU+ @ERROR TRAP!6-F:A,!ERROR NUMBER6%6-AV$F:A,}%F:A,6RETURN ADDRESS="@#A# A=OUT OF DATA, START OVER ( & A C H} A R T 1**100,75,50,25,95,35,65,75,58,65,50,75**100,80,50,70,20,30,40,50,60,55,53,77XC H A R T 2b))95,75,85},65,95,35,65,75,58,65,50,75l))95,75,85,65,95,35,65,75,58,65,50,75C H A R T 3))80,90,100,20,45,56,5,75,58,65,50,}75))95,75,85,65,95,35,65,75,58,65,50,75 D:CHARTS.BAS@w &@@ mmĠϠ@  -@UBALANCDIPATA **@@ D:BALANCE@@ }70@70@@@(>:A%, @5#H-@@H(-What is th }e balance on your bank statement%(]-@@](CWhat are the amounts of the outstanding checks } *D-@@D(*Type 0 after the last outstanding check.-# @E-@!@#2 6-& }7"@p< @@F]-@@](CWhat are the amounts of the outstanding deposits } HE-@@E(+Type 0 after the last outstanding depositK# @u-@$@#P 6-%U }"AZ @pd7 "-@@7(YOUR CHECKBOOK BALANCESi 6-&nP!!-@@ }>(THERE IS AN ERROR OF $P( IN YOUR FAVORxQ !-@@A(THERE IS AN ERROR OF $O:,Q( AGAI }NST YOU1-@@"1(Push to recheck. F:B2y,@A@ @$ D:BANKBAL.BAS@ {40 YOU1-@@"1(Push to recheck. F:B2y,@A@ @$ D:BANKBAL.BAS@lAXLPB0NZ<( ((@@d"( } +AdAUcAAx'A @9@@K@@7Q(}cAR@}++(#++(#| ANTIC - BUSINESS - DISK #1 |++(#}++(# @ -@A $ GG;@@,;@ ,;@@},;A,;@,;@@, "D1:MENU" &&@@D:*.* 6,6." } 6 @0i6-%@(6.7@<@,A67@ <@ ,..i67@<@,.7@<@,}3 6.|67B:,%@,.367B:,%@,.G67@<@,.(--@B:,:7<,4 G67<,..]} 6.=:, @D67@<@,.7@<@,]67@<@,.0$@(''7@}<@,4FREE@- @ 2() <@F''7@<@,4FREE@K @ P}(7@<@,)|U @0W'!-@6+'@,%@' |Z++(#| |[} ( |  |\++(#xAR[@@9'-@}@"C( SELECTIONM A0Q[ BP:,A00"@&6.7@<@,0 AE}LB6.7+&@,$@%@<+&@,$@%@,L B37@<@,4 36.7@<@},!7@<@,4DOS!.0 6.-@B:,07<,4 AH67B:,%@,.7<,   6.}! 6.D1:!67B:,%@,.?AR@'-@@"?  LOADING ? A@@9}1@@5%? BK-@@"-  CANNOT RUN 7 @A BK A0D:MENU}HI<RBNEAAMOUNTNTEMPPRNAMEDATEYEARCC1CBALANCZSMLJJLEPPP&P8 AB}P'PB(j ~   APe @rAF @@@@@}@#@'@8@(;@,;AR,;@,;@,9@'<@',;@,;@},;@@,;@ ,;@,;@ ,;@,[ 6. 67@,. +67@,.16.E-@@ }I"W67<,.>:,[ !!18,20,97,110,100,27,27,83,0 X-@@")67<,.>:,- X27,27,72,47,27,27,83,1},49,48,48,27,27,72 **@@ D:BALANCE@70@70@@}@(>:A%,!-@@!(BALANCE>-@@)-@@7(>:@,; >(-@}@($ 3-@@3(Push for a depositJ-@@;(!Push twice to save ba}lanceJ( on disk A+-@@+(  -@@(#9-@@9(}Amount of check %-@#@( 6-&2 A9-@@9(Amount of deposit}  A-@#@ 6-% @0,5@5@@ D:BAL}ANCE1 @6@;(>:A%,@ 6.=:,.-@B:,!7<,4.$'. A0 ,}"B:,%@,67B:,%@,..00*"B:,&@*67B:,%@,.0 6.+B:,!@+6.7B:,&@}:@',8>:@',D>:@},>:@0,>:@C,>:,+&&(Position check and press START, A`- F:B2y,@A%.XB(}@>:@',0>:@ ,>:@ ,>:@ ,M(@X(@/QF(@>:@',2>:@ ,}>:@ ,>:@ , Q(@1&(@**#(@&$2dd6.ZONETWOTHREEFOURFIVESIXSEVENEIGHTNINETEN}ELEVENTWELVETHIRTEENFOURTEENFIFTEENSIXTEENSEVENTEEN<VV67B:,%@,.>EIGHTEENNINETEENTWENTYTHIRTYFORTYFIFTYSIXTYSEVENTY}EIGHTYNINETYFff1,3,4,6,7,11,12,15,16,19,20,22,23,27,28,32,33,36,37,39,40,45,46,51,52,59,60,67,68,74,75,81,82,90PRR91,98},99,106,107,112,113,118,119,123,124,128,129,133,134,140,141,146,147,152d #APC-@@'".68<@},-?68<@,-C ;(>:A%,(#( Month-Day '7( Year 19-- ;((Pay to 67B:,%@},.,J( (1(# Make sure your printer is ready,4(J(then press START. F:B2y,@Aa A`}@8@@P:B BTARa(>:A%,/6.>:@,/67B:,%@,.>:}@, 6-B:, "Ap @A0 B A0 @$@(>:AS,6(! RE}ADY PRINTER THEN PRESS START@ AD:CHECKPRT.BASBALANCZSMLJJLEPPP&P8 AB=!"BSWTYNXITTITITYC@9@ @5?@@`Ad@! A} @@pevARGd +n;@,x I.R.A. PROJECT}ION.. &USES SIMPLE INTEREST COMPOUNDED YEARLY  ENTER YOUR AGE%% WHAT IS YOUR TAX BRACKET (%)}## AMOUNT OF REGULAR DEPOSITS"" NOMINAL INTEREST RATE (%)$$ NUMBER OF DEPOSITS PER YEAR} AGE YOU PLAN TO RETIRE6-''A"" **************************";;6-+$++@%,#+$@},&@,',$+@%,,  YEAR AMOUNT6  1 @"" P:$A%?P,'AJ;;6-+$++}@%,#+$@,&@,',$+@%,T  2 ^"" P:$A%?P,'Ah;;6-+$++@%,#+}$@,&@,',$+@%,r  3 |"" P:$A%?P,'A;;6-+$++@%,#+$@,&}@,',$+@%,  4 "" P:$A%?P,'A;;6-+$++@%,#+$@,&@,',}$+@%,  5 "" P:$A%?P,'A;;6-+$++@%,#+$@,&@,',$+@%},  10 "" P:$A%?P,'A;;6-+$++@%,#+$@ ,&@,',$+@%,  }20 "" P:$A%?P,'A "" ************************** ## PRESS 'RETURN' TO CONTINUE}&0 :"" **************************D)) !ASSUMES YOU CONTINUE CONTRIBUTINGN THROUGH THE AGE LISTEDX6}-@`&b  AGE AMOUNTl556-+$++@%,#+$,&@,',$+@%,v  60 "" P:$A}%?P,'A6-@e&556-+$++@%,#+$,&@,',$+@%,  65 "" P:$A}%?P,'A6-@p&556-+$++@%,#+$,&@,',$+@%,  70 "" P:$A}%?P,'A"" **************************  AGE    6-& 556-+$++@%,#+$,}&@,',$+@%, VALUE  "" P:$A%?P,'A* INTEREST 4** +P:$A}%?P,'A,&+$,> TOTAL DEPOSIT H $R TAX SAVINGS \ $$'Af NET INVESTMENT} p +$,&+$$'A,z6-+$,&+$$'A, NET GAIN && +P:$A%?P,'A,&}"" ************************** MONTHLY INCOME 6-$'@"" P:$A%?P,'A YEARLY I}NCOME  6-$"" P:$A%?P,'A"" **************************  "" PRESS 'RETURN' TO} CONTINUE++(}DO YOU WISH TO ENTER MORE DATA? SELECT AN OPTION  1 PRINT ANALYSIS  }2 CHANGE DATA!!  3 ENTER ALL NEW DATA  4 QUIT Ԡν"@A@}"@A0"@A (}%D:MENU 3IRA DATA SHEET 3 3I.R.A. PROJECTIONN ..3&USES} SIMPLE INTEREST COMPOUNDED YEARLY 3 3YOUR AGE NOW IS  ""3YOUR TAX BRACKET IS %z ((3AMOUNT OF REGULAR} DEPOSITS IS  ,,3AT A NOMINAL INTEREST RATE OF %B--3#THE NUMBER OF DEPOSITS PER YEAR IS $$3YOU PLAN TO R}ETIRE AT AGE 3 6-''A<""3**************************n;;6-+$++@%,#+$@,&@,',$+@}%,3 YEAR 3AMOUNT3 1 ""3P:$A%?P,'A6;;6-+$++@%,#+$}@,&@,',$+@%,h3 2 ""3P:$A%?P,'A;;6-+$++@%,#+$@,&@},',$+@%,3 3 0""3P:$A%?P,'Ab;;6-+$++@%,#+$@,&@,',$+}@%,3 4 ""3P:$A%?P,'A;;6-+$++@%,#+$@,&@,',$+@%,}*3 5 \""3P:$A%?P,'A;;6-+$++@%,#+$@,&@,',$+@%,3 10} ""3P:$A%?P,'A$;;6-+$++@%,#+$@ ,&@,',$+@%,V3 20 }""3P:$A%?P,'A3""3**************************//3'ASSUMING THAT YOU CONTINUE CONTRIBUTINGJ3}THROUGH THE AGE LISTED|6-@`&3 AGE 3AMOUNT556-+$++@%,#+$,&@,',$+@}%,3 60 D""3P:$A%?P,'Av6-@e&556-+$++@%,#+$,&@,',$+@}%,3 65  ""3P:$A%?P,'A>6-@p&p556-+$++@%,#+$,&@,',$+@}%,3 70 ""3P:$A%?P,'A""3**************************83 AT AGE j33} 6-&556-+$++@%,#+$,&@,',$+@%,23VALUE d""3P:$A%?P,'A}3INTEREST **3+P:$A%?P,'A,&+$,3TOTAL DEPOSIT , 3$^3TAX SAVINGS }3$$'A3NET INVESTMENT 3+$,&+$$'A,&6-+$,&+$$'A,X3NET GAIN }&&3+P:$A%?P,'A,&""3**************************3MONTHLY INCOME 6-$'@ ""3P:$}A%?P,'AR3YEARLY INCOME \ 6-$""3P:$A%?P,'A""3************************ }**33>:A@,L A @..(}"WHICH FIELD DO YOU WANT TO CHANGE?r( 1 AGE (#( 2 TAX B }RACKET Z#,,(" 3 AMOUNT OF REGULAR DEPOSITS d#''( 4 NOMINAL INTEREST RATE '--(# 5 NUMBER OF DEPOSITS } PER YEAR B'((( 6 AGE YOU PLAN TO RETIRE L'""( 7 TO BEGIN PROCESSINGt'((Ԡν~''( }"@$(ENTER YOUR AGE ('."@*(ENTER YOUR TAX BRACKET. (<"@8($ENTER THE AMOUNT OF REG }ULAR DEPOSITS<(7"@3(ENTER THE NOMINAL INTEREST RATE7<(="@9(%ENTER THE NUMBER OF DEPOSITS PER }YEAR=n(4"@4( ENTER THE AGE YOU PLAN TO RETIRE("@ Ap) A D:IRA.BAS33t  eZ$d@7@@@@P@AeA6P > B'y(oo!}ǠɠҠȭ Ӡ͠Š ԠŠƠԠҠě;;8,72,165,20,41,16,7!}4,74,74,141,243,2,104,40,76,62,2335 (}#0@@5AR@;A, @/-@!}B:,!7<,4 +(7<,/ m%2@@/(7<,C-@@G i2!}m  ( $ ;.6.$Ӡ̠͠ŠҠ8 @;(;.6.$ԠŠƠΠ!}ԠҠ8 @;(;.6.$ĠҠؠҠƠӠ8 @;((;.6.$ԠԠΠ٠!}8 @;(+;.6.$8 @;(-;.6.$Ԡ٠ԠŠՠź8 @!};(/;.6.$8 @;(3(4(7( <=..(& נϠՠ!}ԠԠĿҺ>( 1٩?( 2٩@( 3٩A( !}4٩B( 5̩C( 6̩D ( F..(&ӠàԠԠŠ!}H..(&ŠӠŠҠƠӠՠJ..(&ԠŠӡMN O( Ԡ!}ҠPU//(& ҠƠӠӠΠWX(Z"@6-Ae["@6-@!}R\"@6-@]"@6-@^"@6-@`"@6-@b 6-$!}c6-'+A$,d336-$++++@%,#,&@,',$+@%,!!(PRESENT VALUE LUMP SUM 4( @Q!}D:PVPERIOD.BAS$d@7@@@@P@AeA6P > B'y(oo   eZ$d@3@ oo%}ǠɠҠȭ Ӡ͠Š ǠĠҠƠ̠;;8,72,165,20,41,16,7% }4,74,74,141,243,2,104,40,76,62,2335 (}#0@@5AR@;A, @/-@%!}B:,!7<,4 +(7<,/ m%2@@/(7<,C-@@G i2%"}m  ( $ ( ?%%( 1 ٠ 2 ٠A%%( 3 ٠ 4 C%%( %'} 5 6 ̠F ( H))(! ӠàԠԠŠI))(! ŠŠӠŠӠՠJ))%(}(! ŠҠҠǠĮKL N( ̠ԠԠPR ( U//(& ҠƠӠ%)}ӠΠWX(Z"@6-Ae["@6-@R\"@6-@]"@%*}6-@^"@6-@`"@6-@b 6-$c6-'+A$,d336-$'++++@%,%+}#,&@,$+@%,,11((ԠϠԠȠĠ 4( @QD:SINKFUND.BASoo$uzIBJIAP@@?@3 ?BW9 @! @')-} @1 + !! REGULAR PAYMENT ON A LOAN   TERM IN YEARS(2  PRINCIPAL<F A).}NNUAL INTEREST RATEPZ # OF PAYMENTS PER YEARdnII6-++'A$','+@&@'++'A,'%@)/},#+$,,,x REGULAR PAYMENT = $}"" P:$A%?P,'A6-'A 6--@$**)0}6-P:+$',$A%?P,'A 6-& 6-&  LAST PAYMENT = $&& P:+%,$A%?P,'A)1}  !! MORE DATA? (1=YES, 0=NO);"@@  D:LOADPAY.BAS ?BW9 @! @'(eRSkWW1W2W3W4W5W6W7A1AIDNNAFFCLEARTABCLEARTABSKZGFRee o y-3}"$ J@ @  @8  'e@@@&-4}@@@@ @e@ !"-5}x,,ZERO,ONE,TWO,THREE,FOUR,FIVE,SIX,SEVENEIGHT,NINE11TEN,ELEVEN,TWELVE,THIRTEEN,FOURTEEN,FIFTEEN((SIXTEEN,S-6}EVENTEEN,EIGHTEEN,NINTEEN..TWENTY,THIRTY,FOURTY,FIFTY,SIXTY,SEVENTYEIGHTY,NINETY;;HUNDRED,THOUSAND,MILLION,BILL-7}ION,TRILLION,QUADRILLION;;QUINTILLION,SEXTILLION,SEPTILLION,OCTILLION,NONILLION55DECILLION,UNDECILLIOM,DUODECILLION,T-8}REDECILLION22QUATTUORDECILLION,QUINDECILLION,SEXDECILLION??SEPTENDECILLION,OCTODECILLION,NOVEMDECILLION,VIGINTILLION-9}::VIGINTIUNTILLION,VIGINTIDUOTILLION,VIGINTITRETILLIONAAVIGINTIQUATTOURTILLION,VIGINTIQUINTILLION,VIGINTISEXTILLION-:};;VIGINTISEPTILLION,VIGINTIOCTTILLION,VIGINTINONTILLION"::TRIGINTATILLION,TRIGINTAUNTILLION,TRIGINTADUOTILLION633FIRST-;},SECOND,THIRD,FOURTH,FIFTH,SIXTH,SEVENTH@44EIGHTH,NINTH,TENTH,ELEVENTH,TWELFTH,THIRTEENTHJ;;FOURTEENTH,FIFTEENTH,SIXTEE-<}NTH,SEVENTEENTH,EIGHTEENTHTNINTEENTH,TWENTIETH,NEXT11;A,;@,;@,;@,11;@4,;-=}@!,;@6,;@t,&&;@,;A,;@,6-6-TT(L}Hi there! My name i->}s NUMBERS. What is your name? Please enter your name for(me on the next line.;@%,& 6-B:,0-?}@ Ap:APD(N==(Sorry *,but I get tired easily saying long names.b,,($Long numbe-@}rs are my thing, you know.lGG(?Please retype your name now and limit it to 20 letters or less.v6-@ A@-A}6.7@<@%, A"A22(Whew, thank you ! That's much better.(??(-B}Now ., do you want some instructions on what to do?;@,7@,4NA  7@,4-C}NOA -@@ (  ..(&I can teach you how to say big numbers*RR(JType in any positive whole num-D}ber and I will print the words to use to say4++(#that number in English. You may use>**("commas to separate groups of t-E}hreeC**("digits if you wish, but you do notH,,($have to. For example, 1093 and 1,093R++(#are the same number to me. -F}Only theW++(#digits (0 through 9) and commas areX++(#allowed in the numbers you type in.[(\..(&When you wish to -G}stop,type END or QUITe( ( ((((f'-@AP '6-  ( ((6-%@#!--H}@@b%"! 6-%@@!A P6-@!//(OK,  . Enter your  number now-I}. 6-B:, @A u&&7@<@,4ENDA(`@A''7@<@,-J}4QUITA(`86-B6-L6-@V-@`6.7<,j@:,"@DA t@:-K},"@2A ~@:, @HA@:,!@WAApA@:,"@HA 6-L}-@6-%@!AA#P 67,. "@A%@:,"@DA!-M}A6-@67<,.0AA++@:7@<@,,@IA#P(-@-N}2@:7<,,!@HA#P< F6-@P A11(Sorry  but the number you enter must++(-O}#contain only digits 0 through 9 and(commas.,,($Please reenter your number correctly A `@ -P}AH'6-P:+H:,$@6,%@,*#@-@%@D"H H'6-P:+H:,$@t,%@,*#@-Q}-@%AD"H  ( (''(  ,THAT WAS  NUMBER!(,6-P:+%@,'@,66-++$@-R},%@,&@( The number J6-@TApAPA0^ A@h6-%@r A`-S}|6-%@-@''AAAA (7<, A  (,6-%@-T}6-%@@A`6-@@xA6.6-@ -U} A"@A ^6._(b (is spoken in English as:l"A@-V}q6.r(v$( $( ONE GOOGOL6- A 6-++$@,%@,& -W}((6-@6--@6-A:7<,,A A A!P 6-%"-X}A"-#-@%@ "$ -( +#-@@)"" +(   A"  6-%-Y}*__%@A"A!A! A! A! A! A! A! A! A! 46-@> A"-Z}H#I!-@%@"! J ( R A"f 6-%pA!pA" z"@A"-[}"A"`"A"0#!-@%@"!  (  A"0#-@-\}A:7,," #!-@%@"!  ( @A"#!-@%@("-]}!  (  ((6-&@6-@6-6-%@@A#  6-^}-@  $ A .   (Well , ++(#that number is bigger than a GOOGOL ++(#(1 followed by 100 z-_}eros). Before I ((( tell you how to say it, you must ++(#show yourself worthy. Take a pencil --(%and some paper and -`}write down all the ,,($digits in a GOOGOLPLEX. A GOOGOLPLEX ++(#is 1 followed by a GOOGOL number of ,,($zeros. When -a}you have written all the ,,($digits in a GOOGOLPLEX down on paper **("come and type them in for me and I ))(!will kn-b}ow you are worthy to speaK %%(numbers larger than a GOOGOL. (Good bye for now. **AHA,BINGO,BOY,BRAVO,EUREKA,GAD -c}ZOOKS( 88GOLLY,GOSH,HEY,HEY THERE,HO HO,HOORAY,MAMA MIA,MAN2 ;;OH BOY,OH HO HO HO,OH ME,OH ME OH MY,OH MY,OHO,OH WOW< 77-d}OK,O SOL O MI O,RIGHT ON,WHOOPIE,WILD,WOW,YE GADSF ++YES,YIKES,YIPES,YOW,YOWIE,ZINGO,ZOWIEZ 33AN AMPLE,AN AUGUST,A BIG,A-e} BRAWNY,A CAPACIOUSd ;;A COMPREHENSIVE,A COLOSSAL,AN ELEPHANTINE,AN ENORMOUSn 88AN EXTENSIVE,A GIGANTIC,A GORGEOUS,A GRAN-f}D,A GREATx 99A HUGE,A HUMONGOUS,AN IMMENSE,A LARGE,A MAGNANIMOUS ::A MAJESTIC,A MASSIVE,A MIGHTY,A MONSTROUS,A MUSCULAR-g} 55AN OSTENTATIOUS,A POMPOUS,A POWERFUL,A PRINCELY 88A PRODIGIOUS,A REGAL,A SIGNIFICANT,A SOPHISTICATED 88A SPACIOUS,-q}B%DOS SYSBi)FINANCE BASBBARGRAPHBASB BANKBAL BASBBALANCE BMENU B CHECKPRTBASB2IRA BASBPVPERIODBASBSINKFUNDBASB,LOADPAY BASB<2BIGNUM BASBwFVINV BASB~NPV BASB,PRATIO BASBBUSINESSBASBxAUTORUN SYSzBUDGET fdN A SPLENDID,A STUPENDOUS,A SUPERB,A VAST A WIDE ;;NOT YOUR AVERAGE,NOT YOUR COMMON,NOT YOUR COMMONPLACE 66NOT A CRA-r}MPED,NOT A DWARF OF A,NOT AN ELEMENTARY >>NOT YOUR EVERYDAY,NOT A FEEBLE,NOT A FLIMSY,NOT A HUMBLE 88NOT A HUMDRUM,NOT -s}AN INCHOATE,NOT AN INSIGNIFICANT **NOT A LITTLE,NOT A MEAGER,NOT A MEEK 44NOT A MERE WISP OF A,NOT A MINUTE,NOT A MODES-t}T 33NOT AN OBSCURE,NOT YOUR ORDINARY,NOT A PALTRY 66NOT A PETTY,NOT A PIGMY,NOT A PUERILE,NOT A PUNY ..NOT A SCANTY,-u}NOT TO SHABBY,NOT A SHALLOW 88NOT A SIMPLE,NOT A SMALL,NOT A TINY,NOT A TRIFLING" 99NOT A TRIVIAL,NOT AN UNDERSIZED,NOT -v}AN UNNOTICEABLE,  D:BIGNUM.BASAIDNNAFFCLEARTABCLEARTABSKZGFRee o y,*qFZNN@@? A @AA A 1x}%9@,;@,%+ %% FUTURE VALUE OF AN INVESTMENT(((NUMBER OF CASH FLOWS2<$$(1y} COST OF CAPITAL (%)FP6-'AZ(d6-n99(1(ENTER INFLOWS AS POSITIVE, OUTFLOWS AS NEGA1z}TIVE)x-@!@A`(AMOUNT OF CASH FLOW Ap(  1{}6-$+@%,#+&,((6-%+P:$A%?P,'A, (55(# Future Value at the end of period1|} = $(@@(7DO YOU WANT TO RE-RUN THIS PROGRAM WITH NEW DATA? (Y/N)4Y@0"0NA`1}}, D:FVINV.BASN@@? A @AA A 0p[lCCZA @@%B#V@Ap41 Ap B 5} $ +$( NET PRESENT VALUE(9@,;@,2(<( INVESTMENTFP%%6-6P:$A%?P5},'AZ(NUMBER OF YEARSdn$$(REQUIRED RATE OF RETURN (%)x6-'A%@6-5}(AA(9 ENTER CASH FLOW AMOUNTS EACH YEAR( OUTFLOWS AS NEGATIVE)(-@!@A (5}INFLOW FOR YEAR A0(   68,-$$6-P:$A%?P,'A 65}-%  6-"-@,//6-%P:+8,'#,$A%?P,'A6 @(J(Net Present Value = 5}$^(h>> 5DO YOU WANT TO RERUN THE PROGRAM WITH NEW DATA? (Y/N)r|4Y@P0NA`5} D:NPV.BASCZA @@%B#V@Ap41 Ap B 4$%DNDTXXCLXHLCHRERROA~  @2 9} @ @4 @@9@ ,&&;@,;@ ,;@P,9}(D(1)=NET SALES2D(2)=BEGINNING INVENTORY<D(3)=ENDING INVENTORYFD(4)=GOGSPD(5)=INTEREST EXPENSEZ9}D(6)=PRETAX INCOMEdD(7)=TAXESnD(8)=CASHxD(9)=A/RD(10)=NOTES RECEIVABLED(11)=TOTAL ASSETD9}(12)=C/LD(13)=EQUITYD(14)=SHARES OUTSTANDING""D(15)=MARKET PRICE PER SHARED(16)=DIVIDENDS PAID9}44NET SALES,BEGINNING INVENTORY,ENDING INVENTORY))COST OF GOODS SOLD,INTEREST EXPENSE''PRE-TAX INCOME,INCOME TAXES, 9}CASH77ACCOUNTS RECEIVABLE,NOTES & MARKETABLE SECURITIES&&TOTAL ASSETS,CURRENT LIABILITIES44SHAREHOLDER'S EQUITY,C9}OMMON SHARES OUTSTANDING00MARKET PRICE PER SHARE,DIVIDENDS PER SHARE AvAv A(TURN ON9} PRINTER!(ΠΠ! Av (}**("̠ԠϠ553>:@,"FINANCIAL STAT9}EMENT RATIO ANALYSIS3"( NAME OF FIRM')3 NAME OF FIRM 6( MONTH/DAY/YEAR7@3M9}ONTH/DAY/YEAR J#^""(-----Š-----_%%3-----INCOME STATEMENT-----h(ENTER AMOUNTS FOR:i9}3ENTER AMOUNTS FOR:r-@@| A  ENTER BAL. SHEET ACCOUNTS3""(-----Š9}--------&&3-----BALANCE SHEET-------- (ENTER AMOUNTS FOR:3ENTER AMOUNTS FOR:-@@9} A  (3( ALSO ENTER:3 ALSO ENTER:-@@ A  (9}3 +3(ΠƠ ##3>:@,EVALUATION OF (PERIOD ENDING:##3PERIOD ENDIN9}G:>:@,(&""(----------'.'3E-----PROFITABILITY-----.3F06.RETURN ON ASSE9}TS:6-@D**6-+8@,&8@,,'8@,N ApX6.RETURN ON EQUITYb**6-+8@,&8@9},,'8@,l Apv$$6.RETURN ON INVESTED CAPITAL6-@776-+8@,&8@,,'+8@,&89}@,, Ap6.EARNINGS PER SHARE6-@**6-+8@,&8@,,'8@, Ap9}6.OPERATING RATIO6-@**6-+8@,&8@,,'8@, Ap((---------9}-)"3E----LIQUIDITY-----)3F6.NET WORKING CAPITAL 6-@CALC CURRENT ASSETS 336-8@9},%8@ ,%8@,%8@,*CALC LONG TERM DEBT4((6-8@,&8@,&8@,>6-&8@,H9} ApR!!6.ACID TEST (QUICK RATIO)\6-@f!!6-+&8@,,'8@,p Apz6. CURRENT RAT9}IO6-'8@, Ap((----------(!3E----ACTIVITY-----(3F6. SALES9} PER DAY6-@6-8@,'Ae Ap 6.DAYS SALES OUTSTANDING6-''6-8@ 9},'+8@,'Ae, Ap ( DAYS IF NO INVENTORY DATA, SKIP++8@,%8@,"A9}$$6.INVENTORY TURNOVER (TIMES)$446-8@,'++8@,%8@,,'@,. Ap8( TIMESB(L!!9}(----------M-&3E-----INDEBTEDNESS------3FV%%6.CREDITORS' INTEREST IN FIRM`6-@9}j**6-+8@,&8@,,'8@,t Ap~6.TIMES INTEREST EARNED6-556-+8@,%8@9},%8@,,'8@, Ap6.DEBT TO EQUITY6-@**6-+8@,&8@,,'8@,9} Ap%%6.LONG TERM DEBT TO NET WORTH6-'8@, Ap##6.LONG TERM DEBT TO CAPITAL6-9}'+%8@,, Ap(----------&3E----EQUITY-----&3F((6.SHAREHOLDER'S INTEREST9} IN FIRM(6-@26-+8@,,'8@,< ApF6. PAYOUT RATIOP6-@Z776-8@,'++9}8@,&8@,,'8@,,d Apn6.EARNINGS YIELDx6-@776-++8@,&8@,,'8@9},,'8@, Ap6.BOOK VALUE PER SHARE6-@6-8@,'8@, Ap6.9}PRICE/EARNINGS RATIO6-@776-8@,'++8@,&8@,,'8@,, Ap6.DIVIDEND YI9}ELD6-@6-8@,'8@, Ap(30,(#DO YOU WANT ANOTHER ANALYSIS? (Y/N)04,9}3#DO YOU WANT ANOTHER ANALYSIS? (Y/N)043,4YA60NA`@ A@JDATA ENTRY ROUTINET9}"Y6-@0&B:,&@Z""3D>:A(%,>:A(,^-&@` ( b d(hj9} 68,-m3>:A7, r$| SUBRTN TO PRINT RATIOS AND}TURNOVER DATA$$-@%&B:,&@9} (  (3$$6-P:$A%?P,'ARATIO FORMAT IF X1=1"@A9}FORMAT IF X1=2"@ADOLLAR FORMAT IF X1=3"@A DEFAULT TO NO FORMAT  9}3$( :13 :1$( $A% 3 $A%$ ( $ 39} $&$0 D2:PRATIO.BASCHRERROA~  @2 8(YZ*aaKENUZAMSGMSG1MSG2MSG3MSG4MSG5MSG6OUTSTANYOURBABANKBAPERAMOUNOUTSTANDINDIYOUBAPC=}OUNPROUNDAREYARDROUNPACTBAPMAPDUMNIIQQAMRATPPYEARAETEMFFFADAMTJWJYPPDDDDJMOHAM=}JTAMKKKKKJVOJAFEMAMAJUJUAUSEOCNODEPAHOURTIMTOTARTTTTTTSSSAARYYIMIN=} =} =}!@"#$%&'()*+,-./0=}123456789:;<=>?@=}A@B@C@DEFGHIJKLMNO=}PQRSTUVWXYZ[\]^_=}`abcdefghijklmno=}pqrstuvwxy;@0,;@@,;@5,=};@5,;@5,;@5,;@5,;@5,;@,9@,9@,9@, A27-@=}@#7(PUSH Ԡ TO CONTINUE < F:B2y,"@@`d- (}+-0@n =} ՠx( ( 1AMORITIZATION TABLE%%( 2MONTHLY MORTGAGE PAYMENT""( 3DEPRECIATION SCHEDULE=}( 4SAVINGS AND LOANS( 5FIND THE AVERAGE##( 6SQUARE FEET & SQ. YDS.!!( 7PAYCHECK CALCULATION=}&&( 8INTEREST ON AN INVESTMENT**( 9WHAT IF MORTGAGE COMPARISONS(10PROPERTY EXPENSES(11MO=}NTHLY BAR GRAPH""(12DECIMAL / HAXADECIMAL(13 U.S. / METRIC(14CHECKBOOK BALANCE(15HELP=} (16RETURN TO DISK MENU*(*(CHOOSE ANY NUMBER THRU "$((YOUR CHOICE = $(}^!! @)!=}@AhAA A0A@APA`ApAABBB B0=}B@BPB`$$(ΠŠҮ̮Ӡ+('(START MONTH OF LOAN (1-12)=+=}-&@ ((LOAN AMOUNT ()= )(%(ANNUAL INTEREST RATE ()=))(%(MONTHLY LOAN PAYMENT ()==})$!6-@!AR@)( (}((ȠǠΠ.6-$'A8 6-&B 6-&L$$6-=}P:$A%?P,'AV 6-%`$$6-P:$A%?P,'Aj 6-%t$$6-P:$A%?P,'A~=}A0 (6-%@6-%@"@A`A0 Ap -+'@=},&P:'@,6-$@&@**(P:'@,Ӡ Ӡ"( ("(INT. FOR YEAR END= (=} (PRINCIPAL YEAR END=-( (-( PUSH Ԡ TO CONTINUE  F:B2y,"@A06-6-=}'6-*(-(0(A( Ae2AR(}<B5(-٠ԠϠ̠̠=}Š.8(B A(AMOUNT OF LOAN ($)AAHERBERT D. PECKHAM "PROGRAMMING BASIC" T.I. SOFTWARE SERIES)(=}%(WHAT IS INTEREST RATE (%))$( (TERM OF LOAN ()$6-$'A''6-+@%'A,#+@=}$,6-'+@&@', $$6-P:$A%?P,'A!(!(MONTHLY PAYMENT OF $ ( ( @P =}(ASSET VALUE () (ASSET LIFE (YEARS) (6- -@ 6-% AAHERBERT D. PECKHAM=} "PROGRAMMING BASIC" T.I. SOFTWARE SERIES 6- -@ 6-+%@&,' 6-$ 6-&& $$6-P:$=}A%?P,'A0 $$6-P:$A%?P,'AX ((Ҡ b ( îӠl ( ŠӠv =}  @P) (})( ӠĠӠ..COMPUTE MAGAZINE--BASICALLY USEFUL BASIC1(1(&1 BALANCE=} OF A LOAN AFTER N PAYMENTS/,($2 MONTHLY PAYMENT TO AMORTIZE LOAN/(/,($3 # OF PAYMENTS TO AMORTIZE A LOAN/(.=}+(#4 ANNUAL % RATE USING AN INTERVAL.(-*("5 MONTHLY PAYMENT & INT. ON LOAN-('$(6 ANNUAL INVESTMENT GROWTH'=}($!(7 PERIODIC SAVINGS PLAN$((%(8 FUTURE PRICE VS INFLATION((##(9 RETURN TO THE MAIN MENU"(( YO=}UR CHOICE="(}OOAAABACADAEAFAGAHA($(ENTER YOUR CURREN=}T BALANCE.(-()(ENTER THE NUMBER OF PAYMENTS.-+('(ENTER YOUR MONTHLY PAYMENT.+"7(3('ENTER YOUR =}ANNUAL INTEREST RATE IN (%).7,6-'A6 6-@-@J6-$+@%,&T Y6-$&+&,Z=}$$6-P:$A%?P,'A[$$6-P:$A%?P,'A^.(.(BALANCE AFTER  PAYMENTS IS $c'('(=} YOU PAID $ IN INTEREST.g AIh%!(ENTER THE # OF PAYMENTS.%r.(*(ENTER THE BALANCE OF THE LOAN..=}|7(3('ENTER YOUR ANNUAL INTEREST RATE IN (%).76-'A006-$$+@'+@&+@%,#+6,,,$=}$6-P:$A%?P,'A ( (YOUR PAYMENTS ARE $ 6-$&$$6-P:$A%?P,'A&(&( Y=}OU PAY $ IN INTEREST. AI'#(ENTER THE CURRENT BALANCE.'+('(ENTER YOUR MONTHLY PAYMENT.+7=}(3('ENTER YOUR ANNUAL INTEREST RATE IN (%).76-'A((6-6+K:@&'$,,'K:%@,$$6-P:$A=}%?P,'A+(+( YOU HAVE  PAYMENTS TO MAKE.. 6-$&.6-P:$A%?P,'A+(+(YOU WI=}LL PAY $ IN INTEREST.& AI0,((WHAT IS THE BALANCE OF THE LOAN,:+('(ENTER YOUR MONTHLY PAYMENT.+=}D(($(ENTER THE # OF PAYMENTS.(N6-@P'AX6-]-@@ b6-+%,'@g=} 6-$l$$6-$+@&+@%,#+6,,q 6-v  6-{  6-$&6-A$$$6-P:$=}A%?P,'A*(*(YOUR ANNUAL (%) RATE IS %.((YOUR INTEREST IS $ AI#(HOW MUCH=} WAS YOUR LOAN#:(6(*HOW MANY MONTHLY PAYMENTS MUST YOU MAKE:0(,( WHAT IS YOU INTEREST RATE IN (%)0=}6-'A6-'@ 6-$$6-+%,'$$6-P:$A%?P,'A$$6-P:$A%?P=},'A$($(YOUR PAYMENTS WILL BE $4(4('YOUR INTEREST ON THE ENTIRE LOAN IS $L(L(AIF YOU WANT TO KN=}OW THE ANNUAL PERCENTAGE RATE, EXECUTE PROGRAM 4 AI:6(-HOW MUCH MONEY DO YOU INTEND TO DEPOSIT:9(=}5()WHAT IS THE ANNUAL INTEREST RATE IN (%)9 6-'A6(2(&HOW MANY COMPOUNDING PERIODS EACH YEAR6 =}A(=(1HOW MANY YEARS DO YOU INTEND TO INVEST THIS MONEYA*6-$+@%',#+$,4$$6-P:$A%?P,'A=}>I(I(AT THE END OF  YEARS YOU WILL HAVE  DOLLARS SAVED.H AI\JF(=HOW MUCH MONEY DO YOU INTEND =}TO DEPOSIT EACH PAY PERIODJf5(1(%HOW MUCH IS THE INTEREST RATE IN (%) 5p>(:(.HOW MANY PAYMENT PERIODS=} DO YOU INTEND TO SAVE>z6-'A116-$++@%,#+%@,&+@%,,'$$6-P:$A%?P,'A=}O(O(AT THE END OF  PAY PERIODS YOU WILL HAVE  IN YOUR ANNUITY. AI.*(!WHAT IS THE CURRENT P=}RICE OF ITEM.#((WHAT YEAR IS IT NOW#C(?(3FOR WHAT YEAR DO YOU WISH TO KNOW THE PRICE OF ITEMC 6=}-&<(8(,WHAT IS THE PROJECTED INFLATION RATE IN (%)<6-'A6-$+@%,#Q(Q(THE PRICE=} OF THE ITEM! IN  WILL BE $P:$A%?P,'A AI~1(1(&PRESS Ԡ TO GOTO ӠӠ=} F:B2y,"@AI A@(HOW MANY NUMBERSAAHERBERT D. PECKHAM "PROGRAMMING BASIC" T.I. SOF=}TWARE SERIES*(*(ENTER THE NUMBERS ONE AT A TIME6--@ 6-%  6-'=}(( THE AVERAGE IS  @PpSQ YARDS & SQ. FEETuAAHERBERT D. PECKHAM "PROGRAMMING BASIC" T.I. SOFTWARE SE=}RIESz(נ٠ӠS(S(HFOR EACH ROOM, TYPE IN LENGTH AND WIDTH IN FEET SEPERATED BY A COMMA#( (=}#(͠ Ӡ(--@   -%$ 6-'@ $$6-P:=}$A%?P,'A(( ѠԠҠ( ѠӠ( ( @PX""PAY CALCULATION BY R.L.LEWIS=}b? +'0@36-?6-l$$( PAYCHECK CALCULATIONvH( (D(5DO YOU WISH T=}O ADD UP THE HOURS PER YOUR PAY PERIODH4NAq%("(ENTER WHEN FINISHED%(( HOURS WORKED==} -%"Aq  Ap`+('(HOW MANY HOURS DID YOU WORK+, (}((WHAT IS YOUR PAY PE=}R HOUR,, -$,6-P:$A%?P,'A ( (YOUR GROSS PAY IS $ @P@PPBASIC COMPUTER PROG=}RAMS FOR THE HOME...CHARLES D. STERNBERG...HAYDEN BOOKSJ\6-@ +30@X(ENTER THE AMOU=}NT TO BE INVESTED\T'(#(ENTER THE INTEREST RATE'Y<(8(,ENTER THE NUMBER OF YEARS TO PROJECT GROWTH<^O=}(K(?ENTER THE NUMBER OF TIMES PER YEAR THEAMOUNT WILL BE COMPOUNDEDOhA`r@(6(+COMPOUNDING MUST=} BE AT LEAST ONCE EACH YEAR@ A0|(6.Y"@AD@(7SHALL I PRINT AFTER EACH COMPOUNDING PERIO>}D (٠ҠΠ)DP +'0@P($""( INITIAL INVESTME>}NT $''( ANNUAL INTEREST RATE %''( COMPOUNDED  X PER YEAR,,($>}#(#( BEGIN INTEREST))(!YR. AMOUNT AMOUNT TOTAL++(#--- --------- --------- --------->}6-$?'6-B-@-@"((6-46-B-@H 6-$&6-P:+%>P,$A>},46-'A<6-%B6-H6-4YA   A0  6-6- 5-@(-@#(/->}@(5(%! )6-%@"@#)6-@ & 6-%0   ( # @P(#FFBASIC COMPUTER PROGRAMS FO>}R THE HOME. BY STERNBERG..HAYDEN BOOKS<#K +'0@36-@?6-@K6-@F#( >}ԽP#(ԠŽɠZ#( ӽ٠d#2(.("ENTER THE ITEM TO VARY ɠҠ٠2n#٠Ơ>}Ӡx#0AA #J(D(8ENTER THE BEGINNING AMOUNT, ENDING AMOUNT TO CONSIDERJ#:(6(*ENTER THE INTE> }RVAL BETWEEN PRINTS I.E.1000:# A#0IA`#H(B(6ENTER THE LOWEST, HIGHEST INTEREST RATE TO CON> }SIDERH#C(?(3ENTER THE INTERVAL BETWEEN PRINTS I.E., .25 FOR 1/4C# A#0YA#I(C(7ENT> }ER THE LOWEST, HIGHEST NUMBER OF YEARS TO CONSIDERI#9(5()ENTER THE INTERVAL BETWEEN PRINTS I.E., 59# > }٠ƠԠӛ#?(%(ENTER THE MORTGAGE AMOUNT)/6-?4IAP#;(#(ENTER THE INTEREST RATE'> };@A0$6-$A$ 6-$4YA`"$5(+(ENTER THE YEARS OF THE MORTGAGE/56-,$ (>}}ǠР6$ -@$(%(FOR A MORTGAGE OF  YEARS((J$ -T$-*(USING THE INTEREST RATE OF >} %-(^$((( MORTGAGE MONTHLY PI TOTALh$**(" AMOUNT PAYMENT INTERESTr$..(&-------- ---------- ->}-----------|$ -$ΠĠԠ$_6-+'A,'@E6-'++@%,#+$@,&@,%M6>}-$_6-$$@&$E$6-P:$A%?P,'AE6-P:$A%?P,'A$? ( !-@F:@,>}&(;-@)F:@,?($ $..(&$   @P'HHàҠ>}ӠҠŠŠ٠îǭΠӛ'!!Ϊ$'i +'0@E>}( ENTER PROPERTY NAMEi(( just press return when done ))'6->P6. .'4 @P8'I B@>}(/(ENTER THE MORTGAGE AMOUNT;6-?I BB'O BP(-(ENTER THE INTEREST RATE1; BO>}@BpL'6-$AV'6-+'A,'@`'C B(5(ENTER THE YEARS OF THE MORTGAGE9C B>}j'y B(<(&ENTER THE ANNUAL TAXES ON THE PROPERTYH6-LZ6-'@o6-P:+%,$A,y Bt'\>}6-'A(L(2ENTER THE ANNUAL INSURANCE COST FOR THE PROPERTYX6-\y'46-'@&6-P:+%,$A>},46-'A~'a B(G(1ENTER THE ANNUAL MAINTENANCE AND REPAIR COSTS6-Wa B'46-'@>}&6-P:+%,$A,46-'A'` B (F(0ENTER ANY OTHER MONTHLY COSTS THAT APPLYR6-V>}` B'a B0(A(+ENTER AVERAGE MONTHLY UTILITY COSTSM6-QW(}a B'>}Ϊ'l-6-'++@%,#+$@,&@,%56-$J6-P:+%,$A,X6-'Ab6-%%l6-%%'I.(>}&I(INTEREST RATE %'((( MORTGAGE MORTGAGE YEARS '1(1(&>}'%(%( Ϋ  '%(%(  '%(%( >} '..(&----------------- ------------------'!!( SUBTOTAL  SUBTOTAL '&(&(̠٠> }Ӻ$%'1(1(&( @P*!!MONGRAPH REV. 2 JERRY WHITE+FOR COMPUTE TUT>!}ORIAL + B+g +@'0@@@A0@@@M6-@g0@@ +9>"}6-@6-/6. MONTHLY GRAPH9 Bp*+a,@@ +/AX@ =/AX@uO/@>#}@ua/@@ 4+ B>+K%6-F:A`,%F:Aa,$AVK6-F:%@,%F:%@,$AVH+b-B:>$},86-BsD%++@:7<,,&@2,$@,N6-%$@ %%&b-@R+#%$@ F:%,  #$\+#>%}-@8,!#6-8,f+ p+6-'@ez+6-@&6-@u&+8,',268,-P:,6 +*B>&} 6-P:'A,* B+*A 6-P:'A,* B+*A 6-P:'@,* B+ 6-P:,+>'}16-'@6-P:&,16-P:&+$@,,+-6-P:&+$@,,-6-P:&+$@,,+3 6.=:,6-@&B:,)6->(}@3 Bp+!! @)!@B`+3 6.=:,6-@&B:,)6-@$3 Bp+3 6.=:,6-@>)}&B:,)6-@83 Bp+3 6.=:,6-@&B:,)6-@R3 Bp+3 6.=:,6-@&B:,)6-@f3 B>*}p+3@'@@@3AR,2(2('ˠ J F M A M J J A S O N D,//('Š A E A>+} P A U U U E C O E,//('٠ N B R R Y N L G P T V C$,-@6-&.,,@%+$@,>,}8,8,/@%%+$@,8,B,!!/@%%+$@,@uL,!!/@%+$@,@uV,-@%+$@,>-}8,`,=Ae@=@@S:j,A -@6@928,@=>.} A t,'@@'@@9~,))( ϠՠӠԠ, F:B2y,"@B, >/}A,m +'0@A0@@[0@mAR@,((>0} MONTHLY GRAPH ,.(+( TYPE AMOUNTS FOR EACH MONTH: .(,+(( DO NOT USE NEGATIVE AMOUNTS +(,5 BP(>1}JAN=+68@,-5 B,5 B`(FEB=+68@,-5 B,5 Bp(MAR=+68@>2},-5 B,5 B(APR=+68@,-5 B,5 B(MAY=+68@,-5 B,5>3} B(JUN=+68@,-5 B,5 B(JUL=+68@,-5 B-5 B (AUG=>4}+68@,-5 B -5 B0(SEP=+68@ ,-5 B-5 B@(OCT=+68@,->5}5 B-5 BP(NOV=+68@,-5 B(-5 B`(DEC=+68@,-5 B2-$>6}.--(%̠Ϡ̠ĠŠ.HHATARI BASIC REF. MAN. PG H-18 AS MODIFIED BY E. JACKSON & R. LEWIS.$($(>7}1DEC to HEX conversion.!!(2HEX to DEC conversion.((CHOOSE 1 OR 2 /!! @)!@B 0 >8}/"@B%/c +AR@"(%(I( ̠Ϡ̠M(c( < 0 / 65535 >/'>9}-@@# à = '&/)-@#@) ؠ = 0000+/1( (1(#GOTO MENU: ENTER ANY NEGATIVE VALUE>:}0/!! )!BU5A:/*6-@*START THE SHELL SORT RTND/ 6-6-P:'@,N/6-&$@X/'>;} @67<,.=:,' B!@b/ 67<,.>:&@%@:A,,l/'6-&@' B!v/&-@0%@><}& 7<@,/%-@A % B P0b +AR@"(%(I( ̠Ϡ>=}̠M(b( < 0000 / FFFF >0'-@@# ؠ = '0"-@#@" à = 01( (1(#GOTO MENU: >>}ENTER ANY NEGATIVE VALUE04-A06-1-@B:,16.7<,20A1-7<,/9>?}#6-$@%A:,- B&$12AB%.13FB%81%%6-$@%@:,&@:A,%@B1 L1-@(%>@}@ V1%-@A % B%2DD***SELECTED MEASUREMENT CONVERSIONS FROM ATARI BASIC REF. MAN.2## >A}DO YOU WANT CONVERSIONS FOR2+(+( () à TO ծӮ STANDARD 2*(*(() ծӮĠ TO à2(( TY>B}PE 1 OR 22B0pB23 B0388***USER SELECTS DESIRED METRIC TO U.S. CONVERSIONS3.*(!WANT LIST O>C}F CONVERSIONS (Y OR N)."34NB1,3-(-("SELECT CONVERSIONS FROM THIS LIST:63!!((1) CENTIMETERS TO INCHES>D}@3((2) METERS TO FEETJ3((3) KILOMETERS TO MILEST3((4) KILOGRAMS TO POUNDS^3((5) GRAMS TO OUNCESh3((6)>E} LITERS TO QUARTSr3))(!(7) DEGREES CELSIUS TO FAHRENHEITw3((8) RETURN TO MENU|32(.("ENTER NUMBER OF CONVERSION DES>F}IRED23"@A3??B3PB3B40B4pB5B5PB53$388*** USER SELECTS D>G}ESIRED U.S. TO METRI CONVERSIONS3.*(!WANT LIST OF CONVERSIONS (Y OR N).34NB3 3-(-("SELECT CONVERSION>H}S FROM THIS LIST:3!!((1) INCHES TO CENTIMETERS3((2) FEET TO METERS3((3) MILES TO KILOMETERS3((4) POUNDS>I} TO KILOGRAMS3((5) OUNCES TO GRAMS3((6) QUARTS TO LITERS3))(!(7) DEGREES FAHRENHEIT TO CELSIUS4((8) RETU>J}RN TO MENU42(.("ENTER NUMBER OF CONVERSION DESIRED2 4"@A4??B60B6pB7B7PB>K}7B80B8p4$&4***CM TO INCHES04!(HOW MANY CENTIMETERS!:4,,( CENTIMETERS =$?9 INCHES>L}D4 ( $N4***METERS TO FEETX4(HOW MANY METERSb4%%( METERS =$@( FEETl4 ( $v4***KM TO MILE>M}S4 (HOW MANY KILOMETERS 4**( KILOMETERS =$?b MILES4 ( $4***KG TO POUNDS4(HOW MANY KIL>N}OGRAMS4**( KILOGRAMS =$@  POUNDS4 ( $4***GRAMS TO OUNCES4(HOW MANY GRAMS4&&( G>O}RAMS =$?P OUNCES4 ( $4***LITERS TO QUARTS4(HOW MANY LITERS5''( LITERS =$@g QUAR>P}TS 5 ( $5***DEGREES C TO DEGREES F 5%!(HOW MANY DEGREES CELSIUS%*5LL( DEGREES CELSIUS =@ $'@>Q}%@2 DEGREES FAHRENHEIT45 ( $>5***INCHES TO CMH5(HOW MANY INCHESR5,,( INCHES =$@T CENT>R}IMETERS\5 ( $f5***FEET TO METERSp5( HOW MANY FEETz5%%( FEET =$?0H METERS5 ( $5***MILES>S} TO KM5(HOW MANY MILES5**( MILES =$@` KILOMETERS5 ( $5***POUNDS TO KG5(HOW MANY POU>T}NDS5**( POUNDS =$?E KILOGRAMS5 ( $5***OUNCES TO GRAMS5(HOW MANY OUNCES5&&( OUN>U}CES =$@(5 GRAMS5 ( $6***QUARTS TO LITERS6(HOW MANY QUARTS6''( QUARTS =$?` LITERS>V}$6 ( $.6***DEGREES F TO DEGREES C86($(HOW MANY DEGREES FAHRENHEIT(B6NN( DEGREES FAHRENHEIT =@'@ >W}$+&@2, DEGREES CELSIUSL6 ( $6##ATARI BASIC REF. MAN. PG. H-166-65 +(2( >X}ˠҠ5(6RR(JYou may make corrections at any time by entering a negative dollar value.6**6. OLD CHECK >Y} OUTSTANDING6**6. OLD DEPOSIT NOT CREDITED6**6. OLD CHECK JUST CLEARED6**6. OLD DEPOSIT >Z} JUST CREDITED7**6. NEW CHECK (OR SERVICE CHARGE) 7**6. NEW DEPOSIT (OR INTEREST)7] BA(Y(C>[}Enter the beginning balance as shown in your checkbook. ]7] BA(Y(CEnter beginning balance >\} from bankstatement. ](7 B27 BA`<71@(1(PRINTER IS NOT OPERATIONAL.F7!!(PL>]}EASE CHECK CONNECTIONS.P76-Z7S(O(CWould you like a permanent record on the printer. Sd7>^}B:,"BApn7$$7@<@,4NBB`x7$$7@<@,0YBAp7 BA@73TEST PRIN>_}TER76-@7%%3YOUR BEGINNING BALANCE IS $72/3%BANK STATEMENT BEGINNING BALANCE IS $2371 BB`(1(>`}Choose one of the following:7((1) 7((2) 7((3) 7((4) 7((5) 7((6) 7((7) >a}DONE8(8%% @)!@BB`8 B"8??BD0BDpBEBEPBFBGBH,>b}86&6.NEW CHECKBOOK BALANCE IS ,6-6 BI 686&6.NEW BANK BALANCE IS ,6-6 BI @86&6.OUTSTANDI>c}NG CHECKS-DEPOSITS=,6-6 BI J8  3T8 BB`^8$$OLD CHECK -- STILL OUTSTANDINGh8 6. BIPr8 6-%>d}|8$8''OLD DEPOSIT -- STILL NOT CREDITED8 6. BIP8 6-&8$8OLD CHECK -- JUST CLEARED8 6. B>e}IP8 6-&8$8""OLD DEPOSIT -- JUST CREDITED8 6. BIP8 6-%8$933NEW CHECK (OR SERVICE CHARG>f}E) -- JUST CLEARED9 6. BIP9 6-&&92(.("IS NEW CHECK STILL OUTSTANDING 209B:,"BF0>g}:9$$7@<@,0NBFD9 6-&N93CHECK HAS CLEARED.X9$]9$$7@<@,0YBF0b9 6>h}-%g9''3CHECK IS STILL OUTSTANDING.j9$l9//NEW DEPOSIT (OR INTEREST) --JUST CREDITEDv9 6. BIP9 6-%>i}92(.("HAS YOUR NEW DEPOSIT BEEN CREDITED29B:,"BG09$$7@<@,0YBG`9 6-%>j}9%%3DEPOSIT HASBEEN CREDITED.9$9$$7@<@,0NBG09 6-&9**3DEPOSIT HAS NOT BEEN CRE>k}DITED.9$9 DONE9j(j(_BANK'S BALANCE MINUS (OUTSTANDING CHECKS-DEPOSITS) SHOULD NOW EQUAL YOUR CHECKBOOK BALAN>l}CE.96-&+&,9BHP9E(A(IS $, THE ENDING BALANCE ON YOUR BANK STATEMENT E9B:,">m}BH59]7@<@,4Y(S(/CONGRATULATIONS: YOUR CHECKBOOK BALANCES!] @P9 BH`:Y!>n}(2(YOUR CHECKBOOK TOTAL IS $O( OVER YOUR BANK'S TOTAL.Y BH`:E('(YOUR CHECKBOOK TOTAL IS $6E(>o} UNDER YOUR BANK'S TOTAL. :.(.(#WOULD YOU LIKE TO MAKE CORRECTIONS?:S(S(HREMEMBER, YOU CAN ENTER A NEGATIVE DOLLA>p}R VALUE TO MAKE A CORRECTION. :"((ENTER ٠ OR Π "*:B:,"@P4:7@<@,4Y$9: >q} @P>:MSG PRINTING ROUTINEH:(( $R:"@3 $\:$f:MSG PRINT & INPUT ROUTINEp:9 BI`>r}(.(Enter the amount for the 2(5(9z: B:"@3 $:$:+@%@:&& @>s} :&&(@ GOD GRANT ME :&&(@ THE SERENITY :&&(@ TO>t} ACCEPT :&&(@ THE THINGS :&&(@ I CANNOT CHANGE,:&&(@ COURAGE TO >u} :&&(@ CHANGE THE THINGS:&&(@ I CAN, AND THE :&&(@ WISDOM TO KNOW ;&&(>v}@ THE DIFFERENCE. ;&& @ ;-@A $; A>>ROUTI>w}NE TO CALL MENU.>>##( >(LOADING DISK MENU !!>%D:MENU D:BUSINESS9(<vEiͩkΩ͙kCop j`j {j`Hi͝Νh`By}L"UNEM:D"NURͩkΩ͙kCop j`j {j`Hi͝Νh`@rrANTTT2DQPRR1R2R3R4R5R6R7R8R9R10R11R12ABA1A2A3AZTY12TY1TY2TY3TY4TY5TY6TY7TY8TYF{}9TY10TY11TYTQDA1DA2DA3CFROMTGFNBB1B2FILENOQ1B3YDAC1C2C3HOLD1HOLD2HOLD3T3T4R13R14R15R16R17F|}R18R19R20R21R22R23TY13TY14TY15TY16TY17TY18TY19TY20TY21TY22TY23FLARECDRTTTLBAQBETCF}}QTTFTNABAABTLIARRIWEWERWERW F~} F} !"#$%&'(F})*+,-./012345678F}9:;<=>?@ABCDEFGF}HIJKLMNOPQRSTUVWF}XYZ[\]^_`abcdefgF}hijklmnopqrstuvF}wxyz{|}~@F}@@dB7t@d10,13,13*;A,;A,*;A,*;A,;@F},*;A,*;@ ,;@ ,*;@ ,*;@ ,;@ ,*;@ ,*;@ ,;@F} ,*;@ ,*;@ ,;@ ,*;@ ,;@ ,;@ ,*;@P,;@P,*;F}@P,;@P,;@ ,*;@ ,;@ ,*;@ ,*;@ ,;@ ,*;@ ,*F};@ ,;@ ,*;@ ,*;@ ,;@ ,*;@ ,;@ ,;@ ,*;@ ,F};@ ,*;@ ,*;@ ,;@ ,*;@ ,*;@ ,;@ ,*;@ , *;@ ,F};@ ,*;@ ,!*;@ ,;@,*;@ ,"*;@ ,;@ ,*;@ ,#*;@ F},;@ ,*;@ ,$*;@@,;A@,*;A@,%;@@,;@@,(H6. D1:CHECKING&6.F} D1:SAVINGS76. D1:CHARGESH6. D1:CARLOAN2D6. D1:REPAIRS%6. D1:KIDCARE36.D1:RENTD6. D1:LEISURE8D6. D1F}:CLOTHING&6. D1:UTILITY46.D1:FOODD6. D1:INCOME< 6.B6.B6.L= 6.L6.E6.E> 6.E6F}.E6.E? 6.E6.E6.IF*;@ ,;@ ,*;@ ,G*;@ ,;@ ,*;@ ,HF};@ ,;@ ,I*;@ ,;@ ,*;@ ,P*;@ ,;@ ,*;@ ,Q*;@ F},;@ ,*;@ ,R;@ ,;@ ,S*;@ ,;@ ,*;@ ,d }g)6-F}6-"6.)6.m:-@@:  ********************************n4-@@4  THE PERSONAL ACF}COUNTANT s:-@@:  ********************************x#  CHOOSE BY NUMBER : (#( 1. LIST FILE DIF}RECTORY)) !2. MAKE ENTRIES TO EXISTING FILES%% 3. READ A FILE (OR PART FILE)-- %4. CHANGE FILE NAME -AND/OR FILEF} TYPE 5. DELETE FILE$$ 6. CHANGE OR DELETE AN ENTRY#( ( (# A. FORMAT NEW DISK** "B. FOWARD ALL BALANF}CES TO NEW DISK$$ C. PREPARE FINANCIAL REPORTS"6 4 A@ 4A AJ 4B ApT F}4C A^ 4K B`r6 A6-A:,, @)!@6 A77AA A0AF}@APA` A6-@6-@06.&******** FORMATTING NEW DISK *******6 }@ AF}%%  INSERT DISKETTE  A%`-@@j 6- B t F}%&&  FORMATTING DISK 1 ((  ARE YOU SURE (Y OR N) 4N6-@$ F}0Y A1,,AT@D1:6$G-@@C &***************************F}***********G ^"@6-@/-@@Z3&**************************************^  F}"@6-@3 0 &"@6-@"0&3G-@@C &********************F}******************G ^"@6-@/-@@Z3&**************************************^ $F}<6-<6.&********** POST ENTRIES ************7 } A6-+6-76--- F}% PLUS (+) INCREASES DEPOSIT ACCOUNT-- % INCREASES INCOME ACCOUNT-- % INCREASES LOAN ACCF}OUNT -- % MINUS(-) INCREASES EXPENSE ACCOUNT- - " ENTER 'LIST' FOR FILE DIRECTORY-* " ENTER 'QUIT' TF}O RETURN TO INDEX-  '  -DATE OF ENTRY *** ' A !@'  MUST BE SIX DIGITS -(MMDDYY)+64LIST@ A"F}4QUIT%#B:,@ A $V6.7@<@,:+A:, @,)+A:,!@,L  INVALID MONTHV A F}%4  -PARTICULARS***** *4LIST4 A&4QUIT%')B:,!@)6.7@<@,*5  -AF}MOUNT **********  +4LIST5 A,4QUIT%-8 A  A%6.,A:,86-@.4F}QUIT%/"@ A 4)) ! -POST TO 'ACCOUNT #1/ACCOUNT #2'BC(7@<@,4QUI( AG F}6.H-@B:,R6.7@<@,\ 4/ A!f67B:,%@,.k 6-B:,m A!pF}6.7@<,z  6. A" 6-B:,  @6. A"6.7@<,#6-6F}-#6.,, 6.6.4"6-@, A"6-@#-@- 6.D1:"@-F}67B:,%@,.#"@#67B:,%@,.?@ A"!5@@? A"9F} 6. B+@+@@#-@@"@ BPF} & 6-A:,6-A:,#6-$A&#6-A:,$A%4 B%6-%@Y"@*"@2F}6-+$6@,'A;6.=:,E A%K6.Y6-$AOA+4 E,)+4 L,)+4 F}I,O6-%@Y"@*"@26-+$6@,'A;6.=:,E A%K6.Y6-$A 6.,'6-F}%@6-%'6-'A 6.=:, A% 6.=:,6.,6.#+@+@@F}-@@" B A$ @ "@6."@6.#F}+@+@@  6-A:,#-@@2" B BP% B02 @F} #@   0@0@@D1:* !-@@! A# F}@    @& A#  TT(L Ҡ̠ҠƠӠӠ ҠΠF} ^T(L Š̠ӠĠ̠ ӠĠȠ^ A  +  OTHER ENTRIESF}!4Y+ A  A`  B:,"$e  B:,! A$Pj / 6. 67B:,%@,.%6./ A$  B:F},"$ !6.7@B:, @6. .67B:,%@,.46.> A80B:,!@&6.7@F}B:, @6. .67B:,%@,.46.> A80B:,!@&6.7@B:, @6. .6F}7B:,%@,.46.> A8 0B:,!@&6.7@6.=:,H A%#F}+@+@@-@+%,@@@ F}-@@" B A$ @  6.6.6. 6.=:, A%* 6.F}6.#""$ A$*6.+@+@@ @ @ @F}@ ; % OTHER CHANGES TO THIS FILE)10Y; A A`0d } Be@ AeF}f0 &  FILE CONTAINS NO ENTRIES0 Ai4. &ENTRY DATE PARTICULARS AMOUNT4 #n-@}F}@~@@ A7 Ah +&@,.   A`5>F}B:, @6. .67B:,%@,.46.> Af>B:, @6. .67B:,%@,.46.> Af 6G}.*P:A:,,"A:,*67B:,%@,..00>B:, @6. .67B:,%@,.46.> Af 0B:,!@G}&6.7@B:, @6. .67B:,%@,.46.> Ah>B:, @6. G}.67B:,%@,.46.> Ah 6. A8  FILE NOT OPEN  A`X }  v)) !FOWARG}D ALL BALANCES TO A NEW DISK!(  VERIFY (Y OR N)! 0Y A. (} ((. ŠĠˠΠG}% %  PRESS RETURN WHEN READY%%@@D1:*!-@@#! ApG}@!!6.7@<+B:,&@,,:7@<@,4 06.7@"  "  PRESS 'Q' TO QUITH** " PRESS ANY OTHERG } KEY TO CONTINUER\ 4Q A A!-@@#! Au B' 6.D1:!67B:,G }%@,.'6.+@+@@8 Asp$6.7@<@,86.7@4 I 6-A:,/6-$6@86.=:,>6. >4 L 6-A:,/6-$6@G}86.=:,>6. >4 E 6-A:,/6-$6@86.=:,>6. A:, 6-%A:, A:,!G}6-%A:, A:," AP 0 6-A:, !6-O:,*6.=:,06. 6.7@!G%}6- }R!006.&** EXPENSE ACCOUNTS BALANCE LISTING **W! AX!.. &ԠԠŠYG&}!:"@:3& ACCOUNT ACCOUNT BALANCE \!@a! A@f!-@@#h! Bl!!G'}0 E! A0t!! 6.D1:!67B:,%@,.u!+@+@@!@!G(}@!@!6. !6-%A:,!A:," A0!TA:,!#6. G)}2A:,"P:A:,,J67B:,%@,..00T A"!A:,! A"!NA:, 6-O:A:,,'6.=:,6A:,"P:G*}A:,,N67B:,%@,..00!; 6.(67B:,%@,.567B:,%@,.);6.!:7@<@,4 06.7@G+}B:, @6. .67B:,%@,.46G,}.> A$! !"@3!@ ! 6.=:,!.. & G-}!:"@:3& __________________!6.̠Ӡ!*"@*6. TOTAL EXPENSESG.} ! 6-@8&B:, 6-@!/-+&@,+67B:,%@,../ !.67B:,%@,.$ .67B:,%@G/},.! !"@3!"@$!  A!!6-! }"006.&******** ASSETS AND LIG0}ABILITIES ******" 6." A$"  Ӡ %"#"@ 3 ASSETS #3&"#-@@#6-G1}."!-@@#! A3" B4":7@<@,4 06.7@} APr$NA:, 6-O:A:,,'6.=:,6A:,"P:A:,,N67B:,%@,..00|$; 6.(67B:,%@,.G?}567B:,%@,.);6.$:7@<@,4 06.7@B:, @6. .67B:,%@,.46.> Ap$$&9"@/  PRESS ANY KEY TO COGA}NTINUE9 A&''  ӠΠҠؠ&&"@6-$&%&0@@ @GB}&$.? }?  A NEW FILE- 7@ (} ((>006.&***** HELLO OUT TGT}HERE... *************> AH? A8JBBB=J 6. $>J 6. $?J 6. $jJBGU}UBVBWoJ 6. $pJ 6. $qJ 6. $J!@ BJBB BBBGV}BBBBBBBBBBJGW}B B!B"B#B$GX}B%B&B'J 6.6.$J 6.6.$J 6.6.$J 6.6.$J 6.6.$J 6.GY}6.$J 6.6.$J 6.6.$J 6.6.$J 6.6.$J 6.6.$J 6.6.$J 6.GZ}6.$J 6.6.$J 6.6.$J 6.6.$J 6.6.$J 6.6.$J 6.6.$J 6.G[}6.$J 6.6.$J 6.6.$J 6.6.$K!@ BKBB BBG\}BBBBBBBBBBBKG]}B B!B"B#G^}B$B%B&B'K 6.6.$K 6.6.$K 6.6.$K 6.6.$ K 6.6.$ KG_} 6.6.$ K 6.6.$ K 6.6.$ K 6.6.$K 6.6.$K 6.6.$K 6.6.$KG`} 6.6.$K 6.6.$K 6.6.$K 6.6.$K 6.6.$K 6.6.$K 6.6.$Ga}K 6.6.$K 6.6.$K 6.6.$K 6.6.$KBBBK 6. $K 6. $Gb}K 6. $KB5B6B7K 6. $K 6. $K 6. $K B:,"$L B:,! BL/ 6.Gc} 67B:,%@,.%6./ BPL B:,"$"L!6.7@B:, @6. .67B:,%@,.46.> BSR3@K}3@@D1:NAMER @R3@3@@ D1:NAMER B5*SK}@/S"@ A4S(((( PRESS 'C' FOR MORE ENTRIES>S((  PRESS ANY OTHER KEY FOR INDEXHSRSK} 4C B\S%S }TC/6.%****** SEARCH FOR INFORMATION *******9 AC BT!( (!( CHOOSE BYK} NUMBER:T0( (0(" 1. SEARCH BY NAME (OR PART NAME)$T--(% 2. SEARCH BY ADDRESS (OR PART ADD.).T ( 3. SEARCH BY (K}OTHER 1)8T ( 4. SEARCH BY (OTHER 2)BT( 5. QUITCTDT BGT, 6-A:," @)!@, BqHTK}"@ BLT"@%MT6-%@QT } AVT'( ( (('( CHOOSE BY NUMBER`T'( ('K}( 1. OUTPUT NAME(S) ONLYjT%%  2. OUTPUT ALL INFO ON FILEtT  3. QUITyTzT B%~T, 6-A:," @K})!@, B%T"@%T"@6-@T } AT/( (%( TYPE IN SEARCH WORD /K} BT"@(NAMET"@( CITY NAMET"@( (OTHER 1)T"@( (OTHER 2)T K}BT6-B:,T" BT006.&********** SEARCH FILES FOR **********T% 6.%6-P:+@7&,'K}@,T3-@&@/67B:,%@,.*3 TC67B:,%@,. -67B:,%@,.C67B:,%@,.K} T2B:, @8(67B:,%@,.*2 BT 6.T } AT@T BPT((@@K}D1:NAMET BT@6-A:,U6"@6 " THIS DISKETTE CONTAINS NO FILES U-@K}U@U@U@U@U@U6-U5 B:,6-@K})47@<,56-@U5 B:,6-@)47@<,56-@ U5 B:,6-@)47@<,56K}-@!U5 B:,6-@)47@<,56-@"U5 B:,6-@)47@<,56-@(U"@K} BZU dU@nU AU "@3U-@U=9"@*0% K} = U=9"@*0% = U=9"@*0% K} = U=9"@*0% = U=9"@*0% K} = U@ B0U=9"@*0% =3U=9"@*0% K} =3U=9"@*0% =3U=9"@*0% K} =3U=9"@*0% =3U U$UU006.K}&********** CORRECTIONS *************V AV@V((@@D1:NAME,V@6K}-A:,1V*(*( TYPE QUIT TO RETURN TO INDEX6V( WHICH FILE NUMBER ?7V( (TYPE U IF UNKNOWN);V B u@V#K}4U B%# B 0EV4QUIT AJV 6-A:,OV BTV A^V ( ( (hV B$rV K}BE|V--(%ENTRY TO BE CHANGED VERIFY (Y OR N)VV 0Y B 0V**(" ENTER LINE NUMBER TO BE CHANGEDV K} B!aV6-A:,V( TYPE IN NEW LINEVV"@6.V"@6.V"@6.VK}"@6.V"@6.V BH B5V.* " ANY OTHER CHANGES TO THIS FILE?.V 4Y BK}!`V  AW3@3@@D1:NAMEW@W-@W@WK}@W@W@W@W W$W }W NUMBER NAME W("@K}(3NUMBER NAME W(W"@3W6-W-@X@X@X@K}X@X@X B%P X 6. X77B:,,4 -6.7@