// GFA Basic for Windows version of 99 Bottles of beer (Bottles.gfw)
// Philipp Winterberg, http://www.philipp-winterberg.de

OPENW #1
b = 99
WHILE b > 0
  ? b; " bottle(s) of beer on the wall,"
  ? b; " bottle(s) of beer."
  ? "Take one down, pass it around,"
  b--
  ? b; " bottle(s) of beer on the wall."; CHR$(13,10)
WEND
KEYGET a%
CLOSEW #1
QUIT