99 Bottles of Beer

Voting

Bookmarking

Language AS

Date:	04/20/05
Author:	Juergen Buechner
URL:	n/a
Comments:	0
Info:	n/a
Score:	(1.25 in 4 votes)

/************************************************/
/* AS-Version of 99 bottles of beer on the wall */
/* by Juergen Buechner http://www.jbuechner.de/ */
/* created 2002-09-10 06:17 in the morning      */
/************************************************/
RTN BEER(§in,§out)
  §out = CONCAT(CHAR(§in,'<&&&'),' bottle')
  IF §in > 1
    §out =CC(§out,'s')
  IF END
  §out = CC(§out,' of beer')
RTN END
/*
IN  didummy
OUT *
WHEN §START
  DEF Ünrz(N03)
  DEF Ütebeer(A80)
  DO Ünrz=100:1<-1>
    CALL BEER(Ünrz,Ütebeer)
    PRINT CC(Ütebeer,' on the wall,')
    PRINT CC(Ütebeer,'.')
    PRINT 'Take one down and pass it around,'
    CALL BEER(Ünrz-1,Ütebeer)
    PRINT CC(Ütebeer,' on the wall.')
  NEXT
RUN

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