Content
Image Gallery
Net Pay
5 REM NETPAY
8 PRINT TAB (5);"NET PAY CALCULATION"
9 PRINT
10 PRINT "ENTER RQD NET PAY"
20 INPUT N
21 PRINT N
30 PRINT "EFFECTIVE TAX RATE"
40 INPUT T
41 PRINT T
45 IF T<1 THEN GOTO 60
50 LET T=T/100
60 PRINT "ENTER OTHER DEDUCTIONS"
70 INPUT D
71 PRINT D
80 LET G=INT ((N+D)/(1.0-T)+.5)
90 PRINT "REQUIRED GROSS PAY=$ ";G
100 STOP
110 SAVE "1011%6"
120 LIST
People
No people associated with this content.