Quelle test.cob Sprache: Cobol

       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.

quality91%

¤ Dauer der Verarbeitung: 0.13 Sekunden (vorverarbeitet) ¤

Wurzel

Suchen

Beweissystem der NASA

Beweissystem Isabelle

NIST Cobol Testsuite

Cephes Mathematical Library

Wiener Entwicklungsmethode

Haftungshinweis

Die Informationen auf dieser Webseite wurden nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit, noch Qualität der bereit gestellten Informationen zugesichert.

Bemerkung:

Die farbliche Syntaxdarstellung ist noch experimentell.