QBasic Programming

REM CALCULATE TOTAL SAVINGS OF A MAN
CLS
LET S = 10000
F = 20 / 100 * S
C = 15 / 100 * S
E = 10 / 100 * S
R = 20 / 100 * S
T = S – (F + C + E + R)
PRINT “ TOTAL SAVING =”; T
END
USING SUB PROCEDURE
DECLARE SUB SAVING ( S)
COMMON SHARED F, C, E, R
CLS
F = 20 / 100 * S
C = 15 / 100 * S
E = 10 / 100 * S
R = 20 / 100 * S
CALL SAVING(S)
END
SUB SAVING(10000 )
T = S – (F + C + E + R)
PRINT “ TOTAL SAVING =”; T
END SUB
USING FUNCTION PROCEDURE
DECLARE FUNCTION SAVING ( S)
COMMON SHARED F, C, E, R
CLS
LET S = 10000
F = 20 / 100 * S : C = 15 / 100 * S
E = 10 / 100 * S
R = 20 / 100 * S
PRINT SAVING(S)
END
FUNCTION SAVING( S)
T = S – (F + C + E + R)
SAVING = T
 END FUNCTION