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 AS

Date:04/20/05
Author:Juergen Buechner
URL:n/a
Comments:0
Info:n/a
Score: (2.17 in 6 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!

Name:

eMail:

URL:

Security Code:
  
Comment: