home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / enterprs / cpm / utils / f / perfless.ark / TAX.PC < prev    next >
Encoding:
Text File  |  1989-09-27  |  3.8 KB  |  182 lines
  1. \wg15
  2. \dg38
  3. >a1:" 1040 INDIVIDUAL TAX RETURN -- 1981    READ INSTRUCTIONS BEFORE USING
  4. >a1:\wc39
  5. >a2:"Copyright, 1982, Perfect Software, Inc
  6. >a3:"  This Spreadsheet file automatically reads in the following files:
  7. >a4:"     --> scheda.pc   and  schedx.pc
  8. >a5:"   You will need to use the Recalculation Key  ( ! ). 
  9. >a6:"  6 Exemptions (col. b = "Error" if 0)
  10. >b6:=c6/c6@
  11. >c6:1.000000000000E+00
  12. >a6:\dl0
  13. >a7:" Income
  14. >a8:"  7 Wages, salaries, tips, etc.
  15. >c8:0
  16. >a9:"  8a Interest (less All-Savers excl.)
  17. >b9:0
  18. >c9:"       -
  19. >a10:"  8b Dividends
  20. >b10:0
  21. >c10:"       -
  22. >a11:"  8c Total
  23. >b11:=b9+b10@
  24. >c11:"       -
  25. >a12:"  8d Exclusion
  26. >b12:=d13@
  27. >c12:"       -
  28. >a13:"  8e Taxable Interest & Dividends
  29. >c13:=if(b11 > b12, b11-b12, 0)@
  30. >a14:"  9 Tax refunds
  31. >c14:0
  32. >a15:"  10 Alimony
  33. >c15:0
  34. >a16:"  11 Business income
  35. >c16:0
  36. >a17:"  12 Capital gain
  37. >c17:0
  38. >a18:"  13 40% capital gain distr.
  39. >c18:0
  40. >a19:"  14 Supplemental gains
  41. >c19:0
  42. >a20:"  15 Pensions & annuities
  43. >c20:0
  44. >a21:"  16 Other pensions and annuities
  45. >c21:0
  46. >a22:"  17 Rents, royalties, ...
  47. >c22:0
  48. >a23:"  18 Farm income
  49. >c23:0
  50. >a24:"  19 Unemployment compensation
  51. >c24:0
  52. >a25:"  20 Other income
  53. >c25:0
  54. >a26:"  21 Total income
  55. >c26:=sum(c8:c25)@
  56. >a27:"Adjustments to Income
  57. >a28:"  22 Moving Expense
  58. >b28:0
  59. >c28:"       -
  60. >a29:"  23 Employee business expense
  61. >b29:0
  62. >c29:"       -
  63. >a30:"  24 IRA payments
  64. >b30:0
  65. >c30:"       -
  66. >a31:"  25 Keogh payments
  67. >b31:0
  68. >c31:"       -
  69. >a32:"  26 Interest penalty
  70. >b32:0
  71. >c32:"       -
  72. >a33:"  27 Alimony
  73. >b33:0
  74. >c33:"       -
  75. >a34:"  28 Disability income
  76. >b34:0
  77. >c34:"       -
  78. >a35:"  29 Other adjustments
  79. >b35:0
  80. >c35:"       -
  81. >a36:"  30 Total adjustments
  82. >c36:=sum(b28:b35)@
  83. >a37:"  31 Adjusted Gross Income
  84. >c37:=c26-c36@
  85. >a38:"Tax Computation
  86. >a39:"  32 Itemized deductions
  87. >c39:=scheda[b43]@
  88. >a40:"  33 $1000 per exemption
  89. >c40:=1000*c6@
  90. >a41:"  34 Taxable income
  91. >c41:=c37-(c39+c40)@
  92. >a42:"Note: If you must use Tax Table, enter
  93. >b42:"tax from Tax Table 
  94. >c42:"ble in "43c"
  95. >a43:"   Tax (from Sched. X, Y or Z)
  96. >b43:=schedx[a24]@
  97. >c43:"       -
  98. >a44:"  35 Tax (includes Rate Red. Credit)
  99. >c44:=0.9875*b43@
  100. >a45:"  36 Additional taxes
  101. >c45:0
  102. >a46:"  37 Total taxes
  103. >c46:=c44+c45@
  104. >a47:"Credits
  105. >a48:"  38 Political contributions
  106. >b48:0
  107. >c48:"       -
  108. >a49:"  39 Elderly
  109. >b49:0
  110. >c49:"       -
  111. >a50:"  40 Child care
  112. >b50:0
  113. >c50:"       -
  114. >a51:"  41 Investment
  115. >b51:0
  116. >c51:"       -
  117. >a52:"  42 Foreign tax
  118. >b52:0
  119. >c52:"       -
  120. >a53:"  43 Work incentive
  121. >b53:0
  122. >c53:"       -
  123. >a54:"  44 Jobs
  124. >b54:0
  125. >c54:"       -
  126. >a55:"  45 Residential energy
  127. >b55:0
  128. >c55:"       -
  129. >a56:"  46 Total credits
  130. >c56:=sum(b48:b55)@
  131. >a57:"  47 Balance
  132. >c57:=if (c46 > c56, c46-c56, 0)@
  133. >a58:"Other Taxes
  134. >a59:"  48 Self-employment
  135. >c59:0
  136. >a60:"  49 Minimum
  137. >c60:0
  138. >a61:"  50 Alternative minimum
  139. >c61:0
  140. >a62:"  51 Add'l FICA
  141. >c62:0
  142. >a63:"  52 Tax on an IRA
  143. >c63:0
  144. >a64:"  53 Advance EIC payments
  145. >c64:0
  146. >a65:"  54 Total tax
  147. >c65:=sum(c57:c64)@
  148. >a66:"Payments
  149. >a67:"  55 Federal income tax withheld
  150. >b67:0
  151. >c67:"       -
  152. >a68:"  56 1981 estimated tax payments
  153. >b68:0
  154. >c68:"       -
  155. >a69:"  57 Earned income credit
  156. >b69:0
  157. >c69:"       -
  158. >a70:"  58 Form 4868
  159. >b70:0
  160. >c70:"       -
  161. >a71:"  59 Excess FICA
  162. >b71:0
  163. >c71:"       -
  164. >a72:"  60 Fuels tax
  165. >b72:0
  166. >c72:"       -
  167. >a73:"  61 Regulated investment co.
  168. >b73:0
  169. >c73:"       -
  170. >a74:"  62 Total payments
  171. >c74:=sum(b67:b73)@
  172. >a75:"Refund or Balance Due
  173. >a76:"  63 Amount OVERPAID
  174. >c76:=if(c74>c65,c74-c65,0)@
  175. >a77:"  64 REFUNDED TO YOU
  176. >c77:=c76@
  177. >a78:"  65 Applied to 1982 tax
  178. >a79:"  66 BALANCE DUE
  179. >c79:=if(c65>c74,c65-c74,0)@
  180. >a1
  181. \aB:SCHEDA.PC
  182.