99 Bottles of Beer

Voting

Bookmarking

Language MEDITECH Magic

Date:	04/20/05
Author:	Anonymous
URL:	n/a
Comments:	3
Info:	n/a
Score:	(3.20 in 161 votes)

This program is written in MEDITECH Magic.  This is NOT the same Magic 
as you have listed but was developed by Medical Information Technology 
in 1980 and is still in use.  

As MEDITECH is not only a large software company but on of the oldest, 
independent software companies in the world (est. 1969), I hope you 
consider this a valid language.  

As you can see, it is an extremely concise language and lots of fun to use.

BEERv1.1,
100^b,T("")^#,DO{b'<1 NN(b,"bottle"_IF{b=1 " ";"s "}_"of beer on the wall")^#,
                          N(b,"bottle"_IF{b=1 " ";"s "}_"of beer!")^#,
                          N("You take one down, pass it around,")^#,b-1^b,
                          N(b,"bottle"_IF{b=1 " ";"s "}_"of beer on the wall!")^#},
END;

Download Source | Write Comment

Alternative Versions

Comments

Some Programmer Who Works in a said on 01/26/06 00:26:04

Meditech sucks!

Anonymous said on 02/07/06 16:20:14

Meditech - worse technology company EVER. Here are some examples:

"Fight progress. Use Meditech."
"If it was good enough for grandpa, it's good enough for me - Meditech"
"Meditech - A giant leap forward into the 80's"
"Meditech - Yesterday's technology today"

Owein said on 03/09/08 02:19:40

Yes, but what are the MEDICAL applications of this program...?

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!

one program in 1200 variations