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