Payroll

  10 REM PAYROLL
  20 GOSUB 9000
  40 GOSUB 8000
  60 IF Y=4 THEN GOTO 100
  70 LET Z=Y*2000
  80 GOSUB Z
  90 GOTO 40
 100 CLS 
 101 PRINT AT 10,0;"SET TAPE, PRESS ANY KEY"
 110 IF INKEY$="" THEN GOTO 110
 115 CLS 
 120 SAVE "PAYROL%L"
 121 PRINT "% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
 122 FOR X=1 TO 20
 123 PRINT "% ";TAB 31;"% "
 124 NEXT X
 125 PRINT "% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
 126 PRINT AT 3,9;"PAYROLL PROGRAM";AT 5,14;"FOR";AT 7,1;"COMPUTER ASSISTED BOOKKEEPING";AT 14,2;"INTERNATIONAL CORRESPONDENCE";AT 15,12;"SCHOOLS";AT 17,6;"SCRANTON, PA. 18515";AT 19,4;"COPYRIGHT ICS INTEXT 1985"
 127 PAUSE 20000
 130 GOTO 40
\n1000 PRINT AT 20,0;"ENTER OTHER INCOME"
\n1010 INPUT XIN
\n1020 PRINT AT 10,0;"EXTRA INCOME   ";XIN
\n1030 RETURN 
\n2000 REM 
\n2020 GOSUB 8300
\n2025 IF Y=4 THEN RETURN 
\n2030 IF Y=3 THEN GOSUB 3500
\n2040 IF Y=2 THEN GOSUB 2600
\n2050 IF Y=1 THEN GOSUB 2100
\n2070 GOTO 2000
\n2100 REM 
\n2110 CLS 
\n2120 PRINT AT 2,6;"ADD EMPLOYEES TO FILE";AT 4,0;"EMPLOYEE NAME"
\n2140 INPUT S$
\n2150 PRINT AT 4,15;S$;AT 6,0;"SALARY TYPE";AT 20,1;"S=SALARY  H=HOURLY"
\n2160 PRINT AT 6,0;"SALARY TYPE"
\n2180 INPUT U$
\n2190 PRINT AT 6,15;U$
\n2200 IF U$="H" OR U$="S" THEN GOTO 2230
\n2210 PRINT AT 19,1;"INVALID TYPE RE-ENTER"
\n2220 GOTO 2170
\n2230 PRINT AT 19,0;Z$;AT 20,0;Z$
\n2240 IF U$="S" THEN GOTO 2270
\n2250 PRINT AT 8,0;"HOURLY RATE "
\n2260 GOTO 2280
\n2270 PRINT AT 8,0;"YEARLY SALARY "
\n2280 INPUT V
\n2290 PRINT AT 8,15;V;AT 10,0;"PAY PERIOD ";AT 19,0;"W=WEEKLY B=BIWEEKLY";AT 20,0;"S=SEMI-MONTHLY M=MONTHLY"
\n2320 INPUT W$
\n2340 PRINT AT 10,15;W$
\n2350 IF W$="W" OR W$="B" OR W$="S" OR W$="M" THEN GOTO 2380
\n2370 GOTO 2320
\n2380 PRINT AT 18,0;Z$;Z$;Z$;Z$;AT 12,0;"MARITAL STATUS ";AT 20,1;"S=SINGLE  M=MARRIED"
\n2410 INPUT X$
\n2420 PRINT AT 12,15;X$
\n2430 IF X$="M" OR X$="S" THEN GOTO 2460
\n2450 GOTO 2410
\n2460 PRINT AT 19,1;Z$;AT 20,1;Z$;AT 14,0;"NO. EXEMPTIONS"
\n2470 INPUT EX
\n2480 PRINT AT 14,15;EX;AT 16,0;"SOC.SEC.NO"
\n2500 INPUT C$
\n2515 PRINT AT 16,15;C$;AT 18,0;"ALL CORRECT ? (Y/N)"
\n2516 INPUT L$
\n2517 IF L$="N" THEN GOTO 2100
\n2518 IF L$="Y" THEN GOTO 2522
\n2520 PRINT AT 19,1;"INVALID RE-ENTER"
\n2521 GOTO 2516
\n2522 PRINT AT 21,0;"HARD COPY? (Y/N)"
\n2523 INPUT Y$
\n2524 PRINT AT 18,0;Z$;Z$;Z$;Z$
\n2525 IF Y$="N" THEN GOTO 2527
\n2526 COPY 
\n2527 GOSUB 8500
\n2530 PRINT AT 19,1;"MORE EMPLOYEES ? (Y/N)"
\n2540 INPUT Y$
\n2550 IF Y$="Y" THEN GOTO 2100
\n2560 IF Y$="N" THEN RETURN 
\n2570 PRINT AT 18,1;"INVALID RE-ENTER"
\n2580 GOTO 2540
\n2600 REM 
\n2610 CLS 
\n2620 PRINT AT 0,6;"CHANGE EMPLOYEE DATA"
\n2622 FOR X=1 TO 8
\n2624 PRINT X;" ";N$(X, TO 12),
\n2626 NEXT X
\n2640 PRINT AT 21,0;"ENTER NO. OF EMPLOYEE (0 TO END)"
\n2650 INPUT Y
\n2660 IF Y=0 THEN RETURN 
\n2670 IF Y>0 AND Y<11 THEN GOTO 2700
\n2680 PRINT AT 19,1;"INVALID NO. , RE-ENTER"
\n2690 GOTO 2650
\n2700 CLS 
\n2720 PRINT AT 4,0;"EMPLOYEE NAME";AT 4,15;N$(Y);AT 19,1;"ENTER NEW INFORMATION, IF NO ";AT 20,1;"CHANGE JUST PRESS THE ENTER KEY"
\n2730 INPUT S$
\n2740 IF S$<>"" THEN PRINT AT 4,15;S$;Z$
\n2750 PRINT AT 6,0;"SALARY TYPE";AT 6,15;T$(Y)
\n2760 INPUT U$
\n2770 IF U$="" THEN GOTO 2810
\n2775 PRINT AT 6,15;U$
\n2780 IF U$="H" OR U$="S" THEN GOTO 2810
\n2790 PRINT AT 18,1;"INVALID TYPE RE-ENTER"
\n2800 GOTO 2760
\n2810 PRINT AT 18,0;Z$
\n2815 IF T$(Y)="H" THEN PRINT AT 8,1;"HOURLY RATE ";AT 8,15;R(Y)
\n2820 IF T$(Y)="S" THEN PRINT AT 8,1;"YEARLY SALARY ";AT 8,15;R(Y)
\n2821 GOTO 2830
\n2830 PRINT AT 18,1;"ENTER NEW RATE, SALARY OR 0";Z$;Z$;Z$
\n2840 INPUT V
\n2850 IF V<>0 THEN PRINT AT 8,15;V;Z$
\n2860 PRINT AT 10,0;"PAY PERIOD     ";P$(Y);AT 18,0;Z$
\n2870 INPUT W$
\n2880 IF W$="" THEN GOTO 2910
\n2885 PRINT AT 10,15;W$
\n2890 IF W$="W" OR W$="B" OR W$="S" OR W$="M" THEN GOTO 2910
\n2895 PRINT AT 18,1;"INVALID RE-ENTER"
\n2900 GOTO 2870
\n2910 PRINT AT 18,0;Z$;AT 12,0;"MARITAL STATUS ";M$(Y)
\n2920 INPUT X$
\n2925 IF X$="" THEN GOTO 2960
\n2927 PRINT AT 12,15;X$
\n2930 IF X$="M" OR X$="S" THEN GOTO 2960
\n2940 PRINT AT 18,1;"INVALID RE-ENTER"
\n2950 GOTO 2920
\n2960 PRINT AT 18,0;Z$;AT 14,0;"NO. EXEMPS.";AT 14,15;E(Y)
\n2970 INPUT EX
\n2990 PRINT AT 14,15;EX;AT 16,0;"SOC.SEC.NO.    ";O$(Y)
\n3000 INPUT C$
\n3010 IF C$<>"" THEN PRINT AT 16,15;C$;Z$
\n3020 PRINT AT 18,0;"ALL CORRECT? (Y/N)"
\n3030 INPUT L$
\n3040 IF L$="N" THEN GOTO 2600
\n3050 IF L$="Y" THEN GOTO 3072
\n3060 PRINT AT 18,0;"INVALID RE-ENTER  "
\n3070 GOTO 3030
\n3072 PRINT AT 21,0;"HARD COPY? (Y/N)"
\n3074 INPUT Y$
\n3080 PRINT AT 18,0;Z$;Z$;Z$;Z$
\n3085 IF Y$="N" THEN GOTO 3090
\n3087 COPY 
\n3090 IF S$<>"" THEN LET N$(Y)=S$
\n3100 IF U$<>"" THEN LET T$(Y)=U$
\n3110 IF V<>0 THEN LET R(Y)=V
\n3120 IF W$<>"" THEN LET P$(Y)=W$
\n3130 IF X$<>"" THEN LET M$(Y)=X$
\n3135 LET E(Y)=EX
\n3140 IF C$<>"" THEN LET O$(Y)=C$
\n3150 GOTO 2600
\n3505 CLS 
\n3510 PRINT AT 0,8;"REMOVE EMPLOYEE"
\n3512 FOR X=1 TO 8
\n3514 PRINT X;" ";N$(X, TO 12),
\n3516 NEXT X
\n3530 PRINT AT 20,0;"ENTER NO. OF EMPLOYEE TO DELETE"
\n3540 INPUT Y
\n3545 IF Y=0 THEN RETURN 
\n3550 IF Y>0 AND Y<9 THEN GOTO 3600
\n3560 PRINT AT 19,1;"INVALID NO. , RE-ENTER"
\n3570 GOTO 3540
\n3600 CLS 
\n3615 PRINT AT 9,0;Z$;AT 4,0;"EMPLOYEE NAME";AT 4,15;N$(Y);AT 6,0;"SALARY TYPE";AT 6,15;T$(Y) 
\n3650 IF T$(Y)="H" THEN PRINT AT 8,0;"HOURLY RATE "
\n3660 IF T$(Y)="S" THEN PRINT AT 8,0;"YEARLY SALARY "
\n3670 PRINT AT 8,15;R(Y);AT 10,0;"PAY PERIOD ";AT 10,15;P$(Y);AT 12,0;"MARITAL STATUS ";M$(Y);AT 14,0;"NO. EXEMPTIONS ";E(Y);AT 16,0;"SOC.SEC.NO.   ";O$(Y);AT 19,0;"IS THIS THE EMPLOYEE YOU WANT   DELETED? (ENTER Y OR N)"
\n3770 INPUT X$
\n3780 IF X$="Y" THEN GOTO 3810
\n3790 IF X$="N" THEN GOTO 3500
\n3795 PRINT AT 18,1;"INVALID REPLY, RE-ENTER"
\n3798 GOTO 3770
\n3810 LET N$(Y)="            "
\n3820 LET T$(Y)=" "
\n3830 LET R(Y)=0 
\n3831 LET G(Y)=0 
\n3832 LET T(Y)=0 
\n3833 LET I(Y)=0 
\n3834 LET S(Y)=0 
\n3835 LET F(Y)=0 
\n3836 LET O(Y)=0 
\n3837 LET Q(Y)=0 
\n3840 LET M$(Y)=" "
\n3850 LET E(Y)=0
\n3860 LET O$(Y)="           "
\n3865 LET K(Y)=0
\n3870 PRINT AT 18,0;Z$;Z$;Z$;AT 19,0;"DO YOU WANT TO DELETE MORE      EMPLOYEES? (Y OR N)"
\n3880 INPUT X$
\n3885 LET Y=0
\n3890 IF X$="N" THEN RETURN 
\n3900 IF X$="Y" THEN GOTO 3500
\n3910 PRINT AT 18,1;"INVALID ENTRY, RE-ENTER"
\n3920 GOTO 3880
\n3990 RETURN 
\n4005 DIM D(8)
\n4010 CLS 
\n4015 PRINT AT 0,0;"COMPANY NAME"
\n4017 INPUT B$
\n4018 PRINT AT 0,0;B$;Z$
\n4020 PRINT AT 1,0;"TODAY""S DATE MM/DD/YY"
\n4030 INPUT D$
\n4040 PRINT AT 1,13;D$;Z$
\n4050 PRINT AT 2,0;"PERIOD END DATE MM/DD/YY"
\n4060 INPUT E$
\n4062 PRINT AT 2,16;E$;Z$
\n4064 FOR X=1 TO 8
\n4065 PRINT X;" ";N$(X, TO 12),
\n4066 NEXT X
\n4070 PRINT AT 20,0;"ENTER EMPLOYEE NO."
\n4075 INPUT Y
\n4080 IF Y=0 THEN RETURN 
\n4085 CLS 
\n4087 PRINT TAB 6;B$
\n4090 PRINT "TODAY""S DATE: ";D$
\n4095 PRINT "PERIOD ENDING:";E$
\n4100 PRINT AT 7,0;"EMPLOYEE";AT 7,10;N$(Y)
\n4113 PRINT AT 8,0;"SOC.SEC.NO.";AT 8,12;O$(Y)
\n4115 IF T$(Y)="S" THEN GOTO 4200
\n4120 PRINT AT 20,0;"ENTER REG. HOURS"
\n4130 INPUT HOURS
\n4132 PRINT AT 20,0;"ENTER OT HOURS  "
\n4133 INPUT OTH
\n4135 PRINT AT 9,0;"REG. HOURS"
\n4140 PRINT AT 9,11;HOURS
\n4145 PRINT AT 9,16;"OT HOURS ";OTH
\n4160 LET REG=HOURS*R(Y)
\n4185 LET OT=OTH*1.5*R(Y)
\n4190 GOTO 4235
\n4200 IF P$(Y)="W" THEN LET PAY=R(Y)/52
\n4210 IF P$(Y)="B" THEN LET PAY=R(Y)/26
\n4220 IF P$(Y)="S" THEN LET PAY=R(Y)/24
\n4230 IF P$(Y)="M" THEN LET PAY=R(Y)/12
\n4232 LET REG=PAY
\n4233 LET OT=0
\n4235 LET REG=INT (REG*100+.5)/100
\n4236 LET OT=INT (OT*100+.5)/100
\n4237 GOSUB 1000
\n4239 LET PAY=OT+REG+XIN
\n4241 IF P$(Y)="W" THEN LET M=1
\n4250 IF P$(Y)="B" THEN LET M=15
\n4260 IF P$(Y)="S" THEN LET M=29
\n4270 IF P$(Y)="M" THEN LET M=43
\n4280 IF M$(Y)="M" THEN LET M=M+7
\n4285 GOSUB 6010
\n4290 FOR X=M TO M+6
\n4300 IF INC<=A(X) THEN GOTO 4320
\n4310 NEXT X
\n4320 IF X=M OR E(Y)=999 THEN LET FED=0
\n4330 IF X=M OR E(Y)=999 THEN GOTO 4350
\n4340 LET FED=B(X-1)+C(X-1)*(INC-A(X-1))
\n4345 LET FED=INT (FED*100+.5)/100
\n4350 LET FICA=PAY*PCT
\n4352 IF I(Y)>=MAX THEN LET FICA=0
\n4353 IF FICA=0 THEN GOTO 4380
\n4354 IF FICA+I(Y)>MAX THEN LET  FICA=MAX-I(Y)
\n4355 LET FICA=INT (FICA*100+.5)/100
\n4380 PRINT AT 11,0;"REG.PAY";AT 11,9;REG;AT 11,17;"OT PAY";AT 11,25;OT
\n4500 PRINT AT 13,0;"GROSS PAY";AT 13,15;PAY
\n4510 PRINT AT 14,0;"FEDERAL TAX";AT 14,15;FED
\n4512 PRINT AT 20,0;"ENTER STATE W/H ";Z$
\n4514 INPUT ST
\n4520 PRINT AT 15,0;"STATE TAX ";AT 15,15;ST
\n4525 PRINT AT 20,0;Z$
\n4530 PRINT AT 16,0;"FICA ";AT 16,15;FICA
\n4540 PRINT AT 20,0;"ENTER OTHER 1 "
\n4550 INPUT D1
\n4555 PRINT AT 17,0;"OTHER 1"
\n4560 PRINT AT 17,15;D1
\n4580 PRINT AT 20,0;"ENTER OTHER 2"
\n4590 INPUT D2
\n4595 PRINT AT 18,0;"OTHER 2"
\n4600 PRINT AT 18,15;D2
\n4610 LET TOTD=FICA+FED+ST+D1+D2
\n4620 LET NET=PAY-TOTD
\n4630 PRINT AT 19,0;"NET PAY";AT 19,15;NET
\n4640 PRINT AT 20,0;"IS ALL DATA CORRECT? (Y/N)"
\n4650 INPUT Y$
\n4660 IF Y$<>"Y" THEN GOTO 4870
\n4665 LET G(Y)=G(Y)+REG
\n4668 LET T(Y)=T(Y)+OT
\n4670 LET I(Y)=I(Y)+FICA
\n4675 LET S(Y)=S(Y)+ST
\n4680 LET F(Y)=F(Y)+FED
\n4690 LET O(Y)=O(Y)+D1
\n4700 LET Q(Y)=Q(Y)+D2
\n4705 LET K(Y)=K(Y)+XIN
\n4710 PRINT AT 21,0;"HARD COPY? (Y/N)"
\n4720 INPUT Y$
\n4730 IF Y$="N" THEN GOTO 4740
\n4735 PRINT AT 20,0;Z$;Z$
\n4736 COPY 
\n4738 GOTO 4710
\n4740 CLS 
\n4750 PRINT AT 4,10;"YTD TOTALS";AT 6,0;"EMPLOYEE  ";N$(Y);TAB 0;"SOC.SEC.NO.   ";O$(Y);TAB 0;"REGULAR   ";G(Y);TAB 0;"OT PAY     ";T(Y);TAB 0;"EXTRA INC. ";K(Y);TAB 0;"GROSS     ";G(Y)+T(Y)+K(Y);AT 12,0;"FED. W/H  ";F(Y);TAB 0;"STATE W/H ";S(Y);TAB 0;"FICA      ";I(Y);TAB 0;"OTHER 1   ";O(Y);TAB 0;"OTHER 2   ";Q(Y);TAB 0;"NET PAY    ";G(Y)+T(Y)+K(Y)-(F(Y)+S(Y)+I(Y)+O(Y)+Q(Y));AT 21,0;"HARD COPY? (Y/N)"
\n4850 INPUT Y$
\n4860 IF Y$="N" THEN GOTO 4868
\n4861 PRINT AT 21,0;Z$
\n4862 COPY 
\n4865 GOTO 4750
\n4868 GOSUB 9600
\n4870 PRINT AT 21,0;"ANOTHER EMPLOYEE? (Y/N)"
\n4880 INPUT Y$
\n4890 IF Y$="N" THEN GOTO 5999
\n4900 CLS 
\n4910 GOTO 4064
\n5999 RETURN 
\n6000 GOTO 7000
\n6010 IF P$(Y)="W" THEN LET INC=PAY-E(Y)*20
\n6020 IF P$(Y)="B" THEN LET INC=PAY-E(Y)*40
\n6030 IF P$(Y)="S" THEN LET INC=PAY-E(Y)*43.33
\n6040 IF P$(Y)="M" THEN LET INC=PAY-E(Y)*86.67
\n6050 RETURN 
\n7010 CLS 
\n7020 PRINT TAB 8;"PAYROLL REGISTER";TAB 10;"FOR PAY PERIOD";TAB 8;B$;TAB 8;"TODAY""S DATE:";D$;TAB 8;"PERIOD END. :";E$
\n7030 GOSUB 7800
\n7040 PRINT AT 5,15;D(1);AT 6,15;D(2);AT 7,15;D(8);AT 9,15;D(1)+D(2)+D(8);AT 11,15;D(3);AT 12,15;D(4);AT 13,15;D(5);AT 14,15;D(6);AT 15,15;D(7);AT 17,0;"NET PAY        ";D(1)+D(2)+D(8)-(D(3)+D(4)+D(5)+D(6)+D(7))
\n7050 COPY 
\n7060 PAUSE 32767
\n7065 CLS 
\n7100 PRINT TAB 8;"PAYROLL REGISTER";TAB 10;"FOR QUARTER";TAB 8;B$
\n7110 GOSUB 7800
\n7120 PRINT AT 5,15;U(1);AT 6,15;U(2);AT 7,15;U(8);AT 9,15;U(1)+U(2)+U(8);AT 11,15;U(3);AT 12,15;U(4);AT 13,15;U(5);AT 14,15;U(6);AT 15,15;U(7)
\n7130 COPY 
\n7135 PRINT AT 21,0;"END OF QUARTER? (Y/N)"
\n7140 INPUT Y$
\n7145 IF Y$="Y" THEN DIM U(8)
\n7150 CLS 
\n7200 PRINT TAB 8;"PAYROLL REGISTER";TAB 10;"FOR YEAR";TAB 8;B$
\n7210 GOSUB 7800
\n7220 PRINT AT 5,15;L(1);AT 6,15;L(2);AT 7,15;L(8);AT 9,15;L(1)+L(2)+L(8);AT 11,15;L(3);AT 12,15;L(4);AT 13,15;L(5);AT 14,15;L(6);AT 15,15;L(7)
\n7230 COPY 
\n7240 PAUSE 32767
\n7250 GOTO 7990
\n7800 PRINT AT 5,0;"REGULAR PAY";AT 6,0;"OVERTIME PAY";AT 7,0;"EXTRA INCOME";AT 9,0;"GROSS PAY";AT 11,0;"FEDERAL W/H";AT 12,0;"STATE W/H";AT 13,0;"FICA";AT 14,0;"OTHER 1";AT 15,0;"OTHER 2"
\n7990 RETURN 
\n8010 CLS 
\n8020 PRINT AT 5,10;"PAYROLL MENU"
\n8030 PRINT AT 8,5;"1. MASTER EMPLOYEE FILE"
\n8040 PRINT AT 11,5;"2. RUN PAYROLL"
\n8045 PRINT AT 14,5;"3. PRINT PAYROLL REGISTER"
\n8050 PRINT AT 17,5;"4. SAVE TO TAPE"
\n8070 PRINT AT 21,3;"ENTER NUMBER OF CHOICE"
\n8080 INPUT Y
\n8090 IF Y>0 AND Y<5 THEN GOTO 8120
\n8100 PRINT AT 19,1;"INVALID ENTRY, RE-ENTER"
\n8110 GOTO 8080
\n8120 RETURN 
\n8300 REM 
\n8310 CLS 
\n8320 PRINT AT 5,8;"MAINTENANCE MENU"
\n8330 PRINT AT 8,5;"1. ADD EMPLOYEES TO FILE"
\n8340 PRINT AT 11,5;"2. CHANGE EMPLOYEE DATA"
\n8350 PRINT AT 14,5;"3. REMOVE EMPLOYEE"
\n8355 PRINT AT 17,5;"4. RETURN TO MAIN MENU"
\n8360 PRINT AT 21,4;"ENTER NUMBER OF CHOICE"
\n8370 INPUT Y
\n8380 IF Y>0 AND Y<5 THEN RETURN 
\n8390 PRINT AT 19,1;"INVALID ENTRY, RE-ENTER"
\n8400 GOTO 8370
\n8510 FOR X=1 TO 8
\n8520 IF N$(X)(1 TO 10)="          " THEN GOTO 8540
\n8530 NEXT X
\n8533 PRINT AT 21,0;"FILE IS FULL - PRESS ENTER"
\n8535 PAUSE 32767
\n8540 LET N$(X)=S$
\n8550 LET T$(X)=U$
\n8560 LET R(X)=V 
\n8570 LET P$(X)=W$
\n8575 LET M$(X)=X$
\n8580 LET E(X)=EX
\n8590 LET O$(X)=C$
\n8600 RETURN 
\n9000 REM 
\n9135 GOTO 9480
\n9200 FOR X=1 TO 56
\n9205 PRINT AT 0,0;X
\n9210 INPUT A(X)
\n9220 INPUT B(X)
\n9230 INPUT C(X)
\n9240 NEXT X
\n9250 STOP 
\n9480 RETURN 
\n9600 REM 
\n9610 LET D(1)=D(1)+REG
\n9620 LET D(2)=D(2)+OT
\n9630 LET D(3)=D(3)+FED
\n9640 LET D(4)=D(4)+ST
\n9650 LET D(5)=D(5)+FICA
\n9660 LET D(6)=D(6)+D1
\n9670 LET D(7)=D(7)+D2
\n9680 LET D(8)=D(8)+XIN
\n9710 LET U(1)=U(1)+REG
\n9720 LET U(2)=U(2)+OT
\n9730 LET U(3)=U(3)+FED
\n9740 LET U(4)=U(4)+ST
\n9750 LET U(5)=U(5)+FICA
\n9760 LET U(6)=U(6)+D1
\n9770 LET U(7)=U(7)+D2
\n9780 LET U(8)=U(8)+XIN
\n9810 LET L(1)=L(1)+REG
\n9820 LET L(2)=L(2)+OT
\n9830 LET L(3)=L(3)+FED
\n9840 LET L(4)=L(4)+ST
\n9850 LET L(5)=L(5)+FICA
\n9860 LET L(6)=L(6)+D1
\n9870 LET L(7)=L(7)+D2
\n9880 LET L(8)=L(8)+XIN
\n9890 RETURN