10 ' UBasic version of 99 Bottles of beer (Bottles.bas)
20 ' Philipp Winterberg, http://www.philipp-winterberg.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