* Tokiwa version of 99 Bottles of beer (Bottles.bas)
* Philipp Winterberg, http://www.philipp-winterberg.de

call bottles(1," bottle(s) of beer"," on the wall")

subroutine bottles(b,a$,c$)
  integer b
  if b<100 then
    call bottles(b+1,a$,c$)
    print b; a$; c$; ","
    print b; a$; "."
    print "Take one down, pass it around,"
    print b-1; a$; c$; "."; chr$(13); chr$(10)
  endif
  return
subend
end