99 Bottles of Beer

Voting

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

Category

real language

Bookmarking

.bottles of beer                                                                
*===============================================================================
@ldv <bottles>i2=99,<name>a7=bottles .                                          
@brk .                                                                          
@0010: .                                                                        
<bottles>(p) <name>(p) of beer on the wall, <bottles>(p) <name>(p) of beer,     
@if <bottles> > 0 . ;gto 0020 ;.                                                
@dec <bottles> if <bottles> = 0,(0020) ;if <bottles> = 1 ldv <name>=bottle ;.   
Take 1 down, pass it around, <bottles>(p) <name>(p) of beer on the wall.        
                                                                                
@gto 0010 .                                                                     
@0020: .                                                                        
Take 1 down, pass it around, no more bottles of beer on the wall.               
@gto end .

Alternative Versions

Comments

 Devo said on 12/15/06 15:46:57

Most Amazing Programming Product Ever Released!

 Clyde Drawdy said on 10/02/07 18:01:04

I first programmed in mapper 25 years ago. The adaptibility and longevity of this product is mind boggling. I work for a state government agency that began using it instead of Cobol CICS. It was my decision to be made and several of my friends advised me against it but we have never looked back. At one time when it was unavailable in a windows environment I thought I would have to go to another product and then Unisys brought out Mapper For Windows followed very closely by NT Mapper. We immediately rewrote our entire application in NT mapper using 90% of the old code and have had a very successful GUI application for approx six years. We love Mapper so much that we didn't like the name change to BIS but now BIS runs my entire application to include our web site. The introduction of ICE (Internet Commerce Enabler) a few years ago is now all a part of Mapper. That's right, we still call it Mapper, and it's the best thats ever been.

 Mike Hoyt said on 11/30/07 19:46:04

Peter

Glad to see you have developed more sophisticated applications than a nightly scheduler.

Best Regards wherever you are

Mike

 Joseph said on 01/06/08 02:13:56

I read with nostalgia Clyde's account of his experience with Mapper.
Like him, I started out in Mapper some 27 years ago in Canada, later going on to work in New Zealand, then as administrator for the Queensland State Govt, and finally back to the US to work at Disney. During that time I became one of the pre-eminent "experts" in the product, navigating the assembler in which it was written back then as smoothly as I do today in a piece of Java code. I still look back on that time with amazement.

My reason for posting, other than to express appreciation for what I read, is to ask for help.
I have no idea how this will be received - but here goes.

I feel lately that I have one more killer project in me, and I have decided that it will be to rewrite Mapper as Open Source software. In doing this I am not in any way hoping to take business away from Unisys. That is not my intent. In fact, I am doing this strictly for me. If my friends who have loved Mapper as much as I see something of value in this exercise then I will be pleased - otherwise I really don't care if anyone sees it. As I say, I'm doing this for me.

My request to anyone listening is for an old copy of Mapper NT that I can load and review.
It will *not* be used for any commercial use.
The product has evolved in the 17 yrs. since I've seen it in use. And frankly I can't remember the syntax anyway. So I'm looking forward to catching up.

If you can help, I thank you in advance!

 Dick Bottoff said on 01/09/08 21:01:51

MAPPER is amazing!!! I worked for Unisys from 1976 thru 1986 and learned MAPPER while attending a couple of Unisys schools. We sold the product to a medical complany that had only ledgers and began writing applications to handle their many business applications including physician's schedules, patient appointments, billing and client tracking. After the initial design I said so long and good luck to the medical complany at which time they offered me a handsome package to which I couldn't refuse. I am still here after 18 years and over 500-600 MAPPER runs as they are called. New ideas and business changes happen all the time, it is so easy to adapt the MAPPER source syntex that I can fly thru my CEO's requests and really react to the situation within hours rather than days/weeks. MAPPER is still the best!

 Joseph said on 01/12/08 21:55:06

Sorry people ... I must amend my request for help.

I need a copy of Unix Mapper to review, not NT.
I found a copy of NT Mapper but the system requirements are out of reach - servers, workstations, etc., etc.
I have Mac OS X - so hopefully the Unix version will slip onto that and work.
If not, then I can load Unix into the VMWare Fusion virtual machine software that I have, and run it through that.

If anyone can help it would be greatly appreciated!

Thanks in advance.

 Richard Fiekowsky said on 02/14/08 00:46:20

Wow, MAPPER still exists. I saw a job req for it today (2/12/2008) and it brought me back to 1980, when I learned it as a Univac employee. I was on assignment in Temecula, which was then just changing from a sleepy high-desert hamlet, to a town along the newly-completed I-15.

 Jim Taylor said on 04/02/08 22:25:59

Here's another way that uses a few of Mapper's report handling functions:

.bottles of beer
*===============================================================================
@brk .
*
*===============================================================================
bottles of beer on the wall, bottles of beer,
Take 1 down, pass it around, bottles of beer on the wall.
@brk lnx,-0,4,99,2 .
@cal,-0 t 2-3,35-3 ,a,a a=101-line .
@cal,-0 t 30-3 t,a a=100-line .
@lch,-0 afmt$ 2-79 ' 1 bottles'/' 1 bottle' .
@lch,-0 afmt$ 2-79 ' 0 bottles'/'no more bottles' dsx,-0 .

 Jim Taylor said on 04/05/08 00:13:05

I see that extra spaces were stripped from my last message. There should be five spaces in front of every "bottles of beer".

 Hubert Degrande said on 05/01/08 09:39:27

I used mapper 15 years ago at work as a user on a 2200 mainframe. I am retired since 2000 and I bought "mapper system for windows". I use to program the old fashion way like V001 V001 etc. But I cannot give it "The windows look" If someone kan advise me were i can find some exemples,books websides etc please E-mail me. Regards HD

 Larry said on 08/20/08 20:38:43

To Joseph, I have an unused Demo copy for Suse 9.1 Linux, Mapper 9R1.
It is about 180mb ISO file, but where to send, ah, that's the problem...
Or, you could talk nice to a local Unisys sales droid and see if they could mail you
a Demo cd for Linux... AFAIK there is no MacX version, just Suse and RedHat.

Cheers.

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: