Source Code 1992 March/Source_Code_CD-ROM_Walnut_Creek_March_1992.iso/usenet/altsrcs/2/2752/1040.90.sc

sc Spreadsheet Calculator spreadsheet | 1991-02-14 | 8.2 KB | 247 lines

# This data file was generated by the Spreadsheet Calculator.
# You almost certainly shouldn't edit it.

format A 30 2 0
format B 30 2 0
define "total_payments" B62
define "total_tax" B54
define "itemized_deductions" B34
define "standard_deduction" A34
define "taxable_income" B37
define "page2" A32
define "exemptions" B6
define "total_deductions" B97
define "sched_a" A69
define "adjusted_gross_income" B31
define "total_adjustments" B30
define "total_income" B23
define "amount_you_owe" B66
define "overpaid" B63
define "refunded_to_you" B64
define "tax_worksheet" A100
define "wages" B7
leftstring A0 = " 1040 TAX FORM SHEET - 1990"
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 = " 24a. IRA deduction"
let A24 = 0
leftstring B24 = " 24b. Spouse's IRA"
let B24 = 0
leftstring A25 = " 25. Self-employment tax"
let A25 = 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)+B24
leftstring adjusted_gross_income = " 31. Adjusted Gross"
let adjusted_gross_income = total_income-total_adjustments
leftstring B32 = " 32. Gross (L.31)"
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?3250:(A2=1?5450:(A3=1?2725:(A4=1?4750:(A5=1?5450:0))))
leftstring itemized_deductions = " 34b. Sched. A L. 27"
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*2050"
let B36 = exemptions*2050
leftstring taxable_income = " 37. Taxable Income"
let taxable_income = B35-B36
leftstring B38 = " 38. Computed Tax"
let B38 = A1=1?(taxable_income>97620?A110:(taxable_income>47050?(taxable_income-47050)*0.33+10645.5:(taxable_income>19450?(taxable_income-19450)*0.28+2917.5:taxable_income*0.15))):(A2=1?(taxable_income>162770?A110:(taxable_income>78400?(taxable_income-78400)*0.33+17733.5:(taxable_income>32450?(taxable_income-32450)*0.28+4867.5:taxable_income*0.15))):(A3=1?(taxable_income>123570?A110:(taxable_income>39200?(taxable_income-39200)*0.33+8866.75:(taxable_income>16225?(taxable_income-16225)*0.28+2433.75:taxable_income*0.15))):(A4=1?(taxable_income>134930?A110:(taxable_income>67200?(taxable_income-67200)*0.33+15429.5:(taxable_income>26050?(taxable_income-26050)*0.28+3907.5:taxable_income*0.15))):(A5=1?(taxable_income>162770?A110:(taxable_income>78400?(taxable_income-78400)*0.33+17733.5:(taxable_income>32450?(taxable_income-32450)*0.28+4867.5: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. Adv. inc. cred."
let B53 = 0
leftstring total_tax = " 54. TOTAL TAX"
let total_tax = @sum(B47:B53)
leftstring A55 = " 55. Tax withheld"
let A55 = 0
leftstring A56 = " 56. Est. tax"
let A56 = 0
leftstring A57 = " 57. Earned income"
let A57 = 0
leftstring A58 = " 58. Form 4868"
let A58 = 0
leftstring A59 = " 59. Excess SS"
let A59 = 0
leftstring A60 = " 60. Fuel tax credit"
let A60 = 0
leftstring A61 = " 61. Reg. Invest. Co."
let A61 = 0
leftstring total_payments = " 62. Total Payments"
let total_payments = @sum(A55:A61)
leftstring overpaid = " 63. Overpaid"
let overpaid = total_payments>total_tax?total_payments-total_tax:0
leftstring refunded_to_you = " 64. Refund"
let refunded_to_you = overpaid
leftstring A65 = " 65. Estimated 1989"
let A65 = 0
leftstring amount_you_owe = " 66. Amount You Owe"
let amount_you_owe = total_tax>total_payments?total_tax-total_payments:0
leftstring A67 = " 67. Underpayment penalty"
let A67 = 0
leftstring sched_a = "Schedule A - Itemized Deductions"
leftstring A70 = " 1. Medical, etc."
let A70 = 0
leftstring A71 = " 2. F.1040 L.32"
let A71 = adjusted_gross_income
leftstring A72 = " 3. F.1040 L.32 * .075"
let A72 = adjusted_gross_income*0.075
leftstring B73 = " 4. Total Medical/Dental"
let B73 = A70-A72>0?A70-A72:0
leftstring A74 = " 5. State/local tax"
let A74 = 0
leftstring A75 = " 6. Real estate tax"
let A75 = 0
leftstring A76 = " 7. Other taxes"
let A76 = 0
leftstring B77 = " 8. Total taxes"
let B77 = @sum(A74:A76)
leftstring A78 = " 9a. Mortgage Int."
let A78 = 0
leftstring A79 = " 9b. Indiv. mortgage"
let A79 = 0
leftstring A80 = " 10. Deductible points"
let A80 = 0
leftstring A81 = " 11. Investment Interest"
let A81 = 0
leftstring A82 = " 12a. Personal Interest"
let A82 = 0
leftstring A83 = " 12b. L.12a * 0.10"
let A83 = A82*0.1
leftstring B83 = " 13. Total interest"
let B83 = @sum(A78:A83)-A82
leftstring A84 = " 14. Cash or Check"
let A84 = 0
leftstring A85 = " 15. Non-cash"
let A85 = 0
leftstring A86 = " 16. Carryover"
let A86 = 0
leftstring B87 = " 17. Total Contrib."
let B87 = @sum(A84:A86)
leftstring B88 = " 18. Casualty/Theft"
let B88 = 0
leftstring B89 = " 19. Moving Expenses"
let B89 = 0
leftstring A90 = " 20. Emp. Business Exp."
let A90 = 0
leftstring A91 = " 21. Other Expenses"
let A91 = 0
leftstring A92 = " 22. Total misc."
let A92 = A90+A91
leftstring A93 = " 23. F.1040 L.32"
let A93 = adjusted_gross_income
leftstring A94 = " 24. F.1040 L.32 * .02"
let A94 = adjusted_gross_income*0.02
leftstring B95 = " 25. L.22 - L.23 or 0"
let B95 = A92-A94>0?A92-A94:0
leftstring B96 = " 26. Other misc."
let B96 = 0
leftstring total_deductions = " 27. Total Deductions"
let total_deductions = @sum(B73:B96)
leftstring tax_worksheet = "Tax Rate Schedule Worksheet"
leftstring A101 = " 1. Tax Below Limit"
let A101 = A1=1?27333.60:(A2=1?45575.60:(A3=1?36708.85:(A4=1?37780.40:(A5=1?45575.60))))
leftstring A102 = " 2. Taxable Income"
let A102 = taxable_income
leftstring A103 = " 3. Schedule Limit"
let A103 = A1=1?97620:(A2=1?162770:(A3=1?123570:(A4=1?134930:(A5=1?162770: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 * 574"
let A107 = exemptions*574
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