larryh@boot_hill.wv.tek.com (Larry Hemmert) (01/05/90)
Posting-number: Volume 9, Issue 98 Submitted-by: larryh@boot_hill.wv.tek.com (Larry Hemmert) Archive-name: 1040-89-sc_lh Herein contained is an SC file that can be used to help you work through your 1989 IRS stuff. I believe it to be correct, but make no claims. I will not be held responsible if the IRS finds fault.... ;-). You fill in the known blanks and it calculates the other stuff. You must enter a "1" into one of the catagories of A1:A5. -------------------------cut here--------------------------- # This data file was generated by the Spreadsheet Calculator. # You almost certainly shouldn't edit it. format A 30 2 format B 30 2 define "wages" B7 define "tax_worksheet" A100 define "refunded_to_you" B65 define "overpaid" B64 define "amount_you_owe" B67 define "total_income" B23 define "total_adjustments" B30 define "adjusted_gross_income" B31 define "sched_a" A70 define "total_deductions" B97 define "exemptions" B6 define "page2" A32 define "taxable_income" B37 define "standard_deduction" A34 define "itemized_deductions" B34 define "total_tax" B55 define "total_payments" B63 leftstring A0 = " 1040 TAX FORM SHEET - 1989" leftstring B0 = @date(@now) leftstring A1 = " 1. Single" let A1 = 0 leftstring A2 = " 2. Married/Joint" let A2 = 0 leftstring A3 = " 3. Married/Separate" let A3 = 0 leftstring A4 = " 4. Head of Household" let A4 = 0 leftstring A5 = " 5. Qualifying Widow(er)" let A5 = 0 leftstring exemptions = " 6e. Total Exemptions" let exemptions = 0 leftstring wages = " 7. Wages, etc." let wages = 0 leftstring B8 = " 8. Taxable Interest" let B8 = 0 leftstring B9 = " 9. Dividend Income" let B9 = 0 leftstring B10 = " 10. Taxable Refunds" let B10 = 0 leftstring B11 = " 11. Alimony" let B11 = 0 leftstring B12 = " 12. Business Income" let B12 = 0 leftstring B13 = " 13. Capital Gain" let B13 = 0 leftstring B14 = " 14. Capital Gain Dist." let B14 = 0 leftstring B15 = " 15. Other gains" let B15 = 0 leftstring A16 = " 16a. Total IRA Dist." let A16 = 0 leftstring B16 = " 16b. Taxable Amount" let B16 = 0 leftstring A17 = " 17a. Total Pensions" let A17 = 0 leftstring B17 = " 17b. Taxable Amount" let B17 = 0 leftstring B18 = " 18. Rents, etc." let B18 = 0 leftstring B19 = " 19. Farm income" let B19 = 0 leftstring B20 = " 20. Unemployment" let B20 = 0 leftstring A21 = " 21a. Social Security" let A21 = 0 leftstring B21 = " 21b. Taxable amount" let B21 = 0 leftstring B22 = " 22. Other Income" let B22 = 0 leftstring total_income = " 23. Total Income" let total_income = @sum(wages:B22) leftstring A24 = " 24. Business Expense" let A24 = 0 leftstring A25 = " 25a. IRA deduction" let A25 = 0 leftstring B25 = " 25b. Spouse's IRA" let B25 = 0 leftstring A26 = " 26. Health Insurance" let A26 = 0 leftstring A27 = " 27. Keogh deduction" let A27 = 0 leftstring A28 = " 28. Savings penalty" let A28 = 0 leftstring A29 = " 29. Alimony" let A29 = 0 leftstring total_adjustments = " 30. Total Adj." let total_adjustments = @sum(A24:A29)+B25 leftstring adjusted_gross_income = " 31. Adjusted Gross" let adjusted_gross_income = total_income-total_adjustments leftstring B32 = " 32. Gross (L.30)" let B32 = adjusted_gross_income leftstring A33 = " 33a. No. Boxes Checked" let A33 = 0 leftstring standard_deduction = " 34a. Std. Deduction" let standard_deduction = A1=1?3100:(A2=1?5200:(A3=1?2600:(A4=1?4550:(A5=1?5200:0)))) leftstring itemized_deductions = " 34b. Sched. A L. 26" let itemized_deductions = total_deductions leftstring B35 = " 35. 32-(34a or 34b)" let B35 = standard_deduction>itemized_deductions?adjusted_gross_income-standard_deduction:adjusted_gross_income-itemized_deductions leftstring B36 = " 36. Exemptions*2000" let B36 = exemptions*2000 leftstring taxable_income = " 37. Taxable Income" let taxable_income = B35-B36 leftstring B38 = " 38. Computed Tax" 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))): (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)))) leftstring B39 = " 39. Addit. Taxes" let B39 = 0 leftstring B40 = " 40. L.38 + L.39" let B40 = B38+B39 leftstring A41 = " 41. Child care" let A41 = 0 leftstring A42 = " 42. Elderly credit" let A42 = 0 leftstring A43 = " 43. Foreign Tax Credit" let A43 = 0 leftstring A44 = " 44. General Business" let A44 = 0 leftstring A45 = " 45. Prior Year Credit" let A45 = 0 leftstring B46 = " 46. Total Credits" let B46 = @sum(A41:A45) leftstring B47 = " 47. L.40 - L.46" let B47 = B40-B46>0?B40-B46:0 leftstring B48 = " 48. Self_employment Tax" let B48 = 0 leftstring B49 = " 49. Alternate Minimum" let B49 = 0 leftstring B50 = " 50. Recapture Tax" let B50 = 0 leftstring B51 = " 51. SS on tips" let B51 = 0 leftstring B52 = " 52. IRA tax" let B52 = 0 leftstring B53 = " 53. TOTAL TAX" let B53 = @sum(B47:B52) leftstring B54 = " 54. Supplemental Medicare" let B54 = 0 leftstring total_tax = " 55. L.53 + L.54" let total_tax = @sum(B53:B54) leftstring A56 = " 56. Tax withheld" let A56 = 0 leftstring A57 = " 57. Est. tax" let A57 = 0 leftstring A58 = " 58. Earned income" let A58 = 0 leftstring A59 = " 59. Form 4868" let A59 = 0 leftstring A60 = " 60. Excess SS" let A60 = 0 leftstring A61 = " 61. Fuel tax credit" let A61 = 0 leftstring A62 = " 62. Reg. Invest. Co." let A62 = 0 leftstring total_payments = " 63. Total Payments" let total_payments = @sum(A56:A62) leftstring overpaid = " 64. Overpaid" let overpaid = total_payments>total_tax?total_payments-total_tax:0 leftstring refunded_to_you = " 65. Refund" let refunded_to_you = overpaid leftstring A66 = " 66. Estimated 1989" let A66 = 0 leftstring amount_you_owe = " 67. Amount You Owe" let amount_you_owe = total_tax>total_payments?total_tax-total_payments:0 leftstring A68 = " 68. Underpayment penalty" let A68 = 0 leftstring sched_a = "Schedule A - Itemized Deductions" leftstring A71 = " 1a. Medical, etc." let A71 = 0 leftstring B71 = " 1b. Other" let B71 = 0 leftstring A72 = " 2. Total" let A72 = @sum(A71:B71) leftstring A73 = " 3. F.1040 L.31 * .075" let A73 = adjusted_gross_income*0.075 leftstring B74 = " 4. Total Medical/Dental" let B74 = A72-A73>0?A72-A73:0 leftstring A75 = " 5. State/local tax" let A75 = 0 leftstring A76 = " 6. Real estate tax" let A76 = 0 leftstring A77 = " 7. Other taxes" let A77 = 0 leftstring B78 = " 8. Total taxes" let B78 = @sum(A75:A77) leftstring A79 = " 9a. Mortgage Int." let A79 = 0 leftstring A80 = " 9b. Indiv. mortgage" let A80 = 0 leftstring A81 = " 10. Deductible points" let A81 = 0 leftstring A82 = " 11. Investment Interest" let A82 = 0 leftstring A83 = " 12a. Personal Interest" let A83 = 0 leftstring A84 = " 12b. L.12a * 0.20" let A84 = A83*0.2 leftstring B84 = " 13. Total interest" let B84 = @sum(A79:A84)-A83 leftstring A85 = " 14. Cash or Check" let A85 = 0 leftstring A86 = " 15. Non-cash" let A86 = 0 leftstring A87 = " 16. Carryover" let A87 = 0 leftstring B88 = " 17. Total Contrib." let B88 = @sum(A85:A87) leftstring B89 = " 18. Casualty/Theft" let B89 = 0 leftstring B90 = " 19. Moving Expenses" let B90 = 0 leftstring A91 = " 20. Emp. Business Exp." let A91 = 0 leftstring A92 = " 21. Other Expenses" let A92 = 0 leftstring A93 = " 22. Total misc." let A93 = A91+A92 leftstring A94 = " 23. F.1040 L.31 * .02" let A94 = adjusted_gross_income*0.02 leftstring B95 = " 24. L.22 - L.23 or 0" let B95 = A93-A94>0?A93-A94:0 leftstring B96 = " 25. Other misc." let B96 = 0 leftstring total_deductions = " 26. Total Deductions" let total_deductions = @sum(B74:B96) leftstring tax_worksheet = "Tax Rate Schedule Worksheet" leftstring A101 = " 1. Tax Below Limit" let A101 = A1=1?26076:(A2=1?43490:(A3=1?35022:(A4=1?36067:(A5=1?43490:0)))) leftstring A102 = " 2. Taxable Income" let A102 = taxable_income leftstring A103 = " 3. Schedule Limit" let A103 = A1=1?93130:(A2=1?155320:(A3=1?117895:(A4=1?128810:(A5=1?155320:0)))) leftstring A104 = " 4. TRSW L2-L3" let A104 = A102>A103?A102-A103:0 leftstring A105 = " 5. TRSW L4 * 0.28" let A105 = A104*0.28 leftstring A106 = " 6. TRSW L4 * 0.05" let A106 = A104*0.05 leftstring A107 = " 7. Exemptions * 560" let A107 = exemptions*560 leftstring A108 = " 8. Smaller TRSW L6/L7" let A108 = A106>A107?A107:A106 leftstring A109 = " 9. Tax" let A109 = A104=0?0:A101+A105+A108