99 Bottles of Beer

Voting

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

Category

real language

Bookmarking

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;

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...?

 guess who said on 06/29/08 02:17:30

meditech does suck

 guess who...one more comment said on 06/29/08 02:25:12

the software applications and the company in general sucks. i use the software on the hospital end and believe me, the application specalists have their heads up thier asses, or too busy playing with AIM chat's and Ipods while they work on complaints.

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: