QBASIC PROGRAM TO CONVERT METER INTO INCH

REM PROGRAM TO CONVERT VALUE IN METER TO INCH
 CLS
 INPUT”ENTER VALUE IN METER”; M
 I = M * 39.37
 PRINT “VALUE IN INCH=”; I
 END

USING SUB

DECLARE SUB MINCH(M)
 CLS
 INPUT”ENTER VALUE IN METER”; M
 CALL MINCH(M)
 END
 
 SUB MINCH(M)
 I = M * 39.37
 PRINT “VALUE IN INCH=”; I
 END SUB