Voting
Category
real language
Bookmarking
Language AOS/VS (32bit CLI)
| Date: | 04/20/05 |
| Author: | Robert de Mander |
| URL: | n/a |
| Comments: | 0 |
| Info: | n/a |
| Score: |  (2.80 in 98 votes) |
\\ Data General AOS/VS 32-bit CLI
\\ 99 Bottles of Beer
\\ by Robert de Mander, Robdem Soft AB, Stockholm, Sweden (www.robdemsoft.se)
\\
\\ If you wonder about the [!ascii 254] it's really a comma with the parity
\\ bit set, and write/7bit strips it away. The ordinary comma is there to
\\ get a space(sic!) after the parity bit comma. Weird, but true!
push
prompt pop
var0 99
[!loopstart [!var0]]
string [!var0] bottle[!une,[!var0],1]s[!end]
write/nonewline/7bit [!string] of beer on the wall[!ascii 254],
write [!string] of beer.
write/nonewline/7bit Take one down and pass it around[!ascii 254],
var0 [!usub,[!var0],1]
string [!ueq,[!var0],0]no more[!else][!var0][!end]
bottle[!une,[!var0],1]s[!end]
write [!string] of beer on the wall.
[!loopend]
write/7bit No more bottles of beer on the wall[!ascii 254], no more
bottles of beer.
write/7bit Go to the store[!ascii 254], buy some more[!ascii 254], 99
bottles of beer on the wall.
pop
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