QBASIC PROGRAM TO CALCULATE NET SALES

 CLS
 INPUT “ENTER SALES AMOUNT”; A
 INPUT “ENTER COMMISSION RATE”; R
 C = R / 100 * A
 NS = A - C
 PRINT “NET SALES=”; NS
 END

USING SUB

DECLARE SUB NET(A,R)
 CLS
 INPUT “ENTER SALES AMOUNT”; A
 INPUT “ENTER COMMISSION RATE”; R
 CALL NET(A,R)
 END
 
 SUB NET(A,R)
 C = R / 100 * A
 NS = A - C
 PRINT “NET SALES=”; NS
 END SUB