Voting

Category

real language

Bookmarking

Del.icio.us Digg Diigo DZone Earthlink Google Kick.ie
Windows Live LookLater Ma.gnolia Reddit Rojo StumbleUpon Technorati

Language FBSL

(Scripting language)

Date:07/06/05
Author:Cpilot
URL:http://www.outcastprogramming.com/
Comments:0
Info:http://forum.fbsl.net/index.php
Score: (3.00 in 34 votes)
option explicit
#dlldeclare kernel32("Sleep") 
dim %beer
beer = 99
'*99 bottles of beer on the wall*
'*FBSL Scripting Language       *
'*http://forum.fbsl.net/        *

While beer > 0
?
	?beer & " bottles of beer on the wall "_
				& beer & " bottles of beer"

	beer = beer - 1

			?"Take one down and pass it around "_
				& beer & " bottles of beer on the wall"

		Sleep(300)
	cls

		If beer = 0 then

?"No more bottle of beer on the wall. No more bottles of beer..."
?"Go to the store and buy some more...99 bottles of beer."

end if

wend
?
pause

Download Source | Write Comment

Alternative Versions

VersionAuthorDateCommentsRate
1Gerome GUILLEMIN08/02/051

Comments

Download Source | Write Comment

Add Comment

Please provide a value for the fields Name, Comment and Security Code.
This is a gravatar-friendly website.
E-mail addresses will never be shown.
Enter your e-mail address to use your gravatar.

Please don't post large portions of code here! Use the form to submit new examples or updates instead!

Name:

eMail:

URL:

Security Code:
  
Comment: