Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Posting-Version: version B 2.10.1 5/3/83; site ukc.UUCP
Path: utzoo!linus!decvax!harpo!eagle!hou5h!hou5g!hou5f!ariel!vax135!ukc!jd
From: jd@ukc.UUCP
Newsgroups: net.lang
Subject: Merry Christmas from COBOL.
Message-ID: <3971@ukc.UUCP>
Date: Sun, 6-Nov-83 11:25:02 EST
Article-I.D.: ukc.3971
Posted: Sun Nov  6 11:25:02 1983
Date-Received: Tue, 8-Nov-83 04:21:21 EST
Organization: Computing Lab. Kent University, England
Lines: 36

Here is the merry christmas program in COBOL (my third favorite language).

        IDENTIFICATION DIVISION.
        PROGRAM-ID.
            MERRY.
        AUTHOR. Jim Darby.

        ENVIRONMENT DIVISION.
        CONFIGURATION SECTION.
        SOURCE-COMPUTER. ICL-2900.
        OBJECT-COMPUTER. ICL2900 WITH SUPERVISOR CONTROL.

        DATA DIVISION.
        WORKING-STORAGE SECTION.

        77  COUNTER-FOR-LOOP    PICTURE IS 9(2), USAGE IS COMPUTATIONAL.

        PROCEDURE DIVISION.

        START-UP.
            MOVE ZERO TO COUNTER-FOR-LOOP.

        PRINT-LOOP.
            DISPLAY "Merry Christmas".
            ADD 1 TO COUNTER-FOR-LOOP.
            IF COUNTER-FOR-LOOP IS LESS THAN 15 THEN
                GO TO PRINT-LOOP.

            STOP RUN.

of course this code is properly commented or even well written.

p.s. BCPL is my first favorite language and Imp80 my second. Hence the
preceding two articles.

p.p.s. I am also a member of the PASCAL haters association.