10 rem Bywater Basic version of 99 Bottles of beer (Bottles.bas) 15 rem See http://www.programmersheaven.com/zone6/cat700/15918.htm 20 rem Philipp Winterberg, http://www.winterbergs.de 30 40 for b=99 to 1 step -1 50 print str$(b) + " bottle(s) of beer on the wall," 60 print str$(b) + " bottle(s) of beer." 70 print "Take one down, pass it around," 80 print str$(b-1) + " bottle(s) of beer on the wall." + chr$(13) + chr$(10) 90 next b 99 end