QBASIC PROGRAM TO PRINT FIRST TEN ODD NUMBERS (SUB)

DECLARE SUB SERIES()
CLS
CALL SUB SERIES
END

SUB SERIES()
A=1
FOR I=1 TO 10
PRINT A
A=A+2
NEXT I
END SUB