10 CLS
20 PRINT "FEDERAL WITHOLDING TAXES"
30 PRINT
40 DATA 15,1420,18,3300,21,6800,26,10200,30,14200,34,17200,39,22500
50 DATA 15,2400,18,6600,21,10900,24,15000,28,19200,32,23600,37,28900
60 F1=.0613
70 F2=22900
80 W1=1000
90 N=12 
100 DIM F1(28)
110 FOR I=1 TO 28 
120 READ F1(I) 
130 NEXT I 
140 PRINT 
150 PRINT "MARITAL STATUS (1=SINGLE, 2=mARRIED)";
160 INPUT S 
170 PRINT "WITHHOLDING TAX EXEMPTIONS"; 
180 INPUT W 
190 PRINT "TAXABLE PAY"; 
200 INPUT P 
210 PRINT "YTd TAXABLE PAY"; 
220 INPUT Y 
230 G=P*N-W1*W
240 T1=0 
250 FOR I=2 TO 7 
260 X=2*I+14*(S-1)-1
270 IF G<=F1(X-1) THEN 340  
280 IF G>F1(X+1) THEN 310  
290 T1=T1+(G-F1(X-1))*F1(X-2)/100
300 GOTO 340  
310 T1=T1+(F1(X+1)-F1(X-1))*F1(X-2)/100
320 NEXT I 
330 T1=T1+(G-F1(X+1))*F1(X)/100
340 T1=INT((T1/N)*100+.5)/100
350 T2=0 
360 IF Y>F2 THEN 410  
370 IF Y+P>F2  THEN 400  
380 T2=INT((P*F1)*100+.5)/100 
390 GOTO 410  
400 T2=INT(((F2-Y)*F1)*100+.5)/100 
410 PRINT "TAXABLE = $";P 
420 PRINT "INCOME TAX = $";T1 
430 PRINT "FICA = $";T2
440 PRINT 
450 PRINT "MORE DATA (1=YES, 0=NO)"; 
460 INPUT S 
470 IF S=1 THEN 140  
480 END