DataMuseum.dk

Presents historical artifacts from the history of:

CP/M

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about CP/M

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download

⟦ab6b3367a⟧ TextFile

    Length: 2048 (0x800)
    Types: TextFile
    Names: »SCHEDA.PC«

Derivation

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

TextFile

Øwg15
>a1:" SCHEDULE A - ITEMIZED DEDUCTIONS
>a1:Øwc39
>a2:"Copyright, 1982, Perfect Software, Inc.
>a3:"  This Spreadsheet is used with the "tax.pc" spreadsheet file.
>a5:"Medical and Dental Expenses
>a6:"  Medical insurance premiums (total)
>b6:0
>a7:"  1 One-half of premiums (to $150)
>b7:=if(0.5*b6 > 150, 150, 0.5*b6)@
>a8:"  2 Medicine and drugs
>b8:0
>a9:"  3 1% of Form 1040, line 31
>b9:=taxÆc33Å*0.01@
>a10:"  4 line 2 - line 3
>b10:=if(b8>b9, b8-b9, 0)@
>a11:"  5 Balance of insurance premiums
>b11:=b6-b7@
>a12:"  6 Other medical and dental expenses
>b12:0
>a13:"  7 Total
>b13:=sum(b10:b12)@
>a14:"  8 3% of Form 1040, line 31
>b14:=taxÆc33Å*0.03@
>a15:"  9 Line 7 - line 8
>b15:=if(b13>b14, b13-b14, 0)@
>a16:"  10 Total
>b16:=b15+b7@
>a17:"Taxes
>a18:"  11 State and local income
>b18:0
>a19:"  12 Real estate
>b19:0
>a20:"  13 General sales
>b20:0
>a21:"  14 Personal property
>b21:0
>a22:"  15 Other
>b22:0
>a23:"  16 Total
>b23:=sum(b18:b22)@
>a24:"Interest expense
>a25:"  17 Home mortgage
>b25:0
>a26:"  18 Credit card
>b26:0
>a27:"  19 Other
>b27:0
>a28:"  20 Total
>b28:=sum(b25:b27)@
>a29:"Contributions
>a30:"  21 Cash contributions
>b30:0
>a31:"  22 Other than cash
>b31:0
>a32:"  23 Carryover
>b32:0
>a33:"  24 Total
>b33:=sum(b30:b32)@
>a34:"Casualty or Theft Losses
>a35:"  25 Loss amount
>b35:0
>a36:"  26 Insurance reimbursement
>b36:0
>a37:"  27 line 25 - line 26
>b37:=if(b35>b36,b35-b36,0)@
>a38:"  28 smaller of $100 or line 27
>b38:=if(b37 > 100, 100, b37)@
>a39:"  29 Total
>b39:=b37-b38@
>a40:"Miscellaneous Deductions
>a41:"  30 Union dues, tax prep. fee
>b41:0
>a42:"  31 Other
>b42:0
>a43:"  32 Total
>b43:=sum(b41:b42)@
>a44:"  39 Total Itemized Deductions
>b44:=b16+b23+b28+b33+b39+b43@
>a45:"  40 Zero Bracket Amount
>b45:=schedxÆb2Å@
>a46:"  41 Allowed Ded'ns (to 1040 line 32b)
>b46:=if(b44>b45, b44-b45, 0)@
>a1
ØaSCHEDX.PC
«eof»