rem ASIC version of 99 Bottles of beer (Bottles.asi)
rem Philipp Winterberg, http://www.philipp-winterberg.de

cls
b = 99
bottles:
  print b;
  print " bottle(s) of beer on the wall,"
  print b;
  print " bottle(s) of beer."
  print "Take one down, pass it around,"
  b = b - 1
  print b;
  print " bottle(s) of beer on the wall."
  print
if B>0 then bottles:
end