99 Bottles of Beer

Voting

Bookmarking

Language Draft Code Generator

Date:	04/20/05
Author:	Anonymous
URL:	n/a
Comments:	0
Info:	http://www.simtel.net/product.php?id=37145&sekid=0&SiteID=simtel.net
Score:	(2.50 in 2 votes)

"99 Bottles" done by Draft Code Generator.
http://www.simtel.net/product.php?id=37145&sekid=0&SiteID=simtel.net


$[OUTPUT "99.TXT"]$
$[BotCnt = 99]$
$[PROCEDURE SingPart(BC)]$
	$[IF BC <> 1 THEN]$
		$[Container = "bottles"]$
	$[ELSE]$
		$[Container = "bottle"]$
	$[ENDIF]$
	$[IF BC > 1 THEN]$
		$[What = "one"]$
	$[ELSE]$
		$[What = "it"]$
	$[ENDIF]$
	$[BC]$ $[Container]$ of beer on the wall,
	$[BC]$ $[Container]$ of beer.
	Take $[What]$ down, and pass it around,
	$[BC = BC - 1]$
	$[IF BC <> 1 THEN]$
		$[Container = "bottles"]$
	$[ELSE]$
		$[Container = "bottle"]$
	$[ENDIF]$
	$[IF BC = 0 THEN]$
		$[BC = "No"]$
	$[ENDIF]$
	$[BC]$ $[Container]$ of beer on the wall.

$[ENDPROCEDURE]$

$[WHILE BotCnt > 0]$
	$[SingPart(BotCnt)]$
	$[BotCnt = BotCnt-1]$
$[ENDWHILE]$
	No bottles of beer on the wall,
	No bottles of beer.
	Go to the Store, and get some more.
	99 bottles of beer on the wall.

Download Source | Write Comment

Alternative Versions

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!

one program in 1500 variations