' D++ version of 99 Bottles of beer (Bottles.dpp)
' Philipp Winterberg, http://www.philipp-winterberg.de

title "99 Bottles of Beer";
newvar b = 99;

do until b = 0;
  screenput b & " bottle(s) of beer on the wall,"; screen;
  screenput b & " bottle(s) of beer."; screen;
  screenput "Take one down, pass it around,"; screen;
  b--;
  screenput b & " bottle(s) of beer on the wall."; screen; screen;
  doevents;
loop