Groups | Search | Server Info | Keyboard shortcuts | Login | Register

Groups > comp.os.linux.misc > #35804

Re: COBOL and tricks

Cross-posted to 2 groups.

Show all headers | View raw

On 7/25/2022 4:45 PM, Scott Lurndal wrote:
> Peter Flass <peter_flass@yahoo.com> writes:
>> Scott Lurndal <scott@slp53.sl.home> wrote:
>>> drb@ihatespam.msu.edu (Dennis Boone) writes:
>>>>> SET 0800-INTADJ = IFILE-ACCTBAL * MIR
>>>>
>>>> More like
>>>>
>>>> MULTIPLY IFILE-ACCTBAL BY MIR GIVING 0800-INTADJ.
>>>>
>>>> or
>>>>
>>>> COMPUTE 0800-INTADJ = IFILE-ACCTBAL * MIR.
>>>>
>>>> De
>>>
>>> Or,
>>>
>>>         1150-CK-TIME.
>>>             IF KLINGONS > 0
>>>                 ACCEPT WS-TIME FROM TIME
>>>                 MOVE WS-MIN OF WS-TIME TO DS-MIN
>>>                 PERFORM 1145-CK-FLAG THRU 1145-EXIT
>>>                 MOVE WS-SEC OF WS-TIME TO DS-SEC
>>>                 MOVE DS-TABLE TO S-DATE
>>>             ELSE
>>>                 GO TO 1150-EXIT.
>>>             COMPUTE T-STORE = DS-DATE - S-DATE.
>>>             IF T-STORE < 90 AND NOT KLINGONS-ATTACKING
>>>                 MOVE 14 TO MAX-NO
>>>                 COMPUTE W = ((HQ2 - 1) * 14)
>>>                 COMPUTE Z = ((HQ1 - 1) * 14)
>>>                 INSPECT MASTER-TBL REPLACING ALL "K" BY " "
>>>                 MOVE 0 TO RX
>>>                 PERFORM 1170-MOVE-ON-HQ THRU 1170-EXIT
>>>                     VARYING KCTR FROM 1 BY 1 UNTIL KCTR > KLINGONS
>>>                 MOVE 1 TO ATTACK-FLAG
>>>                 PERFORM 5900-TRANS THRU 5900-EXIT
>>>                 IF (Q1 NOT = HQ1 OR Q2 NOT = HQ2)
>>>                     DISPLAY "WARNING - STAR DATE: " S-DATE
>>>                     DISPLAY "SCIENCE OFFICER SPOCK ADVISES"
>>>                     DISPLAY "YOU NAVIGATE TO QUADRANT " HQ1 "," HQ2
>>>                     DISPLAY "TO DEFEND STAR FLEET HEADQUARTERS".
>>>             IF NOT TOO-LATE
>>>                 MOVE DS-DATE TO WS-DATE.
>>>             IF S-DATE > WS-DATE AND Q1 = HQ1 AND Q2 = HQ2 AND NOT TOO-LAT
>>>        -    E
>>>                 MOVE 1 TO TOO-LATE-FLAG
>>>                 ADD 230 TO WS-DATE
>>>             ELSE
>>>                 IF S-DATE > WS-DATE
>>>                     MOVE 1 TO INDICATE-X
>>>                     PERFORM 8200-CK-DONE THRU 8200-EXIT.
>>>         1150-EXIT.  EXIT.
>>>
>>>   :-)
>>>
>>
>> If I had a programmer working for me who coded like that,be having a talk.
>> I HAVE seen code like that, usually written by someone who thought
>> programming was beneath him and was bored. Such people were usually
>> promoted to management, where they fit right in.
>>
> 
> Speak to Kurt.
> 
>         IDENTIFICATION DIVISION.
>         PROGRAM-ID. STREK.
>         AUTHOR.  KURT WILHELM.
>         INSTALLATION.  OAKLAND UNIVERSITY.
>         DATE-WRITTEN.  COMPLETED SEPTEMBER 1, 1979.
>        *
>        *******************************************************
>        * STAR_TREK SIMULATES AN OUTER SPACE ADVENTURE GAME   *
>        * ON A REMOTE TERMINAL.  THE USER COMMANDS THE U.S.S. *
>        * ENTERPRISE, AND THRU VARIOUS OFFENSIVE AND DEFEN-   *
>        * SIVE COMMANDS, TRAVELS THROUGHOUT THE GALAXY ON A   *
>        * MISSION TO DESTROY ALL KLINGONS, WHICH ALSO MANEU-  *
>        * VER AND FIRE ON THE ENTERPRISE.                     *
>        *******************************************************
>                              ^^^^^^^^^^

This is an early example of what is known as "Enterprise software".

;-)

-- 

Charles Richmond


-- 
This email has been checked for viruses by Avast antivirus software.
www.avast.com

Back to comp.os.linux.misc | Previous | Next — Next in thread | Find similar

Thread

Re: COBOL and tricks Charles Richmond <codescott@aquaporin4.com> - 2022-10-29 04:24 -0500
  Re: COBOL and tricks Rich Alderson <news@alderson.users.panix.com> - 2022-10-29 16:47 -0400

csiph-web