home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / enterprs / cpm / utils / f / perfless.ark / REANAL.PC < prev    next >
Encoding:
Text File  |  1989-09-27  |  2.8 KB  |  130 lines
  1. \wg11
  2. \dg38
  3. >a1:\wc1
  4. >b1:"  REAL ESTATE INVESTMENT ANALYSIS PROGRAM
  5. >b1:\wc17
  6. >c1:\dc38
  7. >a2:"Copyright, 1982, Perfect Software, Inc.
  8. >b3:"*********************************************************************
  9. >b4:"   When entering data use the SEARCH next unlocked field command to
  10. >b5:"     determine where to enter data (CTRL--S).
  11. >b6:"*********************************************************************
  12. >b8:"Year
  13. >c8:"    Start
  14. >d8:=c8+1@
  15. >e8:=d8+1@
  16. >f8:=e8+1@
  17. >g8:=f8+1@
  18. >h8:=g8+1@
  19. >i8:=h8+1@
  20. >j8:=i8+1@
  21. >k8:=j8+1@
  22. >a8:\dl0
  23. >b9:"Appreciation
  24. >c9:0
  25. >a9:\dl0
  26. >b10:"Purchase Price
  27. >c10:0
  28. >d10:=c10*(1+c9/100)@
  29. >e10:=d10*(1+c9/100)@
  30. >f10:=e10*(1+c9/100)@
  31. >g10:=f10*(1+c9/100)@
  32. >h10:=g10*(1+c9/100)@
  33. >i10:=h10*(1+c9/100)@
  34. >j10:=i10*(1+c9/100)@
  35. >k10:=j10*(1+c9/100)@
  36. >b11:"Down Payment
  37. >c11:0
  38. >b12:"Loan Amount
  39. >c12:=c10-c11@
  40. >b13:"PITI+maintenance
  41. >c13:=c12*0.145@
  42. >b14:"Rental Income
  43. >c14:=c10*0.1@
  44. >d14:=c14*1.1@
  45. >e14:=d14*1.1@
  46. >f14:=e14*1.1@
  47. >g14:=f14*1.1@
  48. >h14:=g14*1.1@
  49. >i14:=h14*1.1@
  50. >j14:=i14*1.1@
  51. >k14:=j14*1.1@
  52. >b15:"Cash Flow
  53. >c15:=c14-c13@
  54. >d15:=d14-c13@
  55. >e15:=e14-c13@
  56. >f15:=f14-c13@
  57. >g15:=g14-c13@
  58. >h15:=h14-c13@
  59. >i15:=i14-c13@
  60. >j15:=j14-c13@
  61. >k15:=k14-c13@
  62. >b16:"------------------------------
  63. >c16:"--------------
  64. >d16:"--------------
  65. >e16:"--------------
  66. >f16:"--------------
  67. >g16:"--------------
  68. >h16:"--------------
  69. >i16:"--------------
  70. >j16:"--------------
  71. >k16:"--------------
  72. >b17:"- selling costs
  73. >d17:=d10*.92@
  74. >e17:=e10*.92@
  75. >f17:=f10*.92@
  76. >g17:=g10*.92@
  77. >h17:=h10*.92@
  78. >i17:=i10*.92@
  79. >j17:=j10*.92@
  80. >k17:=k10*.92@
  81. >b18:"- cash flow
  82. >d18:=d17+sum(c15:c15)@
  83. >e18:=e17+sum(c15:d15)@
  84. >f18:=f17+sum(c15:e15)@
  85. >g18:=g17+sum(c15:f15)@
  86. >h18:=h17+sum(c15:g15)@
  87. >i18:=i17+sum(c15:h15)@
  88. >j18:=j17+sum(c15:i15)@
  89. >k18:=k17+sum(c15:j15)@
  90. >b19:"----------------------------------------
  91. >c19:"--------------
  92. >d19:"--------------
  93. >e19:"--------------
  94. >f19:"--------------
  95. >g19:"--------------
  96. >h19:"--------------
  97. >i19:"--------------
  98. >j19:"--------------
  99. >k19:"--------------
  100. >b20:"$ gain
  101. >d20:=d18-c10@
  102. >e20:=e18-c10@
  103. >f20:=f18-c10@
  104. >g20:=g18-c10@
  105. >h20:=h18-c10@
  106. >i20:=i18-c10@
  107. >j20:=j18-c10@
  108. >k20:=k18-c10@
  109. >b21:"% gain
  110. >d21:=d20/c11*100@
  111. >e21:=e20/c11*100@
  112. >f21:=f20/c11*100@
  113. >g21:=g20/c11*100@
  114. >h21:=h20/c11*100@
  115. >i21:=i20/c11*100@
  116. >j21:=j20/c11*100@
  117. >k21:=k20/c11*100@
  118. >a21:\dl0
  119. >b22:"rate of return
  120. >d22:=100*(((d20+c11)/c11)^(1/d8)-1)@
  121. >e22:=100*(((e20+c11)/c11)^(1/e8)-1)@
  122. >f22:=100*(((f20+c11)/c11)^(1/f8)-1)@
  123. >g22:=100*(((g20+c11)/c11)^(1/g8)-1)@
  124. >h22:=100*(((h20+c11)/c11)^(1/h8)-1)@
  125. >i22:=100*(((i20+c11)/c11)^(1/i8)-1)@
  126. >j22:=100*(((j20+c11)/c11)^(1/j8)-1)@
  127. >k22:=100*(((k20+c11)/c11)^(1/k8)-1)@
  128. >a22:\dl1
  129. >a1
  130.