Quelle  test.cob  Sprache: unbekannt

       IDENTIFICATION DIVISION.
       PROGRAM-ID. GEEKCODE.
      ******************************************************************
      *                                                                *
      *AUTHOR. RANDY LEJEUNE.                                          *
      *DATE-WRITTEN.  29  SEP 2010.                                    *
      *                                                                *
      ******************************************************************
       ENVIRONMENT DIVISION.

       CONFIGURATION SECTION.

           SOURCE-COMPUTER. IBM-386.
           OBJECT-COMPUTER. IBM-386.

       INPUT-OUTPUT SECTION.

       FILE-CONTROL.
           SELECT GEEK-SIG             ASSIGN TO "geekcode.sig"
                                       ORGANIZATION IS LINE SEQUENTIAL.
       DATA DIVISION.

       FILE SECTION.

       FD  GEEK-SIG. 
       01  GEEK-OUTPUT-REC             PIC X(80).

       WORKING-STORAGE SECTION.

       COPY "geekcode.cpy".

       77  WS-PRINT-LINE1              PIC X(80)     VALUE SPACES.
       77  WS-PRINT-LINE2              PIC X(80)     VALUE SPACES.
       77  WS-PRINT-LINE3              PIC X(80)     VALUE SPACES.
       77  WS-PRINT-LINE4              PIC X(80)     VALUE SPACES.

       PROCEDURE DIVISION.

       00000-CONTROL.
           PERFORM 10000-SETUP
           PERFORM 20000-PROCESS
           PERFORM 30000-CLEANUP.

       10000-SETUP.
           ACCEPT WS-CL-ARGS FROM COMMAND-LINE END-ACCEPT
           PERFORM 93000-PARSE-CMDLN
           OPEN OUTPUT GEEK-SIG
           INITIALIZE  GEEK-OUTPUT-REC.

           END-DISPLAY
           DISPLAY "          and can use a word processor without resor
      -        "ting to the manual too. "
           END-DISPLAY
           DISPLAY "          often. I know that a 3.5 inch disk is not
      -        " a hard disk. I also "
           END-DISPLAY
           DISPLAY "          know that when it says 'press any key' to 
      -        "continue, I don't have to "
           END-DISPLAY
           DISPLAY "          look for a key labeled 'ANY'.  "
           END-DISPLAY
           DISPLAY " 5 C      Computers are a tool, nothing more. I use 
      -        "it when it serves my "
           END-DISPLAY
           DISPLAY "          purpose." END-DISPLAY
           DISPLAY " 6 C-     Anything more complicated than my calculat
      -        "or and I'm screwed. "
           END-DISPLAY
           DISPLAY " 7 C--    Where's the on switch? " END-DISPLAY
           DISPLAY " 8 C---   If you even mention computers, I will rip
      -         "your head off!  "
           END-DISPLAY
           DISPLAY " " END-DISPLAY
           DISPLAY " " END-DISPLAY
           DISPLAY " " END-DISPLAY
           DISPLAY "Enter your Computer code "
               "number here [0 to quit]: " WITH NO ADVANCING
           END-DISPLAY

           ACCEPT WS-ENTRY END-ACCEPT

           IF WS-ENTRY (2:1) = SPACE
               MOVE WS-ENTRY (1:1) TO WS-ENTRY (2:1)
               MOVE 0              TO WS-ENTRY (1:1)   
           END-IF

           IF WS-ENTRY NOT NUMERIC
               CONTINUE 
           ELSE
               IF WS-ENTRY <= 08
                   SET WS-VALID-FLAG TO "Y"
                   IF WS-ENTRY = 00 THEN
                       PERFORM 92000-ABEND
                   ELSE IF WS-ENTRY = 01 THEN
                       MOVE "C++++" TO WS-COMP
                   ELSE IF WS-ENTRY = 02 THEN
                       MOVE "C+++" TO WS-COMP
                   ELSE IF WS-ENTRY = 03 THEN
                       MOVE "C++" TO WS-COMP
                   ELSE IF WS-ENTRY = 04 THEN
                       MOVE "C+" TO WS-COMP
                   ELSE IF WS-ENTRY = 05 THEN
                       MOVE "C" TO WS-COMP
                   ELSE IF WS-ENTRY = 06 THEN
                       MOVE "C-" TO WS-COMP
                   ELSE IF WS-ENTRY = 07 THEN
                       MOVE "C--" TO WS-COMP
                   ELSE IF WS-ENTRY = 08 THEN
                       MOVE "C---" TO WS-COMP
                   END-IF
               END-IF
           END-IF.

           PERFORM 90000-CLEAR-SCREEN.

       94000-TERMINATE.
           GOBACK.