Shareware Overload/ShartewareOverload.cdr/busi/w_4.zip/W-4FINAL.BAS

BASIC Source File | 1986-01-03 | 37KB | 818 lines

1 CLS
2 KEY OFF
3 CLS
4 PRINT "        W-4 Worksheet to Figure Your Withholding Allowances"
5 PRINT                       VERSION 010287
6 PRINT
7 PRINT " (C) 1987 Roger A. Stanley
8 PRINT
9 PRINT " This program is supported by the  SHAREWARE  concept. "
10 PRINT "Help bring down the high cost of software.  A small"
11 PRINT "contribution of $5.00 is requested if you find this "
12 PRINT "program of value.  This User Supported Concept encourages "
13 PRINT "the development of quality, low cost, and varied PC "
14 PRINT "software.  Send your contribution to: "
15 PRINT "              Roger A. Stanley"
16 PRINT "             1748 N Street, N.W."
17 PRINT "           Washington, D.C.  20036"
18 PRINT
19 PRINT "This program may be copies and freely distributed as long"
20 PRINT "as no modification is made without concent of the author"
21 PRINT
22 INPUT "Press Any Key to Continue...........";V$
23 CLS
1000 'W-4 worksheet
1100 LOCATE 1,10: PRINT "W-4 Worksheet - Please Answer the following:"
1120 LOCATE 3,5: PRINT "1) Filing Status 1=Single;2=Married Filing Jointly;"
1130 LOCATE 4,5: PRINT "              3=Head of Household........................."
1140 LOCATE 5,5: PRINT "2) Can you be claimed as a dependent on another"
1150 LOCATE 6,5: PRINT "   persons tax return? (Y/N).............................."
1170 LOCATE 4,65: INPUT A
1180 LOCATE 6,65: INPUT A$
1181 IF A$="y" THEN LET A$="Y"
1182 IF A$="n" THEN LET A$="N"
1190 IF A=2 THEN LOCATE 7,5:PRINT "3) Can your spouse be claimed as a dependent on another"
1200 IF A=2 THEN LOCATE 8,5:INPUT "   persons tax return?(Y/N).................................";A1$
1229 IF A=2 THEN LOCATE 9,5:INPUT "4) Does your spouse work?(Y/N)..............................";A2$
1230 LOCATE 10,5:INPUT "5) Do you have a 2nd Job?(Y/N)..............................";B$
1245 IF B$="y" THEN LET B$="Y"
1250 IF B$="Y" THEN LOCATE 11,5:INPUT "6) Estimated Income from 2nd Job........$";B
1253 LOCATE 12,5: INPUT "7) Are your Over 65 years old? (Y/N)........................";O$
1254 LOCATE 13,5:INPUT "8) Are you legally Blind?(Y/N)..............................";O1$
1255 IF A=2 THEN LOCATE 14,5:INPUT "9) Is your spouse over 65 years old?(Y/N)...................";O2$
1256 IF A=2 THEN LOCATE 15,4:INPUT "10) Is your spouse legally Blind?(Y/N).......................";O3$
1260 IF A1$="y" THEN LET A1$="Y"
1261 IF A1$="n" THEN LET A1$="N"
1262 IF A2$="n" THEN LET A2$="N"
1263 IF A2$="y" THEN LET A2$="Y"
1300 LOCATE 16,4: INPUT "11) # of dependents (other than spouse) you expect to claim. ";C
1350 LOCATE 19,10: INPUT "Do you need to make corrections above?(Y/N)....";D$
1660 IF D$="n" THEN LET D$="N"
1670 IF D$="y" THEN LET D$="Y"
1671 LET D = 0
1680 IF D$="Y" THEN LOCATE 20,10:INPUT "Which line number?......";D
1700 IF D = 1 THEN LOCATE 4,65:INPUT A
1710 IF D = 2 THEN LOCATE 6,65:INPUT A$
1720 IF D = 3 THEN LOCATE 8,65:INPUT A1$
1730 IF D = 4 THEN LOCATE 9,65:INPUT A2$
1740 IF D = 5 THEN LOCATE 10,65:INPUT B$
1750 IF D = 6 THEN LOCATE 11,47:INPUT B
1760 IF D = 11 THEN LOCATE 16,65:INPUT C
1761 IF D = 7 THEN LOCATE 12,65:INPUT O$
1762 IF D = 8 THEN LOCATE 13,65:INPUT O1$
1763 IF D = 9 THEN LOCATE 14,65:INPUT O2$
1764 IF D = 10 THEN LOCATE 15,65:INPUT O3$
1770 IF D > 11 THEN GOTO 1350
1775 LET D = 0
1780 IF D$="Y" GOTO 1350
1781 GOSUB 5000
1782 CLS
1783 LOCATE 1,10:PRINT "Estimated Tax Credits"
1785 LOCATE 10,10:PRINT "Enter your estimated tax credits such as"
1786 LOCATE 11,10:INPUT " Child and Dependent Care or Earned Income Credit";CR
1800 CLS
1810 LOCATE 1,10:PRINT "Adjustments to Income:"
1820 LOCATE 2,5:PRINT "1) Qualified reimbursed employee business expense:"
1830 LOCATE 3,5:PRINT "2) Qualified Alimony Payments made...............:"
1840 LOCATE 4,5:PRINT "3) Deductible business and investment losses.....:"
1850 LOCATE 5,5:PRINT "4) Penalty on early withdrawal of savings........:"
1860 LOCATE 6,5:PRINT "5) Contributions to IRA or Keogh Plan............:"
1870 LOCATE 7,5:PRINT "6) Are you or your spouse covered by a Pension Plan?(Y/N)"
1900 LOCATE 9,10:PRINT "Itemized Deductions"
1910 LOCATE 10,5:PRINT "7) Medical Expenses.............................:"
1920 LOCATE 11,5:PRINT "8) State & Local Taxes (exclude sales tax)......:"
1930 LOCATE 12,5:PRINT "9) Home Mtg. interest+65% of personal interest..:"
1940 LOCATE 13,4:PRINT "10) Qualified Investment Interest................:"
1950 LOCATE 14,4:PRINT "11) Charitable contributions.....................:"
1960 LOCATE 15,4:PRINT "12) Casualty & Theft losses......................:"
1970 LOCATE 16,4:PRINT "13) Moving Expenses(if employer withheld taxes)..:"
1980 LOCATE 17,4:PRINT "14) Miscellaneous Deductions.....................:"
2000 LOCATE 2,56:INPUT E1
2010 LOCATE 3,56:INPUT E2
2030 LOCATE 4,56:INPUT E3
2040 LOCATE 5,56:INPUT E4
2050 LOCATE 6,56:INPUT E5
2060 LOCATE 7,61:INPUT E$
2070 LOCATE 10,56:INPUT F1
2080 LOCATE 11,56:INPUT F2
2090 LOCATE 12,56:INPUT F3
2100 LOCATE 13,56:INPUT F4
2110 LOCATE 14,56:INPUT F5
2111 LOCATE 15,56:INPUT F6
2112 LOCATE 16,56:INPUT F7
2113 LOCATE 17,56:INPUT F8
2114 LOCATE 19,10:INPUT "Do you need to make corrections?(Y/N).:";F$
2115 IF F$="y" THEN LET F$="Y"
2117 LET Z = 0
2118 IF F$="Y" THEN LOCATE 20,10:INPUT "Which line number?..";Z
2119 IF Z = 1 THEN LOCATE 2,56:INPUT E1
2120 IF Z = 2 THEN LOCATE 3,56:INPUT E2
2130 IF Z = 3 THEN LOCATE 4,56:INPUT E3
2140 IF Z = 4 THEN LOCATE 5,56:INPUT E4
2150 IF Z = 5 THEN LOCATE 6,56:INPUT E5
2160 IF Z = 6 THEN LOCATE 7,61:INPUT E$
2170 IF Z = 7 THEN LOCATE 10,56:INPUT F1
2180 IF Z = 8 THEN LOCATE 11,56:INPUT F2
2190 IF Z = 9 THEN LOCATE 12,56:INPUT F3
2200 IF Z = 10 THEN LOCATE 13,56:INPUT F4
2210 IF Z = 11 THEN LOCATE 14,56:INPUT F5
2220 IF Z = 12 THEN LOCATE 15,56:INPUT F6
2230 IF Z = 13 THEN LOCATE 16,56:INPUT F7
2240 IF Z = 14 THEN LOCATE 17,56:INPUT F8
2243 IF Z > 14 THEN GOTO 2114
2250 LET Z = 0
2255 IF F$="Y" THEN LOCATE 20,10:PRINT "                                 "
2256 IF F$="Y" THEN LOCATE 19,50:PRINT "     "
2260 IF F$="Y" THEN GOTO 2114
2270 CLS
2271 GOSUB 6000
2272 LET WS=WR+I4
2273 LET WT=WS/1900
2274 IF WT<=0 THEN LET WT=0
2275 LET WU=WP-WT
2279 'print up summary
2280 GOSUB 18000
2290 CLS
2295 LOCATE 10,10:INPUT "Would You Like A Printed Copy? (Y/N)..";YY$
2300 IF YY$="y" THEN LET YY$="Y"
2310 IF YY$="Y" THEN INPUT "Be Sure printer is on and hit any key to print.";YYY$
2320 IF YY$="Y" THEN GOSUB 28000
2330 END
5000 'Income
5010 CLS
5020 LOCATE 1,10:PRINT "     Income Information"
5030 LOCATE 2,5:PRINT "1) Enter your estimated main employment wages...........:"
5040 IF B$="Y" THEN LOCATE 3,5:PRINT "2) Your Second Employment Wages.........................:";B
5050 IF A=2 THEN LOCATE 4,5:PRINT "3) Enter Spouses Wages..................................:"
5060 LOCATE 6,5:PRINT "4) Enter the estimated amount, if any, of nonwage income:"
5100 LOCATE 2,63:INPUT I1
5120 IF A=2 THEN LOCATE 4,63:INPUT I3
5130 LOCATE 6,63:INPUT I4
5200 LOCATE 10,10:INPUT "Do you need to make corrections?(Y/N)...:";Z1$
5210 IF Z1$="y" THEN LET Z1$="Y"
5220 IF Z1$="Y" THEN LOCATE 11,10:INPUT "Which line number?....:";Z1
5230 IF Z1 = 1 THEN LOCATE 2,63:INPUT I1
5240 IF Z1 = 2 THEN LOCATE 3,63:INPUT B
5250 IF Z1 = 3 THEN LOCATE 4,63:INPUT I3
5260 IF Z1 = 4 THEN LOCATE 6,63:INPUT I4
5270 IF Z1 >4 THEN GOTO 5200
5280 LET Z1 = 0
5290 IF Z1$="Y" THEN LOCATE 10,52:PRINT "   "
5300 IF Z1$="Y" THEN LOCATE 11,34:PRINT "    "
5310 IF Z1$="Y" THEN GOTO 5200
5320 RETURN
6000 'computation
6010 'Gross Income Computation
6020 LET T=I1+B+I3+I4
6030 'Adjustments
6040 LET T1=E1+E2+E3+E4+E5
6045 LET WF=T1
6050 'AGI
6060 LET T2=T-T1
6070 'max med,casualty&misc.
6080 LET M1=T2*.075
6090 LET M2=T2*.1
7000 LET M3=T2*.02
7110 LET ID1=F1-M1
7120 IF ID1<=0 THEN LET ID1=0
7130 LET ID2=F6-M2
7140 IF ID2<=0 THEN LET ID2=0
7150 LET ID3=F8-M3
7160 IF ID3<=0 THEN LET ID3=0
7170 'Itemized Deductions
7180 T3=ID1+ID2+ID3+F2+F3+F4+F5+F7
7185 LET WG=T3
7190 'Allowances from Worksheet
7199 'Single
7200 IF A$="N" THEN LET WA=1
7210 IF A<>2 AND B$="N" THEN LET WB=1
7220 IF A<>2 AND B$="Y" THEN LET BB$="Y"
7230 IF BB$="Y" AND B < 2500 THEN LET WB=1
7240 IF C>0 THEN LET WD=C
7250 IF C<=0 THEN LET WD=0
7260 'married joint
7270 IF A2$="N" AND A1$="N" THEN LET WC=1
7280 IF A2$="Y" AND A1$="N" THEN LET WC=1
7290 'Special Allowance
7300 IF A2$="N" AND B$="N" THEN LET WB=1
7310 IF A2$="N" AND B<= 2500 THEN LET WB=1
7320 LET WE=WA+WB+WC+WD
7330 'compute
7337 IF A=1 THEN LET WH=2540
7338 IF A=2 THEN LET WH=3760
7339 IF A=3 THEN  LET WH=2540
7340 IF A=1 THEN LET WI=T3-2540
7341 IF WI<=0 THEN WI=0
7350 IF A=2 THEN LET WI=T3-3760
7351 IF WI<=0 THEN WI=0
7360 IF A=3 THEN LET WI=T3-2540
7361 IF WI<=0 THEN WI=0
7370 IF WI<=0 THEN LET WI=0
7375 LET AA=0:LET AB=0:LET AC=0:LET AD=0
7380 IF O$="Y" THEN LET AA=1
7390 IF O1$="Y" THEN LET AB=1
7400 IF O2$="Y" THEN LET AC=1
7410 IF O3$="Y" THEN LET AD=1
7420 LET AD=AA+AB
7430 LET AE=AC+AD
7435 LET AF=AD+AE
7440 IF A=1 AND AD=0 THEN LET WJ=0
7450 IF A=1 AND AD=1 THEN LET WJ=1210
7460 IF A=1 AND AD=2 THEN LET WJ=1960
7470 IF A=3 AND AD=0 THEN LET WJ=0
7480 IF A=3 AND AD=1 THEN LET WJ=2610
7490 IF A=3 AND AD=2 THEN LET WJ=3360
7500 IF A=2 AND AF=3 THEN LET WJ=3040
7510 IF A=2 AND AD=1 THEN LET AG=1
7520 LET AI=AG+AH
7530 IF A=2 AND AI=0 THEN LET WJ=0
7540 IF A=2 AND AI=1 THEN LET WJ=1840
7550 IF A=2 AND AI=2 THEN LET WJ=2440
7560 'tax credit
7570 LET WAG=I1+B+I3
7580 IF A=1 THEN GOSUB 9000
7585 IF A=2 THEN GOSUB 9100
7590 IF A=3 THEN GOSUB 9200
7600 LET WM=CR*WL
7610 LET WN=WF+WI+WJ+WM
7620 LET WO=WN/1900
7630 LET WE=WA+WB+WC+WD
7640 IF WO<=0 THEN LET WO=0
7650 LET WP=WE+WO
7660 LET WQ=I4
7670 IF A<>2 AND B$="Y" THEN GOSUB 10000
7680 IF A=2 AND A2$="Y" THEN LET ZZ=1
7682 IF A=2 AND A2$="N" THEN LET ZZ=0
7683 IF A=2 AND B$="Y" THEN LET ZX=1
7684 IF A=2 AND B$="N" THEN LET ZX=0
7685 LET ZY=ZZ+ZX
7686 IF ZY>0 THEN GOSUB 12000
7690 'REM Continue Caluclation after table here
7700 LET WK=CR
7710 LET WQ=I4
7720 LET WS=WQ+WR
7730 LET WT=WS/1900
7735 LET WP=WE+WO
7740 LET WU=WP-WT
9000 'Single Table 1
9010 IF WAG>0 AND WAG <6200 THEN LET WL=9
9020 IF WAG>6200 AND WAG <21000 THEN LET WL=6.5
9030 IF WAG>21000 AND WAG <31500 THEN LET WL=3.5
9040 IF WAG>31500 AND WAG <70000! THEN LET WL=3
9050 IF WAG>70000! THEN LET WL=2.5
9060 RETURN
9100 'Married filing Joint TAble 1
9110 IF WAG>0 AND WAG <12500 THEN LET WL=9
9120 IF WAG>12500 AND WAG <37500! THEN LET WL=6.5
9130 IF WAG>37500! AND WAG <55000! THEN LET WL=3.5
9140 IF WAG>55000! AND WAG <110000! THEN LET WL=3
9150 IF WAG>110000! THEN LET WL=2.5
9160 RETURN
9200 'Head of Household Table 1
9210 IF WAG>0 AND WAG <8800 THEN LET WL=9
9220 IF WAG>8800 AND WAG <29000 THEN LET WL=7
9230 IF WAG>29000 AND WAG <44000! THEN LET WL=4
9240 IF WAG>44000! AND WAG <100000! THEN LET WL=3
9250 IF WAG>100000! THEN LET WL=2.5
9260 RETURN
9999 'Continue
10000 'Table B worksheet
10010 IF I1 > B THEN LET BB1=I1
10020 IF B > I1 THEN LET BB1=B
10030 IF I1 > B THEN LET BB6=B
10040 IF B > I1 THEN LET BB6=I1
10050 LET BB4=1900*WP
10060 LET BB5=BB1-BB4
10100 IF BB6 < 4000 THEN LET WR=0
10110 IF BB6 > 4000 AND BB6 < 6000 GOSUB 10500
10120 IF BB6 > 6000 AND BB6 < 8000 GOSUB 10600
10130 IF BB6 > 8000 AND BB6 <10000 GOSUB 10700
10140 IF BB6 >10000 AND BB6 <12000 GOSUB 10800
10150 IF BB6 >12000 AND BB6 <14000 GOSUB 10900
10160 IF BB6 >14000 AND BB6 <16000 GOSUB 11000
10170 IF BB6 >16000 AND BB6 <18000 GOSUB 11100
10180 IF BB6 >18000 AND BB6 <20000 GOSUB 11200
10190 IF BB6 >20000 GOSUB 11300
10200 RETURN
10500 IF BB5 < 16000 THEN LET WR=0
10510 IF BB5 > 16000 AND BB5 <24000 THEN LET WR=1000
10520 IF BB5 > 24000 AND BB5 <50000! THEN LET WR=1400
10530 IF BB5 > 50000! THEN LET WR=1600
10540 RETURN
10600 IF BB5 < 14000 THEN LET WR=0
10610 IF BB5 > 14000 AND BB5 <16000 THEN LET WR=1500
10620 IF BB5 > 16000 AND BB5 <22000 THEN LET WR=1900
10630 IF BB5 > 22000 AND BB5 <24000 THEN LET WR=2100
10640 IF BB5 > 24000 AND BB5 <50000! THEN LET WR=2600
10650 IF BB5 > 50000! THEN LET WR=2800
10660 RETURN
10700 IF BB5 < 12000 THEN LET WR=0
10710 IF BB5 >12000 AND BB5 < 14000 THEN LET WR=1500
10720 IF BB5 >14000 AND BB5 <20000 THEN LET WR=2900
10730 IF BB5 >20000 AND BB5 <22000 THEN LET WR=3000
10740 IF BB5 >22000 AND BB5 <24000 THEN LET WR=3500
10750 IF BB5 >24000 AND BB5 <50000! THEN LET WR=3700
10760 IF BB5 >50000! THEN LET WR=4000
10770 RETURN
10800 IF BB5 <10000 THEN LET WR=0
10810 IF BB5 >10000 AND BB5 <12000 THEN LET WR=1500
10820 IF BB5 >12000 AND BB5 <14000 THEN LET WR=3300
10830 IF BB5 >14000 AND BB5 <18000 THEN LET WR=3800
10840 IF BB5 >18000 AND BB5 <20000 THEN LET WR=3900
10850 IF BB5 >20000 AND BB5 <22000 THEN LET WR=4400
10860 IF BB5 >22000 AND BB5 <50000! THEN LET WR=4900
10870 IF BB5 >50000! THEN LET WR=5300
10880 RETURN
10900 IF BB5 <10000 THEN LET WR=0
10910 IF BB5 >10000 AND BB5 <12000 THEN LET WR=3300
10920 IF BB5 >12000 AND BB5 <16000 THEN LET WR=4700
10930 IF BB5 >16000 AND BB5 <18000 THEN LET WR=4900
10940 IF BB5 >18000 AND BB5 <20000 THEN LET WR=5400
10950 IF BB5 >20000 AND BB5 <22000 THEN LET WR=5900
10960 IF BB5 >22000 AND BB5 <40000! THEN LET WR=6000
10970 IF BB5 >40000! AND BB5 <50000! THEN LET WR=6200
10980 IF BB5 >50000! THEN LET WR=6500
10990 RETURN
11000 IF BB5 <10000 THEN LET WR=0
11010 IF BB5 >10000 AND BB5 <12000 THEN LET WR=5000
11020 IF BB5 >12000 AND BB5 <14000 THEN LET WR=5700
11025 IF BB5 >14000 AND BB5 <16000 THEN LET WR=5800
11030 IF BB5 >16000 AND BB5 <18000 THEN LET WR=6300
11040 IF BB5 >18000 AND BB5 <20000 THEN LET WR=6800
11050 IF BB5 >20000 AND BB5 <40000! THEN LET WR=7200
11060 IF BB5 >40000! AND BB5 <50000! THEN LET WR=7500
11070 IF BB5 > 50000! THEN LET WR=7700
11080 RETURN
11100 IF BB5 <10000 THEN LET WR=1500
11110 IF BB5 >10000 AND BB5 <12000 THEN LET WR=6600
11120 IF BB5 >12000 AND BB5 <14000 THEN LET WR=6700
11130 IF BB5 >14000 AND BB5 <16000 THEN LET WR=7200
11140 IF BB5 >16000 AND BB5 <18000 THEN LET WR=7700
11150 IF BB5 >18000 AND BB5 <20000 THEN LET WR=8200
11160 IF BB5 >20000 AND BB5 <40000! THEN LET WR=8300
11170 IF BB5 >40000! AND BB5 <50000! THEN LET WR=8800
11180 IF BB5 >50000! THEN LET WR=8900
11190 RETURN
11200 IF BB5 < 1000 THEN LET WR=1900
11210 IF BB5 >10000 AND BB5 < 12000 THEN LET WR=6900
11220 IF BB5 >12000 AND BB5 <14000 THEN LET WR=7400
11230 IF BB5 >14000 AND BB5 <16000 THEN LET WR=7900
11240 IF BB5 >16000 AND BB5 <18000 THEN LET WR=8400
11250 IF BB5 >18000 AND BB5 <40000! THEN LET WR=8900
11260 IF BB5 >40000! AND BB5 <50000! THEN LET WR=9600
11270 IF BB5 >50000! THEN LET WR=9600
11280 RETURN
11300 IF BB5 <10000 THEN LET WR=2100
11310 IF BB5 >10000 AND BB5 <12000 THEN LET WR=8400
11320 IF BB5 >12000 AND BB5 <14000 THEN LET WR=8900
11330 IF BB5 >14000 AND BB5 <16000 THEN LET WR=9400
11340 IF BB5 >16000 AND BB5 <18000 THEN LET WR=9900
11350 IF BB5 >18000 AND BB5 <20000 THEN LET WR=10100
11360 IF BB5 >20000 AND BB5 <30000 THEN LET WR=10100
11370 IF BB5 >30000 AND BB5 <40000! THEN LET WR=10400
11380 IF BB5 >40000! THEN LET WR=11200
11390 RETURN
12000 'Table A Married Couples
12001 'B=2nd Job  I1=TP Sal  I3=Spouse Sal
12010 IF I1 > B AND I1 > I3 THEN LET BB1 = I1
12020 IF B > I1 AND B > I3 THEN LET BB1 = B
12030 IF I3 > I1 AND I3 > B THEN LET BB1 = I3
12040 IF I1 < B AND I1 < I3 THEN LET BB6 = I1
12050 IF B < I1 AND B < I3 THEN LET BB6 = B
12060 IF I3 < I1 AND I3 < B THEN LET BB6 = I3
12070 LET BB4 = 1900*WP
12080 LET BB5 = BB1-BB4
12090 IF BB6 <2000 THEN LET WR = 0
13000 IF BB6 >2000 AND BB6 <4000 THEN GOSUB 15000
13010 IF BB6 >4000 AND BB6 <6000 THEN GOSUB 15100
13020 IF BB6 >6000 AND BB6 <8000 THEN GOSUB 15200
13030 IF BB6 >8000 AND BB6 <10000 THEN GOSUB 15300
13040 IF BB6 >10000 AND BB6 <12000 THEN GOSUB 15400
13050 IF BB6 >12000 AND BB6 <14000 THEN GOSUB 15500
13060 IF BB6 >14000 AND BB6 <16000 THEN GOSUB 15600
13070 IF BB6 >16000 AND BB6 <18000 THEN GOSUB 15700
13080 IF BB6 >18000 AND BB6 <20000 THEN GOSUB 15800
13090 IF BB6 >20000 AND BB6 <22000 THEN GOSUB 15900
13100 IF BB6 >22000 AND BB6 <24000 THEN GOSUB 16000
13110 IF BB6 >24000 AND BB6 <26000 THEN GOSUB 16100
13120 IF BB6 >26000 AND BB6 <28000 THEN GOSUB 16200
13130 IF BB6 >28000 AND BB6 <30000 THEN GOSUB 16300
13140 IF BB6 >30000 AND BB6 <32000 THEN GOSUB 16400
13150 IF BB6 >32000 AND BB6 <34000! THEN GOSUB 16500
13160 IF BB6 >34000! AND BB6 <36000! THEN GOSUB 16600
13170 IF BB6 >36000! AND BB6 <38000! THEN GOSUB 16700
13180 IF BB6 >38000! AND BB6 <40000! THEN GOSUB 16800
13190 IF BB6 >40000! AND BB6 <42000! THEN GOSUB 16900
13200 IF BB6 >42000! AND BB6 <44000! THEN GOSUB 17000
13210 IF BB6 >44000! AND BB6 <46000! THEN GOSUB 17100
13220 IF BB6 >46000! AND BB6 <48000! THEN GOSUB 17200
13230 IF BB6 >48000! AND BB6 <50000! THEN GOSUB 17300
13240 IF BB6 >50000! AND BB6 <55000! THEN GOSUB 17400
13245 IF BB6>55000! AND BB6<60000! THEN GOSUB 17500
13248 IF BB6>60000! AND BB6<70000! THEN GOSUB 17600
13250 IF BBE >70000! THEN GOSUB 17700
13255 RETURN
15000 IF BB5 <4000 THEN LET WR=0
15010 IF BB5 >4000 AND BB5 <28000 THEN LET WR=300
15020 IF BB5 >28000 AND BB5 <30000 THEN LET WR=500
15030 IF BB5 >30000 THEN LET WR=700
15040 RETURN
15100 IF BB5 <4000 THEN LET WR=0
15110 IF BB5>4000 AND BB5<26000 THEN LET WR=800
15120 IF BB5>26000 AND BB5<28000 THEN LET WR=1000
15130 IF BB5>28000 AND BB5<44000! THEN LET WR=1800
15140 IF BB5>44000! THEN LET WR=2100
15150 RETURN
15200 IF BB5<4000 THEN LET WR=0
15210 IF BB5>4000 AND BB5<24000 THEN LET WR=800
15220 IF BB5>24000 AND BB5<26000 THEN LET WR=1000
15230 IF BB5>26000 AND BB5<28000 THEN LET WR=2700
15240 IF BB5>28000 AND BB5<42000! THEN LET WR=2800
15250 IF BB5>42000! AND BB5<44000! THEN LET WR=3100
15260 IF BB5>44000! THEN LET WR=3200
15270 RETURN
15300 IF BB5<4000 THEN LET WR=0
15310 IF BB5>4000 AND BB5<22000 THEN LET WR=800
15320 IF BB5>22000 AND BB5<24000 THEN LET WR=1000
15330 IF BB5>24000 AND BB5<26000 THEN LET WR=2700
15340 IF BB5>26000 AND BB5<40000! THEN LET WR=3700
15350 IF BB5>40000! AND BB5<42000! THEN LET WR=4000
15360 IF BB5>42000! THEN LET WR=4400
15370 RETURN
15400 IF BB5<4000 THEN LET WR=0
15410 IF BB5>4000 AND BB5<20000 THEN LET WR=800
15420 IF BB5>20000 AND BB5<22000 THEN LET WR=1000
15430 IF BB5>22000 AND BB5<24000 THEN LET WR=2700
15440 IF BB5>24000 AND BB5<26000 THEN LET WR=4400
15450 IF BB5>26000 AND BB5<38000! THEN LET WR=4600
15460 IF BB5>38000! AND BB5<40000! THEN LET WR=4900
15470 IF BB5>40000! AND BB5<42000! THEN LET WR=5400
15480 IF BB5>42000! THEN LET WR=5500
15490 RETURN
15500 IF BB5<4000 THEN LET WR=0
15510 IF BB5>4000 AND BB5<18000 THEN LET WR=800
15520 IF BB5>18000 AND BB5<20000 THEN LET WR=1000
15530 IF BB5>20000 AND BB5<22000 THEN LET WR=2700
15540 IF BB5>22000 AND BB5<24000 THEN LET WR=4400
15550 IF BB5>24000 AND BB5<36000! THEN LET WR=5600
15560 IF BB5>36000! AND BB5<38000! THEN LET WR=5900
15570 IF BB5>38000! AND BB5<40000! THEN LET WR=6400
15580 IF BB5>40000! THEN LET WR=6700
15590 RETURN
15600 IF BB5<4000 THEN LET WR=0
15610 IF BB5>4000 AND BB5<18000 THEN LET WR=800
15620 IF BB5>18000 AND BB5<20000 THEN LET WR=2700
15630 IF BB5>20000 AND BB5<22000 THEN LET WR=4400
15640 IF BB5>22000 AND BB5<24000 THEN LET WR=6200
15650 IF BB5>24000 AND BB5<34000! THEN LET WR=6500
15660 IF BB5>34000! AND BB5<36000! THEN LET WR=6800
15670 IF BB5>36000! AND BB5<38000! THEN LET WR=7300
15680 IF BB5>38000! AND BB5<70000! THEN LET WR=7800
15690 IF BB5>70000! THEN LET WR=7900
15695 RETURN
15700 IF BB5<4000 THEN LET WR=0
15710 IF BB5>4000 AND BB5<18000 THEN LET WR=800
15720 IF BB5>18000 AND BB5<20000 THEN LET WR=4400
15730 IF BB5>20000 AND BB5<22000 THEN LET WR=6200
15740 IF BB5>22000 AND BB5<32000 THEN LET WR=7400
15750 IF BB5>32000 AND BB5<34000! THEN LET WR=7700
15760 IF BB5>34000! AND BB5<36000! THEN LET WR=8200
15770 IF BB5>36000! AND BB5<38000! THEN LET WR=8700
15775 IF BB5>38000! AND BB5<70000! THEN LET WR=9000
15780 IF BB5>70000! THEN LET WR=9300
15790 RETURN
15800 IF BB5<4000 THEN LET WR=0
15810 IF BB5>4000 AND BB5<18000 THEN LET WR=800
15820 IF BB5>18000 AND BB5<20000 THEN LET WR=6200
15830 IF BB5>20000 AND BB5<22000 THEN LET WR=7900
15840 IF BB5>22000 AND BB5<30000 THEN LET WR=8300
15850 IF BB5>30000 AND BB5<32000 THEN LET WR=8700
15860 IF BB5>32000 AND BB5<34000! THEN LET WR=9200
15870 IF BB5>34000! AND BB5<36000! THEN LET WR=9700
15880 IF BB5>36000! AND BB5<70000! THEN LET WR=10100
15885 IF BB5>70000! THEN LET WR=10600
15890 RETURN
15900 IF BB5<4000 THEN LET WR=0
15910 IF BB5>4000 AND BB5<18000 THEN LET WR=1000
15920 IF BB5>18000 AND BB5<20000 THEN LET WR=7900
15930 IF BB5>20000 AND BB5<28000 THEN LET WR=9300
15940 IF BB5>28000 AND BB5<30000 THEN LET WR=9600
15950 IF BB5>30000 AND BB5<32000 THEN LET WR=10100
15960 IF BB5>32000 AND BB5<34000! THEN LET WR=10600
15970 IF BB5>34000! AND BB5<36000! THEN LET WR=11100
15980 IF BB5>36000! AND BB5<70000! THEN LET WR=11200
15985 IF BB5>70000! THEN LET WR=12000
15990 RETURN
16000 IF BB5<4000 THEN LET WR=0
16010 IF BB5>4000 AND BB5<18000 THEN LET WR=2700
16020 IF BB5>18000 AND BB5<20000 THEN LET WR=9600
16030 IF BB5>20000 AND BB5<26000 THEN LET WR=10200
16040 IF BB5>26000 AND BB5<28000 THEN LET WR=10500
16050 IF BB5>28000 AND BB5<30000 THEN LET WR=11000
16055 IF BB5>30000 AND BB5<32000 THEN LET WR=11500
16060 IF BB5>32000 AND BB5<34000! THEN LET WR=12000
16070 IF BB5>34000! AND BB5<70000! THEN LET WR=12400
16080 IF BB5>70000! THEN LET WR=13200
16090 RETURN
16100 IF BB5<4000 THEN LET WR=0
16110 IF BB5>4000 AND BB5<18000 THEN LET WR=4400
16120 IF BB5>18000 AND BB5<24000 THEN LET WR=11100
16130 IF BB5>24000 AND BB5<26000 THEN LET WR=11400
16140 IF BB5>26000 AND BB5<28000 THEN LET WR=11900
16150 IF BB5>28000 AND BB5<30000 THEN LET WR=12400
16160 IF BB5>30000 AND BB5<32000 THEN LET WR=12900
16170 IF BB5>32000 AND BB5<34000! THEN LET WR=13400
16180 IF BB5>34000! AND BB5<70000! THEN LET WR=13500
16185 IF BB5>70000! THEN LET WR=14400
16190 RETURN
16200 IF BB5<4000 THEN LET WR=0
16210 IF BB5>4000 AND BB5<18000 THEN LET WR=6200
16220 IF BB5>18000 AND BB5<22000 THEN LET WR=12100
16230 IF BB5>22000 AND BB5<24000 THEN LET WR=12400
16240 IF BB5>24000 AND BB5<26000 THEN LET WR=12900
16250 IF BB5>26000 AND BB5<28000 THEN LET WR=13400
16260 IF BB5>28000 AND BB5<30000 THEN LET WR=13900
16270 IF BB5>30000 AND BB5<32000 THEN LET WR=14400
16280 IF BB5>32000 AND BB5<70000! THEN LET WR=14700
16285 IF BB5>70000! THEN LET WR=15600
16290 RETURN
16300 IF BB5<4000 THEN LET WR=0
16310 IF BB5>4000 AND BB5<18000 THEN LET WR=7900
16320 IF BB5>18000 AND BB5<20000 THEN LET WR=13000
16330 IF BB5>20000 AND BB5<22000 THEN LET WR=13300
16340 IF BB5>22000 AND BB5>24000 THEN LET WR=13800
16350 IF BB5>24000 AND BB5<26000 THEN LET WR=14300
16360 IF BB5>26000 AND BB5<28000 THEN LET WR=14800
16370 IF BB5>28000 AND BB5<30000 THEN LET WR=15300
16380 IF BB5>30000 AND BB5<70000! THEN LET WR=15800
16385 IF BB5>70000! THEN LET WR=16800
16390 RETURN
16400 IF BB5<4000 THEN LET WR=0
16410 IF BB5>4000 AND BB5<18000 THEN LET WR=8600
16420 IF BB5>18000 AND BB5<20000 THEN LET WR=13700
16430 IF BB5>20000 AND BB5<22000 THEN LET WR=14200
16440 IF BB5>22000 AND BB5>24000 THEN LET WR=14700
16450 IF BB5>24000 AND BB5<26000 THEN LET WR=15200
16460 IF BB5>26000 AND BB5<28000 THEN LET WR=15700
16470 IF BB5>28000 AND BB5<30000 THEN LET WR=16200
16480 IF BB5>30000 AND BB5<60000! THEN LET WR=16500
16482 IF BB5>60000! AND BB5<70000! THEN LET WR=16800
16485 IF BB5>70000! THEN LET WR=17700
16490 RETURN
16500 IF BB5<4000 THEN LET WR=0
16510 IF BB5>4000 AND BB5<18000 THEN LET WR=8600
16520 IF BB5>18000 AND BB5<20000 THEN LET WR=14200
16530 IF BB5>20000 AND BB5<22000 THEN LET WR=14700
16540 IF BB5>22000 AND BB5>24000 THEN LET WR=15200
16550 IF BB5>24000 AND BB5<26000 THEN LET WR=15700
16560 IF BB5>26000 AND BB5<28000 THEN LET WR=16200
16570 IF BB5>28000 AND BB5<30000 THEN LET WR=16700
16580 IF BB5>30000 AND BB5<60000! THEN LET WR=16900
16582 IF BB5>60000! AND BB5<70000! THEN LET WR=17400
16585 IF BB5>70000! THEN LET WR=18200
16590 RETURN
16600 IF BB5<4000 THEN LET WR=0
16610 IF BB5>4000 AND BB5<18000 THEN LET WR=8600
16620 IF BB5>18000 AND BB5<20000 THEN LET WR=14700
16630 IF BB5>20000 AND BB5<22000 THEN LET WR=15200
16640 IF BB5>22000 AND BB5>24000 THEN LET WR=15700
16650 IF BB5>24000 AND BB5<26000 THEN LET WR=16200
16660 IF BB5>26000 AND BB5<28000 THEN LET WR=16700
16670 IF BB5>28000 AND BB5<30000 THEN LET WR=17200
16680 IF BB5>30000 AND BB5<60000! THEN LET WR=17300
16682 IF BB5>60000! AND BB5<70000! THEN LET WR=18000
16685 IF BB5>70000! THEN LET WR=18800
16690 RETURN
16700 IF BB5<4000 THEN LET WR=0
16710 IF BB5>4000 AND BB5<18000 THEN LET WR=8600
16720 IF BB5>18000 AND BB5<20000 THEN LET WR=15200
16730 IF BB5>20000 AND BB5<22000 THEN LET WR=15700
16740 IF BB5>22000 AND BB5>24000 THEN LET WR=16200
16750 IF BB5>24000 AND BB5<26000 THEN LET WR=16700
16760 IF BB5>26000 AND BB5<28000 THEN LET WR=17200
16770 IF BB5>28000 AND BB5<55000! THEN LET WR=17700
16780 IF BB5>55000! AND BB5<60000! THEN LET WR=17800
16782 IF BB5>60000! AND BB5<70000! THEN LET WR=18600
16785 IF BB5>70000! THEN LET WR=19300
16790 RETURN
16800 IF BB5<4000 THEN LET WR=0
16810 IF BB5>4000 AND BB5<18000 THEN LET WR=9200
16820 IF BB5>18000 AND BB5<20000 THEN LET WR=15700
16830 IF BB5>20000 AND BB5<22000 THEN LET WR=16200
16840 IF BB5>22000 AND BB5>24000 THEN LET WR=16700
16850 IF BB5>24000 AND BB5<26000 THEN LET WR=17200
16860 IF BB5>26000 AND BB5<28000 THEN LET WR=17700
16870 IF BB5>28000 AND BB5<55000! THEN LET WR=18100
16880 IF BB5>55000! AND BB5<60000! THEN LET WR=18400
16882 IF BB5>60000! AND BB5<70000! THEN LET WR=19200
16885 IF BB5>70000! THEN LET WR=19900
16890 RETURN
16900 IF BB5<4000 THEN LET WR=0
16910 IF BB5>4000 AND BB5<18000 THEN LET WR=10200
16920 IF BB5>18000 AND BB5<20000 THEN LET WR=16200
16930 IF BB5>20000 AND BB5<22000 THEN LET WR=16700
16940 IF BB5>22000 AND BB5>24000 THEN LET WR=17200
16950 IF BB5>24000 AND BB5<26000 THEN LET WR=17700
16960 IF BB5>26000 AND BB5<28000 THEN LET WR=18200
16970 IF BB5>28000 AND BB5<55000! THEN LET WR=18500
16980 IF BB5>55000! AND BB5<60000! THEN LET WR=19000
16982 IF BB5>60000! AND BB5<70000! THEN LET WR=19800
16985 IF BB5>70000! THEN LET WR=20400
16990 RETURN
17000 IF BB5<4000 THEN LET WR=0
17010 IF BB5>4000 AND BB5<18000 THEN LET WR=11100
17020 IF BB5>18000 AND BB5<20000 THEN LET WR=16700
17030 IF BB5>20000 AND BB5<22000 THEN LET WR=17200
17040 IF BB5>22000 AND BB5>24000 THEN LET WR=17700
17050 IF BB5>24000 AND BB5<26000 THEN LET WR=18200
17060 IF BB5>26000 AND BB5<28000 THEN LET WR=18700
17070 IF BB5>28000 AND BB5<50000! THEN LET WR=18900
17080 IF BB5>50000! AND BB5<55000! THEN LET WR=19100
17082 IF BB5>55000! AND BB5<60000! THEN LET WR=19600
17084 IF BB5>60000! AND BB5<70000! THEN LET WR=20400
17085 IF BB5>70000! THEN LET WR=20900
17090 RETURN
17100 IF BB5<4000 THEN LET WR=0
17110 IF BB5>4000 AND BB5<18000 THEN LET WR=12000
17120 IF BB5>18000 AND BB5<20000 THEN LET WR=17200
17130 IF BB5>20000 AND BB5<22000 THEN LET WR=17700
17140 IF BB5>22000 AND BB5>24000 THEN LET WR=18200
17150 IF BB5>24000 AND BB5<26000 THEN LET WR=18700
17160 IF BB5>26000 AND BB5<28000 THEN LET WR=19200
17170 IF BB5>28000 AND BB5<48000! THEN LET WR=19300
17180 IF BB5>48000! AND BB5<50000! THEN LET WR=19400
17182 IF BB5>50000! AND BB5<55000! THEN LET WR=19700
17184 IF BB5>55000! AND BB5<60000! THEN LET WR=20200
17185 IF BB5>60000! AND BB5<70000! THEN LET WR=21000
17188 IF BB5>70000! THEN LET WR=21500
17190 RETURN
17200 IF BB5<4000 THEN LET WR=0
17210 IF BB5>4000 AND BB5<18000 THEN LET WR=12900
17220 IF BB5>18000 AND BB5<20000 THEN LET WR=17700
17230 IF BB5>20000 AND BB5<22000 THEN LET WR=18200
17240 IF BB5>22000 AND BB5>24000 THEN LET WR=18700
17250 IF BB5>24000 AND BB5<26000 THEN LET WR=19200
17260 IF BB5>26000 AND BB5<28000 THEN LET WR=19700
17270 IF BB5>28000 AND BB5<48000! THEN LET WR=19700
17280 IF BB5>48000! AND BB5<50000! THEN LET WR=19900
17282 IF BB5>50000! AND BB5<55000! THEN LET WR=20300
17284 IF BB5>55000! AND BB5<60000! THEN LET WR=20800
17285 IF BB5>60000! AND BB5<70000! THEN LET WR=21500
17288 IF BB5>70000! THEN LET WR=22000
17290 RETURN
17300 IF BB5<4000 THEN LET WR=0
17310 IF BB5>4000 AND BB5<18000 THEN LET WR=12900
17320 IF BB5>18000 AND BB5<20000 THEN LET WR=17700
17330 IF BB5>20000 AND BB5<22000 THEN LET WR=18200
17340 IF BB5>22000 AND BB5>24000 THEN LET WR=18700
17350 IF BB5>24000 AND BB5<26000 THEN LET WR=19200
17360 IF BB5>26000 AND BB5<28000 THEN LET WR=19700
17370 IF BB5>28000 AND BB5<46000! THEN LET WR=19700
17380 IF BB5>46000! AND BB5<48000! THEN LET WR=19900
17382 IF BB5>48000! AND BB5<50000! THEN LET WR=20100
17384 IF BB5>50000! AND BB5<55000! THEN LET WR=20500
17385 IF BB5>55000! AND BB5<60000! THEN LET WR=21000
17387 IF BB5>60000! AND BB5<70000! THEN LET WR=21700
17388 IF BB5>70000! THEN LET WR=22200
17390 RETURN
17400 IF BB5<4000 THEN LET WR=0
17410 IF BB5>4000 AND BB5<18000 THEN LET WR=12900
17420 IF BB5>18000 AND BB5<20000 THEN LET WR=17700
17430 IF BB5>20000 AND BB5<22000 THEN LET WR=18200
17440 IF BB5>22000 AND BB5>24000 THEN LET WR=18700
17450 IF BB5>24000 AND BB5<26000 THEN LET WR=19200
17460 IF BB5>26000 AND BB5<42000! THEN LET WR=19700
17470 IF BB5>42000! AND BB5<44000! THEN LET WR=19900
17480 IF BB5>44000! AND BB5<46000! THEN LET WR=20100
17482 IF BB5>46000! AND BB5<48000! THEN LET WR=20300
17484 IF BB5>48000! AND BB5<50000! THEN LET WR=20500
17485 IF BB5>50000! AND BB5<55000! THEN LET WR=20800
17487 IF BB5>55000! AND BB5<60000! THEN LET WR=21300
17488 IF BB5>60000! AND BB5<70000! THEN LET WR=22100
17489 IF BB5>70000! THEN LET WR=22500
17490 RETURN
17500 IF BB5<4000 THEN LET WR=0
17510 IF BB5>4000 AND BB5<18000 THEN LET WR=12900
17520 IF BB5>18000 AND BB5<20000 THEN LET WR=17700
17530 IF BB5>20000 AND BB5<22000 THEN LET WR=18200
17540 IF BB5>22000 AND BB5>24000 THEN LET WR=18700
17550 IF BB5>24000 AND BB5<26000 THEN LET WR=19200
17560 IF BB5>26000 AND BB5<36000! THEN LET WR=19700
17570 IF BB5>36000! AND BB5<38000! THEN LET WR=19800
17580 IF BB5>38000! AND BB5<40000! THEN LET WR=20000
17582 IF BB5>40000! AND BB5<42000! THEN LET WR=20200
17584 IF BB5>42000! AND BB5<44000! THEN LET WR=20400
17585 IF BB5>44000! AND BB5<46000! THEN LET WR=20600
17587 IF BB5>46000! AND BB5<48000! THEN LET WR=20800
17588 IF BB5>48000! AND BB5<50000! THEN LET WR=21000
17589 IF BB5>50000! AND BB5<55000! THEN LET WR=21300
17590 IF BB5>55000! AND BB5<60000! THEN LET WR=21800
17591 IF BB5>60000! AND BB5<70000! THEN LET WR=22600
17592 IF BB5>70000! THEN LET WR=23000
17593 RETURN
17600 IF BB5<4000 THEN LET WR=0
17610 IF BB5>4000 AND BB5<18000 THEN LET WR=12900
17620 IF BB5>18000 AND BB5<20000 THEN LET WR=17700
17630 IF BB5>20000 AND BB5<22000 THEN LET WR=18200
17640 IF BB5>22000 AND BB5>24000 THEN LET WR=18700
17650 IF BB5>24000 AND BB5<26000 THEN LET WR=19200
17660 IF BB5>26000 AND BB5<30000! THEN LET WR=19700
17670 IF BB5>30000! AND BB5<32000! THEN LET WR=19900
17680 IF BB5>32000! AND BB5<34000! THEN LET WR=20100
17682 IF BB5>34000! AND BB5<36000! THEN LET WR=20300
17684 IF BB5>36000! AND BB5<38000! THEN LET WR=20500
17685 IF BB5>38000! AND BB5<40000! THEN LET WR=20700
17687 IF BB5>40000! AND BB5<42000! THEN LET WR=20900
17688 IF BB5>42000! AND BB5<44000! THEN LET WR=21100
17689 IF BB5>44000! AND BB5<46000! THEN LET WR=21300
17690 IF BB5>46000! AND BB5<48000! THEN LET WR=21500
17691 IF BB5>48000! AND BB5<50000! THEN LET WR=21700
17692 IF BB5>50000! AND BB5<55000! THEN LET WR=22100
17693 IF BB5>55000! AND BB5<60000! THEN LET WR=22600
17694 IF BB5>60000! AND BB5<70000! THEN LET WR=23300
17695 IF BB5>70000! THEN LET WR=23600
17696 RETURN
17700 IF BB5<4000 THEN LET WR=0
17710 IF BB5>4000 AND BB5<18000 THEN LET WR=12900
17720 IF BB5>18000 AND BB5<20000 THEN LET WR=18300
17730 IF BB5>20000 AND BB5<22000 THEN LET WR=19100
17740 IF BB5>22000 AND BB5>24000 THEN LET WR=19800
17750 IF BB5>24000 AND BB5<26000 THEN LET WR=20600
17760 IF BB5>26000 AND BB5<28000! THEN LET WR=21000
17770 IF BB5>28000! AND BB5<30000! THEN LET WR=21200
17780 IF BB5>30000! AND BB5<32000! THEN LET WR=21400
17782 IF BB5>32000! AND BB5<34000! THEN LET WR=21600
17784 IF BB5>34000! AND BB5<36000! THEN LET WR=21800
17785 IF BB5>36000! AND BB5<38000! THEN LET WR=22000
17787 IF BB5>38000! AND BB5<40000! THEN LET WR=22200
17788 IF BB5>40000! AND BB5<42000! THEN LET WR=22400
17789 IF BB5>42000! AND BB5<44000! THEN LET WR=22600
17790 IF BB5>44000! AND BB5<46000! THEN LET WR=22800
17791 IF BB5>46000! AND BB5<48000! THEN LET WR=23000
17792 IF BB5>48000! AND BB5<50000! THEN LET WR=23200
17793 IF BB5>50000! AND BB5<55000! THEN LET WR=23600
17794 IF BB5>55000! AND BB5<60000! THEN LET WR=24100
17795 IF BB5>60000! AND BB5<70000! THEN LET WR=24800
17796 IF BB5>70000! THEN LET WR=25000
17797 RETURN
18000 'Print summary
18001 CLS
18010 PRINT "                   W-4 Worksheet Summary"
18020 PRINT "     A..Your Exemption..........................";WA
18030 PRINT "     B..Special Allowance.......................";WB
18040 PRINT "     C..Spouse..................................";WC
18050 PRINT "     D..Dependents..............................";WD
18060 PRINT "     E....Total.................................";WE
18090 PRINT "     F..Adjustments to Income..............";WF
18100 PRINT "     G..Itemized Deductions....";WG
18110 PRINT "     H..Zero Bracket...........";WH
18120 PRINT "     I..Line G-H...........................";WI
18130 PRINT "     J..Age 65 or Over,Blind...............";WJ
18140 PRINT "     K..Tax Credits............";WK
18150 PRINT "     L..Schedule Amount........";WL
18170 PRINT "     M..K x L..............................";WM
18180 PRINT "     N..Sum of F,I,J & M...................";WN
18190 PRINT "     O..N divided by $1900.................";WO
18200 PRINT "     P..Lines E+O...............................";WP
18210 PRINT "     Q..Nonwage Income.....................";WQ
18220 PRINT "     R..Working Spouse,2 Jobs..............";WR
18230 PRINT "     S..Lines Q+R..........................";WS
18240 PRINT "     T..Line S divided by $1900.................";WT
18250 PRINT "     U..TOTAL WITHHOLDING ALLOWANCES............";WU
18260 INPUT "hit any key to finish";ZZ$
18280 RETURN
28000 'Print summary on printer
28001 CLS
28005 LPRINT:LPRINT:LPRINT
28010 LPRINT "                        W-4 Worksheet Summary"
28020 LPRINT "          A..Your Exemption..........................";WA
28030 LPRINT "          B..Special Allowance.......................";WB
28040 LPRINT "          C..Spouse..................................";WC
28050 LPRINT "          D..Dependents..............................";WD
28060 LPRINT "          E....Total.................................";WE
28065 LPRINT:LPRINT
28090 LPRINT "          F..Adjustments to Income..............";WF
28100 LPRINT "          G..Itemized Deductions....";WG
28110 LPRINT "          H..Zero Bracket...........";WH
28120 LPRINT "          I..Line G-H...........................";WI
28130 LPRINT "          J..Age 65 or Over,Blind...............";WJ
28140 LPRINT "          K..Tax Credits............";WK
28150 LPRINT "          L..Schedule Amount........";WL
28170 LPRINT "          M..K x L..............................";WM
28180 LPRINT "          N..Sum of F,I,J & M...................";WN
28190 LPRINT "          O..N divided by $1900.................";WO
28200 LPRINT "          P..Lines E+O...............................";WP
28210 LPRINT "          Q..Nonwage Income.....................";WQ
28220 LPRINT "          R..Working Spouse,2 Jobs..............";WR
28230 LPRINT "          S..Lines Q+R..........................";WS
28240 LPRINT "          T..Line S divided by $1900.................";WT
28250 LPRINT "          U..TOTAL WITHHOLDING ALLOWANCES............";WU
28260 LPRINT:LPRINT:LPRINT
28270 LPRINT "  **If you have more than one job or if your spouse works,you"
28271 LPRINT "  may claim all of you allowances on one job or you may claim "
28272 LPRINT "  some on each job, but you may NOT claim the same allowances "
28273 LPRINT "  more than once. Your withholding will usually be more accurate"
28274 LPRINT "  if you claim ALL allowances on the Form W-4 for the job with"
28275 LPRINT "  the largest wages and claim zero on all other Forms W-4"
28280 RETURN