'99 bottles of beer using  a TListbox in MediaBASIC ;)
'For more info on MediaBASIC, please visit http://www.uolang.org/mediabasic

Sub Main ()

Form = Self.Create("TForm") 
Form.Caption = "[99 Bottles of Beer]"
 
ListBox = Form.Create("TListBox")
  With ListBox 
    .Parent = Form
    .Align= "alClient"
End With

For b = 99 To 1 Step -1
with Listbox.Items
      .Add (b & " bottle(s) of beer on the wall, " & b & " bottle(s) of beer.")
      .Add ("Take one down, pass it around, " & (b-1) & " bottle(s) of beer on the wall.")
      .Add ("")
End With
Next

Form.ShowModal 
Form.Free 
End Sub