|
DataMuseum.dkPresents historical artifacts from the history of: CP/M |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CP/M Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 1536 (0x600)
Types: TextFile
Names: »SCHEDX.PC«
└─⟦a6ed1cd35⟧ Bits:30002862 Perfect Calc 1.10 for JET80 CP/M
└─ ⟦this⟧ »SCHEDX.PC«
Øwg15 >a1:" SUPPORTING TAX SCHEDULE X >a1:Øwc25 >a2:"Copyright, 1982, Perfect Software, Inc. >a3:" This Spreadsheet file is used with the "tax.pc" spreadsheet file. >a5:" Filing Status: >b5:" Single >a6:" Taxpayer Zero Bracket: >b6:=2300@ >a7:" Interest exclusion: >b7:=200@ >a8:" Adjusted Gross Income: >b8:=taxÆc37Å@ >a10:" Tax Schedule X >a12:=if(and(b8>=2300, b8<3400), 0.14*(b8-2300), 0)@ >a13:=if(and(b8>=3400, b8<4400), 154+0.16*(b8-3400), 0)@ >a14:=if(and(b8>=4400, b8<6500), 314+0.18*(b8-4400), 0)@ >a15:=if(and(b8>=6500, b8<8500), 692+0.19*(b8-6500), 0)@ >a16:=if(and(b8>=8500, b8<10800), 1072+0.21*(b8-8500), 0)@ >a17:=if(and(b8>=10800, b8<12900), 1555+0.24*(b8-10800), 0)@ >a18:=if(and(b8>=12900, b8<15000), 2059+0.26*(b8-12900), 0)@ >a19:=if(and(b8>=15000, b8<18200), 2605+0.30*(b8-15000), 0)@ >a20:=if(and(b8>=18200, b8<23500), 3565+0.34*(b8-18200), 0)@ >a21:=if(and(b8>=23500, b8<28800), 5367+0.39*(b8-23500), 0)@ >a22:=if(and(b8>=28800, b8<34100), 7434+0.44*(b8-28800), 0)@ >a23:=if(and(b8>=34100, b8<41500), 9766+0.49*(b8-34100), 0)@ >a24:=if(and(b8>=41500, b8<55300), 13392+0.55*(b8-41500), 0)@ >a25:=if(and(b8>=55300, b8<81800), 20982+0.63*(b8-55300), 0)@ >a26:=if(and(b8>=81800, b8<108300), 37677+0.68*(b8-81800), 0)@ >a27:=if(b8>=108300, 55697+0.70*(b8-108300), 0)@ >a28:=sum(a12:a27)@ >a1 ØaTAX.PC «eof»