|
DataMuseum.dkPresents historical artifacts from the history of: Jet Computer Jet80 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Jet Computer Jet80 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 2816 (0xb00)
Types: TextFile
Names: »REANAL.PC«
└─⟦a6ed1cd35⟧ Bits:30002862 Perfect Calc 1.10 for JET80 CP/M
└─ ⟦this⟧ »REANAL.PC«
Øwg11 Ødg38 >a1:Øwc1 >b1:" REAL ESTATE INVESTMENT ANALYSIS PROGRAM >b1:Øwc17 >c1:Ødc38 >a2:"Copyright, 1982, Perfect Software, Inc. >b3:"********************************************************************* >b4:" When entering data use the SEARCH next unlocked field command to >b5:" determine where to enter data (CTRL--S). >b6:"********************************************************************* >b8:"Year >c8:" Start >d8:=c8+1@ >e8:=d8+1@ >f8:=e8+1@ >g8:=f8+1@ >h8:=g8+1@ >i8:=h8+1@ >j8:=i8+1@ >k8:=j8+1@ >a8:Ødl0 >b9:"Appreciation >c9:0 >a9:Ødl0 >b10:"Purchase Price >c10:0 >d10:=c10*(1+c9/100)@ >e10:=d10*(1+c9/100)@ >f10:=e10*(1+c9/100)@ >g10:=f10*(1+c9/100)@ >h10:=g10*(1+c9/100)@ >i10:=h10*(1+c9/100)@ >j10:=i10*(1+c9/100)@ >k10:=j10*(1+c9/100)@ >b11:"Down Payment >c11:0 >b12:"Loan Amount >c12:=c10-c11@ >b13:"PITI+maintenance >c13:=c12*0.145@ >b14:"Rental Income >c14:=c10*0.1@ >d14:=c14*1.1@ >e14:=d14*1.1@ >f14:=e14*1.1@ >g14:=f14*1.1@ >h14:=g14*1.1@ >i14:=h14*1.1@ >j14:=i14*1.1@ >k14:=j14*1.1@ >b15:"Cash Flow >c15:=c14-c13@ >d15:=d14-c13@ >e15:=e14-c13@ >f15:=f14-c13@ >g15:=g14-c13@ >h15:=h14-c13@ >i15:=i14-c13@ >j15:=j14-c13@ >k15:=k14-c13@ >b16:"------------------------------ >c16:"-------------- >d16:"-------------- >e16:"-------------- >f16:"-------------- >g16:"-------------- >h16:"-------------- >i16:"-------------- >j16:"-------------- >k16:"-------------- >b17:"- selling costs >d17:=d10*.92@ >e17:=e10*.92@ >f17:=f10*.92@ >g17:=g10*.92@ >h17:=h10*.92@ >i17:=i10*.92@ >j17:=j10*.92@ >k17:=k10*.92@ >b18:"- cash flow >d18:=d17+sum(c15:c15)@ >e18:=e17+sum(c15:d15)@ >f18:=f17+sum(c15:e15)@ >g18:=g17+sum(c15:f15)@ >h18:=h17+sum(c15:g15)@ >i18:=i17+sum(c15:h15)@ >j18:=j17+sum(c15:i15)@ >k18:=k17+sum(c15:j15)@ >b19:"---------------------------------------- >c19:"-------------- >d19:"-------------- >e19:"-------------- >f19:"-------------- >g19:"-------------- >h19:"-------------- >i19:"-------------- >j19:"-------------- >k19:"-------------- >b20:"$ gain >d20:=d18-c10@ >e20:=e18-c10@ >f20:=f18-c10@ >g20:=g18-c10@ >h20:=h18-c10@ >i20:=i18-c10@ >j20:=j18-c10@ >k20:=k18-c10@ >b21:"% gain >d21:=d20/c11*100@ >e21:=e20/c11*100@ >f21:=f20/c11*100@ >g21:=g20/c11*100@ >h21:=h20/c11*100@ >i21:=i20/c11*100@ >j21:=j20/c11*100@ >k21:=k20/c11*100@ >a21:Ødl0 >b22:"rate of return >d22:=100*(((d20+c11)/c11)^(1/d8)-1)@ >e22:=100*(((e20+c11)/c11)^(1/e8)-1)@ >f22:=100*(((f20+c11)/c11)^(1/f8)-1)@ >g22:=100*(((g20+c11)/c11)^(1/g8)-1)@ >h22:=100*(((h20+c11)/c11)^(1/h8)-1)@ >i22:=100*(((i20+c11)/c11)^(1/i8)-1)@ >j22:=100*(((j20+c11)/c11)^(1/j8)-1)@ >k22:=100*(((k20+c11)/c11)^(1/k8)-1)@ >a22:Ødl1 >a1 «eof»