' O'Basic version of 99 Bottles of beer (Bottles.cod)
' See http://www.obasic.com/
' Philipp Winterberg, http://www.winterbergs.de

a$ = " bottle(s) of beer"
c$ = a$ + " on the wall"
for b# = 1 to 99
  print str(100 - b#, 2) + c$ + ","^J"^M"
  print str(100 - b#, 2) + a$ + "."^J"^M"
  print "Take one down, pass it around,"^J"^M"
  print str(99 - b#, 2) + c$ + "."^J"^M"^J"^M"
endfor