home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol110 / arcs-dep.cal (.txt) < prev    next >
Encoding:
SuperCalc Worksheet  |  1985-02-10  |  14.5 KB  |  240 lines
  1. SuperCalc Ver.  1.06
  2. Calculate ACRS DEPRECIATION Model 9/12/82 by HMVT
  3. "Calculate ACRS DEPRECIATION Model 9/12/82 by HMVT
  4. "Enter:
  5. "Year Aquired and $ Value in Proper Life Column
  6. "Life-Yrs
  7. "Yr Acq'd
  8. "$ Value
  9. o Start Table
  10. " = First year to start table
  11. "Year
  12. "Item-1
  13. "Year
  14. "Item-2
  15. "Year
  16. "Item-3
  17. "A9 thru A17 is 3 yr table
  18. LOOKUP(F3,A1:A4)*F2
  19. "Year
  20. LOOKUP(G3,A1:A4)*G2
  21. LOOKUP(H3,A1:A4)*H2
  22. OKUP(E3,A1:A4)*E2
  23. OKUP(F3,A1:A4)*F2
  24. OKUP(F3,A1:A4)*F2
  25. OKUP(G3,A1:A4)*G2
  26. LOOKUP(F8+E10,A9:A17)
  27. OKUP(F9+D10,A19:A33)
  28. LOOKUP(H8+E10,A19:A33)
  29. LOOKUP(J8+E10,A35:A64)
  30. A10+1
  31. LOOKUP(F8+E11,A9:A17)
  32. OKUP(F9+D11,A19:A33)
  33. LOOKUP(H8+E11,A19:A33)
  34. LOOKUP(J8+E11,A35:A64)
  35. A11+1
  36. LOOKUP(F8+E12,A9:A17)
  37. OKUP(F9+D12,A19:A33)
  38. LOOKUP(H8+E12,A19:A33)
  39. LOOKUP(J8+E12,A35:A64)
  40. A12+1
  41. OKUP(F9+D13,A19:A33)
  42. LOOKUP(H8+E13,A19:A33)
  43. LOOKUP(J8+E13,A35:A64)
  44. A13+1
  45. OKUP(F9+D14,A19:A33)
  46. LOOKUP(H8+E14,A19:A33)
  47. LOOKUP(J8+E14,A35:A64)
  48. A14+1
  49. LOOKUP(J8+E15,A35:A64)
  50. A15+1
  51. LOOKUP(J8+E16,A35:A64)
  52. A16+1
  53. LOOKUP(J8+E17,A35:A64)
  54. "A19 thru A33 is 5 yr tables
  55. LOOKUP(J8+E18,A35:A64)
  56. OKUP(F9+ERROR,ERROR:A66)
  57. LOOKUP(J8+E19,A35:A64)
  58. A19+1
  59. (F9+ERROR,ERROR:A66)
  60. "---------
  61. "---------
  62. "---------
  63. "---------
  64. "---------
  65. A20+1
  66. (F9+ERROR,ERROR:A66)
  67. "Depreciation by Year
  68. A21+1
  69. (F9+ERROR,ERROR:A66)
  70. A22+1
  71. (F9+ERROR,ERROR:A66)
  72. A23+1
  73. (F9+ERROR,ERROR:A66)
  74. "Year
  75. "Item-1
  76. "Item-2
  77. "Item-3
  78. A24+1
  79. (F9+ERROR,ERROR:A66)
  80. ,A1:A4)*G2
  81. "      ***  ARCS Depreciation Calculator  ***
  82. =======
  83. A25+1
  84. (F9+ERROR,ERROR:A66)
  85. "Use ';' key to jump back & forth and arrows to scroll
  86. A26+1
  87. (F9+ERROR,ERROR:A66)
  88. IF(AND((F3<=E27),(F2+F3>E27)),LOOKUP(IF(E27-F3>=0,E27-F3+1,0),E9:E19)*F4,0)
  89. IF(AND((G3<=E27),(G2+G3>E27)),LOOKUP(IF(E27-G3>=0,E27-G3+1,0),G9:G19)*G4,0)
  90. IF(AND((H3<=E27),(H2+H3>E27)),LOOKUP(IF(E27-H3>=0,E27-H3+1,0),I9:I19)*H4,0)
  91. 27,G2+G3
  92. E27-F3+1
  93. 7-F3+1,E10:E19)
  94. A27+1
  95. (F9+ERROR,ERROR:A66)
  96. E27+1
  97. IF(AND((F3<=E28),(F2+F3>E28)),LOOKUP(IF(E28-F3>=0,E28-F3+1,0),E9:E19)*F4,0)
  98. IF(AND((G3<=E28),(G2+G3>E28)),LOOKUP(IF(E28-G3>=0,E28-G3+1,0),G9:G19)*G4,0)
  99. IF(AND((H3<=E28),(H2+H3>E28)),LOOKUP(IF(E28-H3>=0,E28-H3+1,0),I9:I19)*H4,0)
  100. 8,G2+G3
  101. A28+1
  102. (F9+ERROR,ERROR:A66)
  103. E28+1
  104. IF(AND((F3<=E29),(F2+F3>E29)),LOOKUP(IF(E29-F3>=0,E29-F3+1,0),E9:E19)*F4,0)
  105. IF(AND((G3<=E29),(G2+G3>E29)),LOOKUP(IF(E29-G3>=0,E29-G3+1,0),G9:G19)*G4,0)
  106. IF(AND((H3<=E29),(H2+H3>E29)),LOOKUP(IF(E29-H3>=0,E29-H3+1,0),I9:I19)*H4,0)
  107. 9,G2+G3
  108. A29+1
  109. (F9+ERROR,ERROR:A66)
  110. E29+1
  111. IF(AND((F3<=E30),(F2+F3>E30)),LOOKUP(IF(E30-F3>=0,E30-F3+1,0),E9:E19)*F4,0)
  112. IF(AND((G3<=E30),(G2+G3>E30)),LOOKUP(IF(E30-G3>=0,E30-G3+1,0),G9:G19)*G4,0)
  113. IF(AND((H3<=E30),(H2+H3>E30)),LOOKUP(IF(E30-H3>=0,E30-H3+1,0),I9:I19)*H4,0)
  114. 0,G2+G3
  115. A30+1
  116. (F9+ERROR,ERROR:A66)
  117. E30+1
  118. IF(AND((F3<=E31),(F2+F3>E31)),LOOKUP(IF(E31-F3>=0,E31-F3+1,0),E9:E19)*F4,0)
  119. IF(AND((G3<=E31),(G2+G3>E31)),LOOKUP(IF(E31-G3>=0,E31-G3+1,0),G9:G19)*G4,0)
  120. IF(AND((H3<=E31),(H2+H3>E31)),LOOKUP(IF(E31-H3>=0,E31-H3+1,0),I9:I19)*H4,0)
  121. 1,G2+G3
  122. A31+1
  123. (F9+ERROR,ERROR:A66)
  124. E31+1
  125. IF(AND((F3<=E32),(F2+F3>E32)),LOOKUP(IF(E32-F3>=0,E32-F3+1,0),E9:E19)*F4,0)
  126. IF(AND((G3<=E32),(G2+G3>E32)),LOOKUP(IF(E32-G3>=0,E32-G3+1,0),G9:G19)*G4,0)
  127. IF(AND((H3<=E32),(H2+H3>E32)),LOOKUP(IF(E32-H3>=0,E32-H3+1,0),I9:I19)*H4,0)
  128. 2,G2+G3
  129. A32+1
  130. (F9+ERROR,ERROR:A66)
  131. E32+1
  132. IF(AND((F3<=E33),(F2+F3>E33)),LOOKUP(IF(E33-F3>=0,E33-F3+1,0),E9:E19)*F4,0)
  133. IF(AND((G3<=E33),(G2+G3>E33)),LOOKUP(IF(E33-G3>=0,E33-G3+1,0),G9:G19)*G4,0)
  134. IF(AND((H3<=E33),(H2+H3>E33)),LOOKUP(IF(E33-H3>=0,E33-H3+1,0),I9:I19)*H4,0)
  135. ,G2+G3
  136. "A35 thru A64 is 10 yr table
  137. E33+1
  138. IF(AND((F3<=E34),(F2+F3>E34)),LOOKUP(IF(E34-F3>=0,E34-F3+1,0),E9:E19)*F4,0)
  139. 11,0)
  140. IF(AND((G3<=E34),(G2+G3>E34)),LOOKUP(IF(E34-G3>=0,E34-G3+1,0),G9:G19)*G4,0)
  141. 11,0)
  142. IF(AND((H3<=E34),(H2+H3>E34)),LOOKUP(IF(E34-H3>=0,E34-H3+1,0),I9:I19)*H4,0)
  143. 11,0)
  144. E34+1
  145. IF(AND((F3<=E35),(F2+F3>E35)),LOOKUP(IF(E35-F3>=0,E35-F3+1,0),E9:E19)*F4,0)
  146. E12,0)
  147. IF(AND((G3<=E35),(G2+G3>E35)),LOOKUP(IF(E35-G3>=0,E35-G3+1,0),G9:G19)*G4,0)
  148. F12,0)
  149. IF(AND((H3<=E35),(H2+H3>E35)),LOOKUP(IF(E35-H3>=0,E35-H3+1,0),I9:I19)*H4,0)
  150. G12,0)
  151. A35+1
  152. E35+1
  153. IF(AND((F3<=E36),(F2+F3>E36)),LOOKUP(IF(E36-F3>=0,E36-F3+1,0),E9:E19)*F4,0)
  154. E13,0)
  155. IF(AND((G3<=E36),(G2+G3>E36)),LOOKUP(IF(E36-G3>=0,E36-G3+1,0),G9:G19)*G4,0)
  156. F13,0)
  157. IF(AND((H3<=E36),(H2+H3>E36)),LOOKUP(IF(E36-H3>=0,E36-H3+1,0),I9:I19)*H4,0)
  158. G13,0)
  159. A36+1
  160. E36+1
  161. IF(AND((F3<=E37),(F2+F3>E37)),LOOKUP(IF(E37-F3>=0,E37-F3+1,0),E9:E19)*F4,0)
  162. IF(AND((G3<=E37),(G2+G3>E37)),LOOKUP(IF(E37-G3>=0,E37-G3+1,0),G9:G19)*G4,0)
  163. IF(AND((H3<=E37),(H2+H3>E37)),LOOKUP(IF(E37-H3>=0,E37-H3+1,0),I9:I19)*H4,0)
  164. A37+1
  165. E37+1
  166. IF(AND((F3<=E38),(F2+F3>E38)),LOOKUP(IF(E38-F3>=0,E38-F3+1,0),E9:E19)*F4,0)
  167. IF(AND((G3<=E38),(G2+G3>E38)),LOOKUP(IF(E38-G3>=0,E38-G3+1,0),G9:G19)*G4,0)
  168. IF(AND((H3<=E38),(H2+H3>E38)),LOOKUP(IF(E38-H3>=0,E38-H3+1,0),I9:I19)*H4,0)
  169. A38+1
  170. E38+1
  171. IF(AND((F3<=E39),(F2+F3>E39)),LOOKUP(IF(E39-F3>=0,E39-F3+1,0),E9:E19)*F4,0)
  172. IF(AND((G3<=E39),(G2+G3>E39)),LOOKUP(IF(E39-G3>=0,E39-G3+1,0),G9:G19)*G4,0)
  173. IF(AND((H3<=E39),(H2+H3>E39)),LOOKUP(IF(E39-H3>=0,E39-H3+1,0),I9:I19)*H4,0)
  174. A39+1
  175. E39+1
  176. IF(AND((F3<=E40),(F2+F3>E40)),LOOKUP(IF(E40-F3>=0,E40-F3+1,0),E9:E19)*F4,0)
  177. IF(AND((G3<=E40),(G2+G3>E40)),LOOKUP(IF(E40-G3>=0,E40-G3+1,0),G9:G19)*G4,0)
  178. IF(AND((H3<=E40),(H2+H3>E40)),LOOKUP(IF(E40-H3>=0,E40-H3+1,0),I9:I19)*H4,0)
  179. A40+1
  180. E40+1
  181. IF(AND((F3<=E41),(F2+F3>E41)),LOOKUP(IF(E41-F3>=0,E41-F3+1,0),E9:E19)*F4,0)
  182. IF(AND((G3<=E41),(G2+G3>E41)),LOOKUP(IF(E41-G3>=0,E41-G3+1,0),G9:G19)*G4,0)
  183. IF(AND((H3<=E41),(H2+H3>E41)),LOOKUP(IF(E41-H3>=0,E41-H3+1,0),I9:I19)*H4,0)
  184. A41+1
  185. E41+1
  186. IF(AND((F3<=E42),(F2+F3>E42)),LOOKUP(IF(E42-F3>=0,E42-F3+1,0),E9:E19)*F4,0)
  187. IF(AND((G3<=E42),(G2+G3>E42)),LOOKUP(IF(E42-G3>=0,E42-G3+1,0),G9:G19)*G4,0)
  188. IF(AND((H3<=E42),(H2+H3>E42)),LOOKUP(IF(E42-H3>=0,E42-H3+1,0),I9:I19)*H4,0)
  189. A42+1
  190. E42+1
  191. IF(AND((F3<=E43),(F2+F3>E43)),LOOKUP(IF(E43-F3>=0,E43-F3+1,0),E9:E19)*F4,0)
  192. 11,0)
  193. IF(AND((G3<=E43),(G2+G3>E43)),LOOKUP(IF(E43-G3>=0,E43-G3+1,0),G9:G19)*G4,0)
  194. 11,0)
  195. IF(AND((H3<=E43),(H2+H3>E43)),LOOKUP(IF(E43-H3>=0,E43-H3+1,0),I9:I19)*H4,0)
  196. 11,0)
  197. A43+1
  198. E43+1
  199. IF(AND((F3<=E44),(F2+F3>E44)),LOOKUP(IF(E44-F3>=0,E44-F3+1,0),E9:E19)*F4,0)
  200. E12,0)
  201. IF(AND((G3<=E44),(G2+G3>E44)),LOOKUP(IF(E44-G3>=0,E44-G3+1,0),G9:G19)*G4,0)
  202. F12,0)
  203. IF(AND((H3<=E44),(H2+H3>E44)),LOOKUP(IF(E44-H3>=0,E44-H3+1,0),I9:I19)*H4,0)
  204. G12,0)
  205. A44+1
  206. E44+1
  207. IF(AND((F3<=E45),(F2+F3>E45)),LOOKUP(IF(E45-F3>=0,E45-F3+1,0),E9:E19)*F4,0)
  208. E13,0)
  209. IF(AND((G3<=E45),(G2+G3>E45)),LOOKUP(IF(E45-G3>=0,E45-G3+1,0),G9:G19)*G4,0)
  210. F13,0)
  211. IF(AND((H3<=E45),(H2+H3>E45)),LOOKUP(IF(E45-H3>=0,E45-H3+1,0),I9:I19)*H4,0)
  212. G13,0)
  213. A45+1
  214. E45+1
  215. IF(AND((F3<=E46),(F2+F3>E46)),LOOKUP(IF(E46-F3>=0,E46-F3+1,0),E9:E19)*F4,0)
  216. E14,0)
  217. IF(AND((G3<=E46),(G2+G3>E46)),LOOKUP(IF(E46-G3>=0,E46-G3+1,0),G9:G19)*G4,0)
  218. F14,0)
  219. IF(AND((H3<=E46),(H2+H3>E46)),LOOKUP(IF(E46-H3>=0,E46-H3+1,0),I9:I19)*H4,0)
  220. G14,0)
  221. A46+1
  222. "STOP!! this is the end of Table go back other way
  223. A47+1
  224. A48+1
  225. A49+1
  226. A50+1
  227. A51+1
  228. A52+1
  229. A53+1
  230. A54+1
  231. A55+1
  232. A56+1
  233. A57+1
  234. A58+1
  235. A59+1
  236. A60+1
  237. A61+1
  238. A62+1
  239. A63+1
  240.