bottle of beer (just for fun)

[Lionheart008]

[code=thinbasic]' Empty GUI script created on 04-08-2010 19:00:36 beery (ThinAIR)

Uses "console"
Dim beer As Long

For beer = 99 to 1 step -1
Printl str$(beer) + " bottle(s) of beer on the wall,"
Printl str$(beer) + " bottle(s) of beer."
Printl "Take one down, pass it around,"
Printl str$(beer-1) + " bottle(s) of beer on the wall."
Printl " "
Next beer
MsgBox 0, "cheers!"
WaitKey[/code]

[Michael Hartlef]

Yeah, that is nice. But I miss the tune to it.

[Jophur]

Classic!

And maybe a first start presenting ThinBasic at RosettaCode?

[christianssen]

good idea, I have to grin

my version: if you are drunken there are more than one bottle you can see. I am a pure antialcoholic fan, it's seldom for youth, but that's true! and take attention: don't drive drunken if you are coming from party or girl friend, don't forget!

[code=thinbasic]' Empty GUI script created on 04-08-2010 19:00:36 beery (ThinAIR)

Uses "console"
Dim beer As Long

For beer = 99 to 1 step -1
PrintL Str$(beer) + " bottle(s) of beer on the wall,"
PrintL Str$(beer*2) + " however you can see in drunken mood bottle(s) of beer."
Printl "Take one down, pass it around,"
PrintL Str$(beer-1) + " bottle(s) of beer on the wall."
Printl " "
Next beer
MsgBox 0, "cheers!"
WaitKey[/code]

denis