DataMuseum.dk

top - download

    Length: 3840 (0xf00)
    Types: TextFile
    Names: »TAX.PC«

└─⟦a6ed1cd35⟧ Bits:30002862 Perfect Calc 1.10 for JET80 CP/M
    └─ ⟦this⟧ »TAX.PC« 

TextFile

Øwg15
Ødg38
>a1:" 1040 INDIVIDUAL TAX RETURN -- 1981    READ INSTRUCTIONS BEFORE USING
>a1:Øwc39
>a2:"Copyright, 1982, Perfect Software, Inc
>a3:"  This Spreadsheet file automatically reads in the following files:
>a4:"     --> scheda.pc   and  schedx.pc
>a5:"   You will need to use the Recalculation Key  ( ! ). 
>a6:"  6 Exemptions (col. b = "Error" if 0)
>b6:=c6/c6@
>c6:1.000000000000E+00
>a6:Ødl0
>a7:" Income
>a8:"  7 Wages, salaries, tips, etc.
>c8:0
>a9:"  8a Interest (less All-Savers excl.)
>b9:0
>c9:"       -
>a10:"  8b Dividends
>b10:0
>c10:"       -
>a11:"  8c Total
>b11:=b9+b10@
>c11:"       -
>a12:"  8d Exclusion
>b12:=d13@
>c12:"       -
>a13:"  8e Taxable Interest & Dividends
>c13:=if(b11 > b12, b11-b12, 0)@
>a14:"  9 Tax refunds
>c14:0
>a15:"  10 Alimony
>c15:0
>a16:"  11 Business income
>c16:0
>a17:"  12 Capital gain
>c17:0
>a18:"  13 40% capital gain distr.
>c18:0
>a19:"  14 Supplemental gains
>c19:0
>a20:"  15 Pensions & annuities
>c20:0
>a21:"  16 Other pensions and annuities
>c21:0
>a22:"  17 Rents, royalties, ...
>c22:0
>a23:"  18 Farm income
>c23:0
>a24:"  19 Unemployment compensation
>c24:0
>a25:"  20 Other income
>c25:0
>a26:"  21 Total income
>c26:=sum(c8:c25)@
>a27:"Adjustments to Income
>a28:"  22 Moving Expense
>b28:0
>c28:"       -
>a29:"  23 Employee business expense
>b29:0
>c29:"       -
>a30:"  24 IRA payments
>b30:0
>c30:"       -
>a31:"  25 Keogh payments
>b31:0
>c31:"       -
>a32:"  26 Interest penalty
>b32:0
>c32:"       -
>a33:"  27 Alimony
>b33:0
>c33:"       -
>a34:"  28 Disability income
>b34:0
>c34:"       -
>a35:"  29 Other adjustments
>b35:0
>c35:"       -
>a36:"  30 Total adjustments
>c36:=sum(b28:b35)@
>a37:"  31 Adjusted Gross Income
>c37:=c26-c36@
>a38:"Tax Computation
>a39:"  32 Itemized deductions
>c39:=schedaÆb43Å@
>a40:"  33 $1000 per exemption
>c40:=1000*c6@
>a41:"  34 Taxable income
>c41:=c37-(c39+c40)@
>a42:"Note: If you must use Tax Table, enter
>b42:"tax from Tax Table 
>c42:"ble in "43c"
>a43:"   Tax (from Sched. X, Y or Z)
>b43:=schedxÆa24Å@
>c43:"       -
>a44:"  35 Tax (includes Rate Red. Credit)
>c44:=0.9875*b43@
>a45:"  36 Additional taxes
>c45:0
>a46:"  37 Total taxes
>c46:=c44+c45@
>a47:"Credits
>a48:"  38 Political contributions
>b48:0
>c48:"       -
>a49:"  39 Elderly
>b49:0
>c49:"       -
>a50:"  40 Child care
>b50:0
>c50:"       -
>a51:"  41 Investment
>b51:0
>c51:"       -
>a52:"  42 Foreign tax
>b52:0
>c52:"       -
>a53:"  43 Work incentive
>b53:0
>c53:"       -
>a54:"  44 Jobs
>b54:0
>c54:"       -
>a55:"  45 Residential energy
>b55:0
>c55:"       -
>a56:"  46 Total credits
>c56:=sum(b48:b55)@
>a57:"  47 Balance
>c57:=if (c46 > c56, c46-c56, 0)@
>a58:"Other Taxes
>a59:"  48 Self-employment
>c59:0
>a60:"  49 Minimum
>c60:0
>a61:"  50 Alternative minimum
>c61:0
>a62:"  51 Add'l FICA
>c62:0
>a63:"  52 Tax on an IRA
>c63:0
>a64:"  53 Advance EIC payments
>c64:0
>a65:"  54 Total tax
>c65:=sum(c57:c64)@
>a66:"Payments
>a67:"  55 Federal income tax withheld
>b67:0
>c67:"       -
>a68:"  56 1981 estimated tax payments
>b68:0
>c68:"       -
>a69:"  57 Earned income credit
>b69:0
>c69:"       -
>a70:"  58 Form 4868
>b70:0
>c70:"       -
>a71:"  59 Excess FICA
>b71:0
>c71:"       -
>a72:"  60 Fuels tax
>b72:0
>c72:"       -
>a73:"  61 Regulated investment co.
>b73:0
>c73:"       -
>a74:"  62 Total payments
>c74:=sum(b67:b73)@
>a75:"Refund or Balance Due
>a76:"  63 Amount OVERPAID
>c76:=if(c74>c65,c74-c65,0)@
>a77:"  64 REFUNDED TO YOU
>c77:=c76@
>a78:"  65 Applied to 1982 tax
>a79:"  66 BALANCE DUE
>c79:=if(c65>c74,c65-c74,0)@
>a1
ØaSCHEDA.PC
«eof»