Language CMS Pipelines
(without plumbing)
| Date: | 07/01/05 |
| Author: | Karl Schimanko |
| URL: | n/a |
| Comments: | 0 |
| Info: | http://www.vm.ibm.com/pipelines/ |
| Score: |
/*This example is intended to run as an REXX exec
and therefore enclosed in quotes.
The last verse is in correct grammar :)*/
'PIPE literal bottles of beer!',
'dup 99!',
'spec recno from 0 1 1-* nw!',
'change / 0 bottles/ No more bottles/!',
'change / 1 bottles/ 1 bottle/!',
'strip!',
'instore reverse!',
'outstore!',
'spec /Take one down and pass it around,/ 1 ',
'1-* nw /on the wall./ nw write write ',
'1-* 1 /on the wall,/ nw 1-* nw /./ n!',
'change 3.2 /b/B/!',
'change 14.4 /es o/e o/!',
'change 50-* /er./er.../!',
'change /, N/, n/!',
'drop 2!',
'append literal Go to the store and buy some more...',
'99 bottles of beer.!',
'cons'
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