99 Bottles of Beer

Voting

Bookmarking

Language MPE/iX Command Interpreter Script

(there are no others in this language)

Date:	12/19/06
Author:	Barry Lake
URL:	http://www.allegro.com
Comments:	1
Info:	http://www.3k.com/
Score:	(3.00 in 1 votes)

# MPE/iX Command Interpreter script to generate
# the "99 Bottles of Beer" song lyrics.
# By Barry Lake, 16 November 1999
#
setvar bottles 100
setvar s "s"
setvar one "one"
setvar oneless "!![bottles-1]"
while setvar(bottles,bottles-1) > 0
   echo !bottles bottle!s of beer on the wall, !bottles bottle!s of beer,
   if bottles = 2
      setvar s ""
   elseif bottles = 1
      setvar s "s"
      setvar one "it"
      setvar oneless "no more"
   endif
   echo Take !one down, pass it around, !oneless bottle!s of beer on the wall.
   echo
endwhile

Download Source | Write Comment

Alternative Versions

Comments

PearlieHess said on 06/16/10 23:59:51

Do you understand that it is correct time to get the <a href="http://lowest-rate-loans.com/topics/business-loans">business loans</a>, which can make your dreams come true.

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