10 ' UBasic version of 99 Bottles of beer (Bottles.bas) 15 ' See http://www.thefreecountry.com/developercity/basic.shtml 20 ' Philipp Winterberg, http://www.winterbergs.de 30 40 for b=99 to 1 step -1 50 ? b, " bottle(s) of beer on the wall," 60 ? b, " bottle(s) of beer." 70 ? "Take one down, pass it around," 80 ? b-1, " bottle(s) of beer on the wall." 90 ? 99 next