home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol110 / rule-78.cal (.txt) < prev    next >
Encoding:
SuperCalc Worksheet  |  1985-02-10  |  10.5 KB  |  306 lines
  1. SuperCalc Ver.  1.06
  2. ** A Rule of 78 Demo Program from SATAN 08/31/82
  3. "** A Rule of 78 Demo Program from SATAN 08/31/82
  4. "Principal  *
  5. "Rate/Yr    *
  6. "Rate/Mo
  7. B3/12
  8. "Term-Yr    *
  9. "P'mnts  #
  10. B5*12
  11. "P'mnts  $
  12. BHHfGq(E
  13. B2*B4/(1-((1+B4)^(-B6)))
  14. "Int'st  $
  15. B6*B7-B2
  16. "Month #
  17. "Principal
  18. "Int'st Pd
  19. "Prin'l Pd
  20. "use ';' to jump back and forth and arrows to scroll
  21. B8*(B6-A12+1)/((B6+1)*B6/2)
  22. B7-C12
  23. A12+1
  24. B12-D12
  25. B8*(B6-A13+1)/((B6+1)*B6/2)
  26. B7-C13
  27. A13+1
  28. B13-D13
  29. B8*(B6-A14+1)/((B6+1)*B6/2)
  30. B7-C14
  31. A14+1
  32. B14-D14
  33. B8*(B6-A15+1)/((B6+1)*B6/2)
  34. yUReA
  35. B7-C15
  36. A15+1
  37. B15-D15
  38. B8*(B6-A16+1)/((B6+1)*B6/2)
  39. B7WFx
  40. B7-C16
  41. A16+1
  42. B16-D16
  43. B8*(B6-A17+1)/((B6+1)*B6/2)
  44. B7-C17
  45. A17+1
  46. B17-D17
  47. B8*(B6-A18+1)/((B6+1)*B6/2)
  48. B8fXu
  49. B7-C18
  50. A18+1
  51. B18-D18
  52. B8*(B6-A19+1)/((B6+1)*B6/2)
  53. B7-C19
  54. A19+1
  55. B19-D19
  56. B8*(B6-A20+1)/((B6+1)*B6/2)
  57. B9upq
  58. B7-C20
  59. A20+1
  60. B20-D20
  61. B8*(B6-A21+1)/((B6+1)*B6/2)
  62. B@0&pEt1
  63. B7-C21
  64. A21+1
  65. B21-D21
  66. B8*(B6-A22+1)/((B6+1)*B6/2)
  67. B7-C22
  68. A22+1
  69. B22-D22
  70. B8*(B6-A23+1)/((B6+1)*B6/2)
  71. BA98gBH
  72. B7-C23
  73. A23+1
  74. B23-D23
  75. B8*(B6-A24+1)/((B6+1)*B6/2)
  76. B7-C24
  77. A24+1
  78. CIsCbI
  79. B24-D24
  80. X3 ci3
  81. B8*(B6-A25+1)/((B6+1)*B6/2)
  82. BBHPd9"
  83. B7-C25
  84. A25+1
  85. CEHXV
  86. B25-D25
  87. B8*(B6-A26+1)/((B6+1)*B6/2)
  88. B7-C26
  89. A26+1
  90. B26-D26
  91. B8*(B6-A27+1)/((B6+1)*B6/2)
  92. BCWba5
  93. B7-C27
  94. A27+1
  95. B27-D27
  96. ACdxxiUA3
  97. B8*(B6-A28+1)/((B6+1)*B6/2)
  98. B7-C28
  99. A28+1
  100. C2A)wdFGU
  101. B28-D28
  102. B8*(B6-A29+1)/((B6+1)*B6/2)
  103. BDftX2i
  104. B7-C29
  105. A29+1
  106. B29-D29
  107. A2sY    
  108. B8*(B6-A30+1)/((B6+1)*B6/2)
  109. BE!0V
  110. B7-C30
  111. A30+1
  112. C#BI&
  113. B30-D30
  114. B8*(B6-A31+1)/((B6+1)*B6/2)
  115. U)Csh
  116. B7-C31
  117. A31+1
  118. B31-D31
  119. 994wpg
  120. B8*(B6-A32+1)/((B6+1)*B6/2)
  121. BF0BSw
  122. B7-C32
  123. A32+1
  124. B32-D32
  125. B8*(B6-A33+1)/((B6+1)*B6/2)
  126. B7-C33
  127. A33+1
  128. B33-D33
  129. B8*(B6-A34+1)/((B6+1)*B6/2)
  130. BG9TPtTVH
  131. B7-C34
  132. A34+1
  133. B34-D34
  134. B8*(B6-A35+1)/((B6+1)*B6/2)
  135. B7-C35
  136. A35+1
  137. B35-D35
  138. B8*(B6-A36+1)/((B6+1)*B6/2)
  139. BHHfGq(E
  140. B7-C36
  141. A36+1
  142. HHfGq(E
  143. B36-D36
  144. B8*(B6-A37+1)/((B6+1)*B6/2)
  145. B7-C37
  146. A37+1
  147. B37-D37
  148. B8*(B6-A38+1)/((B6+1)*B6/2)
  149. BIWxDh
  150. B7-C38
  151. A38+1
  152. B38-D38
  153. B8*(B6-A39+1)/((B6+1)*B6/2)
  154. B7-C39
  155. A39+1
  156. B39-D39
  157. 994wpg
  158. B8*(B6-A40+1)/((B6+1)*B6/2)
  159. B7-C40
  160. A40+1
  161. B40-D40
  162. B8*(B6-A41+1)/((B6+1)*B6/2)
  163. BQ!F@
  164. B7-C41
  165. A41+1
  166. B41-D41
  167. B8*(B6-A42+1)/((B6+1)*B6/2)
  168. B7-C42
  169. A42+1
  170. B42-D42
  171. B8*(B6-A43+1)/((B6+1)*B6/2)
  172. BR0X7    
  173. B7-C43
  174. A43+1
  175. B43-D43
  176. CdxxiUA3
  177. B8*(B6-A44+1)/((B6+1)*B6/2)
  178. B7-C44
  179. A44+1
  180. E`!7H(Y
  181. B44-D44
  182. B8*(B6-A45+1)/((B6+1)*B6/2)
  183. BS9p4
  184. B7-C45
  185. A45+1
  186. B45-D45
  187. B8*(B6-A46+1)/((B6+1)*B6/2)
  188. B7-C46
  189. A46+1
  190. B46-D46
  191. X3 ci3
  192. B8*(B6-A47+1)/((B6+1)*B6/2)
  193. B7-C47
  194. A47+1
  195. axI'$w
  196. B47-D47
  197. B8*(B6-A48+1)/((B6+1)*B6/2)
  198. 8)Qqv!
  199. B7-C48
  200. A48+1
  201. B48-D48
  202. B8*(B6-A49+1)/((B6+1)*B6/2)
  203. B7-C49
  204. A49+1
  205. B49-D49
  206. B8*(B6-A50+1)/((B6+1)*B6/2)
  207. P&HEdt
  208. B7-C50
  209. A50+1
  210. B50-D50
  211. B8*(B6-A51+1)/((B6+1)*B6/2)
  212. B7-C51
  213. A51+1
  214. B51-D51
  215. B8*(B6-A52+1)/((B6+1)*B6/2)
  216. BW!b#E
  217. B7-C52
  218. A52+1
  219. B52-D52
  220. B8*(B6-A53+1)/((B6+1)*B6/2)
  221. B7-C53
  222. A53+1
  223. b6"h6C)
  224. B53-D53
  225. B8*(B6-A54+1)/((B6+1)*B6/2)
  226. BX0t A
  227. B7-C54
  228. A54+1
  229. T6G%Wu
  230. B54-D54
  231. B8*(B6-A55+1)/((B6+1)*B6/2)
  232. B7-C55
  233. A55+1
  234. B55-D55
  235. B8*(B6-A56+1)/((B6+1)*B6/2)
  236. B7-C56
  237. A56+1
  238. B56-D56
  239. B8*(B6-A57+1)/((B6+1)*B6/2)
  240. B7-C57
  241. A57+1
  242. B57-D57
  243. B8*(B6-A58+1)/((B6+1)*B6/2)
  244. B7-C58
  245. A58+1
  246. B58-D58
  247. B8*(B6-A59+1)/((B6+1)*B6/2)
  248. B7-C59
  249. A59+1
  250. &G&`x
  251. B59-D59
  252. B8*(B6-A60+1)/((B6+1)*B6/2)
  253. B7-C60
  254. A60+1
  255. B60-D60
  256. b    #Vg
  257. B8*(B6-A61+1)/((B6+1)*B6/2)
  258. B7-C61
  259. A61+1
  260. B61-D61
  261. U`W`P
  262. B8*(B6-A62+1)/((B6+1)*B6/2)
  263. B7-C62
  264. A62+1
  265. B62-D62
  266. B8*(B6-A63+1)/((B6+1)*B6/2)
  267. B7-C63
  268. A63+1
  269. B63-D63
  270. 'gWT49G
  271. B8*(B6-A64+1)/((B6+1)*B6/2)
  272. B7-C64
  273. A64+1
  274. B64-D64
  275. B8*(B6-A65+1)/((B6+1)*B6/2)
  276. B7-C65
  277. A65+1
  278. Gqy#V
  279. B65-D65
  280. B8*(B6-A66+1)/((B6+1)*B6/2)
  281. B7-C66
  282. A66+1
  283. B66-D66
  284. B8*(B6-A67+1)/((B6+1)*B6/2)
  285. B7-C67
  286. A67+1
  287. B67-D67
  288. B8*(B6-A68+1)/((B6+1)*B6/2)
  289. B7-C68
  290. A68+1
  291. B68-D68
  292. B8*(B6-A69+1)/((B6+1)*B6/2)
  293. B7-C69
  294. A69+1
  295. TbgqX
  296. B69-D69
  297. B8*(B6-A70+1)/((B6+1)*B6/2)
  298. B7-C70
  299. A70+1
  300.  !f7gtvd
  301. B70-D70
  302. B8*(B6-A71+1)/((B6+1)*B6/2)
  303. B7-C71
  304. "STOP!! end of the Table go back the other way
  305. IF(AND((F3<=E39),(F2+F3>E39)),LOOKUP(IF(E39-F3>=0,E39-F3+1,0),E9:E19)*F4,0)
  306.