99 Bottles of Beer

Voting

Please select* Bad as Hell** Nothing new*** Good**** Nice Coding***** TOP GEEK

Category

real language

Bookmarking

Also known as HURON.


BOTTLES_OF_BEER;
_ LOCAL COUNT;
_ ----------------------------------------------------------------------
_ ------------------------------------------------------------+---------
_ COUNT = 99;                                                 ¦ 1
_ UNTIL EQUAL :                                               ¦ 2
_    CALL MSGLOG(COUNT || ' BOTTLE(S) OF BEER ON THE WALL');  ¦
_    CALL MSGLOG(COUNT || ' BOTTLE(S) OF BEER');              ¦
_    CALL MSGLOG('TAKE ONE DOWN AND PASS IT AROUND');         ¦
_    COUNT = COUNT - 1;                                       ¦
_    CALL MSGLOG(COUNT || ' BOTTLE(S) OF BEER ON THE WALL');  ¦
_    CALL MSGLOG('');                                         ¦
_    CALL SIGNAL_EQUAL(COUNT, 0);                             ¦
_    END;                                                     ¦
_ ----------------------------------------------------------------------

Alternative Versions

Comments

 Paraag Suchak said on 04/25/06 03:58:11

Great to see my old RULE editor and a real rules program in action!

This program will work beautifully leaving behind some true "happy" huronites!

Regards,
Paraag

 Maarten said on 07/16/07 10:37:49

ObjectsStar Rules!

 Cornelius J. van Dyk said on 11/21/07 13:11:29

WOW! I can actually still read ObjectStar rules code!
It's been 3 years since I last did that, but it's all coming back to me now...
Wait, that's a song isn't it?

Later
C

 David Crichton said on 12/01/07 06:52:24

Despite a somewhat chequered history, having passed from Amdahl through Fujitsu and ObjectStar International to the current owners, Tibco, ObjectStar is stil in use in a number of large companies. With the move to commercial apps running on Windows, UNIX or IBM mainframes, ObjectStar is still the only commercially robust language which allows code to be written to run unchanged on all three platforms. The absence of a compiler (code-and-go stored object code) gives it an edge in RAD situations which is also unmatched.

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!

Name:

eMail:

URL:

Security Code:
  
Comment: