1 REM PAYNET  
5 CLEAR  1000  
10 CLS  
20 PRINT :PRINT "GROSS PAY NEEDED FOR GIVEN NET":PRINT   
30 PRINT "THIS PROGRAM WILL COMPUTE THE AMOUNT OF GROSS PAY A WORKER  
40 PRINT "NEEDS IN ORDER TO EARN A GIVEN NET."  
45 PRINT "NECESSARY INPUTS ARE NET DESIRED,FEDERAL INCOME TAX %, STATE    TAX %, LOCAL TAX % AND ANY FIXED DOLLAR AMOUNT DEDUCTIONS.  
47 PRINT "FICA % DEDUCTION IS ALSO NEEDED"  
50 PRINT :PRINT "ALL TAXES ARE PERCENTAGES OF GROSS PAY"  
90 PRINT :INPUT "PRESS ENTER TO BEGIN";Z9$  
200 CLS  
210 INPUT "ENTER NET PAY AMOUNT DESIRED   ";NP  
220 INPUT "ENTER FEDERAL WITHHOLDING TAX %";F:F=F/100  
230 INPUT "ENTER STATE WITHHOLDING TAX %";S:S=S/100  
240 INPUT "ENTER LOCAL WITHHOLDING TAX %";L:L=L/100  
250 INPUT "ENTER FICA WITHHOLDING %     ";FICA:FICA=FICA/100  
260 INPUT "ENTER DOLLAR AMOUNT FOR ANY FIXED WITHHOLDING";EXTRA  
270 P=F+S+L+FICA  
280 GROSS = (NP+EXTRA)/(1-P)  
290 PRINT   
295 PRINT USING  "GROSS PAY NEEDED IS $$#####.##";GROSS  
300 PRINT :INPUT "PRESS ENTER TO CONTINUE";Z9$  
305 IF Z9$ = "-1" THEN END
310 GOTO  200  
