home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / enterprs / cpm / utils / f / perfless.ark / SCHEDA.PC < prev    next >
Text File  |  1989-09-27  |  2KB  |  86 lines
  1. \wg15
  2. >a1:" SCHEDULE A - ITEMIZED DEDUCTIONS
  3. >a1:\wc39
  4. >a2:"Copyright, 1982, Perfect Software, Inc.
  5. >a3:"  This Spreadsheet is used with the "tax.pc" spreadsheet file.
  6. >a5:"Medical and Dental Expenses
  7. >a6:"  Medical insurance premiums (total)
  8. >b6:0
  9. >a7:"  1 One-half of premiums (to $150)
  10. >b7:=if(0.5*b6 > 150, 150, 0.5*b6)@
  11. >a8:"  2 Medicine and drugs
  12. >b8:0
  13. >a9:"  3 1% of Form 1040, line 31
  14. >b9:=tax[c33]*0.01@
  15. >a10:"  4 line 2 - line 3
  16. >b10:=if(b8>b9, b8-b9, 0)@
  17. >a11:"  5 Balance of insurance premiums
  18. >b11:=b6-b7@
  19. >a12:"  6 Other medical and dental expenses
  20. >b12:0
  21. >a13:"  7 Total
  22. >b13:=sum(b10:b12)@
  23. >a14:"  8 3% of Form 1040, line 31
  24. >b14:=tax[c33]*0.03@
  25. >a15:"  9 Line 7 - line 8
  26. >b15:=if(b13>b14, b13-b14, 0)@
  27. >a16:"  10 Total
  28. >b16:=b15+b7@
  29. >a17:"Taxes
  30. >a18:"  11 State and local income
  31. >b18:0
  32. >a19:"  12 Real estate
  33. >b19:0
  34. >a20:"  13 General sales
  35. >b20:0
  36. >a21:"  14 Personal property
  37. >b21:0
  38. >a22:"  15 Other
  39. >b22:0
  40. >a23:"  16 Total
  41. >b23:=sum(b18:b22)@
  42. >a24:"Interest expense
  43. >a25:"  17 Home mortgage
  44. >b25:0
  45. >a26:"  18 Credit card
  46. >b26:0
  47. >a27:"  19 Other
  48. >b27:0
  49. >a28:"  20 Total
  50. >b28:=sum(b25:b27)@
  51. >a29:"Contributions
  52. >a30:"  21 Cash contributions
  53. >b30:0
  54. >a31:"  22 Other than cash
  55. >b31:0
  56. >a32:"  23 Carryover
  57. >b32:0
  58. >a33:"  24 Total
  59. >b33:=sum(b30:b32)@
  60. >a34:"Casualty or Theft Losses
  61. >a35:"  25 Loss amount
  62. >b35:0
  63. >a36:"  26 Insurance reimbursement
  64. >b36:0
  65. >a37:"  27 line 25 - line 26
  66. >b37:=if(b35>b36,b35-b36,0)@
  67. >a38:"  28 smaller of $100 or line 27
  68. >b38:=if(b37 > 100, 100, b37)@
  69. >a39:"  29 Total
  70. >b39:=b37-b38@
  71. >a40:"Miscellaneous Deductions
  72. >a41:"  30 Union dues, tax prep. fee
  73. >b41:0
  74. >a42:"  31 Other
  75. >b42:0
  76. >a43:"  32 Total
  77. >b43:=sum(b41:b42)@
  78. >a44:"  39 Total Itemized Deductions
  79. >b44:=b16+b23+b28+b33+b39+b43@
  80. >a45:"  40 Zero Bracket Amount
  81. >b45:=schedx[b2]@
  82. >a46:"  41 Allowed Ded'ns (to 1040 line 32b)
  83. >b46:=if(b44>b45, b44-b45, 0)@
  84. >a1
  85. \aB:SCHEDX.PC
  86.