Voting
Category
real language
Bookmarking
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
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!
Comments