QBASIC SERIES : 9,7,5,3,1

CLS
 FOR I = 9 TO 1 STEP-2
 PRINT I
 NEXT I
 END

USING SUB

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