Microsoft Small Basic

Program Listing: GKD178
Max = 99 'Change this value if you want more or less bottles
V = "beer" 'You can also cange this value if you want
For Number = Max To 0 Step -1
If Number > 2 Then
TextWindow.WriteLine(Number+" bottles of "+V+" on the wall, "+Number+" bottles of "+V+".")
TextWindow.WriteLine("Take one down and pass it around, "+(Number - 1)+" bottles of "+V+" on the wall.")
ElseIf Number = 2 Then
TextWindow.WriteLine("2 bottles of "+V+" on the wall, 2 bottles of "+V+".")
TextWindow.WriteLine("Take one down and pass it around, 1 bottle of "+V+" on the wall.")
ElseIf Number = 1 Then
TextWindow.WriteLine("1 bottle of "+V+" on the wall, 1 bottle of "+V+".")
TextWindow.WriteLine("Take one down and pass it around, no more bottles of "+V+" on the wall.")
ElseIf Number = 0 Then
TextWindow.WriteLine("No more bottles of "+V+" on the wall, no more bottles of "+V+".")
TextWindow.WriteLine("Go to the store and buy some more, "+Max+" bottles of "+V+" on the wall.")
EndIf
EndFor