99 Bottles of Beer

Voting

Bookmarking

Language KUIP

Date:	04/20/05
Author:	R.P.Hofmann
URL:	n/a
Comments:	1
Info:	n/a
Score:	(3.00 in 16 votes)

*******************************************
* KUIP version of 99 bottles of beer      *
* r.p.hofmann f15rph@ips105.desy.de       *
* http://ips105.desy.de:8765/             *
*******************************************
* about KUIP:                             *
* R.Brun, P.Zanarini                      *
* KUIP - Kit for a User Interface Package *
* Program library I202. CERN 1988         *
*******************************************

macro beer nbott=99 ndown=1

  if [ndown] > 0 goto ndok
  ndown=-[ndown]
ndok:
  if [ndown] > 1 goto mored
  alias/create pron it
  goto oned
mored:
  alias/create pron them
oned:
  if [nbott] < 1 goto end
  if [nbott] = 1 goto one
  alias/create bob 'bottles of beer'
  alias/create otw 'on the wall'
pass:
  mess [nbott] bob otw
  mess [nbott] bob
  mess take [ndown] down and pass pron all around 
  nbott=[nbott]-[ndown]
  if [nbott] <> 1 goto moreb
  mess 1 bottle of beer otw
  goto oneb
moreb:  
  mess [nbott] bob otw
oneb:
  if [ndown] = 0 goto end
  if [nbott] > 1 goto pass
  if [nbott] < 1 goto end
one:
  mess 1 bottle of beer otw
  mess 1 bottle of beer
  mess take [ndown] down and pass pron all around
  nbott=1-[ndown]
  mess [nbott] bottles of beer otw
  if [nbott] < 1 goto end
end:

Download Source | Write Comment

Alternative Versions

Comments

dgs said on 08/10/08 18:44:54

Hi! i found a lot of songs & clips here, of course if you are using rapidshare premium account http:// megauploadfiles.com

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