My journey with JM

QBASIC PROGRAM TO FIND 9,7,5...1 USING SUB.

DECLARE SUB SERIES()
CLS
CALL SERIES
END

SUB SERIES()
FOR I= 9 TO 1
PRINT I
NEXT I
END SUB