Language TOM
Date: | 04/20/05 |
Author: | John Jensen |
URL: | n/a |
Comments: | 0 |
Info: | n/a |
Score: | (3.00 in 1 votes) |
<copyright> 99 bottles of beer on the wall in TOM. By <a href="mailto:jjens@primenet.com">John Jensen</a> No Copyright, this code is placed in the public domain. </copyright> implementation class beer <doc> Every program needs a main. </doc> int main Array arguments { int beers; beers = 99; while (beers > 0) { [[[stdio out] print beers] print " bottles of beer on the wall, "]; [[[stdio out] print beers] print " bottles of beer.\n"]; [[stdio out] print "Take one down, pass it around, "]; beers--; if (beers != 0) { [[[stdio out] print beers] print " bottles of beer on the wall.\n\n"]; } else { [[stdio out] print "no more bottles of beer on the wall.\n\n"]; } } = 0; } end; implementation instance beer end;
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