QBASIC SERIES : 1,3,5,7,...99 OR ODD NUMBERS FROM 1 BETWEEN 100

CLS
 FOR I = 1 TO 100 STEP 2
 PRINT I,
 NEXT I
 END

USING SUB

DECLARE SUB SER()
 CLS
 CALL SER
 END
 
 SUB SER
 FOR I = 1 TO 100 STEP 2
 PRINT I,
 NEXT I
 END SUB