@L}5 _$% l0$)$$Hȱ$ UhL" `e$$%`$%`  R@W!( 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 O} 3E:}DISK OPERATING SYSTEM II VERSION COPYRIGHT 1984 ATARI CORP.A. DISK DIRECTORY I. FORMAT DISKB. RUN CARTRIDG*}E J. DUPLICATE DISKC. COPY FILE K. BINARY SAVED. DELETE FILE(S) L. BINARY LOADE. RENAME FILE M. RUN AT ADDRES+}SF. LOCK FILE N. CREATE MEM.SAVG. UNLOCK FILE O. DUPLICATE FILEH. WRITE DOS FILES P. FORMAT SINGLEL !N',}#"&))9(&*)/h)''-&؆莟R'S  vL/ˢ L }Insert DOS 2.0s, type Y Λx -}DEfHI 1莏#q! @ y0ɛ8A0,' ȅ 1 1ild! 1L!NO SUCH ITEMSELECT.} ITEM OR FOR MENU! 0 .z:*{}.|{ 1 0 0JB 18L%|DL/}%DIRECTORY--SEARCH SPEC,LIST FILE?[# 0 0 &|D3" 1L!NOT A DISK FILEN !B 1L!E# 1 !BD0}ED:}:1BJ|DE 1DEBHI 1 h0ߢ 0.1}  0?詛 1 y0YЛ 1 ;#L" ;#L! BL1TYPE "Y" TO DELETE...DELETE FILE SPEC2}COPY--FROM, TO?OPTION NOT ALLOWED697 FREE SECTORS COPYING---D8:COPY32.COMl# 0|D .L/%#3}##JB|DE 1BHID#E 1#0: B 1L!#͑### B 1#c$0SY4}S1}:## # # .#Ƚ# # 𩛙## 1,#PD#ELJ- <.BJD#E 5}1 1HH 0hh|DL%1}:̳# L% #D#EL% 1 0 . .0O% 1L!WILD CARDS NOT A6}LLOWED IN DESTINATION 0 <.|K}N 2 FORMAT. t* 5) 1L!`) 0NΞ 0 L1) 1 L!BAD LOAD FILELOAD FROM WHAT FILE?) 0 ?}0#B 1L!WHAT FILE TO LOCK?) 0 0$B 1L!WHAT FILE TO UNLOCK?DUP DISK-SOURCE,DEST DRIVES?TYPE "Y" IF OK TO US@}E PROGRAM AREACAUTION: A "Y" INVALIDATES MEM.SAV.FE! +L1   `*  70 2 2A} 0.* 1 y0 0)INSERT BOTH DISKS, TYPE RETURN^, 1 y038逍 N, 1L! ,B}C, t*  Lx+, 0 ^, 1 y0 , ,0,0 ,L+ ,I0 ,Vǭ0C}Ξ, 0 }, 1 y0C,ШC, 0K'!" H H 'h h Lx+!EF 5L1L!D,I,HhD}` NOT ENOUGH ROOMINSERT SOURCE DISK,TYPE RETURNINSERT DESTINATION DISK,TYPE RETURNE}`  `8 rL1`-* 1P* 1 y0Y`hhL!NAME OF FILE TO MOVE?- 0 0|DL% <.F},^ 1 70 0 .@L# .BJ 1  DEHIB V L1 ,} 1 70,L.  G}JB|,#P#DE 1 HI BDEHHII 1 B 1 ,^ 1 70,0La- B V,#PH},^ 1 70 0L#L!-* 1P* 1 y0Yj383}mm ݭI}}`8}``|* ? ɛ,`|:-)| / 1L!`DESTINATION CANT BE DOJ}S.SYS0 0H{ 24Δ 28/L!/) 2 Π 2 0 ξK}hAΞB,0 J 1 BDEHI,HÝDE 1HIHIDELSAVE-GIVE L}FILE,START,END(,INIT,RUN)O S0 1`BDEPHI V` S0H 1 L!M}0 0 1L~0`PLEASE TYPE 1 LETTER,0`hhL! 70 1L0L<1 ,;ɛ7,"ɛ:ݦ1ݥN}A"D|ݤD|ȩ:|ȩ|ɛ,,(/+.ީ1 1,ɛ`轤{NAMEO} TOO LONG B VL!` L1I H1EΝDL1|mDiE` V0`8d/8 i:222 1 LP}!ERROR- 164ɛ+,' 20*.. өr2 1``2TOO MANY DIGITSINVALID HEXAQ}DECIMAL PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1NEED D1 THRU D8uR} ECIMAL PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1NEED D1 THRU D8u05  15 2 2151^116115ύ011$r2ԭ5 3)5)5ԭx GT}@@L00)+& 2 L0=ɛ -L!1LV1L1 /3 3ȹ441L-4 v3 25 2H 2h͔5U}L3L3 2 k3U hh`DOC`QL3P1Lk0S1H /3h0B k3@ VL0LU!#$53 1181118V}1111Ε5 1Lk0552 1Ȍ1i111i11115Lk0pppB4f5&&&&&&&&^6f^6&&&&&W}&&A1@BJ D2ELVK@BHILV^Щ6 2BD2EJ VBD5EHI0 V0%5X}5 2iХiL[2 25 25`D:*.*` i@`8 ``@i `8@`0 BLV525<4Y}5`HH i ԍΗ552 ԍhh@ Lح1Э1Ѣ 24.4 24Z}4`D4E` 2BJ k3LVRH` 2BD4EhK)I JLV333 BASIC language TUR > TURBO BASIC OBJ| f}COM > MACHINE language DOC > DOCumentation PIC|MIC|FNT|MVM > Graphics AMS|MUS|MBD > Music LST > BASIC g} LISTing -Some MACHINE language programs can only be run by loading the MENU without BASIC! ------- -For s h}ome programs, XL/XE models may require a "TRANSLATOR" program (available from BELLCOM) to be loaded first! -Most i}programs are relatively self-explanatory; however, some may have separate DOCumentation files. Some BASIC programs m j}ay contain instructions in their program listings. LIST to read. -To view DOCumentation files one page at a time, k} press [START], [Return], or the Joystick Trigger to display the highlighted DOC file. Pressing the [Esc] key cau l}ses a return to MENU. -To print out a hard-copy of any DOCumentation file, [Q]uit the MENU, boot DOS, and then from m} DOS, use the (C)Copy command: D:Filename.DOC,P: -To use this great MENU program on your own disks, simply n} copy the file "AUTORUN.SYS". D:Filename.DOC,P: -To use this great MENU program on your own disks, simply !ijZ3Z2EMNYAIAIIE1VA2UPMYINAQRSTQXRSTUULIST110LIST20SPp} q}r} !"#$%&'()*+,-./s}012345************************* MORTGAGE / A **********t}**************** +11;@,;@,;@,;@,&&;@,;@P,;A,~~;u}@P,;@P,;@,;@,;@,;@,;@,;@,;@,;@,;@, 606.v}& 66. &&  Š '' THIS PROGRAM WILL PRINT A Tw}ABLE#++ #DESCRIBING MOTGAGE REPAYMENT. INPUT(** "IS THE MORTGAGE PRINCIPAL, MONTHLY-** "PAYMENT, TERM IN YEARS, AND x}ANNUAL2 INTEREST RATE.7** "OUTPUT INCLUDES, FOR EACH PAYMENT,<,, $AMOUNT AMORTIZED, AMOUNT OF INTERESTF%% ANDy} BALANCE LEFT ON MORTGAGE.Z [2. %IS DELAY AFTER EACH YEAR DESIRED(Y/N)2\0Y*0N@]0, #IS LINE PRz}INTER OUTPUT DESIRED(Y/N)0^0Y*0N@_)% ENTER ANY CHARACTER TO BEGIN)d }n6 A( M{}ORTGAGE PRINCIPAL = ,6 Bs 6-x6 A ( MONTHLY PAYMENT = ,6 B6 A0( TERM OF M|}ORTGAGE = ,6 B6 A@( ANNUAL INT. RATE(%)= ,6 B)6-'A)MONTHLY INTEREST RATE}}6-@$'6-6-'6-6!@A6SEE IF MORE THAN 1 YEAR LEFT6-6~}-  A-@&@ A 6- A1(6-P:+%%>}P,$A,'A16.=:, A% FINAL PAYMENT = " 4Y"3FINAL PAYMENT = ',FIND RES}ULTS FOR 1 YEAR1 A36-6-6-@@@ AJ T6-&@Y6-%}@^ Ac4NAh1- $ENTER ANY CHARACTER FOR ANOTHER YEAR1r APAGE HEADING SUBRO}UTINE 6.%--6.# NO. INTEREST AMORTIZED BALANCE  +?&6-P:+%>P,$A,'A/6.=:,9 }A%?6.?&6-P:+%>P,$A,'A/6.=:,9 A%?6.?&6-P:+%>P,$A,'A/6.=:,9 }A%?6.?&6-P:+%>P,$A,'A/6.=:,9 A%?6.I" PRIN. =  PAYMENT = F TERM = } YEARS RATE = I * 4Y*3PRIN. =  PAYMENT = 0 4Y03TERM =  YEARS RATE =  }4Y33  $L--PRINTING SUBROUTINE FOR MONTHLY PAYMENTV% 6-6-6-6-% A X [ 4}Y3`$COMPUTATION SUBROUTINE 6-3 6-$6-&6-&#6-%+6-%36-% 6-%"}6-&&"6- A$END OF YEAR SUBROUTINEI&6-P:+%>P,$A,'AI6-P:+}%>P,$A,'A# 6.=:,6.=:,6.=:,$1 6. 6-@%6-@16-@ % A @( }YR.=- 4Y3YR.= .6-@6-@$/6-@0 4Y332$PRINTUSING SUBROUTINE}36-@6-@'6-@$36-@5l&6-P:+%>P,$A,'AI6-P:+%>P,$A,'Al6}-P:+%>P,$A,'A' 6.=:,6.=:,6.=:,'6.=:, 6. A%6./ 6. A%6.6.}) A%/6. 6-B:," 6-%@$$67B:,%@,.7@<&,"%@6-&@8#67}@<&,.7@<&,867&%@<,. 6-B:,$$67B:,%@,.7@<&,' 6-& %@'6-}%@ I#67%@<,.7%@<,I67%@<,.7@<&@, 6-B:,$$67B:,%@,.7@}<&,<'67%@<&,.7%@<&,<67&%@<,. 6-B:,$$67B:,%@,.7@<&, <'67%@}<&,.7%@<&,<67&%@<,.*$ ++SUBROUTINE TO PUT 0'S IN RIGHT PLACES 6-B:, -@} 7<,4.A&   ""67%@<%@,..00 $( "%@A%`2 67%@<%@,}.0F A%` D:MORTGAGE"67%@<%@,..00 $( "%@A%`2 67%@<%@,$"#WYCIIJNBAAJIA@?fffffA? @@ @B} W0 W0 @ @@"9W0AFW0AFW0@(qA(q +;@}, ## MORTGAGE AMORTIZATION TABLE  REGULAR PAYMENT(2 TERM IN YEARS, MONTHS< A6-+@}$%,'@F  PRINCIPALPZ ANNUAL INTEREST RATEdn6-'Ax PAYMENTS PER YEAR} START WITH WHAT YEAR 6-P:,6-6-6-6- 6-}6-@  6-6-6-P:,@Ap$$6-++&P:,,$@,'@$6-%@}  A-@P:, A"!!%%@ @ A) ,## PRESS 'RETURN' TO CONTIN}UE6J T +V-@#Y## MORTGAGE AMORTIZATION TABLEZ ^''  PRINCIPAL $ AT $A}c** % FOR  YEARS AND  MONTHSh REGULAR PAYMENT = $r | NO. INTR. AMORT.  BALANCE } ACCUM.INT.6-@6-%%@-@**6-P:+$',$A%?P,'A6-%@} 6-& 6-% 6-&$A  6-% 6-% 6-%6- 6-% 6-% 6}-%$$6-P:$A%?P,'A& Ap'$$6-P:$A%?P,'A0 1-@@#2} 3-@@#4 5$$6-P:$A%?P,'A6-@ @#7 8-@0@#9} : D$AN88  LAST PAYMENT = $P:$A%?P,'AX A@b l!! YR. }: INTEREST = $q  AMORTIZED = $v !A 6-6- 6-&@}Ab "" CHANGE DATA AND RECOMPUTE?  (1=YES, 0=NO)"@@  D:MAT}ABLEAb "" CHANGE DATA AND RECOMPUTE?  (1=YES, 0=NO)"@@  D:MAT/05GZ9RCATALBEVABRRRIAAB@Ad@@}@@ @ }@**************** SHARPE 1 *****************@*@}@9 ;A, }N-@@@ -" N ' ŧӠĠƠϠ%-@}@@ -" % ** "THIS PROGRAM STARTS WITH DATA PER--- %TAINING TO A MARKET INDEX AND SEVERAL++ #POSSIBL}E STOCKS TO HOLD. FOR EACH  ++ #STOCK THE USER INPUTS THE ALPHA AND'' BETA PARAMETERS, ALONG WITH THE'' VARIANC}E OF RETURN (OR STANDARD** "DEVIATION OF RETURN = VOLATILITY).((  FOR THE INDEX THE EXPECTED VALUE$++ #AND VARIANC}E OF RETURN ARE ENTERED.)((  THE PROGRAM THEN CALCULATES THE .** "PROPORTION. A RISK FACTOR MAY ALSO3)) !BE INCLUDED}. THIS FACTOR TAKES ON8** "VALUES BETWEEN 0 AND 4 OR 5. THE =.. &HIGHER THE RISK FACTOR THE MORE DARINGB((  THE INV}ESTOR SHOULD BE. 0 MEANSG VERY CONSERVATIVEH I" PRESS RETURN TO BEGIN"DATA INPUT CLR }}U AG 4NUMBER OF STOCKS BEING CONSIDERED FOR PORTFOLIO KU B J A5G 5ENTER 1 IF STOCK }VARIANCE OF RETURN IS BEING ENTEREDJ VH ?ENTER 0 IF STOCK STANDARD DEVIATION OF RETURN IS BEING ENTEREDLV B} A@@  A52 INPUT ERROR, PLEASE TRY AGAIN6@ B#*@# A5<6-%@}6-%@<# ROWS & COLUMNS ON MATRIXT AWJ9%@<%@,9%@<@,9,9,9,T }B }B-@ 68,-/68,->68,-B _-@%@/-@%@}@68<,-W68<@,-[ _ -@"@A4 }1  FOR STOCK  ENTE}R THE FOLLOWING4 < Aq"  ALPHA &/68,-2 < B< Ar"  BETA &/68,-}2 < B< Ar"  STD. DEV. &/68,-2 < B ANEXT I4 }1  FOR STOCK  }ENTER THE FOLLOWING4 < A"  ALPHA &/68,-2 < B< A"  BETA &/68},-2 < B< A"  VARIANCE &/68,-2 < B68,-6@$8,  A  } }. A  INDEX RETURN $. B : A, INDEX VARIANCE OF RETURN 0: B (3} A % ENTER RISK FACTOR )3 B, }-?-@? % COMPUTING 2#}-@68<,-8,# <G-@*68%@<,-@C68<%@,-@G Fk'68%@<%@},-6@$I68%@<%@,-6@k68%@<%@,-6@PA-@'68%@<,-8,=6}8<%@,-8,A Zw-@068<@,-6@$$8,4 X68%@<@,-6@$$w68%@<}@,-@NOW INVERTING MATRIX A-@ - 6-8<,A# // 'N}O UNIQUE SOLUTION,MATRIX A IS SINGULAR-@ )6-8<,68<,-8<,)68<,-   A6-8<@},068<@,-8<@,A68<@,-$ 6-@'8<,. -@8 68<,-$8<,B  L !!68}<@,-$8<@,V -@` "A$`j 6-6@$8<,t -@~ 68<,-8<,%$8<},   ..68<@,-8<@,%$8<@,      }-@ ""  SOLUTION FOL}LOWS   -@ 22 PROPORTION FOR STOCK  = 8<@,      2. %PRESS RETURN FOR ANOTHER} COMPUTATION 2 A D2:SHARPE1STOCK  = 8<@,      2. %PRESS RETURN FOR ANOTHER2{<2,@-@ ./r< 0|< 1< 2< 3< 4@ 567X>89<d:< };< <=******************* PORTVAL 9 *******************k@'@}@9* 1 }>;@,k (̹X  - THIS PROGRAM IS A SIMPLE STOCK X &P}ORTFOLIO PROGRAM. IT WILL PERMIT THEX- %USE TO STORE DATA ABOUT HIS PORTFOLIOX &OF SECURITIES AS WELL AS GIVE A PROFIT}S+ #ANALYSIS OF THE PORTFOLIO. FOR EACHS #COMPANY WE STORE STOCK TICKER CODE,R, $COMPANY NAME, DATE OF PURCHASE, # }OFR !UNITS PURCHASED, PURCHAS PR/UNIT, // 'PRESENT PR/UNIT, YEARLY DIVIDENDS/UNIT. \ 1 &THE ANALYSIS COMPUTES SUCH }ELEMENTS AS\ &PORTFOLIO AT COST, VALUE OF PORTFOLIO,  PRESENT YIELD, ETC. 4-@"0 PRESS ENTER TO BEG}IN 4 bb;A,9A <@,;A,9A <@,;@,;@P,;@,(;@},;@0,;@,;@,;@0,;A,;A,;@,;@,;@,;@,;@,};@,2hh;@,9@,;@P,;@P,;@P,;@P,;@P,;@,;@P,<YY6.O } F{-@w67$@P%@<+}%@,$@P,.2 { K 6.P 6.D1: }7 (}Πՠ: )) ! 1. ADD TO FILE OR BEGIN NEW FILE&&  2. SWITCH DRIVES (DEFAULT =1)  3. NOT }IMPLEMENTED""  4. READ FILE IN FROM DISK&""  5. WRITE FILE OUT TO DISK0  6. EDIT FILE:)) ! 7. LIST FILE AND} PROFIT ANALYSISD##  8. DELETE RECORD FROM FILEN  9. END PROGRAMS 6.X@-@- ENTER YOUR CHOI}CE 1@4AbB-@B:,B@:7<,, @G)@:7<,,!@YAl m 6-A:,nOOA}A A!A"A#A0APApAo A,,ADD TO OR START FILE ALREADY IN MEMORY6}-@6-@ W }"# NEW FILE5-@ S PRESS ENTER TO CONTINUE W6-%@} A`INPUT 1 RECORD BPRINT HEADINGS " Aa"PRINT OUT 1 RECORD. B.7@<@},4NA 7@<@,4A$$&6-%@&NEW RECORD ON FILE. BMORE?8$$7@<}@,4YA=$U 4D16.D2 }3 DRIVE 2 NOW ACTIVEG-@APK R }U$L 6.D1 }}* DRIVE 1 NOW ACTIVE>-@APB I }L$$4f$READ IN FILE FROM DISK6-@}I }% PUT DATA DISK IN DRIVE( E PRESS ENTER WHEN READY I }3 }-@@3 Ǡ}-@@'# WHAT IS NAME OF DISK FILE '3 6.67B:,%@,.:367B:,%@,. }@@@-@-@@s 6-6- B&@:6.7}@-@"> $CHANGE TICKER CODE TO ZZZZ TO DELETEY-@}A --@#U "ENTER # OF ITEM TO EDIT,0 IF NONE Y1 4'@F:@,&@1 A@0}a-@B:,:@:7<,, @G)@:7<,,!@YW@F:@,&@a A@0  6-A:,5"}6- }& B26-@%5$ } BM6-@% Aa+-@"I PRESS ENTER T}O CONTINUE M  A` } B-@  Aa A@ LIST FILE WITH ANALYSIS}H" }- SORRY, NO DATA YETA-@AE H$6-@%R, #IS A LINE PRINTER TO BE USED (Y/}N) 0>0Y*0NH BR AP% }"  LIST MENU% ## 1. COMPLETE LIST AS ON FILEA* "2. }LIST WITH PAPER PROFIT, YIELD &A  PORTFOLIO VALUE 3. END LIST PROGRAM= AP` / ENTER APPROPRIATE CHOIC}E 3= B"@$ARAS AP$PCOMPLETE LISTUf }#7@<@},4Y> PUT PAPER INTO PRINTERA f PRESS ENTER WHEN PRINTER READY V 7@<@,4Y X] 4Y]3M TK } PURCH DATE PRESENT YIELD PRESENT %Y_ 4Y_3O CODE NAME PURCH. } PR/UNIT PR/UNIT DIV/UNIT UNITSZ_ 4Y_3O ---- ---- ------ ------- ------- ----}---- -----[7 4Y B#-@- Aa1 437$]) B-@% Aa) ^+ $ PRESS} ENTER TO CONTINUE (+$_ Bd6-@%-@n Aa 1 PRINTED RECORDsG "-@"}9 PRESS ENTER TO CONTINUE =G ARPxj"@%!-@"? PRESS ENTER TO CONTINUE CJ }T }B`6-@ j ARP 7-@#3 PRESS ENTER TO CONTINUE 7$PORTFOLIO ANALYSISW}68@,--68@,-B68@,-W68@,-0 }-@@0 }Ǡ-@I568@,-8@,%8<@,$8<@,IPORTFOLIO AT COSTK568@,-8@,%8}<@,$8<@,KPORTFOLIO VALUE NOWG568@,-8@,%8<@,$8<@,GTOTAL DIVIDENDSD468}<@,-8<@,'8<@,$ADPRESENT YIELDG<68<@,-8<@,'8<@,$A&AG% P}ROFIT<,68<@,-8<@,$8<@,<PRESENT VALUE 4N)4AT -@/ 6-6}-@ B) B /6-/ 6-6-@ B) B /6-x6-8<@, B$6.*6-};6-8<@,E BK6.Q6-b6-8<@,l Br6.x6-Z 6-6-@ BZ3TK CODE } :7$@0%@<$@0%,Z 6-6-@ BZ3DATE PURCH. :7$@0%@<$@0}%,**3PURCH PR/UNIT :8<@,F*3PRESENT PR/UNIT :8<@,F3YIELD % :3}PRESENT VALUE :3% PROFIT : 3 3    ATe! B "6-@%-@}, B@-"@4*"ATP66-@%@-@A J T8-@"4 PRESS RE}TURN TO CONTINUE 8Y* }-@@*  COMPUTING_(6-8@, B"6.(6-`(6-8@, }B"6.(6-a36-8@,&8@,' B-6.36-b(6-8@, B"6.(6-c36-8@},'8@,' B-6.36-e }h>& PORTFOLIO VALUE AT COST ::@@5&> iE 4YE3P }ORTFOLIO VALUE AT COST :7@<@&,m>& PRESENT PORTFOLIO VALUE ::@@5&> nE 4Y }E3PRESENT PORTFOLIO VALUE :7@<@&,o>& DOLLAR PAPER PROFIT ::@@5&> pE  }4YE3DOLLAR PAPER PROFIT :7@<@&,r>& TOTAL DIVIDENDS PER YEAR ::@@5&>  }sE 4YE3TOTAL DIVIDENDS PER YEAR :7@<@&,w>& DIVIDEND YIELD ::@@5 }&> yE 4YE3DIVIDEND YIELD :7@<@&,z6 3 (--------------------------------------}--6 {c 4Y`3P--------------------------------------------------------------------------------c3|   :-}@ 3 PRESS ENTER TO CONTINUE 7:$p++SBR FOR FORMATTING DATA ON 1 PURCHASEu }z! STOCK TICKER CODE } !|<B:, @0<67B:,%@,.7@<@0&B:,,~L 6-6-@ BL67$@0%@<+%}@,$@0,.! COMPANY NAME !<B:, @0<67B:,%@,.7@<@0&B:,,L 6-6-}@ BL67$@0%@<+%@,$@0,.! DATE OF PURCHASE !<B:, @0<67B:,%@},.7@<@0&B:,,L 6-6-@ BL67$@0%@<+%@,$@0,.5 A`@' #} OF UNITS PURCHASED+5 B68<@,-5 A`P' PURCHASE PR/UNIT +5 B68<@,}-5 A``' PRESENT PR/UNIT +5 B68<@,-5 A`p' YEARLY DIV/UNIT +5 B}68<@,-$PRINT 1 LINE OF PORTFOLIOx 6-6-@ B+6-@?-@@0`}7$@0%<$@0%,0 n6-%@r x6-  6-6-6-@) B56-@I-@@0}j7$@0%<$@0%,0 x6-%@| 6-  6-6-6-@) B56-@I-@}@0j7$@0%<$@0%,0 x6-%@| 6-4  6-6-8<@,( B.6.46-*6-}8<@, B$6.*6-*6-8<@, B$6.*6-*6-8<@, B$6.*6-6}.7@<@&,"6-.6-@a67B:,%@,.7$@0%@<$@0%,67B:,%@,.7@<@}&,6-6-@ By667B:,%@,.7$@0%@<$@0%,]67B:,%@,.7@<@&,}c6-o6-@y B667B:,%@,.7$@0%@<$@0%,]67B:,%@,.7@<@ &,q6}7B:,%@,.67B:,%@,.7@<@ &,67B:,%@,.>67B:,%@,.7@<@&,R67B:},%@,.y67B:,%@,.7@<@&,67B:,%@,. 4Y3U-@6-!6-@+ B }U 7$@0%@<$@0%@,U-@6-!6-@+ BU 7$@0%@<$@0%@!},U-@6-!6-@+ BU 7$@0%@<$@0%@,m -@@0  "} B-@@[  m-@@G  .-@@ G #} o-@ 8<@,*-@9 8<@,E-@T 8<@,`-@ o 8<$}@,&" PRESS RETURN TO CONTINUE &$XDELETE SBR COMPUTATIONYH" }- SORRY, NO DATA YET%}A-@AE H$Z/ }-@@/ Ǡ].6-@.K=NO. OF RECORDS NOT DELETEDb&}-@lW 6-6-@ BW7$@0%@<$@0%@,4ZZZZApvDO NOT DELETE RECORD'}-@@ 6-6- B 6-6- B6-WW67$@0%@<+%@,$@0,.(}7$@0%@<+%@,$@0, +-@@'68<,-8<,+ 6-%@ Ap )}6-&@6--@-@@6-#6-- B67$@0%@<+%@,$@0*},.7$@0%@<+%@,$@0, +-@@'68<,-8<,+  $'Q }3 $BE SURE+} TO SAVE DATA IF IT HAS BEEN M CHANGED. OK TO QUIT Q'&7@<@,4Y# }&'INPUT ERROR SBR'7 ,}INPUT ERROR! TRY AGAIN!3-@A7 $'$'Y,N,A SBR' 6.'C-@"? $ENTER Y IF OK,N IF E-}RROR,A TO ABORT C'+0Y*0N*0A! B+ B'$<( Y,N,SBRF(&" ENTER Y IF OK,N IF ERROR &P(%.}0Y*0N B% BZ($(MOVE ENTRY? SBR( 6. (.* !DO YOU DESIRE MORE ENTRIES (Y/N) .(%0/}Y*0N B% B($)ONLY Y/N SBR)0Y*0N B)$*..ELIMINATES TRAILING BLANKS OF VAR0}IAE Z8$+<7B:,P,$1}A,'A0N6-@2NE 6.=:,B:, @E67B:,%@,.7@<@&B:,,4N'6.7B:,&@&N47@<@,0.467B:,%@,..003}HNH6- -@B:,-7<,0.;6-%@? H6-B:,IN6-'BRN$UX }-@14} TK CODE :C-@X DATE PURCH. :UQ-@* PURCH. PR/UNIT :<-@Q PR5}ES. PR/UNIT :UQ-@* YIELD % :<-@Q PRESENT VALUE :U--@* % PR6}OFIT :-$YDD P,$A,'A]J-@@/  ;} ;-@J 8<@,^J-@@/  ;-@J 8<@, ^&" PRESS RETUR<}N TO CONTINUE &^ ^$0u%%6-+&@,$@%%@:u$yZ }-@2 TK CODE :=}D-@Z CORP NAME :yS-@+ DATE PURCH :=-@S PURCH. PR/UNIT :y>}e-@+ PRESENT PR/UNIT :=-@S YEARLY DIV/UNIT :e-@ y NO. UNITS :?}$}Y6-#-@@0D7$@0%<$@0%,0 R6-%@V Y$ }$ D:PORTVAL9 :s^_88Z9ABNBBTA9ZXNINFIDRDDYBBBJZ8ZZ2VOGRMJF2F5DOSPBCOFY!A}@@ !B}@ !!C}"#$%&'()@*+***************** INSFILE !D}*****************'@'@@9: }7 (ŠŠ:!E} ++ #THIS SIMPLE PROGRAM WILL PERMIT THE-- %INDIVIDUAL OR SMALL BUSINESS TO STORE // 'DATA ABOUT THE PORTFOLIOS OF!F} ALL INSUR- -- %ANCE POLICIES HELD. FOR EACH POLICY, )) !THE FOLLOWING DATA MAY BE STORED:-- %TYPE INSURANCE, DESC!G}RIPTION, DATE EX-.. &PIRES, INSURANCE COMPANY, UNDERWRITER,.. &POLICY NUMBER, FACE AMOUNT, AND ANNUAL++ #PREMIUM.!H} THE FILE MAY BE STORED ON,, $DISKETTE AND RECALLED. THE POLICIES// 'MAY BE LISTED EITHER IN FULL OR BY TYPE++ !I}#WITH SUMMARIES OF TOTAL POLICY FACE VALUES AND PREMIUMS.B , !A PROVISION FOR A MAXIMUM OF 120 B POLICIES IS !J}MADE.#;@,(5-@"1 PRESS RETURN TO BEGIN 52~~;@@,;@@,;@@,;@0,!K};@,;@P,;@P,;@P,;A,9@,;@,AWW;AP,9A <@,9A <@!L},;A0,;A,;@P,K- }-@@-  PU-@A +-@@!M}<68<,-M68<,-Q U U*-@@&68,-* d<6.2 !N} P-@}67$@P%@<+%@,$@P,. : }7 (Π!O}ՠ: )) !1. ADD TO FILE OR BEGIN NEW FILE 2. NOT IMPLEMENTED 3. NOT IMPLEMENTED"" 4!P}. READ FILE IN FROM DISK&$$ 5. WRITE FILE OUT ONTO DISK0  6. EDIT FILE:-- %7. LIST CONTENTS,COMPLETE OR BY TY!Q}PED,, $8. ACTUALLY DELETE RECORD FROM FILEN6-X6 A ( ENTER YOUR CHOICE ,6 BbGGA!R}A A!A"A#A0APApl AB 8<@,#  NEW AMOUNT '.0B68!S}<@,-A:,,,ADD TO OR START FILE ALREADY IN MEMORY; }"$  NEW FILE ' * 4 B; }  !T} 6-%@ A`INPUT 1 RECORD) } Aa)PRINT OUT 1 RECORD0 B&7@<@,4!U}N0 A 7@<@,4A$$&6-%@&NEW RECORD ON FILE. BMORE?8$$7@<@!V},4YAB7@<@,0Y$$4f$READ IN FILE FROM DISK7 }7 (Ԡ!W}ˠΠˠŠ4   0 ENTER NAME OF FILE TO READ IN 42. %ENTER DRIVE NUMBER IN FORM D1,D2,ETC !X}23 6.67B:,%@,.:367B:,%@,. @@@-@q !Y}6-6-@ B,@j67$@0%@<+%@,$@0,.7@<@@,q6.q 6-6-@!Z} B,@j67$@0%@<+%@,$@0,.7@<@@,q6.q 6-6-@ B![},@j67$@0%@<+%@,$@0,.7@<@@,q6.q 6-6-@ B,@!\}j67$@0%@<+%@,$@0,.7@<@@,q6.q 6-6-@ B,@j67$@!]}0%@<+%@,$@0,.7@<@@,q6.q 6-6-@ B,@j67$@0%@!^}<+%@,$@0,.7@<@@,q6.*@@*@668<@,-%68<@,!_}-668<@,--@@6-#6-- BZ6.7$@0%@<+%@,$@0,d B67!`}$@0%@<+%@,$@0,.  @$WRITE FILE OUT TO DISK } N 2 '!a}ˠΠˠŠD-@@N B G ' PRESENT DISK FILE IS  6  NEW FILE :A0G!b}6. 2. %ENTER DRIVE NUMBER IN FORM D1,D2, ETC2 3 6.67B:,%@,.:367B:,%@,. @@!c}  @$ -@& ` 6-6-@ BL6.7$@0%@<+%@,$@0,Y !d}@`6.( ` 6-6-@ BL6.7$@0%@<+%@,$@0,Y @`6.* ` 6-6!e}-@ BL6.7$@0%@<+%@,$@0,Y @`6., ` 6-6-@ BL6.7$@!f}0%@<+%@,$@0,Y @`6.. ` 6-6-@ BL6.7$@0%@<+%@,$@0!g},Y @`6.0 ` 6-6-@ BL6.7$@0%@<+%@,$@0,Y @`6.2 K!q}B%DOS SYSB*)DUP SYSB SAUTORUN SYSB_HELP DOCB%oMORTGAGEBASBMTGTABLEBASB SHARPE BASB{PORTVAL9BASBs@INSFILE BASBANNUDEF BASBBONDVAL2BASBEFFECT BASB LOANPAY BASBMULTMON BASB REGWITH BASB RRCONST BASB +RRVARIN BASB8LOANAFFDBASB HPAYNET BASBSAIROLOANBASBZDISPAPERBASB^EITABLE BASBpEIRONINVBASBtFVOFRD BASByFVOFANI BASB~ININVESTBASBLPOALOANBASBMININVFWBASBNIRONINVBASBRBOALOANBASBREGINV BASBREGDEP BASBRPOALOANBASBRWFAI BASB!SINKFUNDBAS @8<@,3 @8<@,K @8<@,8  B @L $ EDIT FILE }!r} -@ }     Aa !  -@A!    A@ $E!s}DIT SUBROUTINE } 6- 6--- %CHANGE TYPE CODE TO ZZZZ FOR DELETINGP A@07 %ENTER # !t}OF ITEM YOU WISH TO EDIT,0 IFB NONE FP B"6-$ }  Af } A@ !u}LIST FILE WITH ANALYSISj, #IS A LINE PRINTER TO BE USED (Y/N) 0`7@<@,0Y*7@<@,0!v}Nj B=37@<@,0Y*7@<@,0N= AP: }7 (ՠ!w}: $$ 1. COMPLETE LIST AS ON FILE 2. LIST BY TYPE 3. END LIST PROGRAM= AP` / ENTER APPR!x}OPRIATE CHOICE 3= B"@$ARAS AP$PCOMPLETE LISTUI }#7!y}@<@,4Y? PUT PAPER INTO PRINTER I B]\#  COMPLETE LIST<7@<@,4Y\3 !z} COMPLETE LIST^( 7@<@,4Y"3%3(3_W68@,--68@,-B68@,-!{}W68@,-d-@n Aa 1 RECORD PRINTEDoh-@@@ -" ;7@<@!|},4Yh3(----------------------------------------p?-@#4 PRESS RETURN TO CONTINUE 8? }q<(68!}}@,-8@,%8<@,<TOTAL FACE AMOUNTt?(68@,-8@,%8<@,?TOTAL PREMIUM AMOUNTu5%68@!~},-&8<@,5TOTAL MILEAGEx0'@"P:'@, ) B0 }   B.   !} %7@<@,4Y(3+3.3 B   B$LIST TYPE' }# ENTER TYPE DESIRED ' 6-6-@ BK!} 7$@0%@<+%@,$@0,]@@c6-o6-@ 7$@0%@<+%@,$@0,>!} 6-6-@ B1@@"[ 7$@0%@<$@0%@,m@@1s6-6-@!} B 7$@0%@<+%@,$@0,>X6-8<@, 6-,6-@86-@B BpT@!}@@X >6-8<@, 6-@,6-@86-@B BpT@@Y e6-v6-8!}<@,6-@6-@ Bp@@" 8<@,>$hBo96.=:P:++%@'@#+%@,!},$@#,,,EK6.T6.00h67B:,%@,.o6.rBCB:, +%,6.6. 267B:,%@,.96.!}C Bp|BY 6.6.7@<,067B:,%@,..Y67B:,%@,.7B:,&%@ %}4A4 ANNUAL INT RATE = A$$> APP** INT. RATE PER PERIOD = A$@@ PAYMENTS BEGIN %%}@ PERIODS INTO THE FUTUREH 0A APG'6-+%@,'H6-P:A$%?P,'A1 4A1 %}THIS IS  YEARS IN THE FUTURE"" PAYMENT = .. BALLOON PAYMENT =  "%} PRESS FOR MORE"p A D:ANNUDEF.BAS= .. BALLOON PAYMENT =  "$@,- Z9AIZ2F1STRYYSQXTR@@)}  2 @ J 4 T2&2)}******************* BONDVAL2 *******************]];@,;@,;@P,)};@,;@,;@,;@P,;@P,006.&  . ++  )} ŠƠ. -- %THIS PROGRAM SHOWS HOW THE VALUE OF A** "BOND MAY CHANGE WHEN THE INTEREST )) !RATE CHA)}NGES. WE ASSUME WE HAVE A,, $BOND WITH A FIXED NUMBER OF YEARS TO,, $MATURITY. FOR VARIOUS INTEREST RATES ,, $THE )}PRESENT VALUE OF THE FUTURE CASH#++ #FLOWS FROM THE BOND ARE DETERMINED.%** "IT IS VERY INTERESTING TO SEE HOW (-- %)}MUCH THIS VARIES FOR LONG TERM BONDS.Z% ! PRESS TO BEGIN%_9@,9@,d +nB A)}4 !NUMBER OF YEARS TO MATURITY :8B BxB A 4 !COUPON INTEREST PAYMENT/YEAR :8B BB)} A04 !MATURITY VALUE OF THE BOND :8B BP A@4 !LOWEST INTEREST RATE TO CONSIDER 8F6-')}AP BP AP4 !HIGHEST INTEREST RATE TO CONSIDER8F6-'AP BCOMPUTING PV6-)}-+&,'@6-%@E 68,-E68,-$+@&+@%,#+6,,'%$+@%,#+6, )}/+ "IS LINEPRINTER OUTPUT DESIRED(Y/N)/0Y*0NA%N +N <ԠŠƠĠԠ )} Ԡ? 4Y?3/PRESENT VALUE OF BOND AT VARYING INTEREST RATES   YEARS TO MATURITY.0)}0  COUPON PAYS $ PER YEAR FOR INTEREST%% MATURITY VALUE FOR BOND IS ++ #-----------------------------------)}4NAp 3 YEARS TO MATURITY ##3 COUPON PAYS $ PER YEAR $$3MATURITY VALUE OF BOND IS ++6.)}! INTEREST RATE VALUE OF BOND )) ! ------------- ----- -- ----"5 4Y353! ------------- --)}--- -- ----,-@@6_6-A$8,6-8,>6-P:A$%?P,'A_6-P:A$%?P,'A)}@ 6.=:,6.=:,J/ 6. A6.6.) A/6.T6-@6-@0^9 6-B:,$67@<)}&,.7&,967&%@<,.hE 6-B:,067%@<&,.7%@<&,E67&%@<,.r 4Y3| )}++ #----------------------------------- 4Y33" PRESS FOR MORE" A 6-B:,)}-@7<,4.AP %"67%@<%@,..00%$"%@$$# 67%@<%@)},.0#$ D:BONDVAL2AP %"67%@<%@,..00%$"%@$$# 67%@<%@(^m}ZZ9ZNINPUTEF************-}**** EFFECT **************** + ++ # ŠԠŠΠ W/ &GIVEN TOTAL A-}MOUNT BORROWED, NUMBER OFW #PAYMENTS PER YEAR, TOTAL NUMBER OF #U, $PAYMENTS, AND AMOUNT OF EACH PAYMENTU $THIS PROGR-}AM CALCULATES AN EFFECTIVE(!! INTEREST RATE FOR A LOAN.8 <%% ENTER ANY CHARACTER TO BEGINZ;@,d-} +n= A/ TOTAL AMOUNT BORROWED :3= Bx= A / NUMBER OF PAYMENTS YEARLY :3= -}B= A0/ TOTAL NUMBER OF PAYMENTS :3= B= A@/ AMOUNT OF EACH PAYMENT :3= B-}))6-@$$+$&,'+$+%@,, 6-$A$$ EFFECTIVE INTEREST RATE = $$ TOTAL INTERES-}T PAID = $&D:EFFECT$+%@,, 6-$A$$ EFFECTIVE INTEREST RATE = $$ TOTAL INTERES,   : EDZAA>%@6************************* LOANPAY 1} ************************* + $$  ΠԠ ((  THIS PROGRAM COMPUTES THE AMO1}UNT#,, $REQUIRED AS A MONTHLY PAYMENT TO PAY(((  OFF A LOAN IN A GIVEN NUMBER OF --- %PAYMENTS IF THE NOMINAL INTERE1}ST RATE2  IS KNOWN. 76;@,2 ENTER ANY CHARACTER TO BEGIN6d +n? A1 WHAT IS THE A1}MOUNT OF THE LOAN5? Bx? A 1 HOW MANY PAYMENTS ARE NEEDED 5? BE A07 $WHAT IS THE 1}NOMINAL INTEREST RATE(%);E B)6-'A)MONTHLY INTEREST RATE!"6-'! A`116-$$1}+@%,#'++@%,#&@, &&6-P:+%>P,$A,'A"" MONTHLY PAYMENT EQUALS $Z A1}L 9INPUT 1 TO END, 2 FOR NEW LOAN, 3 FOR NEW INTEREST RATEPZ BA0AA0( INPUT 1}ERROR. TRY AGAIN( A D:LOANPAYW INTEREST RATEPZ BA0AA0( INPUT 02Y Z9ZNNNN***************5}** MULTMON *****************1 +@@1@@8;@, $!  5}٠$ ** "THIS PROGRAM COMPUTES HOW LONG IT ((  WILL TAKE AN INVESTOR TO DOUBLE,++ #TRIPLE, MULTIPLY BY5} 4, ETC. HIS/HER#44 ,MONEY INVESTED AT A KNOWN INTEREST RATE.% (++ #COMPUTATIONS MAY BE DONE WHEN RATES-)) !5}ARE QUOTED ANNUALLY OR PER PERIOD2++ #(TIME BETWEEN COMPOUNDINGS). IN THE7++ #ANNUAL CASE IT IS NECESSARY TO GIVE<-- 5}%THE NUMBER OF TIMES PER YEAR INTERESTA-- %IS COMPOUNDED(# OF INTEREST PERIODS).P Z" PRESS TO BEGIN"5}d +n%"  Š٠% x99 11.INTEREST RATES & TIME MEASURED ANNUALLY:: 22.INTEREST 6}RATES & TIME MEASURED BY PERIOD5 A@ ' ENTER YOUR CHOICE+5 B -@*@#6} B- AAAANNUAL INTEREST USEDe AI 6ENTER ANNUAL INTEREST RATE IN % I.E. 56}% ENTERED AS 5M[6-'Ae B ++ #WE NOW WANT THE NUMBER OF COMPOUND-((  ING PERIODS PER YEAR. IF 6}THIS IS77 /DAILY THEN SOME BANKS USE 360 AND SOME 365 - AP  ENTER NUMBER#- Be AR6} 9 $ENTER THE FACTOR BY WHICH YOU DESIREe &TO INCREASE YOUR FUNDS, E.G. TO DOUBLE. INPUT 2, TRIPLE 3, ETC.$6}. B$#6-K:,'K:@%',#6-'8 +   B1. &ԠŠŠĠ1 L++ A6}NNUAL INTEREST RATE=A$%V30 INTEREST COMPOUNDED  TIMES PER YEAR3 `-- %TIME NECESSARY TO MULTIPLY ACCOU6}NT BYa$$6-P:A$%?P,'Ac  EQUALS  YEARSj) ) ACTUALLY THIS TAKES FROM P:,m-- TO P:6},%@ INTEREST PERIODS o66 OR FROM P:,' TO P:%@,' YEARSt ~SS KTHE EXACT AMOUNT OF TIME N6 }EEDED DEPENDS UPON HOW INTEREST IS CREDITED"" WITHIN AN INTEREST PERIOD.  A -- AND P:,%@6 } INTEREST PERIODS##INTEREST RATE PER PERIOD USEDi AM :ENTER INTEREST RATE PER PERIOD IN % E.G. 5% ENTE6 }RED AS 5Q_6-'Ai B_ A 9 $ENTER THE FACTOR BY WHICH YOU DESIRE_ !TO INCREASE YOU FUNDS, E.G6 }. 2 TO 2$ DOUBLE, 3 TO TRIPLE, ETC. (2 B6-K:,'K:@%, +   B? 7Ԡ6 }ŠĠ B ++ PER PERIOD INT. RATE=A$% -- %TIME NECESSARY TO MULTI6}PLY ACCOUNT BY$$6-P:A$%?P,'A  EQUALS  INTEREST PERIODS  (( ACTUALLY THIS TAK6}E BETWEEN P:,-- AND P:,%@ INTEREST PERIODS SS KTHE EXACT AMOUNT OF TIME NEEDED DEPENDS UPON 6}HOW INTEREST IS CREDITED"" WITHIN AN INTEREST PERIOD.6  A *& ENTER Y FOR MORE COMPUTATIONS*46}YA'# Ԡҡ ٠Ρ #$ D2:MULTMON*& ENTER Y FOR MORE COMPUTATIONS*44F  Mj{EIIZ****************** RE:}GWITH ******************@@ } ** " Ҡ̠Ơ -- %THIS PR:}OGRAM COMPUTES THE AMOUNT THAT#)) !CAN BE WITHDRAWN FROM AN INTITIAL(++ #INVESTMENT, M TIMES PER YEAR FOR N -++ #YEA:}RS, WITH NOTHING LEFT AT THE END2++ #OF N YEARS, IF THE NOMINAL INTEREST7  IS GIVEN.<** "THIS TYPE OF COMPUTATION :}SHOULD BEA++ #INTERESTING TO THOSE WHO WOULD LIKEF,, $TO KNOW HOW WELL THEY CAN LIVE FOR AK,, $FIXED NUMBER OF YEARS:} ON ACCUMULATEDPE SAVINGS.;@, A ENTER ANY CHARACTER TO BEGINEd +i@ nA:} A3  AMOUNT OF INITIAL INVESTMENT :7A BxA A 3  NUMBER OF WITHDRAWALS PER YEAR :7A B:}A A03  NUMBER OF YEARS OF WITHDRAWALS :7A BA A@3  NOMINAL INTEREST RATE (%) :7A :}B6-'A116-$+''++@%',#+$,&@,%', &&6-P:+%>P,$A,'A"-:}@@@ -" )) REGULAR WITHDRAWAL PERMITTED= $ Z AL 9PRESS 0 TO END, 1 TO START OVER, 2 :}FOR NEW INTEREST RATEPZ B"@A""@  A@+ INPUT ERROR:}. TRY AGAIN! + A D:REGWITH"@A""@  A@+ INPUT ERROR8*%6EJUMJZZE1 >} ******************* RRCONST ******************* +;@,;@,> } ((  ŠƠέԠ ,, $THIS PROGRAM WILL CALCULATE THE RATE#** "RETURN OF AN INVESTMENT COST>!}ING $A(++ #NOW AND RETURNING $B DURING EACH OF-&& THE NEXT N EQUAL TIME PERIODS.2- - "THE INPUT IS THE INITIALINV>"}ESTMENT7** "PERIODIC DOLLAR RETURNS AND NUMBER<  OF PERIODS. F)% ENTER ANY CHARACTER TO BEGIN)d +>#}i6-n   x4 A & INITIAL INVESTMENT *4 B} 6-63 A0% PERIODIC RETURN =)>$}3 B3 A@% NUMBER OF PERIODS=)3 B6-?6-?26-2JN=NUMBER OF P>%}ASSES THROUGH LOOP6-((6-%'$+@&+@%,#+6,,O:, ?PA$!6* A>&}!A 6-&6-'@ A, 6-%1. PASS # R=A$.6-%@>'}6 AuPRINTING SUBROUTINE 33 RATE OF RETURN IS A$ % PER PERIOD '' IF THIS DATA IS >(}MONTHLY WE MAY -- %MULTIPLY BY 12 TO GET AN ANNUAL RATE.-- %ENTER 1 FOR THIS COMPUTATION OR ENTER, A5  2 >)}OTHERWISE", BA@*@4 INPUT ERROR. TRY AGAIN7 A A0>"@ > ANNUAL RATE O>*}F RETURN IS A$%( ( ENTER ANY CHARACTER FOR MORE  A D:RRCONST > ANNUAL RATE O<hEAJUMJJAU@ B,} ******************* RRVARIN ******************* +B-};@,9A, )) ! ŠƠέŠ ,, $THIS PROGRAM WILL CALCULATE THE RATE#-- %B.}OF RETURN OF AN INVESTMENT COSTING $A(** "NOW AND RETURNING $A(I) IN YEAR I -'' WITH THE A(I)'S NOT NECESSARILY2 B/} POSITIVE.7 <++ #INPUT IS THE INITIAL INVESTMENT ANDA## THE YEARLY DOLLAR RETURNS. F P*& ENTER ANY CHARACTB0}ER TO BEGIN *d +i6-s x& A & INITIAL INVESTMENT { 68,- B}B1}68,-68,Z A0;  RETURN YEAR %@ (9999) TO END)?P68%@,-Z B""8%B2}@,"AA`6-%@ A06-6-?-6--JN= NUMBER OF PASSES SO B3}FAR6-.-*6-%8,'+@%,#. O:, ?PA!A 6-&B4}6-'@ A, 6-%1< PASS  R=A$.6-%@<6-%@6 AuPRINTIB5}NG SUBROUTINE  +(( RATE OF RETURN IS A$%,, $PRESS 1 FOR MORE COMPUTATIONS, PRESS) AB6}5 2 TO END) BA@*@4 INPUT ERROR. TRY AGAIN7 A A0"@AB7} D:RRVARIN) BA@*@4 INPUT ERROR. TRY AGAIN7 A A0"@A@yMAMPPMPBAZZ9 F9} ********************* LOANAFFD ********************* (} ;@, /,($F:}ԠƠΠŠҠΠ/(P*("ONE SAMPLE METHOD FOR DETERMINING P(!WHETHER TO GIVE A MORTGAGE TO AN S)(!APPF;}LICANT IS TO SEE IF THE MOTHLYS(%MORTGAGE PAYMENT WOULD BE MORE THAN At&(CERTAIN FIXED PER CENT OF THATO($APPLICANT'F<}S GROSS MONTHLY INCOME. INt( THIS PROGRAM THE MORTGAGE INTERE#T+(#RATE AND TERM IS KNOWN, ALONG WITH T($THE APPLICANT'F=}S GROSS MONTHLY INCOME(t(( AND THE FIXED PER CENT MENTIONEDP(#ABOVE. IN ADDITION WE KNOW WHAT PERt(CENT OF THE MONTHLF>}Y PAYMENT GOE-t(( FOR TAXES AND INSURANCE(MORTGAGEN(!PAYMENT IS NOT ALL FOR THE BANK).t(!WITH THIS INFORMATION THE PROF?}GRAM2N+(#OUTPUTS THE MAXIMUM MORTGAGE AMOUNTN(THAT THE APPLICANT CAN SUPPORT7(F&" PRESS RETURN TO CONTINUE &F@}d (}k;@,nd A1(ENTER APPLICANT'S GROSS MONTHLYV( INCOME Zd BFA}xN A 2(ENTER FIXED PERCENT 6D6-'AN B} 6-$N A'2(ENTER TAX IN % OFFB} TOTAL PAYMENT6D6-'AN B6-$+@&,N A02(ENTER ANNUAL MORTGAGE RATE 6D6-'FC}AN B&&I IS NOW MONTHLY RATE AS DECIMALN A@2(ENTER LENGTH OF MORTGAGE 6D6-$@NFD} BCC6-$+@',$+@&+@%,#+6,,%$+@%,#+6,(?&(MAXIMUM MONTHLY PAYMENT AMOUNT?( FE} IS $P:,]&(CONTAINING INSURANCE AND TAXES]( OF $+P:+&,$A%?P,,'AV#(MAXIMFF}UM MONTHLY PAYMENT FORV( MORTGAGE IS $+P:$A%?P,,'A@'(MAXIMUM MORTGAGE LOAN AVAILABLE@( IS FG} $P:,(?*(!PRESS RETURN FOR MORE COMPUTATION.5 }? A D:LOANAFFDAN AVAILABLE@( IS Dd`%5NFICEXTRGROSZ9d**********JI}*********** PAYNET *********************;A, (}/(,(! Ӡ٠ĠҠΠJJ}/(U,($THIS PROGRAM WILL COMPUTE THE AMOUNTU($OF GROSS PAY A WORKER NEEDS IN ORDER#(TO EARN A GIVEN NET.& JK}(P)(!NECESSARY INPUTS ARE NET DESIRED,P("FEDERAL INCOME TAX %, STATE TAX %,-@)(!LOCAL TAX %, AND ANY FIXED DOLLAR@(JL}AMOUNT DEDUCTIONS.. /''(FICA % DEDUCTION IS ALSO NEEDED23*("ALL TAXES ARE PERCENTAGES OF GROSS3(PAY.7 <"JM} PRESS RETURN TO BEGIN" (}A A3( ENTER NET PAY AMOUNT DESIRED 7A BO A 3( ENTJN}ER FEDERAL WITHHOLDING TAX % 7E6-'AO BO A03( ENTER STATE WITHHOLDING TAX % 7E6-'AJO}O BO A@3( ENTER LOCAL WITHHOLDING TAX % 7E6-'AO BO AP3( ENTER FICA WITHHJP}OLDING % 7E6-'AO Bg A`3(!ENTER DOLLAR AMOUNT FOR ANY FIXEDY( WITHHOLDING JQ} ]g B6-%%%6-+%,'+@&,&&6-+P:$A%?P,,'A"('(GROSS PAY JR}NEEDED IS $)(,0, #PRESS RETURN FOR MORE CALCULATIONS 06 AD:PAYNET"('(GROSS PAY HarYIRIIA@@@X333B@Pv@a RE @a% @2wI NT} + && ANNUAL INTEREST RATE ON A LOAN  REGULAR PAYMENT(2 TERM IN YEARS, MONTHS< NU}A6-+@$%,'@F  PRINCIPALPZ # OF PAYMENTS PER YEARdn6-@x6-NV}776-+$','+@&@'++'%@,#+$,,,$$6-P:$A%?P,'A6-O:&,'@ 6-NW}"A0!A 6-% A0 6-& A0::6-++P:+$A,$A%?PNX},,'A,'A ANNUAL INTEREST RATE = $A% !! MORE DATA? (1=YES, 0=NO)"@NY}@ " D:AIROLOANREST RATE = $A% !! MORE DATA? (1=YES, 0=NO)"@L&/ZlD + !! DISCOUNT COMMERCIAL PAPER   FUTURR[}E VALUE(2  DISCOUNT RATE<F6-'AP DAYS TO MATURITYZd6-$$'A`n  DISR\}COUNT =$x  COST = $& !! MORE DATA? (1=YES, 0=NO)"@@  D:DISPAPR]}ERNT =$x  COST = $& !! MORE DATA? (1=YES, 0=NO)"@@  D:DISPAPP&'A R WNLBIIIPJLNPJBB?@AA`@@@V_} ?FS @u @$@@@@@AaAuAu +V`};@,  EARNED INTEREST TABLE   PRINCIPAL(2 NOMINAL INTEREST RATE<F6-'AVa}P++ "# OF DEPOSITS/WITHDRAWALS PER YEARZd"A`n%% AMOUNT OF DEPOSIT/WITHDRAWALxVb}6-A` 6- A** !# OF COMPOUNDING PERIODS PER YEAR6-6-@ STARTVc} WITH WHAT YEAR$$ END PRINTING WITH WHAT YEAR 6-P:, 6-6-6-6-Vd}"6-@f,6-@6-@P:,;"Ap@ AJ @"ApX## PREVe}SS 'RETURN' TO CONTINUEYr6-@w +x-@#|&&  EARNED INTEREST TABLE Vf}33  PRINCIPAL $ AT $A % NOMINAL FOR  YEARS "A0(( REGULAR DEPOSITVg}S/WITHDRAWALS $''   TIMES PER YEAR 6-%@ EFFECTIVE INTEREST RATEEE P:+AVh}$++@%',#&@,,$A%?P,'A  % PER YEAR -- %YEAR BALANCE INTEREST ACCUM.INT.Vi}  6-@6-@6-@-@!A`'!'A` 6-%Vj}&6-%@06-$+@%',: 6-&D 6-%N 6-%X'!'A@b$$6-P:$A%?P,'AVk}l$$6-P:$A%?P,'Av6-%@ A' 'A6-%@-@Vl}@### P:$A%?P,'A-@ @### P:$A%?P,'A-@1@#""Vm} P:$A%?P,'A6- 6-%'&@!A  Ap 6-%@Vn}%   "" CHANGE DATA AND RECOMPUTE?  (1=YES, 0=NO) * 4"@@ > 6-Vo} D:EITABLE"" CHANGE DATA AND RECOMPUTE?  (1=YES, 0=NO) * 4"@@ > 6-T%gyA EA y@P + .. &EFFECTIVE INTEREST RATE ON INVESTMENTS  INZq}ITIAL INVESTMENT(2"" TOTAL VALUE AFTER Y YEARS<F NUMBER OF YEARSPZ ANNUAL INTEREST RATE Zr}=d-- ++',#+@',&@,$A%n x!! MORE DATA? (1=YES, 0=NO)"@@ Zs} D:EIRONINV@',&@,$A%n x!! MORE DATA? (1=YES, 0=NO)"@@ X  S Y + ((  FUTURE V^u}ALUE OF REGULAR DEPOSITS ## AMOUNT OF REGULAR DEPOSITS(2 NOMINAL INTEREST RATE<F # OF DEP^v}OSITS PER YEARPZ NUMBER OF YEARS, MONTHSd i6-+@$%,'@n6-''Ax''6-$++@^w}%,#+$,&@,' FUTURE VALUE = $"" P:$A%?P,'A !! MORE DATA? (1=YES, 0=NO)^x}"@@ D:FVOFRD"" P:$A%?P,'A !! MORE DATA? (1=YES, 0=NO)\3  JY + %% FUTURE VALUE OF Abz}N INVESTMENT  INITIAL INVESTMENT(2 NOMINAL INTEREST RATE<F%% COMPOUNDING PERIODS PER YEARb{}PZ NUMBER OF YEARS, MONTHSd i6-+@$%,'@n6-''Ax6-$+@%,#+$,b|} FUTURE VALUE = $"" P:$A%?P,'A !! MORE DATA? (1=YES, 0=NO)"@@ b}} D:FVOFANI"" P:$A%?P,'A !! MORE DATA? (1=YES, 0=NO)"@@ `  \ZlY?333@@@@0GA @ +  f}INITIAL INVESTMENT "" TOTAL VALUE AFTER Y YEARS(2** !# OF COMPOUNDING PERIODS PER YEAR<F NUf}MBER OF YEARS, MONTHSG PER YEARP U6-+@$%,'@Z NOMINAL INTEREST RATEdi6-+@f}$%,'@n6-''Ax6-'+@%,#+$,}$$6-P:$A%?P,'A INITIAL INVESTMENf}T = $"" P:$A%?P,'A !! MORE DATA? (1=YES, 0=NO)"@@  D:f}ININVEST"" P:$A%?P,'A !! MORE DATA? (1=YES, 0=NO)"@@  D:d qfxYBJI@uAP@@@333?@Aq@ @V @rD j} +  LAST PAYMENT ON A LOAN  REGULAR PAYMENT(2  PRINCIPAL<F TERM IN YEAj}RS, MONTHSP U6-+@$%,'@Z ANNUAL INTEREST RATEdn6-'Ax # OF PAYMENTS Pj}ER YEAR 6--@$**6-P:+$',$A%?P,'A 6-& 6-&  LASj}T PAYMENT = $&& P:+%,$A%?P,'A !! MORE DATA? (1=YES, 0=NO)"@@ j} D:LPOALOAN:+%,$A%?P,'A !! MORE DATA? (1=YES, 0=NO)"@@ h  \ewY@A  + ** n}"MINIMUM INVESTMENT FOR WITHDRAWALS  AMOUNT OF WITHDRAWALS(2 NOMINAL INTEREST RATE<F"" # n}OF WITHDRAWALS PER YEARPU6-+@$%,'@Z NUMBER OF YEARS, MONTHSd i6-+@$%,'@n}n6-'Ax556-$'$+@&@'++@%',#+$,,,}$$6-P:$A%?P,'A MINIMUn}M INVESTMENT = $"" P:A$%?P,'A !! MORE DATA? (1=YES, 0=NO)"@@ n} D:MININVFW"" P:A$%?P,'A !! MORE DATA? (1=YES, 0=NO)"@@ l fYIAEv@A0  +r} ,, $NOMINAL INTEREST RATE ON INVESTMENTS   PRINCIPAL(2  TOTAL VALUE<F NUMBER OF YEr}ARSPZ"" # OF COMPOUNDING PERIODS _ PER YEARdn116-$++',#+@'+$,,&@,$Ax r}NOMINAL INTEREST RATE =y %  MORE DATA? (1=YES, 0=NO)"@@  Dr}:NIRONINVNTEREST RATE =y %  MORE DATA? (1=YES, 0=NO)"@@  Dp _:LNBIJAPA`@?@A"x AwAA#@  + #v}# REMAINING BALANCE ON A LOAN  REGULAR PAYMENT(2 PRICIPAL<F # OF PAYMENTS PER YEARPv}Z ANNUAL INTEREST RATEdn6-'Ax NUMBER OF PAYMENTS MADE 6--@v}**6-P:+$',$A%?P,'A 6-& 6-&  REMAINING BALANCE = $"" P:$A%?P,v}'A !! MORE DATA? (1=YES, 0=N0)"@@  D:RBOALOAN"" P:$A%?P,tf  JY +  REGULAR DEPOSITSz} "" TOTAL VALUE AFTER Y YEARS(2 NOMINAL INTEREST RATE<F # OF DEPOSITS PER YEARPZ z} NUMBER OF YEARS, MONTHSd i6-+@$%,'@n6-''Ax''6-$'++%@,#+$,&@,z} REGULAR DEPOSITS = $"" P:$A%?P,'A !! MORE DATA? (1=YES, 0=NO)"@z}@ D:REGINV"" P:$A%?P,'A !! MORE DATA? (1=YES, 0=NO)"@x  JY +  REGULAR DEPOSITS~} "" TOTAL VALUE AFTER Y YEARS(2 NOMINAL INTEREST RATE<F # OF DEPOSITS PER YEARPZ ~} NUMBER OF YEARS, MONTHSd i6-+@$%,'@n6-''Ax''6-$'++%@,#+$,&@,~} REGULAR DEPOSITS = $"" P:$A%?P,'A !! MORE DATA? (1=YES, 0=NO)"@~}@ D:REGDEP"" P:$A%?P,'A !! MORE DATA? (1=YES, 0=NO)"@|  J Y + !! REGULAR PAYMENT O}N A LOAN  TERMS IN YEARS, MONTHS( -6-+@$%,'@2  PRINCIPAL<F ANNUAL IN}TEREST RATEPZ # OF PAYMENTS PER YEARdnII6-++'A,$','+@&@'++'A,'%@,#+}$,,x REGULAR PAYMENT =$}"" P:$A%?P,'A !! MORE DATA? (1=YES, 0=NO)"@}@  D:RPOALOAN"" P:$A%?P,'A !! MORE DATA? (1=YES, 0=NO)"@#  \SbY  + .. }®ULAR WITHDRAWALS FROM AN INVESTMENT  INITIAL INVESTMENT(2 NOMINAL INTEREST RATE<F N}UMBER OF WITHDRAWALS G PER YEARPZ NUMBER OF YEARS, MONTHSd i6-+@$%,'@n6-}''Ax++6-$+'++@%,#+$,&@,%,}$$6-P:$A%?P,'A## AMOUNT OF WITHDRAWALS = $}"" P:$A%?P,'A !! MORE DATA? (1=YES, 0=NO)"@@ D:RWFAI|mnZ2Z9ZIPMTPTD1FFXXAJPIPMTOSPDSYD1PTZPMFZ1PIPD1HXHTHD1FHHTEMPOOIJJ}ddddA,eAeAeFdd d r d d : d d  df d }d. d d dA"e} !"#d$%& d'Z d()*+,***********}********** SINKFUND *C +AAF1AAPCA @;A,;A},;A,9A,9A,9A,;A,;A,;A,;A,;A,;A,~~;A},;A,;A,;A,;A,;A,;A,;A,;A,9A,;A, 6.}06..00'@'@@9 } *-@'  Ǡ* ++ #A SINKING FUND I}S AN ANNUITY WHICH ,, $MUST ACCUMULATE TO SOME FIXED AMOUNT,, $BY A GIVEN TIME IN THE FUTURE. THIS.. &MEANS THAT} A FIXED AMOUNT WILL BE PAID)) !INTO A FUND EVERY PERIOD AND EARN((  INTEREST. AT THE END OF THE LAST.. &PERIOD,T}HE SUM OF THE PAYMENTS AND THE++ #INTEREST WILL JUST EQUAL THE PREDE--- %FIXED AMOUNT. IN THIS PROGRAM WE MUST(( } INPUT THE FUTURE DESIRED AMOUNT // &(FUTURE VALUE), THE INTEREST RATE, AND++ #THE NUMBER OF PAYMENTS NEEDED. THE },, $PROGRAM WILL COMPUTE THE PAYMENT AND!-- %PRINT UP A TABLE SHOWING HOW THE FUND" GROWS.d$  PRESS ENTER T}O BEGIN$ }I E 9IS THE INTEREST RATE QUOTED BY PERIOD (P) OR ANNUALY(A)I+0P*0A!  INPUT ERR}OR+ A` D A4A6 NUMBER OF PAYMENTS PER YEAR:D B"00ORDINARY ANNUITY-FUTURE VALUE TYP}E PROBLEM, }6 AP@6-'AJ##6-$'++@%,#&@,T A PRINTOUT^INPUT SBRh}- }* ҠȠƠŠǮ- r5 Ap' FUTURE VALUE +5 B|5 A' NUMBER OF PA}YMENTS +5 BS A4A3 ANNUAL INTEREST RATE (%)7?6-'I BS A< A. I}NTEREST RATE PER PERIOD 2< B$PRINTOUT }Z+ SINKING FUND FOR  PAYMENTS AT Z INTERES}T RATE OF A$ % PER PERIOD NUMBER OF PAYMENTS = 6 4A6 CONSISTING OF  PAYMENTS ANNUALLY.} = 4A3 ANNUAL INTEREST RATE = A$$= A )) INT. RATE PER PERIOD = A$ $ $ } PAYMENT =  + ' PRESS ENTER TO PRINT TABLE + }k68@,--68@,-}B68@,-kSUM OF PAYMETS, INT, AND INCR. IN FUND226.( PER DEP INT/FUND INC/FUND AMT 116.}' --- --- -------- -------- ---0   56-:-@D 6-$6-%%6-%N99A=AMT I}N FUND: P1=INTEREST ON FUND:D1F=INCR ON FUNDX 6.=:,6-B:,Y 6- B6.6-Z 6- B6.6}-[ 6- B6.6-\ 6- B6.6-]g@@& 0@@ &5 I@}@&N b@@(&g ^@@7& b9"'@"P:'@,*0Y, Ap2 }6 9} lQ68@,-8@,%768@,-8@,%Q68@,-8@,%v (6-8@, B"6.(}6-(6-8@, B"6.(6-(6-8@, B"6.(6-W  TOT!@@ && :}@@&? S@@(&W 5  ' PRESS ENTER TO CONTINUE +5 AP N!!** ROUTINE TO FORMAT} OUTPUT*N&&6-P:+%>P,$A,'A0N#"6.OO0# B 1N 6.=:,4NS6.7B:,&@N07@<@,0.067B:,%@,.HNH6- -@}B:,-7<,0.;6-%@? H6-B:,RN$ D:SINKFUND,0.067B:,%@,.HNH6- -@F