[net.lang] Merry Christmas from COBOL.

jd@ukc.UUCP (11/06/83)

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.

mike@uokvax.UUCP (11/14/83)

#R:ukc:-397100:uokvax:9000001:000:190
uokvax!mike    Nov 10 01:35:00 1983

Or what about dBASE II (is that a real language?)

SET TALK OFF
STORE 0 TO counter
DO WHILE counter < 15
    @ counter, 0 SAY "Merry Christmas"
    STORE counter + 1 TO counter
ENDDO
RETURN