QBASIC PROGRAM TO CONVERT METER TO KILOMETER

CLS
 INPUT ENTER DISTANCE IN METER; M
 K = M \1000
 PRINT K; KILOMETER;
 END

USING SUB

DECLARE SUB KM(M)
 CLS
 INPUT ENTER DISTANCE IN METER; M
 CALL KM(M)
 END
 
 SUB KM(M)
 K = M \1000
 PRINT K; KILOMETER;
 END SUB