Wanted: 1990 "sc" 1040 forms
Scott Brim
swb at batcomputer.tn.cornell.edu
Fri Jan 12 00:13:57 AEST 1990
This was on another group. There's a glitch in the middle --
I concatenated two very long lines to make one huge conditional and it
*seemed* to work right (although I haven't put it to a real test yet).
However, I'm just going to post it the way I got it.
Scott
From: larryh at boot_hill.wv.tek.com (Larry Hemmert)
Newsgroups: comp.sources.misc
Subject: v09i098: 1040/Sched A/Tax Worksheet for SC.
Message-ID: <75760 at uunet.UU.NET>
Date: 5 Jan 90 00:04:40 GMT
Sender: allbery at uunet.UU.NET
Organization: Tektronix, Inc., Wilsonville, OR
Lines: 261
Approved: allbery at uunet.UU.NET (Brandon S. Allbery - comp.sources.misc)
Posting-number: Volume 9, Issue 98
Submitted-by: larryh at 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
More information about the Alt.sources.d
mailing list