bottle of beer (just for fun)

[Lionheart008]

:)


' 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

[Michael Hartlef]

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

[Jophur]

Classic! :unguee:

And maybe a first start presenting ThinBasic at RosettaCode (http://rosettacode.org/wiki/99_Bottles_of_Beer)?

[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! ;)


' 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

denis