home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / misc / volume9 / 1040-89-sc_lh next >
Text File  |  1990-01-04  |  9KB  |  269 lines
  1. Newsgroups: comp.sources.misc
  2. organization: Tektronix, Inc., Wilsonville, OR
  3. subject: v09i098: 1040/Sched A/Tax Worksheet for SC.
  4. From: larryh@boot_hill.wv.tek.com (Larry Hemmert)
  5. Sender: allbery@uunet.UU.NET (Brandon S. Allbery - comp.sources.misc)
  6.  
  7. Posting-number: Volume 9, Issue 98
  8. Submitted-by: larryh@boot_hill.wv.tek.com (Larry Hemmert)
  9. Archive-name: 1040-89-sc_lh
  10.  
  11. Herein contained is an SC file that can be used to help you work through
  12. your 1989 IRS stuff.  I believe it to be correct, but make no claims.
  13. I will not be held responsible if the IRS finds fault.... ;-).
  14. You fill in the known blanks and it calculates the other stuff.
  15. You must enter a "1" into one of the catagories of A1:A5.
  16.  
  17. -------------------------cut here---------------------------
  18.  
  19. # This data file was generated by the Spreadsheet Calculator.
  20. # You almost certainly shouldn't edit it.
  21.  
  22. format A 30 2
  23. format B 30 2
  24. define "wages" B7
  25. define "tax_worksheet" A100
  26. define "refunded_to_you" B65
  27. define "overpaid" B64
  28. define "amount_you_owe" B67
  29. define "total_income" B23
  30. define "total_adjustments" B30
  31. define "adjusted_gross_income" B31
  32. define "sched_a" A70
  33. define "total_deductions" B97
  34. define "exemptions" B6
  35. define "page2" A32
  36. define "taxable_income" B37
  37. define "standard_deduction" A34
  38. define "itemized_deductions" B34
  39. define "total_tax" B55
  40. define "total_payments" B63
  41. leftstring A0 = " 1040 TAX FORM SHEET - 1989"
  42. leftstring B0 = @date(@now)
  43. leftstring A1 = " 1. Single"
  44. let A1 = 0
  45. leftstring A2 = " 2. Married/Joint"
  46. let A2 = 0
  47. leftstring A3 = " 3. Married/Separate"
  48. let A3 = 0
  49. leftstring A4 = " 4. Head of Household"
  50. let A4 = 0
  51. leftstring A5 = " 5. Qualifying Widow(er)"
  52. let A5 = 0
  53. leftstring exemptions = " 6e. Total Exemptions"
  54. let exemptions = 0
  55. leftstring wages = " 7. Wages, etc."
  56. let wages = 0
  57. leftstring B8 = " 8. Taxable Interest"
  58. let B8 = 0
  59. leftstring B9 = " 9. Dividend Income"
  60. let B9 = 0
  61. leftstring B10 = " 10. Taxable Refunds"
  62. let B10 = 0
  63. leftstring B11 = " 11. Alimony"
  64. let B11 = 0
  65. leftstring B12 = " 12. Business Income"
  66. let B12 = 0
  67. leftstring B13 = " 13. Capital Gain"
  68. let B13 = 0
  69. leftstring B14 = " 14. Capital Gain Dist."
  70. let B14 = 0
  71. leftstring B15 = " 15. Other gains"
  72. let B15 = 0
  73. leftstring A16 = " 16a. Total IRA Dist."
  74. let A16 = 0
  75. leftstring B16 = " 16b. Taxable Amount"
  76. let B16 = 0
  77. leftstring A17 = " 17a. Total Pensions"
  78. let A17 = 0
  79. leftstring B17 = " 17b. Taxable Amount"
  80. let B17 = 0
  81. leftstring B18 = " 18. Rents, etc."
  82. let B18 = 0
  83. leftstring B19 = " 19. Farm income"
  84. let B19 = 0
  85. leftstring B20 = " 20. Unemployment"
  86. let B20 = 0
  87. leftstring A21 = " 21a. Social Security"
  88. let A21 = 0
  89. leftstring B21 = " 21b. Taxable amount"
  90. let B21 = 0
  91. leftstring B22 = " 22. Other Income"
  92. let B22 = 0
  93. leftstring total_income = " 23. Total Income"
  94. let total_income = @sum(wages:B22)
  95. leftstring A24 = " 24. Business Expense"
  96. let A24 = 0
  97. leftstring A25 = " 25a. IRA deduction"
  98. let A25 = 0
  99. leftstring B25 = " 25b. Spouse's IRA"
  100. let B25 = 0
  101. leftstring A26 = " 26. Health Insurance"
  102. let A26 = 0
  103. leftstring A27 = " 27. Keogh deduction"
  104. let A27 = 0
  105. leftstring A28 = " 28. Savings penalty"
  106. let A28 = 0
  107. leftstring A29 = " 29. Alimony"
  108. let A29 = 0
  109. leftstring total_adjustments = " 30. Total Adj."
  110. let total_adjustments = @sum(A24:A29)+B25
  111. leftstring adjusted_gross_income = " 31. Adjusted Gross"
  112. let adjusted_gross_income = total_income-total_adjustments
  113. leftstring B32 = " 32. Gross (L.30)"
  114. let B32 = adjusted_gross_income
  115. leftstring A33 = " 33a. No. Boxes Checked"
  116. let A33 = 0
  117. leftstring standard_deduction = " 34a. Std. Deduction"
  118. let standard_deduction = A1=1?3100:(A2=1?5200:(A3=1?2600:(A4=1?4550:(A5=1?5200:0))))
  119. leftstring itemized_deductions = " 34b. Sched. A L. 26"
  120. let itemized_deductions = total_deductions
  121. leftstring B35 = " 35. 32-(34a or 34b)"
  122. let B35 = standard_deduction>itemized_deductions?adjusted_gross_income-standard_deduction:adjusted_gross_income-itemized_deductions
  123. leftstring B36 = " 36. Exemptions*2000"
  124. let B36 = exemptions*2000
  125. leftstring taxable_income = " 37. Taxable Income"
  126. let taxable_income = B35-B36
  127. leftstring B38 = " 38. Computed Tax"
  128. let B38 = A1=1?(taxable_income>93130?A109:(taxable_income>44900?(taxable_income-44900)*0.33+10161:(taxable_income>18550?(taxable_income-18550)*0.28+2783:taxable_income*0.15))):(A2=1?(taxable_income>155320?A109:(taxable_income>74850?(taxable_income-74850)*0.33+16935:(taxable_income>30950?(taxable_income-30950)*0.28+4643:taxable_income*0.15))):(A3=1?(taxable_income>117895?A109:(taxable_income>37425?(taxable_income-37425)*0.33+8467:(taxable_income>15475?(taxable_income-15475)*0.28+2321:taxable_income*0.15))):
  129. (A4=1?(taxable_income>128810?A109:(taxable_income>64200?(taxable_income-64200)*0.33+14746:(taxable_income>24850?(taxable_income-24850)*0.28+3728:taxable_income*0.15))):(A5=1?(taxable_income>155320?A109:(taxable_income>74850?(taxable_income-74850)*0.33+16935:(taxable_income>30950?(taxable_income-30950)*0.28+4643:taxable_income*0.15))):0))))
  130. leftstring B39 = " 39. Addit. Taxes"
  131. let B39 = 0
  132. leftstring B40 = " 40. L.38 + L.39"
  133. let B40 = B38+B39
  134. leftstring A41 = " 41. Child care"
  135. let A41 = 0
  136. leftstring A42 = " 42. Elderly credit"
  137. let A42 = 0
  138. leftstring A43 = " 43. Foreign Tax Credit"
  139. let A43 = 0
  140. leftstring A44 = " 44. General Business"
  141. let A44 = 0
  142. leftstring A45 = " 45. Prior Year Credit"
  143. let A45 = 0
  144. leftstring B46 = " 46. Total Credits"
  145. let B46 = @sum(A41:A45)
  146. leftstring B47 = " 47. L.40 - L.46"
  147. let B47 = B40-B46>0?B40-B46:0
  148. leftstring B48 = " 48. Self_employment Tax"
  149. let B48 = 0
  150. leftstring B49 = " 49. Alternate Minimum"
  151. let B49 = 0
  152. leftstring B50 = " 50. Recapture Tax"
  153. let B50 = 0
  154. leftstring B51 = " 51. SS on tips"
  155. let B51 = 0
  156. leftstring B52 = " 52. IRA tax"
  157. let B52 = 0
  158. leftstring B53 = " 53. TOTAL TAX"
  159. let B53 = @sum(B47:B52)
  160. leftstring B54 = " 54. Supplemental Medicare"
  161. let B54 = 0
  162. leftstring total_tax = " 55. L.53 + L.54"
  163. let total_tax = @sum(B53:B54)
  164. leftstring A56 = " 56. Tax withheld"
  165. let A56 = 0
  166. leftstring A57 = " 57. Est. tax"
  167. let A57 = 0
  168. leftstring A58 = " 58. Earned income"
  169. let A58 = 0
  170. leftstring A59 = " 59. Form 4868"
  171. let A59 = 0
  172. leftstring A60 = " 60. Excess SS"
  173. let A60 = 0
  174. leftstring A61 = " 61. Fuel tax credit"
  175. let A61 = 0
  176. leftstring A62 = " 62. Reg. Invest. Co."
  177. let A62 = 0
  178. leftstring total_payments = " 63. Total Payments"
  179. let total_payments = @sum(A56:A62)
  180. leftstring overpaid = " 64. Overpaid"
  181. let overpaid = total_payments>total_tax?total_payments-total_tax:0
  182. leftstring refunded_to_you = " 65. Refund"
  183. let refunded_to_you = overpaid
  184. leftstring A66 = " 66. Estimated 1989"
  185. let A66 = 0
  186. leftstring amount_you_owe = " 67. Amount You Owe"
  187. let amount_you_owe = total_tax>total_payments?total_tax-total_payments:0
  188. leftstring A68 = " 68. Underpayment penalty"
  189. let A68 = 0
  190. leftstring sched_a = "Schedule A - Itemized Deductions"
  191. leftstring A71 = " 1a. Medical, etc."
  192. let A71 = 0
  193. leftstring B71 = " 1b. Other"
  194. let B71 = 0
  195. leftstring A72 = " 2. Total"
  196. let A72 = @sum(A71:B71)
  197. leftstring A73 = " 3. F.1040 L.31 * .075"
  198. let A73 = adjusted_gross_income*0.075
  199. leftstring B74 = " 4. Total Medical/Dental"
  200. let B74 = A72-A73>0?A72-A73:0
  201. leftstring A75 = " 5. State/local tax"
  202. let A75 = 0
  203. leftstring A76 = " 6. Real estate tax"
  204. let A76 = 0
  205. leftstring A77 = " 7. Other taxes"
  206. let A77 = 0
  207. leftstring B78 = " 8. Total taxes"
  208. let B78 = @sum(A75:A77)
  209. leftstring A79 = " 9a. Mortgage Int."
  210. let A79 = 0
  211. leftstring A80 = " 9b. Indiv. mortgage"
  212. let A80 = 0
  213. leftstring A81 = " 10. Deductible points"
  214. let A81 = 0
  215. leftstring A82 = " 11. Investment Interest"
  216. let A82 = 0
  217. leftstring A83 = " 12a. Personal Interest"
  218. let A83 = 0
  219. leftstring A84 = " 12b. L.12a * 0.20"
  220. let A84 = A83*0.2
  221. leftstring B84 = " 13. Total interest"
  222. let B84 = @sum(A79:A84)-A83
  223. leftstring A85 = " 14. Cash or Check"
  224. let A85 = 0
  225. leftstring A86 = " 15. Non-cash"
  226. let A86 = 0
  227. leftstring A87 = " 16. Carryover"
  228. let A87 = 0
  229. leftstring B88 = " 17. Total Contrib."
  230. let B88 = @sum(A85:A87)
  231. leftstring B89 = " 18. Casualty/Theft"
  232. let B89 = 0
  233. leftstring B90 = " 19. Moving Expenses"
  234. let B90 = 0
  235. leftstring A91 = " 20. Emp. Business Exp."
  236. let A91 = 0
  237. leftstring A92 = " 21. Other Expenses"
  238. let A92 = 0
  239. leftstring A93 = " 22. Total misc."
  240. let A93 = A91+A92
  241. leftstring A94 = " 23. F.1040 L.31 * .02"
  242. let A94 = adjusted_gross_income*0.02
  243. leftstring B95 = " 24. L.22 - L.23 or 0"
  244. let B95 = A93-A94>0?A93-A94:0
  245. leftstring B96 = " 25. Other misc."
  246. let B96 = 0
  247. leftstring total_deductions = " 26. Total Deductions"
  248. let total_deductions = @sum(B74:B96)
  249. leftstring tax_worksheet = "Tax Rate Schedule Worksheet"
  250. leftstring A101 = " 1. Tax Below Limit"
  251. let A101 = A1=1?26076:(A2=1?43490:(A3=1?35022:(A4=1?36067:(A5=1?43490:0))))
  252. leftstring A102 = " 2. Taxable Income"
  253. let A102 = taxable_income
  254. leftstring A103 = " 3. Schedule Limit"
  255. let A103 = A1=1?93130:(A2=1?155320:(A3=1?117895:(A4=1?128810:(A5=1?155320:0))))
  256. leftstring A104 = " 4. TRSW L2-L3"
  257. let A104 = A102>A103?A102-A103:0
  258. leftstring A105 = " 5. TRSW L4 * 0.28"
  259. let A105 = A104*0.28
  260. leftstring A106 = " 6. TRSW L4 * 0.05"
  261. let A106 = A104*0.05
  262. leftstring A107 = " 7. Exemptions * 560"
  263. let A107 = exemptions*560
  264. leftstring A108 = " 8. Smaller TRSW L6/L7"
  265. let A108 = A106>A107?A107:A106
  266. leftstring A109 = " 9. Tax"
  267. let A109 = A104=0?0:A101+A105+A108
  268.  
  269.