Language AOS/VS (32bit CLI)
|Author:||Robert de Mander|
|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
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!