Inctax789

Source Code

   10 CLS 
   20 REM "inc tx 789" - revised 11/25/86
   30 REM  - by Max Schoenfeld
   40 PRINT '''"Max's fast income tax program!!"
   50 PRINT '"     Please note that tax rate  break points (income levels at  which the tax rate shifts       upwards) will be indexed for in-flation beginning in 1989.  So  will deduction amounts.  Exemp- tion amounts will be indexed    beginning in 1990.  No allowancefor these changes can be pre-   dicted and so are not in this   program." 
   60 PRINT '''"   Press any key when ready."
   70 PAUSE NOT PI: CLS 
   80 PRINT "Answer all questions with the   amount asked for.  Enter zero ifquestion does not apply to you. Do not use commas in numbers.   (For example, enter 5000, not   5,000.)  Press ENTER button     after answering each question."
   90 PRINT '"Press any key when ready."
  100 PAUSE NOT PI: CLS 
  110 INPUT "What is your filing status?","s - single;",,"mj - married filing jointly;    ms - married filing separately; hh - head of household.";c$
  120 IF c$<>"s" AND c$<>"mj" AND c$<>"ms" AND c$<>"hh" THEN PRINT "Wrong filing status.  Start over": PAUSE 100: CLS 
  130 IF c$<>"s" AND c$<>"mj" AND c$<>"ms" AND c$<>"hh" THEN GO TO 110
  140 INPUT "Count your number of exemptions.(One each for self and spouse.) ";a
  150 INPUT "Count the number 65 and over,   and the number blind ";a1: IF a1>=5 THEN PRINT "Wrong answer.  Please make      correct entry.": PAUSE 60: GO TO 150
  160 IF c$="mj" OR c$="ms" THEN LET a1=.8*a1
  170 CLS : INPUT "List number of dependents. ";b
  180 INPUT "Wages, salaries, tips? ";c: INPUT "Interest income? ";d: INPUT "Dividend income? ";e: INPUT "Taxable pension? ";f: INPUT "Total other taxable income"'"(rents, capital gains, IRA dis- bursements, etc.)? ";p
  190 LET b1=c+d+e+f+p
  200 PRINT '"If you have no pension plan at  work you may deduct up to $2,000each for an IRA.  If you do","have a   pension plan you may   also deduct up to $2000 each    providing your adjusted gross   income is less than$ 25,000 for singles and $40,000 for joint   filers."
  210 INPUT "Any IRA deduction? ";g
  220 INPUT "Your Social Security? ";j
  230 INPUT "Any non-taxable interest? ";k
  240 IF c$="s" OR c$="hh" THEN LET l=25000
  250 IF c$="mj" THEN LET l=32000
  260 IF c$="ms" THEN LET l=0
  270 LET j1=((j/2+b1+k)-g-l)/2
  280 IF j1<=j/2 THEN LET j2=j1
  290 IF j1>j/2 THEN LET j2=j/2
  300 IF j1<=0 THEN LET j2=0
  310 PRINT "There is no longer a deduction  for married couples who both    work."
  320 CLS : PAUSE 60
  330 PRINT "Your total income is $ ";b1+j2
  340 LET agi=b1+j2-g
  350 PRINT '"Your Adjusted Gross Income is $ ";agi
  360 PRINT '
  370 PRINT "You can no longer deduct for    charitable contributions unless you itemize."
  380 PRINT 
  390 INPUT "Do you wish to itemize deduc-   tions (y/n)? ";d$
  400 IF d$="y" OR d$="Y" THEN GO SUB 1180
  410 PRINT : IF d$="y" OR d$="Y" THEN GO TO 590
  420 PRINT 
  430 IF c$="s" AND a1=0 THEN LET h7=2540
  440 IF c$="s" AND a1>=1 THEN LET h7=3000
  450 IF c$="s" THEN LET h8=3000
  460 IF c$="s" THEN LET h9=3000
  470 IF c$="mj" AND a1=0 THEN LET h7=3760
  480 IF c$="mj" AND a1>=.8 THEN LET h7=5000
  490 IF c$="mj" THEN LET h8=5000
  500 IF c$="mj" THEN LET h9=5000
  510 IF c$="ms" AND a1=0 THEN LET h7=1880
  520 IF c$="ms" AND a1>=.8 THEN LET h7=2500
  530 IF c$="ms" THEN LET h8=2500
  540 IF c$="ms" THEN LET h9=2500
  550 IF c$="hh" AND a1=0 THEN LET h7=2540
  560 IF c$="hh" AND a1>=1 THEN LET h7=4400
  570 IF c$="hh" THEN LET h8=4400
  580 IF c$="hh" THEN LET h9=4400
  590 PAUSE 60: CLS 
  600 PRINT "1987 exemptions - $ "; ((a+b)*1900)
  610 PRINT "1988 exemptions - $ "; ((a+b)*1950)
  620 PRINT "1989 exemptions - $ "; ((a+b)*2000)
  630 PRINT '"1987 deduction - $ ";h7+(a1*750)
  640 PRINT "1988 deduction - $ ";h8+(a1*750)
  650 PRINT "1989 deduction - $ ";h9+(a1*750)
  660 PRINT 
  670 LET ti87=b1+j2-(g+h7)-((a+b)*1900)-(a1*750): IF ti87<=0 THEN LET ti87=0
  680 LET ti88=b1+j2-(g+h8)-((a+b)*1950)-(a1*750): IF ti88<=0 THEN LET ti88=0
  690 LET ti89=b1+j2-(g+h9)-((a+b)*2000)-(a1*750): IF ti89<=0 THEN LET ti89=0
  700 PRINT '"1987 taxable income - $ ";ti87
  710 PRINT "1988 taxable income - $ ";ti88
  720 PRINT "1989 taxable income - $ ";ti89
  730 PRINT 
  740 IF c$="s" THEN GO TO 780
  750 IF c$="mj" THEN GO TO 880
  760 IF c$="hh" THEN GO TO 980
  770 IF c$="ms" THEN GO TO 1080
  780 IF ti87<=1800 THEN PRINT "Your 1987 tax is: $ ";ti87*.11
  790 IF ti87>1800 AND ti87<=16800 THEN PRINT "Your 1987 tax is: $ ";198+((ti87-1800)*.15)
  800 IF ti87>16800 AND ti87<=27000 THEN PRINT "Your 1987 tax is: $ ";2448+((ti87-16800)*.28)
  810 IF ti87>27000 AND ti87<=54000 THEN PRINT "Your 1987 tax is: $ ";5304+((ti87-27000)*.35)
  820 IF ti87>54000 THEN PRINT "Your 1987 tax is: $ ";14754+((ti87-54000)*.385)
  830 IF ti88<=17850 THEN PRINT "Your 1988 tax is: $ ";(ti88*.15)
  840 IF ti88>17850 THEN PRINT "Your 1988 tax is: $ ";2677.5+((ti88-17850)*.28)
  850 IF ti89<=17850 THEN PRINT "Your 1989 tax is: $ ";(ti89*.15)
  860 IF ti89>17850 THEN PRINT "Your 1989 tax is: $ ";2677.5+((ti89-17850)*.28)
  870 STOP 
  880 IF ti87<=3000 THEN PRINT "Your 1987 tax is: $ ";ti87*.11
  890 IF ti87>3000 AND ti87<=28000 THEN PRINT "Your 1987 tax is: $ ";330+((ti87-3000)*.15) 
  900 IF ti87>28000 AND ti87<=45000 THEN PRINT "Your 1987 tax is: $ ";4080+((ti87-28000)*.28) 
  910 IF ti87>45000 AND ti87<=90000 THEN PRINT "Your 1987 tax is: $ ";8840+((ti87-45000)*.35) 
  920 IF ti87>90000 THEN PRINT "Your 1987 tax is: $ ";24590+((ti87-90000)*.385) 
  930 IF ti88<=29750 THEN PRINT "Your 1988 tax is: $ ";(ti88*.15)
  940 IF ti88>29750 THEN PRINT "Your 1988 tax is: $ ";4462.5+((ti88-29750)*.28)
  950 IF ti89<=29750 THEN PRINT "Your 1989 tax is: $ ";(ti89*.15)
  960 IF ti89>29750 THEN PRINT "Your 1989 tax is: $ ";4462.5+((ti89-29750)*.28)
  970 STOP 
  980 IF ti87<=2500 THEN PRINT "Your 1987 tax is: $ ";ti87*.11
  990 IF ti87>2500 AND ti87<=23000 THEN PRINT "Your 1987 tax is: $ ";275+((ti87-2500)*.15)
 1000 IF ti87>23000 AND ti87<=38000 THEN PRINT "Your 1987 tax is: $ ";3350+((ti87-23000)*.28)
 1010 IF ti87>38000 AND ti87<=80000 THEN PRINT "Your 1987 tax is: $ ";7550+((ti87-38000)*.35)
 1020 IF ti87>80000 THEN PRINT "Your 1987 tax is: $ ";22250+((ti87-80000)*.385)
 1030 IF ti88<=23900 THEN PRINT "Your 1988 tax is: $ ";(ti88*.15)
 1040 IF ti88>23900 THEN PRINT "Your 1988 tax is: $ ";3585+((ti88-23900)*.28)
 1050 IF ti89<=23900 THEN PRINT "Your 1989 tax is: $ ";(ti89*.15)
 1060 IF ti89>23900 THEN PRINT "Your 1989 tax is: $ ";3585+((ti89-23900)*.28)
 1070 STOP 
 1080 IF ti87<=1500 THEN PRINT "Your 1987 tax is: $ ";ti87*.11
 1090 IF ti87>1500 AND ti87<=14000 THEN PRINT "Your 1987 tax is: $ ";165+((ti87-1500)*.15)
 1100 IF ti87>14000 AND ti87<=22500 THEN PRINT "Your 1987 tax is: $ ";2040+((ti87-14000)*.28)
 1110 IF ti87>22500 AND ti87<=45000 THEN PRINT "Your 1987 tax is: $ ";4420+((ti87-22500)*.35)
 1120 IF ti87>45000 THEN PRINT "Your 1987 tax is: $ ";12295+((ti87-45000)*.385)
 1130 IF ti88<=14875 THEN PRINT "Your 1988 tax is: $ ";ti88*.15
 1140 IF ti88>14875 THEN PRINT "Your 1988 tax is: $ ";2231.25+((ti88-14875)*.28)
 1150 IF ti89<=14875 THEN PRINT "Your 1989 tax is: $ ";ti89*.15
 1160 IF ti89>14875 THEN PRINT "Your 1989 tax is: $ ";2231.25+((ti89-14875)*.28)
 1170 STOP 
 1180 PRINT "There are many changes in what  you can itemize.  You can deductmedical expenses over 7.5% of   your adjusted gross income.  In-come and property taxes are de- ductible, but not sales tax.    Mortgage interest, only on two  homes, can be deducted.  Only a portion of other interest can bededucted.  Charitable contribu- tions are O.K. but not other    miscellaneous items."   
 1190 PRINT '"Press any key when ready to","itemize."
 1200 PAUSE NOT PI: CLS 
 1210 INPUT "Total medical expenses? ";a3
 1220 LET a4=a3-(agi*.075)
 1230 IF a4<0 THEN LET a4=0
 1240 INPUT "State and local income taxes? ";b4
 1250 INPUT "Real estate taxes? ";b5
 1260 INPUT "Mortgage interest (two homes    only? ";c4
 1270 INPUT "Any non-mortgage interest?  Noteonly part will be allowed. ";c5
 1280 INPUT "Charitable contributions? ";d3
 1290 LET h7=a4+b4+b5+c4+(c5*.65)+d3
 1300 LET h8=a4+b4+b5+c4+(c5*.4)+d3
 1310 LET h9=a4+b4+b5+c4+(c5*.2)+d3
 1320 IF c$="mj" AND a1=0 AND h7<=3760 THEN LET h7=3760
 1330 IF c$="mj" AND a1>=.8 AND h7<=5000 THEN LET h7=5000
 1340 IF c$="mj" AND h8<=5000 THEN LET h8=5000
 1350 IF c$="mj" AND h9<=5000 THEN LET h9=5000
 1360 IF c$="s" AND a1=0 AND h7<=2540 THEN LET h7=2540
 1370 IF c$="s" AND a1>=1 AND h7<=3000 THEN LET h7=3000
 1380 IF c$="s" AND h8<=3000 THEN LET h8=3000
 1390 IF c$="s" AND h9<=3000 THEN LET h9=3000
 1400 IF c$="hh" AND a1=0 AND h7<=2540 THEN LET h7=2540
 1410 IF c$="hh" AND a1>=1 AND h7<=4400 THEN LET h7=4400
 1420 IF c$="hh" AND h8<=4400 THEN LET h8=4400
 1430 IF c$="hh" AND h9<=4400 THEN LET h9=4400
 1440 IF c$="ms" AND a1=0 AND h7<=1880 THEN LET h7=1880
 1450 IF c$="ms" AND a1>=.8 AND h7<=2500 THEN LET h7=2500
 1460 IF c$="ms" AND h8<=2500 THEN LET h8=2500
 1470 IF c$="ms" AND h9<=2500 THEN LET h9=2500
 1480 RETURN 
 1490 SAVE "inc tx 789"