display 9,7,5,...1(sub)

DECLARE SUB SERIES()
CLS
CALL SERIES
END

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