Voting
Category
real language
Bookmarking
Language Mumps
| Date: | 04/20/05 |
| Author: | Brian Buydens |
| URL: | n/a |
| Comments: | 0 |
| Info: | n/a |
| Score: |  (2.18 in 11 votes) |
BEER ; 99 bottles of beer song written in mumps (Brian Buydens) N STR,I,BOT S STR="bottle^bottles^of beer^on the wall^Take one down and pass it around" F I=99:-1:1 D . S BOT=$P(STR,"^",2) I I=1 S BOT=$P(STR,"^",1) . W !,!,I_" "_BOT_" "_$P(STR,"^",3)_" "_$P(STR,"^",4)_"." . W !,I_" "_BOT_" "_$P(STR,"^",3)_"." . W !,$P(STR,"^",5)_", " . S BOT=$P(STR,"^",2) I I=2 S BOT=$P(STR,"^",1) . I I>1 W !,(I-1)_" "_BOT_" "_$P(STR,"^",3)_" "_$P(STR,"^",4)_"." . I I=1 W !,"No more bottles of beer on the wall."
Download Source | Write Comment
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