Voting
Category
real language
Bookmarking
Language REXX
(Recursive Method)
| Date: | 11/26/09 |
| Author: | Laurent KUPERBERG |
| URL: | http://halcom.fr |
| Comments: | 0 |
| Info: | http://publibz.boulder.ibm.com/epubs/pdf/ikj4a370.pdf |
| Score: |  (2.93 in 30 votes) |
/* REXX VERSION OF THE BOTTLES PROGRAM */
/* BY L Kuperberg laurent.kuperberg@halcom.fr */
i = 99
Call Chante
SAY 'TAKE ONE DOWN, PASS IT AROUND, NO MORE BOTTLES ',
'OF BEER ON THE WALL'
SAY ' '
SAY 'NO MORE BOTTLES OF BEER ON THE WALL, NO MORE BOTTLES OF BEER'
SAY 'GO TO THE STORE AND BUY SOME MORE' ,
'99 BOTTLES OF BEER ON THE WALL. '
Return
CHANTE:
SAY I BOTTLES 'OF BEER ON THE WALL, ' BOTTLES 'OF BEER'
i = i - 1
select
when i = 0 then RETURN
when i = 1 then BOTTLES = BOTTLE
otherwise
nop
end
SAY 'TAKE ONE DOWN, PASS IT AROUND,' I BOTTLES 'OF BEER ON THE WALL'
SAY ' '
CALL CHANTE
Return
Download Source | Write Comment
Alternative Versions
| Version | Author | Date | Comments | Rate |
|---|---|---|---|---|
| now w/ "xx bottles of beer on the wall" | R. Mark Enright | 10/23/08 | 0 | |
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