QBasic Programming

CLS
INPUT “ENTER ANY NUMBER”; N
FOR I = 1 TO 10
PRINT N * I,
NEXT I
END

DECLARE SUB SERIES ( N)
CLS
INPUT “ENTER ANY NUMBER”; N
CALL SERIES (N)
END

SUB SERIES (N)
FOR I = 1 TO 10
PRINT N * I,
NEXT I
END SUB