1 CLS
PRINT "AREA FINDER PROTOTYPE PROGRAMMED IN QBASIC. BY NAMAN SAIKIA. ONLY ACCEPTS SQUARE, RECTANGLE, RHOMBUS, PARALLELOGRAM "
INPUT "ENTER SHAPE"; S$
IF S$ = "SQUARE" THEN
INPUT "ENTER LENGTH OF 1 SIDE"; S
AR = S * S 'Code of processing the area of square
PRINT AR; " sq.unit "
ELSEIF S$ = "RECTANGLE" THEN
INPUT "ENTER LENGTH"; L
INPUT "ENTER BREADTH"; B
AR1 = L * B 'Code of processing the area of rectangle
PRINT "sq.unit"; AR1
ELSEIF S$ = "PARALLELOGRAM" THEN
INPUT "ENTER LENGTH"; L1
INPUT "ENTER WIDTH"; B1
AR2 = L1 * B1 'Code of processing the are of parallelogram also aplicable in rectangle
PRINT "sq.unit "; AR2
ELSEIF S$ = "RHOMBUS" THEN
INPUT "ENTER LENGTH OF 1 SIDE"; S1
AR3 = S1 * S1 'Code of processing the area of Rhombus also aplicable for square
PRINT "sq.unit"; AR3
ELSE
PRINT "SORRY CANNOT ACCEPT THE SHAPE. NOT PROGRAMMMED IN SUCH A WAY AS MENTIONED ABOVE" 'Restricted work. viewers cannot view the area of other shapes other than square, rectangle, parallelogram, rhombus
END IF
INPUT "AGAIN(Y/N)"; K$
IF K$ = "Y" GOTO 1
END