// GFA Basic version of 99 Bottles of beer (Bottles.gfa)
// Philipp Winterberg, http://www.philipp-winterberg.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