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 uc4-script

Date:03/05/08
Author:Klaus Geigenberger
URL:n/a
Comments:0
Info:http://www.uc4.com/en/
Score: (2.92 in 12 votes)
!bottles of beer in uc4-script
!by Klaus Geigenberger - Bayreuth, Germany in March 2008

:SET &s#="s"
:SET &i#=FORMAT("99")

:WHILE &i# <> "no"
:      PRINT "&i# bottle&s# of beer standing on the wall, &i# bottle&s# of beer."
:      SET &i# = SUB(&i#,1)
:      SET &i# = FORMAT(&i#)
:      IF &i# = 1
:       SET &s# = ""
:      ENDIF
:      IF &i# = 0
:       SET &i# = "no"
:       SET &s# = "s"
:      ENDIF
:      PRINT "Take one down and pass it around, &i# bottle&s# of beer on the wall."
:      PRINT " "
:ENDWHILE

:PRINT "No more bottles of beer standing on the wall, no more bottles of beer."
:PRINT "Go to the store and buy 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!

Name:

eMail:

URL:

Security Code:
  
Comment: