Display 9,7,5....1

DECLARE SUB SERIES( )
CLS
CALL SERIES
END

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