// GFA Basic version of 99 Bottles of beer (Bottles.gfa)
// See http://www.baphead.freeserve.co.uk/download.html
// Philipp Winterberg, http://www.winterbergs.de

SCREEN 18
CLS
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."
  ?
WEND