QBASIC PROGRAM TO FIND AREA OF SQUARE

 CLS
 INPUT “ENTER LENGTH”; L
 A = L ^ 2
 PRINT “AREA OF SQUARE ”; A
 END

USING SUB

DECLARE SUB AREA(L)
 CLS
 INPUT “ENTER LENGTH”; L
 CALL AREA(L)
 END
 
 SUB AREA(L)
 A = L ^ 2
 PRINT “AREA OF SQUARE ”; A
 END SUB