ְwְְUPAUA.:CROMEMCOMoneyMasterversion1.12-4/10/83+:Copyright1982,1984byCromemco,Inc.':WritteninCromemcoStructuredBasic ] 8"6:Usesetcommandtodisableautomaticcursorreturns%;2 d $2 4 <B Q9f(/:"9|(/p9(/dD"9(/dH9(/E"9(/d@F!"F"FF !!`=Na/F !p=Na!! Cromemco MoneyMaster!!)Ff!!|!! Menu of Functions:F !!p=Nq!1F !!1 Stock Yield !!analysisG"5G !!2 Stock Buy Price !!analysisG"G9Number of Years Real Estate Is Expected to Be Owned (5)= !"" 9'"B$7 B%(2F.Restriction: 40 is the maximum number of years"AB%GBuy Price ($100,000)= !"" 9'"B$7%G Expected Sell Price ($200,000)= !"" 9'"B$7!GSize of Mortgage ($80,000)= !"" 9'"B$4& B0$FMortgage too big"A'G"Number of Years of Mortgage (30)= !"" 9'"B$7 B%<&G!Interest Rate on Mortgage (12%)= !"" 9'"B$79'1CGClosing Costs ($2,000)= !"" 9'" B&%G Annual Property Taxes ($2,000)= !"" 9'"B$7(G#Income Tax Rate on Interest (55%)= !"" 93'" B3&-G(Income Tax Rate on Capital Gains (22%)= !"" 9I'" BI&$GMonthly Rental Value ($1,000)= !"" 9]'" B]&1G,Annual Depreciation of Structures ($2,000)= !"" 9v' Bv&9'?GInitial Investment = !"F $$,$$$,$$$.$$ 0.9'? 9'9'.0. 38 9'9Q'0A@ħ!GMonthly Mortgage Payments = !"F $$,$$$.$$ FNOW COMPUTING...):A(I)arethefuturevaluecoefficients!:quickpowerseriessumroutineC:Sum=1.+(1.+Rate)+(1.+Rate)**2+(1.+Rate)**3.......+(1.+Rate)**N-1 B&9'"A@:IfN>0thencomputethetermsfor(1.+Rate)**IforI=0toN-19'A.9'A9'?B'9B0'B0-9B'B0-EB.:Nextsumthesetermswith1.+(1.+Rate)term9' ?B'Qq9'.B-$0B.0]-A031C0v-31C-A.1A EB79&'00000.-v-I1C B&$A=9'&0..1.3A10AB0$= 9'A},F'After-Tax Yield on Purchase Price (%)= !"F###.# -C1F,After-Tax Return on Initial Investment (%)= !>F###.# &13A10A-CA+F&Investment loses money. Total loss = !,F$$,$$$$,$$$.$$ 00-Q0AF!9PLEASE NOTE: These computed results are only approximate.F:Equipment will be worn out before it can be cost justified"A^&F!Number of Months to Break-Even = !"F#,### {J>F:Monthly savings insufficient for simple cost justificationJm\A ININTEREST NULINBMONIT'ON MONIT'OFFGRAPH'ONBOLD'ONCLR'SCRNNORM'VID START'PROGRAM8W .GETNUMBERSxIN STOCK'YIELD8o STOCK'BUY8A BOND'YIELD8BOND'BUY8REALESTATE'YIELD8c BREAKEVEN8FAREWELL8l .SCRATCHLINExSNBUYSELLDIVIDENDRATE NEXT'RATESTART'IT8SUMCOMPUTE'STOCKTOTAL8 TOTAL'YIELDMONTHLYDIVIDEND MONTHLYRATECOMPUTE'STOCKBUY8COUPON START'ITERATE8R COMPUTE'TOTAL8g COMPUTE'BUY8MORT MORTYEARSLOANRATE CLOSINGCOSTS PROPERTYTAXTAX'INT TAX'GAINSRENTVAL DEPRECIATION DOWNPAYMT MORTFACTORS8?PAYMENTS START'ITE8CCOMPUTE'REALESTATETOTAL8ARG MORT'YEAR'NLOSER8P1MSAVINGSNETMONTHLYSAVINGSBUY MONTHS P4@ &P0-@0@l`;pB IP&WH^i` eo00l|@sEzP`p0i& y0@P0`p #E  0  0#@)7>P0c`7@p"EL' SR ZU a[ h0o v@0}P&0@P`]Ppmw 0 @; pPA @`w  p       0,. P: @3@ E% A H# @ O) 0V2 P @] Pd `k pr y^ r ! !  !%/ !0Y !@ !P !` !p !!=0@0b@0 h00qP0@0Pp0`20pB00Y0 _p1k1010!1@(1P/1`61p=P1D1K2RH`2Y]2 `c20gP2@np2Pu2`3@2p`2%3O2?3I3 U30|3P3` @@ @@ @0P@@l@Pp@`@p@V@A A0@A@EpAP$KA`+]Ap9BNA@AGB2B U B0\XpPc[Pj@P qP@xPPP``PeaPpPPQB@QQ pQ%Q0Q@^Q`rQpQQERRR R0*R@ :RPtPR`pRe pRp'R.R5S<SC0S JS0Q0S@XG0SP_i@SfSmTtT{"T 7T0F@T@XpTPxT`PTppT TPUUYU _U0eU@UPU`UUpUVVaV V0pVu17VP#V`*Vp 0Vv8yV?PWFWMW T`W0[ W@bZ WPi PW`p 0Wpw!W~#!PWS!PXg!X! X!X"PX !"pX0/"X@l" XPr"X`"`"` "@`0"`@"P`PM#``d#`p#p`$`$a d$ax$a $a0%Pa@-5%b0e&@aP4C%a`;W%apB%@aP%b^R&aW%aI%b&&b@l&ps&p&