home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / enterprs / cpm / utils / f / perfless.ark / SCHEDX.PC < prev    next >
Encoding:
Text File  |  1989-09-27  |  1.4 KB  |  35 lines
  1. \wg15
  2. >a1:"  SUPPORTING TAX SCHEDULE X
  3. >a1:\wc25
  4. >a2:"Copyright, 1982, Perfect Software, Inc.
  5. >a3:"  This Spreadsheet file is used with the "tax.pc" spreadsheet file.
  6. >a5:" Filing Status:
  7. >b5:"         Single
  8. >a6:" Taxpayer Zero Bracket:
  9. >b6:=2300@
  10. >a7:" Interest exclusion:
  11. >b7:=200@
  12. >a8:" Adjusted Gross Income:
  13. >b8:=tax[c37]@
  14. >a10:" Tax Schedule X
  15. >a12:=if(and(b8>=2300, b8<3400), 0.14*(b8-2300), 0)@
  16. >a13:=if(and(b8>=3400, b8<4400), 154+0.16*(b8-3400), 0)@
  17. >a14:=if(and(b8>=4400, b8<6500), 314+0.18*(b8-4400), 0)@
  18. >a15:=if(and(b8>=6500, b8<8500), 692+0.19*(b8-6500), 0)@
  19. >a16:=if(and(b8>=8500, b8<10800), 1072+0.21*(b8-8500), 0)@
  20. >a17:=if(and(b8>=10800, b8<12900), 1555+0.24*(b8-10800), 0)@
  21. >a18:=if(and(b8>=12900, b8<15000), 2059+0.26*(b8-12900), 0)@
  22. >a19:=if(and(b8>=15000, b8<18200), 2605+0.30*(b8-15000), 0)@
  23. >a20:=if(and(b8>=18200, b8<23500), 3565+0.34*(b8-18200), 0)@
  24. >a21:=if(and(b8>=23500, b8<28800), 5367+0.39*(b8-23500), 0)@
  25. >a22:=if(and(b8>=28800, b8<34100), 7434+0.44*(b8-28800), 0)@
  26. >a23:=if(and(b8>=34100, b8<41500), 9766+0.49*(b8-34100), 0)@
  27. >a24:=if(and(b8>=41500, b8<55300), 13392+0.55*(b8-41500), 0)@
  28. >a25:=if(and(b8>=55300, b8<81800), 20982+0.63*(b8-55300), 0)@
  29. >a26:=if(and(b8>=81800, b8<108300), 37677+0.68*(b8-81800), 0)@
  30. >a27:=if(b8>=108300, 55697+0.70*(b8-108300), 0)@
  31. >a28:=sum(a12:a27)@
  32. >a1
  33. \aB:TAX.PC
  34. >a10:" Tax Schedule X
  35. >a12:=if(and(b8>=23