/* Progress 4GL version of 99 Bottles of Beer.
 * programmer: Rich Uchytil  rich@cray.com
 * 10/30/95
 */

def var i as int no-undo format "z9".

do i = 99 to 1 by -1:
  disp i "bottles of beer on the wall," skip
       i @ x as int format "z9" "bottles of beer" skip
       "Take one down and pass it around," skip
       i - 1 format "z9" "bottles of beer on the wall."
  with no-labels no-box no-attr 1 down.
  pause 1 no-message.  /* needed otherwise it would run too fast */
end.