' +JJJJ ?\>m0M='+l> /+l  H d@hLҦ L~ L  ﵪ*i BB䵊嵰`72µ- i ư&( Rp s P  LLʬLoō 鷎귭෍ᷩ췩緈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)*++`NG8`0($ p,&" ۿ ۿڿL흍ٿ vLQ  !"#$%&'()*+,-./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#0(,*!!.<,$94>94="4; +,E!r ; $ Hh Լ ռ ռ ռ`HJ>݌h Hh݌`DF DF /L\HIHHHHhHH݌hHhHh݌H6 VDP (FD Z $0x8x D- ܸDD) H8`?F Vk *f???0xF Hh D#-FFF8` D ܸx D - ܸx8`-0ݩ?ʥD FFF`   LDcpq` [` ~  LӜsqu`".Q`pNФbptťܥm2<(-Py0\|e<6e< ~ vL~ JJJJj귍hI  aUL@ kU8  L  ^R(jQ0l^l\  OÌȌ`W ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQL߼YLeLnLeLee ўQ0 L&RE;BY; Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L׭Lܫ &RL &QL d L4 We)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ\L \ şL_ NLjHv 3h`0h8` [L NС õ`A@` ŵL]Lõ`  \ 濭0 ş  Q ^\lZl^\8  ş Lȟ`fhjõĵ@OAP`u@`@&`QR`F Ls  @DAF@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@ ,\Z[PRN,XɄOɊRQF(0B1 ^0(p ߩRP1Q ɿ, P\L˵B̵C8pB߮Z\ @ յյ\BIR Z-^ Jp\IZLL-(;   Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J LsL Q(`贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (ꭽBC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / şFD B ߼ / ]ƴS0Jȴ ȴ)  紅D贅F B ƴ  / 0L Ν `ND8HFFhDh N ş`, ŵBѵ`, ѵB8`  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˵̵ֵ׵`LzĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`` Bl şL/Ơĵµ`ڿ8.ڿ.ۿ`êL`õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH x(`F d Ġ͠z) u`z#     Ϡ Ůà" ՠӠ- Ӡ)ǠŠǮĠ"D"D"D"D"D"D"D"D"D"D"x "D"D"D"D"D"D"D"0ժ"D?ԪE"D"D""D"D"D"D"ժժժ"D"D"D"D"D"D"D"0ժժժ"Dz?ԪǪժE"D"D"D"D"D"D@ @   D"D1U*U P D"D"D"D"D"D"D"Da "8@"A"AXB"U"A"8@"A"D"Dy!D"D"D"D"D"D"D"D1U*U*U*U D"Dx"D"D"D"D"D"D"D"D"D"D"D"D"D"D"D"D"D"D"D"D"D"D"D1U*U*U*U D"D"D"D"D"D"D"D"D"D"D"DP*U*U*U*U*U*U"D"D"D"D"D"D @*@*@* D"D1U*U<< D"D"D"D"D"D"D"D"D"D"D"D"D"D"D"D"D"D"D"D"D"D*U*U*U*U D<4"D"D"D"D"D"Dx~Q*U*y*U*U"D"D"D"D"D"D"D"D"D"D"D"D"D1U*U*U*U DX1b`p0@bA`"D"D"D"D"D"DP8T*U*U*U"D"D"D"D"D"D"D"D"D"D"D"D"D9|@!D"D"D"D"D"D"D"D1U*@\@ D"D8@@U"D"D"D"D"D"D"D*U*U*U*U D"D"D"D"D"D"D"D1U*U*U*U D"DxUx/U*U"D"D"D"D"D@* @* @*@ @*@ "D"0ժժժ"D"D"D"D"D"D"D"d "@ D"D"x "D"D"D"D"D"D"D"0ժժժ"DzG"D"D"D "D"D"D"D"D"D"D"D"D"D"D"D"D"D"D"D"D"D"D"0ժժժ"D"D"D"D"D"D"D"D"D"D"D*ժժժժժժE"D"D"D"D"D@***"D"0ժՀ"D"D"D"D"D"D"D"D"D"D"D"D"D"D"D"D"D""D"D"D"D"ЪD"D""DzժԪժE"D"D"D"D"D"D"D"D"D"D"D"D"0ժժժరD"D"D"D"D"D*ժԪժE"D"D"D"D"D"D"D"D"D"D"D"D"؝ "D"D"D"D"D"D"D"0ժ"DǓטE"D"D""D"D"D"D"ժժժ"D"D"D"D"D"D"D"0ժժժ"Dz?|ϪժE"D"D"D"D"D"DP"P "@@ @@ " D"D1U*U D"D"D"D"D"D"D"DQA"Ap0@p"D"D D"D"D"D"D"D"D"D1U*U*U*U D"Dx"D"D"D?D"D"D"D"D"D"D"D"D"D"D"D"D"D"D"D"D"D"D"D1U*U*U*U D"D"D"D"D"D"D"D"D"D"D"DP*U*U*U*U"D"D"D"D"D"D@  D"D1U*U*U*U D"D"D"D"D"D"D"D"D"D"D"D"D"D"D"D"D"D"D"D"D"D*U*U*U*U D80"D"D1U*U*U*U D"DxS*U*|)U*U"D"D"D"D"D"D"D"D"D"D"D"D"D*U*U*U*U D3@@!0 @@"D"D"D"D"D"D~T*U*U*U*U*U"D"D "D"D"D"D"D"D"D"D"D"D"D9-eyA!D"D"D"D"D"D"D"D1U*@S@ D"D8@G@"D"DT$"D"D"D"D"D*U*U*U*U D"D"D"D"D"D"D"D1U*U*U*U D"Dx?~U*U"D"D           1012,0214,255:::16302,0:3:(4)"BLOAD TITLE.PIC":A768773:B:A,B::1,0,4,0,6,0:232,0:233,3:0:192:C01:D0279:1D,0::(4)"RUN MENU":""D"D"D"D"ժժժ"D"D"D"D"D"D"D"0ժ"Dz?ժE"D"D""D"D"D"D"ժժժD"D"0ժժժ"Dzժ~ѪժE"D"D"D"D"D"D"D"D"D"D"D"D"D1U*U*U*U D"D"D"D"Da E ApA"D"@XB"A" pA""D"D9}eeA!D"D"D"D"D"D"D"D1U*@ D"D8@@"D"D"D"D"D"D"D"D"D"D"D"D"D"D"D"D* D"D1U*U*U*U D"D"D"D"D"D"D"D"D"D"D"D"D"D"D"D"D"D"D"D"D@ @*@ A*@ D"D1U*U<< D"D"D"D"D"D"D"D D"D"D"D"D"D"D"D"D"D"D"D"D"D"D"D"D"D"D"D*U*U*U*U D@?`@ c}`}"D"D"D"D"D"D`SU*U*U*U*U"D"D"D"D"D"D"D"D"D"D"D"D"D1U*U*U*U D"D"D"D"D"D"D"D"D"D"D"DP*U*UNbb*U*U"D"D"D"D"D"D"D D"D"D"D"D"D"D"D1U*U*U*U D"DxQ*U"D"D"D"D"D"D"D*U*U*U*U D"D"D1U*U*U*U D"DxO*U +U*U"D"D"D"D"D"D"D"D"D"D"D"D"0ժժժ"D"D"D"D"D"D"D"d̑"  ؒD""P!D"D" "D"D"D"D"D"D"D"0ժժժ"DG"D"D"D"D"D"D"D"D"D"D"D"D"D"D"D( "D"0ժժժ"D"D"D"D"D"D"D"D"D"D"D@"D"D"D"D"D  @QAQ""D"0ժՀ"D"D"D"D"D"D"D"D"D"D"D"D"D"D"D"D"D""D"D"D"D"ժժժ񀀠D"D"D"D"D"DrժՊժժE"D"D"D"D"D"D"D"D"D"D"D"D"0ժժժD"D"D"D"D"D*ժժΘԪժE"D"D"D"D"D"D"D"D"D"D"D"D"x "D"D"D"D"D"D"D"0ժ"DzժE"D"D""D"D"D"D"ժժժ"D"D"D"D"D"D"D"0ժժժ"DzժӪժE"D"D"D"D"D"D"D"D"D"D"D"D"D1U*U*U*U D"D"D"D"D"D"D"Dq"8S"T"@XB"A  8""D"D9@!D"D"D"D"D"D"D"D1U*U*U*U D"D8@@"D"D"D"D"D"D"D"D"D"D"D"D"D"D"D"D D"D1U*U*U*U D"D"D"D"D"D"D"D"D"D"D"DP*U*U*U*U*U*U"D"D"D"D"D"D @*(@ (@* D"D1U*U D"D"D"D"D"D"D"D"D"D"D"D"D"D"D"D"D"DĀ"D"D"D"D*U*U*U*U D6"D"D"D"D"D"DxWxT*U*%*U*U"D"D"D"D"D"D"D"D"D"D"D"D"D1U*U*U*U D`@00@G`` "D"D"D"D"D"DPU*UNFF*U*U"D"D"D"D"D"D"D"D"D"D"D"D"Dy!D"D"D"D"D"D"D"D1U*@ D"Dx*U"D"D"D"D"D"D"D*U*U*U*U D"D"D"D"D"D"D"D1U*U*U*U D"Dx*UB'U*U"D"D"D"D"D"D"0ժժժ"D"D"D"D"D"D"D"t̓A"A""؂"@ "" D"D" "D"D"D"D"D"D"D"0ժժժ"DzG"D"D"D"D"D"D"D"D"D"D"D"D"D"D"D"D"D"D"D"D"D"D"0ժժժ"D"D"D"D"D"D"D"D"D"D"D*ժժժժժժE"D"D"D"D"D***@*@("D"0ժՀ΀"D"D"D"D"D"D"D"D"D"D"D"D"D"D"D"D"D""D"D"D"D"ժժժD"D"D"D"D"DzժղԪժE"D"D"D"D"D"D"D"D"D"D"D"D"0ժժժ࿂D"D"D"D"D"D*ժԪժE"D"D::" 1. INITIAL INVESTMENT"::" 2. FUTURE VALUE OF AN INVESTMENT"::" 3. REGULAR WITHDRAWALS FROM INVESTMENT"::" 4. MINIMUM INVESTMENT FOR WITHDRAWAL"::" 5. RETURN TO MENU..."::#20:"WHICH (1-5) ? ";:A$:A$:A$"1"112$A$"2"115MAINING BALANCE ON A LOAN"::7);"5. TERM OF A LOAN"::7);"6. RETURN TO MENU":: 22:"WHICH (1-6) ? ";:A$:A$:A$"1"97 A$"2"100 A$"3"103 A$"4"106 A$"5"109 A$"6"3 !27":50:16);"INVESTMENTS"::50:5) ? ";:A$:A$:A$"1"60) A$"2"648 A$"3"68G A$"4"90U A$"5"3] 20V :50:15);"((( LOANS )))"::50:::7);"1. PRINCIPAL ON A LOAN"::7);"2. REGULAR PAYMENT ON A LOAN"::7);"3. LAST PAYMENT ON A LOAN"::7);"4. RE 14 :50:13);"((( INTEREST )))"::50:::"1. NOMINAL INTEREST RATE ON INVESTMENTS"::"2. EFFECTIVE INTEREST RATES ON ''"::"3. EARNED INTEREST TABLE"::"4. ANNUAL INTEREST RATE ON A LOAN"::"5. RETURN TO MENU":: 20:"WHICH (1-PRECIATION )))"::50:::10);"1. DEPRECIATION RATE"::10);"2. DEPRECIATION AMOUNT"::10);"3. SALVAGE VALUE"::10);"4. RETURN TO MENU":::: 20:"INPUT YOUR CHOICE? (1-4) ";:A$:A$:A$"1"52 A$"2"55 A$"3"58 A$"4"3DEPOSITS"::13);"(F) AMORTIZATION":::13::"(X) EXIT TO MENU":L  22:"WHICH (A-F) ? ";:A$:A$:A$"X"ĺ(4)"RUN MENU" A$"A"13 A$"B"19 A$"C"26 A$"D"34 A$"E"41 A$"F"46 5 :50:11);"((( DE+::152JB(37)2:"WANT ANOTHER RUN (Y/N) ? ";:A$:A$:37,B:F ::50:7);"BUSINESS ( FINANCIAL ) SERIES"::50:" MENU... (A) DEPRECIATION"::" (B) INTEREST"::13);"(C) LOANS"::13);"(D) INVESTMENTS"::13);"(E)              CODE = "(D)O :8:E$:10:B$(C):16:"PRESS RETURN TO CONTINUE ";:F$:2d A$"RUNANALYSIS"y A$"RUNBUSINESS"YEMENT ANALZER":C$"":A27:B1A:C$C$(45)::5:6:C$:8:6:"1 -- CASH FLOW ANALYSIS":10:6:"2 -- BUSINESS FINANCIAL ANALYSIS" C0:D$" ":22:32:D$;\ 22:9:"PLEASE TYPE A NUMBER - ";:D$:1:A$:D$(13)7x D$(10)Ģ22:32:D$; C(D$):4 C13,14 3 D(222):D6E$"PROGRAM NOT FOUND":12 D13E$"PROGRAM TYPE INCORRECT":12 E$"ERROR{H FINANCIAL STATEMENT ANALZER (C) 1983 GENERAL MASTERS CORP FP _A$(4):216,0:9 ::4:6:"FINANCIAL STATEMENT ANALZER":C$"":A27:B1A:C$C$(45)::5:6:C$:8:6:"1 -- CASH FLOW ANALYSIS":10:6:"2 -- BUSINESS FINANCIAL ANALYSI  D"D"D"D"D"D"D"D"D"D"Dy!D"D"D"D"D"D"D"D1U*U*U*U D"Dx"D"DT$"D"D"D"D"D*U*U*U*U D"D"D"D"D"D"D"D1U*U*U*U D"Dx?~U*U"D"D"D"D"D"D"D"D"D"D"D"D"0ժժժ"DzG"D"D"D D"D" "D"D"D"D"D"D"D"0ժ"DדǑ?@"D"D"D"D"D"D"D"D"D"D"D"D"D"D"D((("D"0ժժժ"D"D"D"D"D"D"D"D"D"D"D"D"D"D"D"D"D"D"D"D @(@ @(@ "D"0ժՀ"D"D"D"D"D"D"D"?"D"DѠD"D"D"D"D"D"D"D"D"D"D"D"D"D"D"D"D"ժժժÑσD"D"D"D"D"DJժժժժժE"D"D"D"D"D"D"D"D"D"D"D"D"0ժժժ"D"D"D"D"D"D"D"D"D"D"D*ժժԪժE"D"D0)H1)(HF))(G100):51:5);"!!! PRINCIPAL= $";(C100.5)100;" !!!"::51:2:A$"N"3dc97ad:50:7);"REGULAR PAYMENT ON A LOAN"::50::"WHAT IS TERM IN YEARS.........#";F::"WHAT IS PRINCIPAL AMOUNT......$";C::"ENTER ANNUAL INTERESTA$"N"3`90a:50:8);"((( PRINCIPAL ON A LOAN )))"::50:"REGULAR PAYMENT AMOUNT..........$";L::"TERM IN YEARS...................#";F::"ENTER ANNUAL INTEREST RATE......%";G::"ENTER NUMBER OF PAYMENTS/YEAR...#";H:\bCLH(11((G10MBER OF PAYMENTS PER YEAR.....#";H::G10:I0z[Z(GCH)(11((GH1)(HF))):Z(Z100.5)100:Q(GI)2:IG:ZL95\ZL94]GGQ:91^GGQ:91_G((((G1000)100.5))100)1000:51:5);"ANNUAL INTEREST RATE= ";G100;" %"::51:2:F88UX:SN87 V:KK1'WS<X::2:A$"N"3FY:68-Z:50:6);"ANNUAL INTEREST RATE ON A LOAN"::50::"ENTER REGULAR PAYMENT AMOUNT....$";L::"ENTER TERM IN YEARS.............#";F::"ENTER PRINCIPAL AMOUNT..........$";C::"NU:W1:X1H:VJ79#MVJXH793NOOL:VV1aOYO(1GH):PYO:QQP:IIP:WRXH81{PIA(I):YA(Y):WW1QSN84RXHUM84SUU1:A(N)(N100.5)100:" (";S;")";9);A(Y);20);A(Q);30);A(I):Q0:KK1TOY:SXH1";C;" AT ";G100;" % FOR ";F;" YEARS":51:J075J"DEPOSITS/WITHDRAWALS $";L;" ";J;" TIMES/YEAR":51:A(N)(N100.5)100K"EFFECTIVE INTEREST RATE ";A(100((1GH)H1));" % PER YEAR"::"YEAR BALANCE INTEREST ACC/INTEREST"LU1:V1J0:M4G"STARTING WITH WHAT YEAR......(1-30) ";N::"STOP PRINTING WITH WHAT YEAR (1-30) ";F::34,0::N(N):OC:P0:I0:Q0:K66:R4:S1(F)1:SN76HK55762ITK66::T:K6:50:7);"((( EARNED INTEREST TABLE )))"::50:"PRINCIPAL = $ENTER PRINCIPAL AMOUNT...........$";C::"NOMINAL INTEREST RATE............%";G::GG100:"HOW MANY DEPOS/WITHDRAWALS PER YEAR ";J::J070E"AMOUNT OF DEPOS/WITHDRAWAL.........$";L::H360:MJ:71F"COMPOUNDING PERIODS PER YEAR.......#";H::"TOTAL VALUE AFTER (X) # OF YEARS $ ";E::"ENTER NUMBER OF YEARS.............#";F::51:100:7)"ANNUAL INTEREST RATE = ";((EC)(1F)1)100;" %"A255::51:2:A$"N"67B64C3D:50:7);"((( EARNED INTEREST TABLE )))"::50:::"OMPOUNDING PERIODS PER YEAR ?....";H::IH((EC)(1(HF))1)100::51:100>"THE NOMINAL INTEREST RATE= ";I;" %":255::51:2:A$"Y"61?3@34,8::"(EFFECTIVE INTEREST RATE ON INVESTMENTS)":"ENTER INITIAL INVESTMENT..........$";C::;F::51:100:10);"SALVAGE VALUE = $";(100C(1G100)F.5)100:255::51:2:A$"N"3c;58t<34,10:::M=:"ENTER PRINCIPAL AMT OF INVESTMENT ";C::"ENTER TOTAL VALUE AT MATURITY.....";E::"ENTER NUMBER OF YEARS.............";F::"C(1G)(F1):51:100Y812);"DEPRECIATION= $";(D100.5)100:255::51:2:A$"N"3a955[:34,8::11);"*** SALVAGE VALUE ***":::"ENTER ORIGINAL PRICE.........$";C::"ENTER DEPRECIATION RATE......%";G::"ENTER NUMBER YEARS...........#"= ";(1000D.5)1000;"%":255::51:2:A$"Y"539637:50:7);"((( DEPRECIATION AMOUNT )))"::50::"ENTER ORIGINAL PRICE..............$";C::"WHATS THE DEPRECIATION RATE.......%";G::GG100:"ENTER NUMBER OF YEARS.............#";F::DCG"*";:B:"*":+3B139:"-";:B:"-":<434,10:::25"ENTER THE ORIGINAL VALUE.........$";C::"ENTER THE RESALE PRICE...........$";E::"DEPRECIATE OVER HOW MANY YEARS...#";F:D100(1(EC)(1F))::51:100:" THE DEPRECIATION RATE IS $:A$"1"124+A$"2"127+,A$"3"33-42.:50:11);"((( AMORTIZATION )))"::50:::6);"1. MORTGAGE AMORTIZATION TABLE"::6);"2. RETURN TO MENU..."::/20:"WHICH (1-2) ? ";:A$:A$:A$"1"1300A$"2"31472B139:%A$"3"118&A$"4"121,'A$"5"34(35):50:13);"((( DEPOSITS )))"::50:::"  1. FUTURE VALUE OF REGULAR DEPOSITS":29);"(ANNUITY)"::" 2. REGULAR DEPOSITS":::" 3. RETURN TO MENU..."::: *20:"WHICH (1-3) ? ";:A$:A:I0:Q0:S0:JH:K66:OC:A10:C10:(F)1148=.S1(F)J.SN137\.KH358136S/TK66::T::51:"PRINCIPAL AMOUNT.........$";C:"INTEREST RATE............%";G:"TERM IN YEARS............#";F:"REGULAR PAYMENT..........$";L::"MO. MOUNT OF REGULAR PAYMENT.$";L::"ENTER TERM IN YEARS.............#";F::"ENTER PRINCIPAL AMOUNT..........$";C::"ENTER ANNUAL INTEREST RATE......%";G::GG100/."NUMBER OF PAYMENTS PER/YEAR.....#";H::"PRINTING TO START AT..YEAR (1-30)";N:B10EACH YEAR......#";H::"ENTER NUMBER OF YEARS............#";F::GGH100:LEG((G1)(HF)1),51:100:" REGULAR DEPOSITS = $";(L100.5)100::255:51:2:A$"N"3,127-:50:" MORTGAGE AMORTIZATION TABLE"::50::"ENTER A1G)(HF)1)G::51:100:7);"FUTURE VALUE = $";(E100.5)100::255:51:2:A$"N"3c+~124`,:50:9);"*** REGULAR DEPOSITS ***"::50::"ENTER VALUE AFTER (X)# OF YEARS..$";E::"ENTER NOMINAL INTEREST RATE......%";G::"HOW MANY DEPOSITS ALUE OF REGULAR DEPOSITS":" (ANNUITY)"::50::"AMOUNT OF REGULAR DEPOSITS........$";L::"ENTER NOMINAL INTEREST RATE.......%";G::"HOW MANY DEPOSITS EACH YEAR.......#";H:Z+}"ENTER NUMBER OF YEARS.............#";F:GGH100:EL((E.......%";G::"HOW MANY WITHDRAWALS EACH YEAR...#";H::"ENTER NUMBER OF YEARS............#";F:GG100)zCLHG(11((1GH)(HF)))::51:100:7);"INVESTMENT REQUIRED = $";(100C.5)100::255:51:2:A$"N"3){121*|:50:" FUTURE VwLC(G((1G)(HF)1)G):51:100:" AMOUNT OF EACH WITHDRAWAL = $";(L100.5)100::255:51:2:A$"N"3y(x118j)y:50:"** MINIMUM INVESTMENT FOR WITHDRAWAL **"::50:::"AMOUNT OF WITHDRAWALS............$";L::"ENTER NOMINAL INTERES RAT3 'u115'v:50:" REGULAR WITHDRAWALS FROM AN INVESTMENT"::50::"ENTER INITIAL INVESTMENT.........$";C::"NOMINAL INTEREST RATE............%";G::"HOW MANY WITHDRAWALS EACH YEAR...#";H::"NUMBERS OF YEARS.................#";F::GGH100p(.........$";C::"NOMINAL INTEREST RATE............%";G::"COMPOUNDING PERIODS PER/YEAR.....#";H::"ENTER NUMBER OF YEARS............#";F::GGH100'tEC(1G)(HF):51:100:5);"!!! FUTURE VALUE = $";(E100.5)100;" !!!":255::51:2:A$"N"#";F::"WHAT NOMINAL INTEREST RATE.........%";G::GGH100:CE(1G)(HF)%q51:100:8);"INITIAL INVESTMENT= $";(C100.5)100::255:51::2:A$"N"3%r112&s:50:7);"FUTURE VALUE OF AN INVESTMENT"::50:::"ENTER INITIAL INVESTMENT51:10);"!!! TERM= ";(F10.5)10;" YEARS !!!"::51:2:A$"N"3O$o109L%p:50:8);"((( INITIAL INVESTMENT )))"::50::"VALUE AFTER (X)# OF YEARS........#";E::"NUMBER OF COMPOUNDING PERIODS/YEAR.#";H::"LENGTH OF INVESTMENT (YEARS).......;"((( TERM OF A LOAN )))"::50::"ENTER REGULAR PAYMENT AMOUNT.... $";L::"ENTER PRINCIPAL AMOUNT...........$";C::"ENTER ANNUAL INTEREST RATE.......%";G::"NUMBER OF PAYMENTS/YEAR..........#";H:F$nF((1(C(G100))(HL))((1G100H)H)):NNUAL INTEREST RATE.......%";G::GG100"k"ENTER LAST PAYMENT MADE...":"PAYMENT # ";J:"YEAR....# ";F:OC:X1H(F1)J:P((OGH)100.5)100:ALP:OOA:X:51:7);"REMAINING BALANCE= $";(O100.5)100::51:2:A$"N"3"l106#m:50:10)LAST PAYMENT= $";((LO)100.5)100::51:2:A$"N"3@!i103("j:50:8);"REMAINING BALANCE ON A LOAN"::50:"ENTER REGULAR PAYMENT AMOUNT.....$";L::"ENTER PRINCIPAL AMOUNT...........$";C::"NUMBER OF PAYMENTS PER/YEAR......#";H::"ENTER AENT AMOUNT..$";L::"ENTER PRINCIPAL AMOUNT........$";C::"ENTER THE TERM IN YEARS.......#";F::"ENTER ANNUAL INTEREST RATE....%";G::GG1007!h"NUMBER OF PAYMENTS PER/YEAR...#";H::OC:X1HF:P((OGH)100.5)100:ALP:OOA:X:51:11);" RATE....%";G::"NUMBER OF PAYMENTS/YEAR.......#";H::L((G100)CH)(11((G100)H1)(HF))e51:8);"REGULAR PAYMENT= $";(L100.5)100::51::2:A$"N"3f100 g:50:6);"((( LAST PAYMENT ON A LOAN )))"::50::"ENTER REGULAR PAYM" ";I;:BE(I):7:16C);B$;:BF(I):7:28C);B$;:BW:7:40C);B$:5::C(37):23::"<< HIT ANY KEY TO CONTINUE ANALYSIS >>";:A$:::C1:`#OD(O):SD(S):A1D(A1):FD(F):ZD(Z):35,22::"ANALYSIS FOR AN INTEREST RATE OF = ";(O1)100;"%":100A(J) T60!:10)"A N A L Y S I S"::"TIME";10)"CASH";20)"PV OF";32)"PV CUM":"PERIOD"10)"FLOWS";18)"CASH FLOW";33)"TOTAL":I140:"-";::34,5:(2304)78Ĺ2049,5"F(0)E(0):W0:I0N:E(I)D(E(I)):F(I)D(F(I)):WWF(I):WD(W):I1(W)E(I):XD(X)2W0:I0N:WF(I)028OWWF(I)::W0Z1:29kZI1(W)F(I):ZD(Z)A(1)1:J199:W0:L1N:WWE(L)(1A(J))L:L:B(J)WE(0):A(J1)A(J)(B(J)).5(A(J)A(J1)):(A(J)A(J1))031J:A11:32A1 CASH FLOWS":"WILL NOT PAY FOR INVESTMENT."::"DO YOU STILL WANT TO CONTINUE YOUR"QGĺ"ANALYSIS (Y/N)? ";:A$:A$:A$"Y"86QGĺ:10)"COMPUTING"SRE(0):VQN:FE(0)V:W0:I0N:WE(I)025WWE(I)::W0X1:26XOT, PLEASE INPUT INTEREST (%)? ";I8 O1I100:OD(O) C(0)::10:10);"COMPUTING":E(0)G:F(0)E(0):Q0:R0:S0:I1N:QQE(I):F(I)E(I)OI:RRF(I)::T23XQGė:10:"THE INVESTMENT HAS A NEGATIVE RETURN. ITIS LIQUIDATING SINCE TOTALI4:958:3);I;10);E(I):u ::" NOW INPUT THE INTEREST RATE, COST OF CAPITAL, OR RATE OF RETURN...(%) ";:I" I1ĺ"PLEASE ENTER THE PERCENTAGE. IT SHOULD BE LARGER THAN 1%.YOU HAVE ENTERED ";I:"IF IT IS CORRECT, PLEASE REENTER IT."::"IF N CASH FLOW -- ";H :"HOW MANY TIME PERIODS? ";N:E(N),F(N):(2161)178Ĺ50,178:!POKE -16368,0 A$"Y"āI1N:E(I)H::16 :10)"CASH FLOW INPUT"::"TIME";10)"CASH FLOW":I1N:I4:958:3);I;10);:E(I):"."10 B$B$".00":11) B$B$"0"7 C(B$): D(C)(C100.5)100:"AVERAGE RETURN ON INVESTMENT = ";F::::" INITIAL NET INVESTMENT? ";G:G(G)::" CASH FLOW INPUT":"ARE THE CASH FLOWS ALL THE SAME? ";:A$::A$"Y"Ą"INPUT ANNUALING: DO NOT ALTER COPYRIGHT LINES! PROGRAM WILL BOMB IF YOU DO! ================================w A(100),B(100):12 (37)21ı 23::"<<< HIT ANY KEY TO CONTINUE >>>";:A$:::: B$(B):C$(B$,3):(C$,1)"."11 D$(B$,2):(D$,1)'m!----------------- INVESTMENT ANALYSIS (APPLESOFT) -----------------! COPYRIGHT MONTGOMERY A. LEE -----------------` 97:!============================== WARN           5:3,833:3,835:21,228:26,278:13:2,3939:2,390:0,392:0,393938:"BUSINESS (FINANCIAL) SERIES":20:"(C) 1983":12:"GENERAL MASTERS CORP.":B13000:B:3- (B) INTEREST"::13);"(C) LOANS"::13);"(D) INVESTMENTS"::13);"(E) 2:16,2628:16,2629:2:17,2030:22,2530:12:21,14:16,1814:24,2614I322,13:23,12:24,11:21,15:21,16:14:5,83:10,133:15,183:25,273:6,76:11,126:16,176:26,276:30,316:3,85:3,88:3,810:3,613:3,815:3,618:3,820:3,82S:FS149/1J((F(F))12)12H:SS1:1337151H12:A$"N"3Q1130K2:12:15,1915:14,2016:23,2715:22,2816:14:13,2917:12,3018:9:11,3119:11,3120:9:11,3121:12,3022:1:13,2923:13,2924:14,2825:14,2826:15,2727:100:SN141/0X;5);P;14);A;23);O;32);IC0X:B1HF143o0:"LAST PAYMENT = $";((L100.5))100|0SN1460"YEAR":" ";S;" ";Q;" ";C1::"PRESS (RETURN) TO CONTINUE..Q TO QUIT";:A$:::A$"Q"15000SF149 1Q0:C10:INTEREST AMOUNT ENDING ACCUM":" CHARGE AMORTIZED BALANCE INTEREST"::K7_/KKH3/X1J:P((OGH)100.5)100:B1B11:ALP:A1A1A:OCA1:B1HF139/LLO:AAO:A1A1O:O0 0IIP:QQP:C1C1A:A(A100.5)100:O(O100.5)3C);B$;:BJ(I):7:22C);B$;:BE(I):7:31C);B$;:BW:7:40C);B$:YYG1:J(0)J(0)J(I):5::7)"------";15)"------";23)"--------":K(0)D(K(0)):YD(Y)!J"TOT:";:BY:7:13C);B$;:BJ(0):7:22C);B$;:BW:7:32C);B$:6::I"K:::" DO E";7)"INCOME";15)"PRINCIPAL";26)"ANNUAL";34)"CUM":"PER.";8)"TAX";16)"PAYMENT";28)"CF";35)"CF":I140:"-";::" 0";9)"-";17)"-";28)"-";:BE(0):7:40C);B$:34,3:Y0:W0:I1N:WWE(I):G1K(I)E1100:WD(W):G1D(G1)!I" ";I;:BG1:7:1;15)"------";23)"--------";33)"-------":W0:I1NGWWE(I):I(0)I(0)I(I):H(0)H(0)H(I):K(0)K(0)K(I)::WD(W):I(0)D(I(0)):K(0)D(K(0)):"TOT:";:BW:7:13C);B$;:BI(0):7:22C);B$;:BH(0):7:31C);B$;:BK(0):40C);B$:6:: H"TIM3)"PAYMENT";33)"INCOME":I140:"-";::" 0";:BE(0):7:13C);B$;17)"-";26)"-";36)"-":34,3:I1N5F" ";I;:BG(I):7:13C);B$;:BI(I):7:22C);B$;:BH(I):7:31C);B$;:K(I)E(I)I(I)H(I):K(I)D(K(I)):BK(I):7:40C);B$:5::7)"------"ET PRESENT VALUE LESS THAN 0.":68KC"PRESENT VALUE PAYBACK PERIOD = ";ZD35,23:6::::" DO YOU WANT AN EXPANDED PRINTOUT OF THE";:"CASH FLOWS (Y/N)? ";:A$::A$"Y"75iEK(N)::"TIME";25)"INT";32)"TAXABLE":"PER.";7)"EBIT";17)"DEP";2RATE OF RETURN = ";A1@"AVERAGE RETURN ON INVESTMENT = ";F:X1ĺ"PAYBACK PERIOD--DOES NOT EXIST SINCE THESUM OF CASH FLOWS IS LESS THAN THE TOTALINVESTMENT.":66A"PAYBACK PERIOD = ";X"BZ1ĺ"PRESENT VALUE PAYBACK--DOES NOT EXIST SINCE NNUE ANALYSIS >>";:A$:::C1::OD(O):SD(S):A1D(A1):FD(F):ZD(Z):35,22>:"ANALYSIS FOR AN INTEREST RATE OF = ";(O1)100;"%":"NET PRESENT VALUE = "S:A11ĺ"INTERNAL RATE OF RETURN--NO VALUE EXISTS BETWEEN 0 AND 99%":64?"INTERNAL ";34)"TOTAL":I140:"-";::34,5:I0N:E(I)D(E(I)):F(I)D(F(I)):I(I)D(I(I)):WWE(I):WD(W)Q=" ";I;:BG(I):7:14C);(B$,C3);:BI(I):7:21C);(B$,C3);:BE(I):7:29C);B$;:BW:7:40C);B$:5::C(37):23::"<< HIT ANY KEY TO CONTID1(N1I)W:9A3F1GB1I(I)GB1(F1I(I)):F1GB1:G1(G(I)I(I)H(I))E1100:E(I)G(I)H(I)G1J(I):I1E(1)E(1)C1;:19e<F(0)E(0):W0::10)"A N A L Y S I S"::"TIME";23)"CASH";33)"CF CUM":"PER.";8)"EBIT";15)"DEP";23)"FLOWSA1A349'2W0:A3āI1N:WWI:A3D1GB1:A2D1D1B1l4:"TAX RATE (%)? ";E1:E11E1E11005I1N:A1I(I)D1N6A2I(I)D12N:D1D1I(I):F1F1I(I):F1GB1I(I)0:587A2F1GB1I(I)GB1(F1I(I)):F1GB1 8A3I(I)IT (Y/N)? ";:A$:A$:A$"N"B100:"HOW MUCH INVESTMENT CREDIT? ";C1::"WHAT TYPE OF DEPRECIATION TO USE?":5)"(1) STRAIGHT LINE.":5)"(2) DOUBLE DECLINING BALANCE.":5)"(3) SUM OF THE YEARS DIGITS.": 1"YOUR CHOICE (1-3)? ";:A$:A$:A(A$):958:" ";I;10);G(I);20);H(I);30);J(I)::6:::" INPUT THE SALVAGE VALUE OF THE":" INVESTMENT? ";B1:B1048!/B1.1Gĺ"** SALVAGE VALUE IS LESS THAN 10% THE INITIAL INVESTMENT. THIS IS NORMALLY":"IGNORED. DO YOU STILL WANT TO CONSIDER":";20)"INTEREST";30)"PRINCIPAL":"PERIOD";10)"EBIT";20)"PAYMENTS";30)"PAYMENTS":I1N:KI6:K22KI10,K:958:" ";I;10);:G(I):K:958:" ";I;10);G(I):A$"Y"ĢK:20:H(I)-K:958:" ";I;10);G(I);20);H(I):A$"Y"ĢK:30:J(I)t.K:A$"Y"75*T1:G(N),H(N),I(N),J(N):::" DO YOU KNOW THE INTEREST AND PRINCIPAL PAYMENTS? ** IF YOU ANSWER 'NO', THE":"PROGRAM WILL CALCULATE THEM FOR YOU."::"INPUT ANSWER (Y/N)? ";:A$:A$:A$"Y"İ88l+::6)"EBIT & LOAN INPUTS"::"TIME"E TOTALINVESTMENT.":392&"PAYBACK PERIOD = ";X'Z1ĺ"PRESENT VALUE PAYBACK--DOES NOT EXIST SINCE NET PRESENT VALUE LESS THAN 0.":41("PRESENT VALUE PAYBACK PERIOD = ";Z )35,23:6::::"DO YOU WANT TO CONSIDER TAXES (Y/N)? ";:A$::"NET PRESENT VALUE = ";S:A11ĺ"INTERNAL RATE OF RETURN--NO VALUE EXISTSBETWEEN 0 AND 99%":37$"INTERNAL RATE OF RETURN = ";A1%"AVERAGE RETURN ON INVESTMENT = ";F:X1ĺ"PAYBACK PERIOD--DOES NOT EXIST SINCE THESUM OF CASH FLOWS IS LESS THAN THZD$(4): CTRL/D,D$;"NOMON C,I,O"7 :(5)"FUNCTION : CALCULATE AVERAGE VALUE":(12):"WITH MOVING AVERAGES":"VARIABLE NAME OR 'END' ";VAR$#VAR$"END"200% CHECK CATALOG(10000 2FOUND0ĺ"VARIABLE ";VAR$;"     RS CORP."/f:"** REPRODUCTION WITHOUT THE EXPRESS **** PERMISSION OF THE AUTHOR IS **** STRICTLY FORBIDDEN!! **":6:TGOMERY A. LEE -----------------` 97:!============================== WARNAD IF THE LARGEST INPUT IS NOT LARGER THAN ONEMILLION (I.E. 999,999 IS THE LARGEST)." /e"IF THE FIGURES ARE IN THE MILLIONS THEN,JUST DIVIDE ALL INPUTS BY 1000 FOR AN EASIER READING OUTPUT."::" THIS PROGRAM IS COPYRIGHTED BY:"::10)"GENERAL MASTETHERE IS NO ATTEMPT TO TEACH STATISTICAL":"METHODS. THESE ARE LEFT TO EACH PERSON TO UNDERSTAND.**"U.d" THE PROGRAM, HOWEVER, IS SIMPLE ENOUGHFOR ANYONE TO USE AND CONDUCT A BASIC":"ANALYSIS OF AN INVESTMENT.":6:" THE DISPLAY WILL BE EASIER TO REG INTEREST AND TAXES, ALONG WITH INVESTMENT CREDIT AND DEPRECIATION. THE THIRD SECTION WILL";:"CONDUCT A VERY BASIC RISK ANALYSIS.":e-c" ** PLEASE NOTE. THE AUTHOR DOES NOT ATTEMPT TO TEACH FINANCIAL ANALYSIS TECHNIQUES IN THIS PROGRAM. ALSO, E OF THIS PROGRAM IS TO DETERMINE THE DESIRABILITY OF A CAPITAL INVESTMENT. THIS PROGRAM WILL EXAMINE SEVERAL ASPECTS OF AN INVESTMENT.",b" THE FIRST SECTION WILL EXAMINE ONLY CASH FLOWS. THE SECOND SECTION WILL LOOKAT THE CASH FLOWS CONSIDERIN(PM1):92:M:DNDN9*[M1D:H(M)N(M):J(M)O(M)::d*\N114N(M12)D(O1):O(M12)D(P1):r*]N11295*^Q10:O10:P10:N10:R10*_R1P:O1O1L1:Q1Q1K1:N1N11:P1P1M1:N112ı*`N(M12)D(O1):O(M12)D(P1):+a::" THE PURPOS(0):4a)X:::"ENTER AMOUNT OF LOAN? ";P:EP:"ENTER INTEREST RATE OF THE LOAN? ";J1:J1190o)YJ1J1100*Z:"ENTER DURATION OF LOAN IN YEARS? ";D:N(D),O(D):K1P(J112)(1(1(1(J112))(D12))):M1D12:L1PJ112:L1D(L1):M1D(K1L1):PDING TO THE EQUATION:":15)"X - E(NPV)":10)"Z = ----------":17)"STD DEV"(U:"STANDARD STATISTICAL TABLES CAN BE USED TO EVALUATE THE RESULTS."(V::6::"ANOTHER PROBLEM (Y/N)? ";:A$::A$"N"ĺ" THANK-YOU.":(4)"RUNMENU":)W:CR":I140:"-";:::W;15);H1;30)I1:C(37):23:"<<< HIT ANY KEY FOR EXPLANATION >>>";:A$:A$:37,C:T(T:" THESE RESULTS CAN NOW BE USED TO TEST THE ACCURACY AND CONFIDENCE FOR ALL THE RESULTS USING STATISTICAL ANALYSIS.":" BY NORMALIZING ACCORDOI::H1(H1):WD(W):H1D(H1):I1D(I1)::::"EXPECTED NET PRESENT VALUE = ";W::"THE STANDARD DEVIATION FOR INDEPENDENCE IS = ";H1j'S:"THE STANDARD DEVIATION FOR PERFECT":"CORRELATION IS = ";I1:::"E(NPV)"13)"STD DEV-INDEP";28)"STD DEV-COR%QUWJ:W0:M0J:WWC(I,M)M(M):L(I)(C(I,M)U)2M(M)L(I):M:E(I)W:L(I)(L(I)):WD(W):DD(L(I)):KJ2:25:W:KJ2:33:D:K221K2:&RK2:J11:I:6:::10:10)"COMPUTING":W0:I0N:WWE(I)OI:H1H1L(I)L(I)(O(2I)):I1I1L(I)D(W):W181$OW1Ģ23:"THE SUM OF THE PROBABILITIES CANNOT BE GREATER THAN ONE!! PLEASE REENTER.":W0:J1:K1:78%PJ:W1ĺ"PLEASE ENTER ONE MORE CASH FLOW SO THAT THE PROBABILITIES TOTAL ONE."::" CASH FLOW? ";C(I,0):M(0)1W:JJ1:K:#M"TIME";10);"CASH";20)"PROB.";35)"STD.":"PER.";10)"FLOW";20)"0 FILE DESCRIPTION RETURNED IN STUFF$T ?FOUND0o @D$;"OPEN CATALOG.DBD" AD$;"READ CATALOG.DBD" BNFILES CNFILES0ĺ"NO FILES CURRENTLY DEFINED":D$;"CLOSE CATALOG.DBD":D$: DI1NFILESENAME$,STUF" /NOBS! 0ST1(NOBSIN1)+ 1SUM0? 2IST(STIN1)_ 3D$;"READ ";VAR$;".DAT,R";Ih 4NUMx 5SUMSUMNUM 6I 7ST;"-";STIN1;: 815:"AVERAGE = ";SUMIN 9ST :D$::40 ; CATALOG CHECK ROUTINE < RETURNS FOUND=1 IF FIOODBYE...":(4)"RUNMENU"- %D$;"CLOSE"::K & MOVING AVERAGES ROUTINEc '"MOVING AVERAGE ";~ ("INTERVAL (OR 0) ";IN ) *IN0ė:: +INNOBS40 , *** SET UP OUTTER LOOP -D$;"OPEN ";VAR$;".DAT,L15" .D$;"READ ";VAR$;".DAT,R0= ";NOBS SUM00  READ FILE AND GET TOTAL> I1NOBS] D$;"READ ";VAR$".DAT,R";If NUMv SUMSUMNUM|   CALCULATE AVERAGE AVGSUMNOBS  "AVERAGE IS ";AVG !D$;"CLOSE ";VAR$;".DAT":D$ "38 #3 $"G NOT EXIST"::5# PRINT HEADERF "VARIABLE ";VAR$;" - ";STUFF$L l D$;"OPEN ";VAR$;".DAT,L15"  OPEN DATA FILE D$;"READ ";VAR$;".DAT"  GET NUMBER OF DATA POINTS NOBS NOBS0ĺ"NO DATA":33 "NUMBER OF OBSERVATIONS PD$(4): CTRL/D,D$;"NOMON C,I,O"7:(5)"FUNCTION : CALCULATE AVERAGE VALUE":(12):"WITH MOVING AVERAGES":"VARIABLE NAME OR 'END' ";VAR$VAR$"END"36 CHECK CATALOG 59 FOUND0ĺ"VARIABLE ";VAR$;" DOES