Net Pay

Gallery

Source Code

   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