QBasic Programming

REM PROGRAM TO DISPLAY AREA AND PERIMETER OF SQUARE
CLS
INPUT “ENTER LENGTH”; L
A= L ^ 2
P = 4 * L
PRINT “AREA OF SQUARE “; A
PRINT “PERIMETER OF SQUARE ”; P
END

USING SUB PROCEDURE

DECLARE SUB AREA (L)
DECLARE SUB PERIMETER (L)
CLS
INPUT “ENTER LENGTH”; L
CALL AREA (L)
CALL PERIMETER(L)
END

SUB AREA (L)
A = L ^ 2
PRINT “AREA OF SQUARE”; A
END SUB

SUB PERIMETER (L)
P = 4 * L
PRINT “PERIMETER OF SQUARE ”; P
END SUB

USING FUNCTION PROCEDURE

DECLARE FUNCTION AREA (L)
DECLARE FUNCTION PERIMETER (L)
CLS
INPUT “ENTER LENGTH”; L
PRINT “AREA OF SQUARE ”; AREA(L)
PRINT “PERIMETER OF RECTANGLE ”; PERIMETER(L)
END

FUNCTION AREA (L)
AREA = L ^ 2
END FUNCTION

FUNCTION PERIMETER (L)
PERIMETER =  4 * L
END FUNCTION