'===========================================================================
' Subject: Commission Calculation             Date: 03-16-03 (  :  )       
'  Author: kaland white                       Code: Qbasic, QB, PDS        
'  Origin: Kalandwhite1@aol.com             Packet: MISC.ABC
'===========================================================================
REM Sales.bas
REM Determining a Salesperson's Commission
REM ******************************************
REM Clear Screen
CLS
REM Request Data from Operator
INPUT "Commission rate ===========> ", Rate
INPUT "Week 1 sales ==============> ", Week1
INPUT "Week 2 sales ==============> ", Week2 
INPUT "Week 3 sales ==============> ", Week3
INPUT "Week 4 sales ==============> ", Week4
INPUT "Week 5 sales ==============> ", Week5
INPUT "Week 6 sales ==============> ", Week6
INPUT "Return Sales ==============> ", Returns
REM Calculate the Earned Commission
Commission = Rate * ( Week1 + Week2 + Week3 + Week4 + Week5 + Week6 - Returns)
REM Display the Earned Commission
PRINT
PRINT "Earned commission ===>"; Commission
END