REM IBasic version of 99 Bottles of beer (Bottles.iba)
REM Philipp Winterberg, http://www.philipp-winterberg.de 

OPENCONSOLE
FOR B = 99 TO 1 #-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." + chr$(13) + chr$(10)
NEXT B 
INPUT B
CLOSECONSOLE