home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / MISC / MINITK.ZIP / MORTGAGE.TK < prev    next >
Encoding:
Text File  |  1988-03-01  |  2.9 KB  |  322 lines
  1. TK!2
  2. =v
  3. #1
  4. :n
  5.  
  6. :s
  7. b
  8. :c
  9.       ****  MORTGAGE MODEL  ****
  10. #2
  11. :n
  12. salary
  13. :v
  14. 2916.666666666667
  15. :s
  16. i
  17. :u
  18. $/mo
  19. :d
  20. $/yr
  21. :c
  22.   salary
  23. #3
  24. :n
  25. bracket
  26. :v
  27. .33
  28. :s
  29. i
  30. :u
  31. df
  32. :d
  33. %
  34. :c
  35.   income tax bracket
  36. #4
  37. :n
  38. onhand
  39. :v
  40. 8000
  41. :s
  42. i
  43. :u
  44. $
  45. :d
  46. $
  47. :c
  48.   cash for closing costs, down payment
  49. #5
  50. :n
  51. term
  52. :v
  53. 300
  54. :s
  55. i
  56. :u
  57. mo
  58. :d
  59. yr
  60. :c
  61.   term of mortgage
  62. #6
  63. :n
  64. rate
  65. :v
  66. .008750000000000001
  67. :s
  68. i
  69. :u
  70. df/mo
  71. :d
  72. %/yr
  73. :c
  74.   interest rate
  75. :f
  76. .008333333333333333
  77. #7
  78. :n
  79. house
  80. :v
  81. 70000
  82. :s
  83. g
  84. :u
  85. $
  86. :d
  87. $
  88. :c
  89. maximum house price you can afford
  90. #8
  91. :n
  92. loan
  93. :s
  94. b
  95. :u
  96. $
  97. :d
  98. $
  99. :c
  100. maximum mortgage allowed by bank
  101. #9
  102. :n
  103. closing
  104. :s
  105. b
  106. :u
  107. $
  108. :d
  109. $
  110. :c
  111.   closing costs
  112. #10
  113. :n
  114. downpay
  115. :s
  116. b
  117. :u
  118. $
  119. :d
  120. $
  121. :c
  122.   down payment
  123. #11
  124. :n
  125. dp%
  126. :s
  127. b
  128. :u
  129. df
  130. :d
  131. %
  132. :c
  133.   down payment percentage
  134. #12
  135. :n
  136. payment
  137. :s
  138. b
  139. :u
  140. $/mo
  141. :d
  142. $/mo
  143. :c
  144.   periodic mortgage payment
  145. #13
  146. :n
  147. tax
  148. :s
  149. b
  150. :u
  151. $/mo
  152. :d
  153. $/mo
  154. :c
  155.   property tax
  156. #14
  157. :n
  158. pit
  159. :s
  160. b
  161. :u
  162. $/mo
  163. :d
  164. $/mo
  165. :c
  166.   principal + interest + property tax
  167. #15
  168. :n
  169. savings
  170. :s
  171. b
  172. :u
  173. $/mo
  174. :d
  175. $/mo
  176. :c
  177.   periodic income tax savings
  178. #16
  179. :n
  180. netpymt
  181. :s
  182. b
  183. :u
  184. $/mo
  185. :d
  186. $/mo
  187. :c
  188.   periodic payment with tax savings
  189. #17
  190. :n
  191. Tp
  192. :s
  193. b
  194. :u
  195. $
  196. :d
  197. $
  198. :c
  199.   total amount paid over term
  200. #18
  201. :n
  202. Tip
  203. :s
  204. b
  205. :u
  206. $
  207. :d
  208. $
  209. :c
  210.   total interest payments over term
  211. #20
  212. :n
  213.  
  214. :s
  215. b
  216. :c
  217.  Type  =R  to see the  Rule Sheet
  218. =u
  219. #1
  220. :f
  221. %
  222. :t
  223. df
  224. :m
  225. .01
  226. #2
  227. :f
  228. yr
  229. :t
  230. mo
  231. :m
  232. 12
  233. #3
  234. :f
  235. $/mo
  236. :t
  237. $/yr
  238. :m
  239. 12
  240. #4
  241. :f
  242. df/mo
  243. :t
  244. %/yr
  245. :m
  246. 1200
  247. #5
  248. :f
  249. df/mo
  250. :t
  251. %/mo
  252. :m
  253. 100
  254. =r
  255. #1
  256. :r
  257. "              ****    Rule Sheet for MORTGAGE model    ****
  258. :s
  259. C
  260. #2
  261. :r
  262. closing = .02*loan + 500       " ╔═════════════════════════════════════════╗
  263. #3
  264. :r
  265. pit = .28*salary               " ║ Tax laws change from time to time, so   ║
  266. #4
  267. :r
  268. onhand = downpay + closing     " ║ the equations for tax and savings must  ║
  269. #5
  270. :r
  271. tax = .025*.75*house/12        " ║ be checked and correspondingly updated. ║
  272. #6
  273. :r
  274. house = loan + downpay         " ╚═════════════════════════════════════════╝
  275. #7
  276. :r
  277. downpay = house*dp%          
  278. #8
  279. :r
  280. payment = loan*(rate/(1 - (1 + rate)^-term))
  281. #9
  282. :r
  283. Tp = payment*term
  284. #10
  285. :r
  286. Tip = Tp - loan
  287. #11
  288. :r
  289. savings = bracket*(tax + payment*Tip/Tp)  " | average savings and net
  290. #12
  291. :r
  292. netpymt = pit - savings                   " | payment over term of loan
  293. #13
  294. :r
  295. pit = payment + tax         " i.e., .28*salary = f(loan,rate,term) + f(house)
  296. #15
  297. :r
  298. " Note: This model lets you find how expensive a house you can buy given the
  299. :s
  300. C
  301. #16
  302. :r
  303. "       salary, loan terms, etc.; how much you need to earn to buy a certain
  304. :s
  305. C
  306. #17
  307. :r
  308. "       house; and so on.  In the first case you must guess the house price.
  309. :s
  310. C
  311. #19
  312. :r
  313. "       Type  =V  to return to the Variable Sheet 
  314. :s
  315. C
  316. #20
  317. :r
  318. "             /WV to bring it up in a second window
  319. :s
  320. C
  321. %Tr,f,0,1,0,1,0
  322.