1 ! PRINT TAX DEDUCTIONS FOR HAND WRITTEN CHECKS PROGRAM NAME: TAXINF BY CWR 2 K1%=1%:K0%=0%:T7(0%,K1%)=230000:T7(0%,2%)=170000 3 T7(K1%,K1%)=0:T7(K1%,2%)=1000:T7(K1%,3%)=0:T7(K1%,4%)=1000 4 T7(2%,K1%)=200000:T7(2%,2%)=5000:T7(2%,3%)=100000:T7(2%,4%)=3000 5 T7(3%,K1%)=400000:T7(3%,2%)=13000:T7(3%,3%)=200000:T7(3%,4%)=7000 6 T7(4%,K1%)=600000:T7(4%,2%)=22000:T7(4%,3%)=300000:T7(4%,4%)=11500 7 T7(5%,K1%)=800000:T7(5%,2%)=33000:T7(5%,3%)=400000:T7(5%,4%)=17000 8 T7(6%,K1%)=1000000:T7(6%,2%)=46000:T7(6%,3%)=500000:T7(6%,4%)=23500 9 T7%(K1%,K1%)=20%: T7%(K1%,2%)=20: T7%(2%,K1%)=40%: T7%(2%,2%)=40 10 T7%(3%,K1%)=45%:T7%(3%,2%)=45%:T7%(4%,K1%)=55%:T7%(4%,2%)=55% 11 T7%(5%,K1%)=65%:T7%(5%,2%)=65%:T7%(6%,K1%)=75%:T7%(6%,2%)=75% 12 K1%=1%:K0%=0%:S9%=0% 20 F$="\ \ ###,###.##" 163 DIM L6$(4%),T6(7%,4%),T6%(7%,2%) 700 INPUT "GROSS PAY";G:G=G*100% 705 M9$="":D9%=0% 710 IF G>0 THEN 1000 740 GOTO 1500 1000 ! DETERMINE DEDUCTIONS 1010 INPUT "TOTAL TSA'S";T:T=T*100% 1075 P=G-T 1080 INPUT "PUBLIC EMP. RET. (Y OR N) ";D$:IF D$<>"Y" THEN R=0:GOTO 1105 1090 IF G<=40000 THEN R=3*G/100% ELSE R=40000*3/100%+(G-40000)*6/100% 1105 F1,P1,S=0%:INPUT "0-NORMAL, 1-S.S. EXEMPT, 2-FED&STATE EXEMPT, 3-S.S.,FED&STATE EXEMPT";K9%:K9%=K9%+1% 1110 ON K9% GOTO 1130,1184,1130,1184 1130 INPUT "YTD FICA IF KNOWN";F4:F4=F4*100% 1140 F1=.0585*G 1150 IF F4+F1>63180 THEN F1=63180-F4 1160 IF F1<0 THEN F1=0 1184 ON K9% GOTO 1185,1185,1400,1400 1185 INPUT "M,S,G,H";M9$ 1186 IF M9$="M" OR M9$="S" THEN 1188 1187 INPUT "FIXED FED. AMOUNT";D9%:GOTO 1190 1188 INPUT "# OF DEP.";D9% 1190 ! COMPUTE STATE AND FED TAXES 1195 IF S9%=K1% THEN 1230 ELSE S9%=K1% 1200 T6(K1%,K1%)=55000:T6(K1%,2%)=0:T6(K1%,3%)=55000:T6(K1%,4%)=0 1202 T6(2%,K1%)=205000:T6(2%,2%)=21000:T6(2%,3%)=180000:T6(2%,4%)=17500 1204 T6(3%,K1%)=870000:T6(3%,2%)=127400:T6(3%,3%)=380000:T6(3%,4%)=53500 1206 T6(4%,K1%)=1075000:T6(4%,2%)=168400:T6(4%,3%)=1050000:T6(4%,4%)=194200 1208 T6(5%,K1%)=1685000:T6(5%,2%)=314800:T6(5%,3%)=1200000:T6(5%,4%)=228700 1210 T6(6%,K1%)=2125000:T6(6%,2%)=438000:T6(6%,3%)=1400000:T6(6%,4%)=282700 1212 T6(7%,K1%)=2525000:T6(7%,2%)=566000:T6(7%,3%)=1730000:T6(7%,4%)=385000 1214 T6%(K1%,K1%)=14%:T6%(K1%,2%)=14%:T6%(2%,K1%)=16%:T6%(2%,2%)=18% 1216 T6%(3%,K1%)=20%:T6%(3%,2%)=21%:T6%(4%,K1%)=24%:T6%(4%,2%)=23% 1218 T6%(5%,K1%)=28%:T6%(5%,2%)=27%:T6%(6%,K1%)=32%:T6%(6%,2%)=31% 1220 T6%(7%,K1%)=36%:T6%(7%,2%)=35% 1230 K9%=INSTR(1%,"MSGH",M9$):IF K9%=0% THEN K9%=2% 1231 ON K9% GOTO 1240,1240,1235,1235 1235 K9%=K9%-2%:A9%=D9%*100%:D9%=0% 1240 P1=P*12-75000*D9% 1250 FOR K%=K1% TO 7% ! LOOK FOR TAX BRACKET 1260 IF P1<=T6(K%,K9%*2%-K1%) THEN IF K%<>K1% THEN 1290 ELSE P1=0%:GOTO 1310 1270 NEXT K% 1280 GOTO 1300 1290 K%=K%-K1% 1300 P1=FIX((T6(K%,K9%*2%)+(T6%(K%,K9%)*(P1-T6(K%,K9%*2%-K1%))/100%))) 1305 P1=FIX((P1-1)/12)+A9% 1310 GOSUB 2000 1399 ! COMBINE AMOUNTS INTO MONTHLY DEDUCTION REGISTAR 1400 PRINT:PRINT 1405 PRINT USING F$,"GROSS PAY:",FIX(G+.5)/100% 1410 IF T<>0 THEN PRINT USING F$,"TOTAL TSA'S:",FIX(T+.5)/100% 1415 IF R<>0 THEN PRINT USING F$,"PUB. EMP. RET:",FIX(R+.5)/100% 1420 PRINT USING F$,"FICA:",FIX(F1+.5)/100% 1422 PRINT "MARITAL STATUS: ";M9$,"# OF DEP: ";D9% 1424 PRINT USING F$,"FEDERAL TAX";FIX(P1+.5)/100% 1426 PRINT USING F$,"STATE TAX";FIX(S+.5)/100% 1427 PRINT USING F$,"NET",FIX((FIX(G+.5)-FIX(T+.5)-FIX(R+.5)-FIX(F1+.5) -FIX(P1+.5)-FIX(S+.5))+.5)/100% 1428 PRINT:PRINT 1430 GOTO 700 1440 ! END 1500 PRINT "END OF RUN" 1520 GOTO 6000 2000 S=P*12: IF S200000 THEN D=200000 ELSE IF D<130000 THEN D=130000 2020 S=S-D-75000*(D9%-1%) 2040 IF S<0 THEN S=0: IF S=0 THEN 2125 2050 FOR K%=2% TO 6% !LOOK FOR TAX BRACKET 2060 IF S