99 Bottles of Beer

Voting

Bookmarking

Language ABC

Date:	04/20/05
Author:	Whitey
URL:	n/a
Comments:	0
Info:	n/a
Score:	(3.07 in 14 votes)

<a href=http://www.cwi.nl/cwi/projects/abc.html>ABC</a> was developed 
at CWI in the Netherlands. 
PUT "by Whitey (whitey@netcom.com) - 10/13/96" IN author

HOW TO RETURN verse n:
   SELECT:
      n = 0:
         PUT "no more bottles of beer" IN s
      n = 1:
         PUT "1 bottle of beer" IN s
      ELSE:
         PUT "`n` bottles of beer" IN s
   RETURN s

HOW TO DRINK:
   PUT 99 IN num
   WHILE num > 0:
      WRITE verse num, " on the wall, ", verse num, "," /
      WRITE "take one down, pass it around," /
      PUT num - 1 IN num
      WRITE verse num, " on the wall." /

DRINK

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 1216 variations