10  PRINT " LICENCE FOR UNLIMITED PRIVATE USE IS HERBY GRANTED"
12  PRINT "TO CRISIS TIMESHARE USERS. W. S. REYNOLDS"
14  PRINT "FOR COMERCIAL OR OTHER USE CONTACT W.S. REYNOLDS"
16  PRINT "MAILBOX B102"
18  PRINT 
100  REM FED WITHHOLDING DATA INPUT- 1981
110  DIM F[16],R[16],S[2,4],L[6],V[3]
120  MAT  READ F,R,S,L,V
130  DATA 14.2,18.8,35,34,40,30,53,0,24,42,43,41,42,44,53,0
150  DATA 0,15,18,21,26,30,34,39,0,15,18,21,24,28,32,37
170  DATA 1,7,14.2,100,9,15,24,100
190  DATA 5,6,10,1000,.1,.125
210  DATA .0665,29700,1975.05
220  E=1000
300  REM CALIFORNIA WITHHOLDING TAX DATA INPUT-1981
310  DIM B[20],E[3,4],C[3,4],U[3]
320  MAT  READ B,E,C,U
330  DATA 526,396,396,398,396,396,394,398,394,396
340  DATA 528,263,198,198,199,198,197,198,198,198
350  DATA 1290,5,1,10,2580,10,1,10,2580,10,11,20
360  DATA 0,32,42,10,0,32,64,10,0,32,64,10
370  DATA .006,14900,89.4
380  L=1000
400  REM FIXED DATA FOR FOR WITHHOLDING PERIODS
410  DIM P$[69]
420  P$="WEEKLYBIWEEKLYSEMIMONTHLYMONTHLYQUARTERLYSEMI-ANNUALANNUALDAILYHOURLY"
430  DIM N[9,2],P[9]
440  MAT  READ N,P
450  DATA 1,6,7,14,15,25,26,32,33,41,42,52,53,58,59,63,64,69
460  DATA 52,26,24,12,4,2,1,260,2080
500  REM MARITAL STATUS DATA INPUT
510  DIM S$[30]
520  S$="SINGLEMARRIEDHEAD OF HOUSEHOLD"
530  DIM M[3,2]
540  MAT  READ M
550  DATA 1,6,7,13,14,30
600  REM INTERACTIVE INPUT OF PERIOD CODE
610  PRINT "ENTER PAYROLL PERIOD CODE"
620  FOR X=1 TO 8
630  PRINT P$[N[X,1],N[X,2]];TAB(14);X
640  NEXT X
650  INPUT P
660  IF P>0 AND P<9 THEN 690
670  PRINT "INPUT ERROR - CODE MUST BE 1 TO 8"
680  GOTO 650
690  IF P <> 8 THEN 720
700  PRINT " ENTER NUMBER OF DAYS IN PAYROLL PERIOD"
710  INPUT D
720  IF P=8 THEN 740
730  D=1
740  PRINT " PAYROLL PERIOD SELECTED IS "[N[P,1],N[P,2]]
800  REM INTERACTIVE INPUT OF MARITAL STATUS
810  PRINT 
820  PRINT "ENTER MARITAL STATUS CODE"
830  FOR X=1 TO 3
840  PRINT S$[M[X,1],M[X,2]];TAB(20);X
850  NEXT X
860  PRINT "IF MARRIED,BUT"
862  PRINT "WANT WITHHOLDING"
864  PRINT "AT SINGLE RATES";TAB(20);1
870  INPUT S
880  IF S>0 AND S<4 THEN 910
890  PRINT "INPUT CODE MUST BE BETWEEN 1 AND 3.PLEASE REENTER"
900  GOTO 870
910  PRINT "MARITAL STATUS SELECTED IS "S$[M[S,1],M[S,2]]
1000  REM INTERACTIVE INPUT OF WITHHOLDING ALLOWANCES
1010  PRINT "ENTER NUMBER OF WITHHOLDING ALLOWANCES CLAIMED FOR FEDERAL WITHHOLDING"
1020  INPUT E1
1030  PRINT "ENTER NUMBER OF REGULAR CALIFORNIA WITHHOLDING EXEMPTIONS CLAIMED"
1040  INPUT E2
1041  E3=E1-E2
1042  IF S <> 3 THEN 1060
1044  E4=E2+1
1046  E3=E1-E4
1060  IF E3 >= 0 THEN 1090
1070  PRINT "CALIFORNIA ALLOWANCES ARE GREATER THAN FEDERAL"
1080  E3=0
1090  PRINT "NO OF CALIF ADDITIONAL ALLOWANCES USED IS";E3
1100  REM INTERACTIVE INPUT OF WAGES DATA
1110  PRINT "ENTER TOTAL EARNINGS FOR PAYROLL PERIOD"
1120  INPUT W
1121  IF W <= 0 THEN 1320
1130  W=W/D
1200  REM COMPTATION OF NET PAY
1210  GOSUB 1600
1220  GOSUB 1700
1230  GOSUB 1800
1240  GOSUB 2200
1241  D9=0
1242  IF S=1 OR W>INT(L[3]*L[4]/P[P]+.5) THEN 1260
1250  GOSUB 2600
1260  D0=D1+D2+D3+D4
1270  W0=W-D0+D9
1310  GOSUB 3000
1315  A0$="1"
1320  PRINT "PRESS RETURN TO CONTINUE"
1330  ENTER 30,B,A0$
1340  IF A0$="" THEN 600
1350  STOP 
1600  REM COMPUTATION OF FICA
1610  D1=INT(W*V[1]*100+.5)/100
1620  IF W<V[2] THEN 1640
1630  D1=V[3]
1640  RETURN 
1700  REM COMPUTATION OF SDI
1710  D2=INT(W*U[1]*100+.5)/100
1720  IF W<U[2] THEN 1740
1730  D2=U[3]
1740  RETURN 
1800  REM COMPUTATION OF TAXABLE WAGES FOR FWT
1820  IF S=3 THEN 1850
1830  S1=S
1840  GOTO 1860
1850  S1=1
1855  IF E1=0 THEN 1940
1860  P[8]=365
1870  E8=INT((E1*E)/P[P]*100)/100
1880  P[8]=260
1890  IF W<E8 THEN 1920
1900  W1=W-E8
1910  IF W1>INT(S[S1,3]*S[S1,4]/P[P]+.5) THEN 1960
1920  D3=0
1930  GOTO 2170
1940  W1=W
1950  REM COMPUTATION OF FED WHITHOLDING TAX
1960  B2=B3=B4=B5=T2=X=0
1970  FOR C=S[S1,1] TO S[S1,2]
1980  B4=B3
1990  B1=F[C]*S[S1,4]/P[P]
2000  B5=B5+B1
2010  IF W1<B5 THEN 2110
2020  B2=B2+B1
2030  B3=INT(B2+.5)
2040  IF P <> 8 THEN 2060
2050  B3=INT(B2*10+.5)/10
2060  T1=(B3-B4)*R[C]/100
2070  T2=T2+T1
2080  IF P <> 8 THEN 2100
2090  T2=INT(T2*100+.5)/100
2100  X=X+1
2110  NEXT C
2120  X=X+1
2130  IF S=1 THEN 2150
2140  X=X+8
2150  T3=INT((W1-B3)*R[X]+.5)/100
2160  D3=(T2+T3)*D
2170  RETURN 
2200  REM COMPUTATION OF CALIFORNIA WITHHOLDING TAXABLE WAGES
2214  S2=1
2216  IF S=2 AND E2<2 THEN 2220
2218  S2=S
2220  IF W<INT((L*E[S2,2])/P[P]+.5) THEN 2270
2230  E8=INT((E3*E)/P[P]+.5)
2240  E9=INT(E[S2,1]/P[P]+.5)
2250  W1=W-(E8+E9)
2260  IF W1>0 THEN 2300
2270  D4=0
2280  GOTO 2550
2300  REM COMPUTATATION OF CALIFORNIA WITHHOLDING TAX
2310  B2=B3=B4=C=R=T2=T3=0
2320  FOR C=E[S,3] TO E[S,4]
2330  B1=B[C]*E[S,2]
2340  B4=B3+INT(B1/P[P]+.5)
2350  IF W1<B4 THEN 2420
2360  B2=B2+B1
2370  B3=INT(B2/P[P]+.5)
2380  R=R+1
2390  T1=B1*R/100
2400  T2=T2+T1
2410  T3=INT((T2/P[P])*10+.5)/10
2420  NEXT C
2430  T4=INT((W1-B3)*(R+1))/100
2450  REM COMPUTATION OF CALIFORNIA TAX CREDIT
2460  C=0
2470  IF E2=0 THEN 2530
2480  C=C[1,2]
2490  IF E2=1 THEN 2530
2500  C=C[1,2]+((E2-1)*C[1,4])
2510  IF S=1 THEN 2530
2520  C=C[2,3]+((E2-2)*C[1,4])
2530  C3=INT(C/P[P]*10+.5)/10
2540  D4=T3+T4-C3
2550  RETURN 
2600  REM COMPUTATION OF ADVANCED PAYMENT OF E.I.C
2610  DIM Q$[6]
2620  PRINT "IS A FORM W-5 ON FILE WITH EMPLOYER? ENTER YES 0R N0"
2630  INPUT Q$[1,3]
2640  IF Q$ <> "YES" THEN 2840
2650  L1=INT(L[1]*L[4]/P[P]+.5)
2660  L2=INT(L[2]*L[4]/P[P]+.5)
2680  L4=INT(500/P[P]+.5)
2700  C1=W*L[5]
2710  IF W<L1 THEN 2750
2720  C1=L4
2730  IF W<L2 THEN 2750
2740  C1=L4-((W-L2)*L[6])
2750  IF S <> 2 THEN 2810
2760  PRINT "DO BOTH SPOUSES HAVE FORM W-5 ON FILE WITH EMPLYER/"
2770  PRINT "ENTER YES OR NO"
2780  INPUT Q$[4,6]
2790  IF Q$[4,6] <> "YES" THEN 2810
2800  C1=C1/2
2810  C2=INT(C1*100+.5)/100
2820  D9=C2
2830  GOTO 2850
2840  D9=0
2850  RETURN 
3000  REM NETPAY OUTPUT
3005  PRINT 
3010  PRINT "GROSS EARNINGS";
3012  PRINT "  FICA  ";
3014  PRINT "   SDI";
3016  PRINT "      FWT  ";
3018  PRINT "     SWT  ";
3020  PRINT "    NET PAY"
3022  PRINT 
3110  PRINT  USING "#,3X,6D.2D,3X";W
3112  PRINT  USING "#,4D.2D,X";D1
3114  PRINT  USING "#,X,2D.2D,X";D2
3116  PRINT  USING "#,X,6D.2D,X";D3
3118  PRINT  USING "#,X,5D.2D,X";D4
3120  PRINT  USING "#,X,6D.2D,X";W0
3122  PRINT 
3124  PRINT 
3190  IF D9=0 THEN 3220
3200  PRINT "THEN AMOUNT OF ";D9;"HAS BEEN ADDED TO NET PAY";
3210  PRINT "AS ADVANCED EARNED INCOME CREDIT"
3220  RETURN 
4000  END 
