Diaplay 9,7,5..1th terms using sub

Display 9,7,5....1th terms

DECLARE SUB SERIES()
CLS
CALL SERIES
END

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