' XBasic version of 99 Bottles of beer (Bottles.x)
' Philipp Winterberg, http://www.philipp-winterberg.de 
'
PROGRAM "99 Bottles of beer"
VERSION "1.0"
DECLARE FUNCTION  Bottles ()
FUNCTION  Bottles ()
FOR b = 99 TO 1 STEP -1
  PRINT b; " bottle(s) of beer on the wall,"
  PRINT b; " bottle(s) of beer."
  PRINT "Take one down, pass it around,"
  PRINT b-1; " bottle(s) of beer on the wall."
  PRINT " "
NEXT b
END FUNCTION
END PROGRAM