PROGRAM "downwardfor"

DECLARE FUNCTION Entry()

FUNCTION Entry()
  FOR i% = 10 TO 0 STEP -1
    PRINT i%
  NEXT i%
END FUNCTION
END PROGRAM