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