Yeah, that is nice. But I miss the tune to it.
[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]
you can't always get what you want, but if you try sometimes you might find, you get what you need
Yeah, that is nice. But I miss the tune to it.
Classic!
And maybe a first start presenting ThinBasic at RosettaCode?
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
Bookmarks