Source code in the rexx programming language

  do j=10  to 0  by -1
  say j
  end

  do j=10  by -1  to 0
  say j
  end

  do j=10  by -2  to 0
  say j
  j=j+1     /*this increments the  DO  index.   Do NOT program like this! */
  end

  do j=30  to 1  by -.25
  say j
  end