REM 99 Bottles of Beer on the wall
REM John Fredrickson, Washington DC, jafred@BellAtlantic.net
REM JustBasic http://www.justbasic.com is a subset of
REM LibertyBasic http://www.LibertyBasic.com
Bottles = 99
While Bottles >= 1
  if Bottles > 1 then
    Print Bottles; " bottles of beer on the wall,"
    Print Bottles; " bottles of beer."
    Print "Take one down and pass it around,"
  else
    Print Bottles; " bottle of beer on the wall,"
    Print Bottles; " bottle of beer."
    Print "Take it down and pass it around,"
  end if
  Bottles = Bottles - 1
  Select Case Bottles
    Case 1
      Print "A single bottle of beer on the wall."
    Case 0
      Print "No more bottles of beer on the wall."
    Case Else
      Print Bottles; " bottles of beer on the wall."
    End Select
  Print
Wend
End