QBASIC PROGRAM TO PRINT MULTICATION TABLE OF A NUMBER

CLS
 INPUT ENTER ANY NUMBER; N
 FOR I = 1 TO 10
 PRINT N;" X"; I;" ="; N * I
 NEXT I
 END

USING SUB

DECLARE SUB TABLE(N)
 CLS
 INPUT ENTER ANY NUMBER; N
 CALL TABLE(N)
 END
 
 SUB TABLE(N)
 FOR I = 1 TO 10
 PRINT N;" X"; I;" ="; N * I
 NEXT I
 END SUB