Quelle  geekcode.cob   Sprache: Cobol

       IDENTIFICATION DIVISION.
       PROGRAM-ID. GEEKCODE.
      ******************************************************************
      *                                                                *
      *AUTHOR. RANDY LEJEUNE.                                          *
      *DATE-WRITTEN.  29  SEP 2010.                                    *
      *                                                                *
      ******************************************************************
      ******************************************************************
      *   This program is free software; you can redistribute it       *
      *   and/or modify it under the terms of the GNU General Public   *
      *   License as published by the Free Software Foundation; either *
      *   version 2 of the License, or at your option) any later       *
      *   version.                                                     *
      *                                                                *
      *   This program is distributed in the hope that it will be      *
      *   useful, but WITHOUT ANY WARRANTY; without even the implied   *
      *   warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR      *
      *   PURPOSE.  See the GNU General Public License for more        *
      *   details.                                                     *
      *                                                                *
      *   You should have received a copy of the GNU General Public    *
      *   License along with this program; if not, write to the Free   *
      *   Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139,*
      *                                                                *
      *   Interface Design taken from Chris Gushue's geekcode generator*
      *                                                                *
      ******************************************************************
      ******************************************************************

       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.

       77  WS-COMMAND                  PIC A(20)     VALUE SPACES.
       77  WS-CL-ARGS                  PIC X(10)     VALUE SPACES.
       77  WS-PAGE-CNT                 PIC 99        VALUE ZEROES.
       77  WS-CNT                      PIC XX        VALUE SPACES.
       77  WS-TOT-PAGE                 PIC 99        VALUE 45.
       77  WS-REC-CNT                  PIC 9         VALUE ZEROES.
       77  WS-RETURN-SYS-CODE          PIC 9(8) COMP VALUE ZEROES.
       77  WS-ENTRY                    PIC XX        VALUE ZEROES.

       01 WS-VALID-FLAG                PIC X         VALUE "N".
          88  WS-VALID-DATA                          VALUE "Y".
          88  WS-INVALID-DATA                        VALUE "N".

       01 WS-VALID-PENS                PIC X         VALUE "N".
          88  WS-HOW-MANY                            VALUE "Y".

       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.

       20000-PROCESS.
           PERFORM 90000-CLEAR-SCREEN
           PERFORM 91000-PRINT-HEADING
           PERFORM 21000-CREATE.

       21000-CREATE.
           PERFORM 22100-TYPE      UNTIL WS-VALID-DATA
           SET WS-VALID-FLAG TO "N"
           PERFORM 22200-DRESS     UNTIL WS-VALID-DATA
           SET WS-VALID-FLAG TO "N"
           PERFORM 22300-HAIR      UNTIL WS-VALID-DATA
           SET WS-VALID-FLAG TO "N"
           PERFORM 22400-HEIGHT    UNTIL WS-VALID-DATA
           SET WS-VALID-FLAG TO "N"
           PERFORM 22450-WEIGHT    UNTIL WS-VALID-DATA
           SET WS-VALID-FLAG TO "N"
           PERFORM 22500-GLASSES   UNTIL WS-VALID-DATA
           SET WS-VALID-FLAG TO "N"
           PERFORM 22600-PENS      UNTIL WS-VALID-DATA
           SET WS-VALID-FLAG TO "N"
           PERFORM 22670-SLIDES    UNTIL WS-VALID-DATA
           SET WS-VALID-FLAG TO "N"
           PERFORM 22700-AUTO      UNTIL WS-VALID-DATA
           SET WS-VALID-FLAG TO "N"
           PERFORM 22800-AGE       UNTIL WS-VALID-DATA
           SET WS-VALID-FLAG TO "N"
           PERFORM 22900-WEIRD     UNTIL WS-VALID-DATA
           SET WS-VALID-FLAG TO "N"
           PERFORM 23000-VERBAGE   UNTIL WS-VALID-DATA
           SET WS-VALID-FLAG TO "N"
           PERFORM 23100-COMP      UNTIL WS-VALID-DATA
           SET WS-VALID-FLAG TO "N"
           PERFORM 23200-FLAVOR    UNTIL WS-VALID-DATA
           SET WS-VALID-FLAG TO "N"
           PERFORM 23250-UNIX      UNTIL WS-VALID-DATA
           SET WS-VALID-FLAG TO "N"
           PERFORM 23300-PERL      UNTIL WS-VALID-DATA
           SET WS-VALID-FLAG TO "N"
           PERFORM 23400-LINUX     UNTIL WS-VALID-DATA
           SET WS-VALID-FLAG TO "N"
           PERFORM 23500-386BSD    UNTIL WS-VALID-DATA
           SET WS-VALID-FLAG TO "N"
           PERFORM 23600-NEWS      UNTIL WS-VALID-DATA
           SET WS-VALID-FLAG TO "N"
           PERFORM 23700-WEB       UNTIL WS-VALID-DATA
           SET WS-VALID-FLAG TO "N"
           PERFORM 23800-EMACS     UNTIL WS-VALID-DATA
           SET WS-VALID-FLAG TO "N"
           PERFORM 23900-KIBO      UNTIL WS-VALID-DATA
           SET WS-VALID-FLAG TO "N"
           PERFORM 24000-MS        UNTIL WS-VALID-DATA
           SET WS-VALID-FLAG TO "N"
           PERFORM 24100-MAC       UNTIL WS-VALID-DATA
           SET WS-VALID-FLAG TO "N"
           PERFORM 24200-VMS       UNTIL WS-VALID-DATA
           SET WS-VALID-FLAG TO "N"
           PERFORM 24400-POL       UNTIL WS-VALID-DATA
           SET WS-VALID-FLAG TO "N"
           PERFORM 24500-CP        UNTIL WS-VALID-DATA
           SET WS-VALID-FLAG TO "N"
           PERFORM 24700-TREK      UNTIL WS-VALID-DATA
           SET WS-VALID-FLAG TO "N"
           PERFORM 24800-BAB       UNTIL WS-VALID-DATA
           SET WS-VALID-FLAG TO "N"
           PERFORM 25000-JEOP      UNTIL WS-VALID-DATA
           SET WS-VALID-FLAG TO "N"
           PERFORM 25100-ROLE      UNTIL WS-VALID-DATA
           SET WS-VALID-FLAG TO "N"
           PERFORM 25200-MAGIC     UNTIL WS-VALID-DATA
           SET WS-VALID-FLAG TO "N"
           PERFORM 25300-TV        UNTIL WS-VALID-DATA
           SET WS-VALID-FLAG TO "N"
           PERFORM 25400-BOOKS     UNTIL WS-VALID-DATA
           SET WS-VALID-FLAG TO "N"
           PERFORM 25500-DOOM      UNTIL WS-VALID-DATA
           SET WS-VALID-FLAG TO "N"
           PERFORM 25600-BARNEY    UNTIL WS-VALID-DATA
           SET WS-VALID-FLAG TO "N"
           PERFORM 25700-EDUC      UNTIL WS-VALID-DATA
           SET WS-VALID-FLAG TO "N"
           PERFORM 25800-MUSIC     UNTIL WS-VALID-DATA
           SET WS-VALID-FLAG TO "N"
           PERFORM 25900-HOUSE     UNTIL WS-VALID-DATA
           SET WS-VALID-FLAG TO "N"
           PERFORM 26000-FRIENDS   UNTIL WS-VALID-DATA
           SET WS-VALID-FLAG TO "N"
           PERFORM 26100-REL       UNTIL WS-VALID-DATA
           SET WS-VALID-FLAG TO "N"
           PERFORM 26200-NUT       UNTIL WS-VALID-DATA
           SET WS-VALID-FLAG TO "N"
           PERFORM 26300-GENDER    UNTIL WS-VALID-DATA
           SET WS-VALID-FLAG TO "N"
           PERFORM 26350-SEX       UNTIL WS-VALID-DATA
           PERFORM 26500-PRINT.

       22100-TYPE.
           ADD 1 TO WS-PAGE-CNT
           MOVE WS-PAGE-CNT (2:1) TO WS-CNT

           DISPLAY "Geek Type
      -       " Page: " WS-CNT " of " WS-TOT-PAGE
                  END-DISPLAY
           DISPLAY "====================================================
      -"==========================="
               END-DISPLAY
           DISPLAY " 1 GB - Geek of Business 15 GL -
      -"Geek of Literature"
               END-DISPLAY
           DISPLAY " 2 GC - Geek of Classics 16 GMC -
      -"Geek of Mass Communications"
               END-DISPLAY
           DISPLAY " 3 GCA - Geek of Commercial Arts 17 GM -
      -"Geek of Math"
               END-DISPLAY
           DISPLAY " 4 GCM - Geek of Computer Management 18 GMD -
      -"Geek of Medicine"
               END-DISPLAY
           DISPLAY " 5 GCS - Geek of Computer Science 19 GMU -
      -"Geek of Music"
               END-DISPLAY
           DISPLAY " 6 GCC - Geek of Communications 20 GPA -
      -"Geek of Performing Arts"
               END-DISPLAY
           DISPLAY " 7 GE - Geek of Engineering 21 GP -
      -"Geek of Philosophy"
               END-DISPLAY
           DISPLAY " 8 GED - Geek of Education 22 GS -
      -"Geek of Science"
               END-DISPLAY
           DISPLAY " 9 GFA - Geek of Fine Arts 23 GSS -
      -"Geek of Social Science"
               END-DISPLAY
           DISPLAY "10 GG - Geek of Government 24 GTW -
      -"Geek of Technicial Writing"
               END-DISPLAY
           DISPLAY "11 GH - Geek of Humanities 25 GO -
      -"Geek of Other"
               END-DISPLAY
           DISPLAY "12 GIT - Geek of Information Technology 26 GU -
      -"Geek of Undecided"
               END-DISPLAY
           DISPLAY "13 GJ - Geek of Jurisprudence (Law) 27 G! -
      -"Geek of No Qualifications"
               END-DISPLAY
           DISPLAY "14 GLS - Geek of Library Science 28 GAT -
      -"Geek of All Trades"
               END-DISPLAY
           DISPLAY " " END-DISPLAY
           DISPLAY " " END-DISPLAY
           DISPLAY " " END-DISPLAY
           DISPLAY " " END-DISPLAY
           DISPLAY "Enter your Geek Type 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 <= 28
                   SET WS-VALID-FLAG TO "Y"
                   IF WS-ENTRY = 00 THEN
                       PERFORM 92000-ABEND
                   ELSE IF WS-ENTRY = 01 THEN
                       MOVE "GL" TO WS-TYPE
                   ELSE IF WS-ENTRY = 02 THEN
                       MOVE "GC" TO WS-TYPE
                   ELSE IF WS-ENTRY = 03 THEN
                       MOVE "GCA" TO WS-TYPE
                   ELSE IF WS-ENTRY = 04 THEN
                       MOVE "GCM" TO WS-TYPE
                   ELSE IF WS-ENTRY = 05 THEN
                       MOVE "GCS" TO WS-TYPE
                   ELSE IF WS-ENTRY = 06 THEN
                       MOVE "GCC" TO WS-TYPE
                   ELSE IF WS-ENTRY = 07 THEN
                       MOVE "GE" TO WS-TYPE
                   ELSE IF WS-ENTRY = 08 THEN
                       MOVE "GED" TO WS-TYPE
                   ELSE IF WS-ENTRY = 09 THEN
                       MOVE "GFA" TO WS-TYPE
                   ELSE IF WS-ENTRY = 10 THEN
                       MOVE "GG" TO WS-TYPE
                   ELSE IF WS-ENTRY = 11 THEN
                       MOVE "GH" TO WS-TYPE
                   ELSE IF WS-ENTRY = 12 THEN
                       MOVE "GIT" TO WS-TYPE
                   ELSE IF WS-ENTRY = 13 THEN
                       MOVE "GJ" TO WS-TYPE
                   ELSE IF WS-ENTRY = 14 THEN
                       MOVE "GLS" TO WS-TYPE
                   ELSE IF WS-ENTRY = 15 THEN
                       MOVE "GL" TO WS-TYPE
                   ELSE IF WS-ENTRY = 16 THEN
                       MOVE "GMC" TO WS-TYPE
                   ELSE IF WS-ENTRY = 17 THEN
                       MOVE "GM" TO WS-TYPE
                   ELSE IF WS-ENTRY = 18 THEN
                       MOVE "GMD" TO WS-TYPE
                   ELSE IF WS-ENTRY = 19 THEN
                       MOVE "GMU" TO WS-TYPE
                   ELSE IF WS-ENTRY = 20 THEN
                       MOVE "GPA" TO WS-TYPE
                   ELSE IF WS-ENTRY = 21 THEN
                       MOVE "GP" TO WS-TYPE
                   ELSE IF WS-ENTRY = 22 THEN
                       MOVE "GS" TO WS-TYPE
                   ELSE IF WS-ENTRY = 23 THEN
                       MOVE "GSS" TO WS-TYPE
                   ELSE IF WS-ENTRY = 24 THEN
                       MOVE "GTW" TO WS-TYPE
                   ELSE IF WS-ENTRY = 25 THEN
                       MOVE "GO" TO WS-TYPE
                   ELSE IF WS-ENTRY = 26 THEN
                       MOVE "GU" TO WS-TYPE
                   ELSE IF WS-ENTRY = 27 THEN
                       MOVE "G!" TO WS-TYPE
                   ELSE IF WS-ENTRY = 28 THEN
                       MOVE "GAT" TO WS-TYPE
                   END-IF 
               END-IF
           END-IF.

           PERFORM 90000-CLEAR-SCREEN.

       22200-DRESS.
           ADD 1 TO WS-PAGE-CNT
           MOVE WS-PAGE-CNT (2:1) TO WS-CNT

           DISPLAY "Dress
      -       " Page: " WS-CNT " of " WS-TOT-PAGE
           END-DISPLAY
           DISPLAY "====================================================
      -"==========================="
           END-DISPLAY
           DISPLAY " 1 d++ I tend to wear conservative dress such as "
              "a business suit or "
           END-DISPLAY
           DISPLAY " worse, a tie." END-DISPLAY
           DISPLAY " 2 d+ Good leisure-wear. Slacks, button-shirt, "
               "etc. No jeans, tennis "
           END-DISPLAY
           DISPLAY " shoes, or t-shirts." END-DISPLAY
           DISPLAY " 3 d I dress a lot like those found in catalog "
               "ads. Bland, boring, "
           END-DISPLAY
           DISPLAY " without life or meaning." END-DISPLAY
           DISPLAY " 4 d- I'm usually in jeans and a t-shirt."
           END-DISPLAY
           DISPLAY " 5 d-- My t-shirts go a step further and have a "
               "trendy political "
           END-DISPLAY
           DISPLAY " message on them." END-DISPLAY
           DISPLAY " 6 d--- Punk dresser, including, but not limited "
               "to, torn jeans and "
           END-DISPLAY
           DISPLAY " shirts, body piercings, and prominent "
               "tattoos."
           END-DISPLAY
           DISPLAY " 7 dx Cross dresser." END-DISPLAY
           DISPLAY " 8 d? I have no idea what I am wearing now, "
               "let alone what I wore yesterday."
           END-DISPLAY
           DISPLAY " 9 !d No clothing. Quite a fashion statement, "
               "don't you think?"
           END-DISPLAY
           DISPLAY "10 dpu I wear the same clothes all the time, no "
               "matter the occasion, "
           END-DISPLAY
           DISPLAY " forgetting to do laundry between wearings."
           END-DISPLAY
           DISPLAY " " END-DISPLAY
           DISPLAY " " END-DISPLAY
           DISPLAY " " END-DISPLAY
           DISPLAY "Enter your Dress 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 <= 10
                   SET WS-VALID-FLAG TO "Y"
                   IF WS-ENTRY = 00 THEN
                       PERFORM 92000-ABEND
                   ELSE IF WS-ENTRY = 01 THEN
                       MOVE "d++" TO WS-DRESS
                   ELSE IF WS-ENTRY = 02 THEN
                       MOVE "d+" TO WS-DRESS
                   ELSE IF WS-ENTRY = 03 THEN
                       MOVE "d" TO WS-DRESS
                   ELSE IF WS-ENTRY = 04 THEN
                       MOVE "d-" TO WS-DRESS
                   ELSE IF WS-ENTRY = 05 THEN
                       MOVE "d--" TO WS-DRESS
                   ELSE IF WS-ENTRY = 06 THEN
                       MOVE "d---" TO WS-DRESS
                   ELSE IF WS-ENTRY = 07 THEN
                       MOVE "dx" TO WS-DRESS
                   ELSE IF WS-ENTRY = 08 THEN
                       MOVE "d?" TO WS-DRESS
                   ELSE IF WS-ENTRY = 09 THEN
                       MOVE "!d" TO WS-DRESS
                   ELSE IF WS-ENTRY = 10 THEN
                       MOVE "dpu" TO WS-DRESS
                   END-IF
               END-IF
           END-IF.

           PERFORM 90000-CLEAR-SCREEN.

       22300-HAIR.
           ADD 1 TO WS-PAGE-CNT
           MOVE WS-PAGE-CNT (2:1) TO WS-CNT

           DISPLAY "Hair
      -       " Page: " WS-CNT " of " WS-TOT-PAGE
           END-DISPLAY
           DISPLAY "====================================================
      -"==========================="
           END-DISPLAY
           DISPLAY " 1 H+++ My hair goes down past my waist."
           END-DISPLAY
           DISPLAY " 2 H++ My hair dangles to my mid-back."
           END-DISPLAY
           DISPLAY " 3 H+ It's down to about my shoulders."
           END-DISPLAY
           DISPLAY " 4 H It's just pretty normal hair."
           END-DISPLAY
           DISPLAY " 5 H- It's cut above the neck."
           END-DISPLAY
           DISPLAY " 6 H-- Above the neck AND ear (flattop)."
           END-DISPLAY
           DISPLAY " 7 H--- It's about 1/8 inch long."
           END-DISPLAY
           DISPLAY " 8 H---- I shave my head daily, otherwise it gets "
               "too long."
           END-DISPLAY
           DISPLAY " 9 !H I'm bald."
           END-DISPLAY
           DISPLAY "10 H? I have wigs that allow me to vary my "
               "hair."
           END-DISPLAY
           DISPLAY "11 H* My hair is dyed funky flavors."
           END-DISPLAY
           DISPLAY " " END-DISPLAY
           DISPLAY " " END-DISPLAY
           DISPLAY " " END-DISPLAY
           DISPLAY "Enter your Dress 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 <= 11
                   SET WS-VALID-FLAG TO "Y"
                   IF WS-ENTRY = 00 THEN
                       PERFORM 92000-ABEND
                   ELSE IF WS-ENTRY = 01 THEN
                       MOVE "H+++" TO WS-HAIR
                   ELSE IF WS-ENTRY = 02 THEN
                       MOVE "H++" TO WS-HAIR
                   ELSE IF WS-ENTRY = 03 THEN
                       MOVE "H+" TO WS-HAIR
                   ELSE IF WS-ENTRY = 04 THEN
                       MOVE "H" TO WS-HAIR
                   ELSE IF WS-ENTRY = 05 THEN
                       MOVE "H-" TO WS-HAIR
                   ELSE IF WS-ENTRY = 06 THEN
                       MOVE "H--" TO WS-HAIR
                   ELSE IF WS-ENTRY = 07 THEN
                       MOVE "H---" TO WS-HAIR
                   ELSE IF WS-ENTRY = 08 THEN
                       MOVE "H----" TO WS-HAIR
                   ELSE IF WS-ENTRY = 09 THEN
                       MOVE "!H" TO WS-HAIR
                   ELSE IF WS-ENTRY = 10 THEN
                       MOVE "H?" TO WS-HAIR
                   ELSE IF WS-ENTRY = 11 THEN
                       MOVE "H*" TO WS-HAIR
                   END-IF
               END-IF
           END-IF.

           PERFORM 90000-CLEAR-SCREEN.

       22400-HEIGHT.
           ADD 1 TO WS-PAGE-CNT
           MOVE WS-PAGE-CNT (2:1) TO WS-CNT

           DISPLAY "Height
      -       " Page: " WS-CNT " of " WS-TOT-PAGE
           END-DISPLAY
           DISPLAY "====================================================
      -"==========================="
           END-DISPLAY
           DISPLAY " 1 s+++ I usually have to duck through doors. "
           END-DISPLAY
           DISPLAY " 2 s++ I'm a basketball candidate. "
           END-DISPLAY
           DISPLAY " 3 s+ I'm a little taller than most. "
           END-DISPLAY
           DISPLAY " 4 s I'm an average geek. "
           END-DISPLAY
           DISPLAY " 5 s- I look up to most people. "
           END-DISPLAY
           DISPLAY " 6 s-- I look up to damn near everybody. "
           END-DISPLAY
           DISPLAY " 7 s--- I take a phone book with me when I go "
           END-DISPLAY
           DISPLAY " out so I can eat dinner. "
           END-DISPLAY
           DISPLAY " " END-DISPLAY
           DISPLAY " " END-DISPLAY
           DISPLAY " " END-DISPLAY
           DISPLAY "Enter your Height 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 <= 07
                   SET WS-VALID-FLAG TO "Y"
                   IF WS-ENTRY = 00 THEN
                       PERFORM 92000-ABEND
                   ELSE IF WS-ENTRY = 01 THEN
                       MOVE "s+++" TO WS-HEIGHT
                   ELSE IF WS-ENTRY = 02 THEN
                       MOVE "s++" TO WS-HEIGHT
                   ELSE IF WS-ENTRY = 03 THEN
                       MOVE "s+" TO WS-HEIGHT
                   ELSE IF WS-ENTRY = 04 THEN
                       MOVE "s" TO WS-HEIGHT
                   ELSE IF WS-ENTRY = 05 THEN
                       MOVE "s-" TO WS-HEIGHT
                   ELSE IF WS-ENTRY = 06 THEN
                       MOVE "s--" TO WS-HEIGHT
                   ELSE IF WS-ENTRY = 07 THEN
                       MOVE "s---" TO WS-HEIGHT
                   END-IF
               END-IF
           END-IF.

           PERFORM 90000-CLEAR-SCREEN.

       22450-WEIGHT.
           ADD 1 TO WS-PAGE-CNT
           MOVE WS-PAGE-CNT (2:1) TO WS-CNT

           DISPLAY "Weight
      -       " Page: " WS-CNT " of " WS-TOT-PAGE
           END-DISPLAY
           DISPLAY "====================================================
      -"==========================="
           END-DISPLAY
           DISPLAY " 1 s+++ I take up three movie seats. "
           END-DISPLAY
           DISPLAY " 2 s++ I'm a linebacker candidate. "
           END-DISPLAY
           DISPLAY " 3 s+ I'm a little rounder than most."
           END-DISPLAY
           DISPLAY " 4 s I'm an average geek."
           END-DISPLAY
           DISPLAY " 5 s- Everybody tells me to gain a few pounds."
           END-DISPLAY
           DISPLAY " 6 s-- I tend to have to fight against a strong "
               "breeze."
           END-DISPLAY
           DISPLAY " 7 s--- My bones are poking through my skin. "
           END-DISPLAY
           DISPLAY " " END-DISPLAY
           DISPLAY " " END-DISPLAY
           DISPLAY " " END-DISPLAY
           DISPLAY "Enter your Weight 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 <= 07
                   SET WS-VALID-FLAG TO "Y"
                   IF WS-ENTRY = 00 THEN
                       PERFORM 92000-ABEND
                   ELSE IF WS-ENTRY = 01 THEN
                       MOVE "+++" TO WS-WEIGHT
                   ELSE IF WS-ENTRY = 02 THEN
                       MOVE "++" TO WS-WEIGHT
                   ELSE IF WS-ENTRY = 03 THEN
                       MOVE "+" TO WS-WEIGHT
                   ELSE IF WS-ENTRY = 04 THEN
                       MOVE " " TO WS-WEIGHT
                   ELSE IF WS-ENTRY = 05 THEN
                       MOVE "-" TO WS-WEIGHT
                   ELSE IF WS-ENTRY = 06 THEN
                       MOVE "--" TO WS-WEIGHT
                   ELSE IF WS-ENTRY = 07 THEN
                       MOVE "---" TO WS-WEIGHT
                   END-IF
               END-IF
           END-IF.

           PERFORM 90000-CLEAR-SCREEN.

       22500-GLASSES.
           ADD 1 TO WS-PAGE-CNT
           MOVE WS-PAGE-CNT (2:1) TO WS-CNT

           DISPLAY "Glasses
      -       " Page: " WS-CNT " of " WS-TOT-PAGE
           END-DISPLAY
           DISPLAY "====================================================
      -"==========================="
           END-DISPLAY
           DISPLAY " 1 g+++ I have coke-bottle glasses that I can "
               "use to start leaves on "
           END-DISPLAY
           DISPLAY " fire in the hot sun."
           END-DISPLAY
           DISPLAY " 2 g++ I've got four eyes and tape in the "
               "middle. "
           END-DISPLAY
           DISPLAY " 3 g+ I've got four eyes, what's your point?"
           END-DISPLAY
           DISPLAY " 4 g- I have contacts."
           END-DISPLAY
           DISPLAY " 5 g-- I have colored contacts I have contacts."
           END-DISPLAY
           DISPLAY " 6 g--- I have those funky contact that have "
              "interesting designs on"
           END-DISPLAY
           DISPLAY " then such as happy faces or some such. "
           END-DISPLAY
           DISPLAY " 7 !g I have no glasses."
           END-DISPLAY
           DISPLAY " 8 g? I can't find my glasses."
           END-DISPLAY
           DISPLAY " " END-DISPLAY
           DISPLAY " " END-DISPLAY
           DISPLAY " " END-DISPLAY
           DISPLAY "Enter your Glasses 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 "g+++" TO WS-GLASSES
                   ELSE IF WS-ENTRY = 02 THEN
                       MOVE "g++" TO WS-GLASSES
                   ELSE IF WS-ENTRY = 03 THEN
                       MOVE "g+" TO WS-GLASSES
                   ELSE IF WS-ENTRY = 04 THEN
                       MOVE "g-" TO WS-GLASSES
                   ELSE IF WS-ENTRY = 05 THEN
                       MOVE "g--" TO WS-GLASSES
                   ELSE IF WS-ENTRY = 06 THEN
                       MOVE "g---" TO WS-GLASSES
                   ELSE IF WS-ENTRY = 07 THEN
                       MOVE "!g" TO WS-GLASSES
                   ELSE IF WS-ENTRY = 08 THEN
                       MOVE "g?" TO WS-GLASSES
                   END-IF
               END-IF
           END-IF.

           PERFORM 90000-CLEAR-SCREEN.

       22600-PENS.
           ADD 1 TO WS-PAGE-CNT
           MOVE WS-PAGE-CNT (2:1) TO WS-CNT

           DISPLAY "Pens
      -       " Page: " WS-CNT " of " WS-TOT-PAGE
           END-DISPLAY
           DISPLAY "====================================================
      -"==========================="
           END-DISPLAY
           DISPLAY "Do you have any pens in your pockets? "
           END-DISPLAY
           DISPLAY " " END-DISPLAY
           DISPLAY " " END-DISPLAY
           DISPLAY " " END-DISPLAY
           DISPLAY " 1 Yes." END-DISPLAY
           DISPLAY " 2 No." END-DISPLAY
           DISPLAY " " END-DISPLAY
           DISPLAY " " END-DISPLAY
           DISPLAY " " END-DISPLAY
           DISPLAY "Enter your Pens 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 <= 02
                   SET WS-VALID-FLAG TO "Y"
                   IF WS-ENTRY = 00 THEN
                       PERFORM 92000-ABEND
                   ELSE IF WS-ENTRY = 01 THEN
                       MOVE "p" TO WS-PENS (1:1)
                       PERFORM 90000-CLEAR-SCREEN
                       PERFORM 22650-HOW-MANY UNTIL WS-HOW-MANY
                   ELSE IF WS-ENTRY = 02 THEN
                       PERFORM 90000-CLEAR-SCREEN
                       PERFORM 22660-NOPENS
                   END-IF
               END-IF
           END-IF.

           PERFORM 90000-CLEAR-SCREEN.

       22650-HOW-MANY.
           ADD 1 TO WS-PAGE-CNT
           MOVE WS-PAGE-CNT (2:1) TO WS-CNT

           DISPLAY "Pens
      -       " Page: " WS-CNT " of " WS-TOT-PAGE
           END-DISPLAY
           DISPLAY "====================================================
      -"==========================="
           END-DISPLAY
           DISPLAY "How many pens do you have in your pockets? "
           END-DISPLAY
           DISPLAY " " END-DISPLAY
           DISPLAY " " END-DISPLAY
           DISPLAY " " END-DISPLAY
           DISPLAY " 1 One." END-DISPLAY
           DISPLAY " 2 Two." END-DISPLAY
           DISPLAY " 3 Three." END-DISPLAY
           DISPLAY " 4 Four." END-DISPLAY
           DISPLAY " 5 Five." END-DISPLAY
           DISPLAY " 6 Six." END-DISPLAY
           DISPLAY " 7 Seven." END-DISPLAY
           DISPLAY " 8 Eight." END-DISPLAY
           DISPLAY " 9 Nine." END-DISPLAY
           DISPLAY " " END-DISPLAY
           DISPLAY " " END-DISPLAY
           DISPLAY " " END-DISPLAY
           DISPLAY "Enter your Pens Number 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 <= 09
                   SET WS-VALID-PENS TO "Y"
                   IF WS-ENTRY = 00 THEN
                       PERFORM 92000-ABEND
                   ELSE IF WS-ENTRY = 01 THEN
                       MOVE 1 TO WS-PENS (2:1)
                   ELSE IF WS-ENTRY = 02 THEN
                       MOVE 2 TO WS-PENS (2:1)
                   ELSE IF WS-ENTRY = 03 THEN
                       MOVE 3 TO WS-PENS (2:1)
                   ELSE IF WS-ENTRY = 04 THEN
                       MOVE 4 TO WS-PENS (2:1)
                   ELSE IF WS-ENTRY = 05 THEN
                       MOVE 5 TO WS-PENS (2:1)
                   ELSE IF WS-ENTRY = 06 THEN
                       MOVE 6 TO WS-PENS (2:1)
                   ELSE IF WS-ENTRY = 07 THEN
                       MOVE 7 TO WS-PENS (2:1)
                   ELSE IF WS-ENTRY = 08 THEN
                       MOVE 8 TO WS-PENS (2:1)
                   ELSE IF WS-ENTRY = 09 THEN
                       MOVE 9 TO WS-PENS (2:1)
                   END-IF
               END-IF
           END-IF.

           PERFORM 90000-CLEAR-SCREEN.

       22660-NOPENS.
           EXIT.
           ADD 1 TO WS-PAGE-CNT
           MOVE WS-PAGE-CNT (2:1) TO WS-CNT

           DISPLAY "Pens
      -       " Page: " WS-CNT " of " WS-TOT-PAGE
           END-DISPLAY
           DISPLAY "====================================================
      -"==========================="
           END-DISPLAY
           DISPLAY " 1 p? I can't find a writing instrument."
           END-DISPLAY
           DISPLAY " 2 !p Pens are obsolete. I have a Newton."
           END-DISPLAY
           DISPLAY " " END-DISPLAY
           DISPLAY " " END-DISPLAY
           DISPLAY " " END-DISPLAY
           DISPLAY "Enter your No Pens 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 <= 02
                   SET WS-VALID-FLAG TO "Y"
                   IF WS-ENTRY = 00 THEN
                       PERFORM 92000-ABEND
                   ELSE IF WS-ENTRY = 01 THEN
                       MOVE "?" TO WS-PENS (2:1)
                   ELSE IF WS-ENTRY = 02 THEN
                       MOVE "!p" TO WS-PENS
                   END-IF
               END-IF
           END-IF.

           PERFORM 90000-CLEAR-SCREEN.

       22670-SLIDES.
           ADD 1 TO WS-PAGE-CNT
           MOVE WS-PAGE-CNT (2:1) TO WS-CNT

           DISPLAY "Slide Rules, Etc.
      -       " Page: " WS-CNT " of " WS-TOT-PAGE
           END-DISPLAY
           DISPLAY "====================================================
      -"==========================="
           END-DISPLAY
           DISPLAY "Do you carry a slide rule, calculator or portable co
      -        "mputer along with you?"
           END-DISPLAY
           DISPLAY " " END-DISPLAY
           DISPLAY " " END-DISPLAY
           DISPLAY " " END-DISPLAY
           DISPLAY " 1 Yes." END-DISPLAY
           DISPLAY " 2 No." END-DISPLAY
           DISPLAY " " END-DISPLAY
           DISPLAY " " END-DISPLAY
           DISPLAY " " END-DISPLAY
           DISPLAY "Enter your Extra Stuff 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 <= 02
                   SET WS-VALID-FLAG TO "Y"
                   IF WS-ENTRY = 00 THEN
                       PERFORM 92000-ABEND
                   ELSE IF WS-ENTRY = 01 THEN
                       MOVE "+" TO WS-PENS (3:1)
                   ELSE IF WS-ENTRY = 02 THEN
                       CONTINUE
                   END-IF
               END-IF
           END-IF.

           PERFORM 90000-CLEAR-SCREEN.

       22700-AUTO.
           ADD 1 TO WS-PAGE-CNT
           MOVE WS-PAGE-CNT TO WS-CNT

           DISPLAY "Automobile
      -       " Page: " WS-CNT " of " WS-TOT-PAGE
           END-DISPLAY
           DISPLAY "====================================================
      -"==========================="
           END-DISPLAY
           DISPLAY " 1 au++++ I have my chauffeured limo take me "
               "everywhere."
           END-DISPLAY
           DISPLAY " 2 au+++ I own four different colored Mercedes."
           END-DISPLAY
           DISPLAY " 3 au++ I drive a brand new car that cost more "
               "than most houses"
           END-DISPLAY
           DISPLAY " 4 au+ I have a sporty-looking car which would "
               "be a babe-mobile if"
           END-DISPLAY
           DISPLAY " I wasn't such a geek."
           END-DISPLAY
           DISPLAY " 5 au I drive a car which I bought from my "
               " parents. It has four doors even "
           END-DISPLAY
           DISPLAY " though I'm the only one who ever rides in
      -        "it. "
           END-DISPLAY
           DISPLAY " 6 au- I drive my parents' car. Hey, if I could "
               "afford my own I wouldn't "
           END-DISPLAY
           DISPLAY " be living at home with them. "
           END-DISPLAY
           DISPLAY " 7 au-- My car has rust everywhere and the "
              "muffler drags along the ground. "
           END-DISPLAY
           DISPLAY " 8 au--- I drive a '77 Pinto which went over "
               "100,000 miles two years ago. "
           END-DISPLAY
           DISPLAY " 9 au---- I have a Yugo."
           END-DISPLAY
           DISPLAY "10 !au I don't have a car."
           END-DISPLAY
           DISPLAY "11 au* I have a motorcycle."
           END-DISPLAY
           DISPLAY " " END-DISPLAY
           DISPLAY " " END-DISPLAY
           DISPLAY " " END-DISPLAY
           DISPLAY "Enter your Automobile 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 <= 11
                   SET WS-VALID-FLAG TO "Y"
                   IF WS-ENTRY = 00 THEN
                       PERFORM 92000-ABEND
                   ELSE IF WS-ENTRY = 01 THEN
                       MOVE "au++++" TO WS-AUTO
                   ELSE IF WS-ENTRY = 02 THEN
                       MOVE "au+++" TO WS-AUTO
                   ELSE IF WS-ENTRY = 03 THEN
                       MOVE "au++" TO WS-AUTO
                   ELSE IF WS-ENTRY = 04 THEN
                       MOVE "au+" TO WS-AUTO
                   ELSE IF WS-ENTRY = 05 THEN
                       MOVE "au" TO WS-AUTO
                   ELSE IF WS-ENTRY = 06 THEN
                       MOVE "au-" TO WS-AUTO
                   ELSE IF WS-ENTRY = 07 THEN
                       MOVE "au--" TO WS-AUTO
                   ELSE IF WS-ENTRY = 08 THEN
                       MOVE "au---" TO WS-AUTO
                   ELSE IF WS-ENTRY = 09 THEN
                       MOVE "au----" TO WS-AUTO
                   ELSE IF WS-ENTRY = 10 THEN
                       MOVE "!au" TO WS-AUTO
                   ELSE IF WS-ENTRY = 11 THEN
                       MOVE "au*" TO WS-AUTO
                   END-IF
               END-IF
           END-IF.

           PERFORM 90000-CLEAR-SCREEN.

       22800-AGE.
           ADD 1 TO WS-PAGE-CNT
           MOVE WS-PAGE-CNT TO WS-CNT

           DISPLAY "Age
      -       " Page: " WS-CNT " of " WS-TOT-PAGE
           END-DISPLAY
           DISPLAY "====================================================
      -"==========================="
           END-DISPLAY
           DISPLAY " 1 a+++ 60 and up." END-DISPLAY
           DISPLAY " 2 a++ 50-59." END-DISPLAY
           DISPLAY " 3 a+ 40-49." END-DISPLAY
           DISPLAY " 4 a 30-39." END-DISPLAY
           DISPLAY " 5 a- 20-29." END-DISPLAY
           DISPLAY " 6 a-- 10-19." END-DISPLAY
           DISPLAY " 7 a--- 9 and under." END-DISPLAY
           DISPLAY " 8 a? Ageless." END-DISPLAY
           DISPLAY " 9 !a It's none of your business how old I am."
           END-DISPLAY
           DISPLAY " " END-DISPLAY
           DISPLAY " " END-DISPLAY
           DISPLAY " " END-DISPLAY
           DISPLAY "Enter your Age 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 <= 09
                   SET WS-VALID-FLAG TO "Y"
                   IF WS-ENTRY = 00 THEN
                       PERFORM 92000-ABEND
                   ELSE IF WS-ENTRY = 01 THEN
                               MOVE "a+++" TO WS-AGE
                   ELSE IF WS-ENTRY = 02 THEN
                       MOVE "a++" TO WS-AGE
                   ELSE IF WS-ENTRY = 03 THEN
                       MOVE "a+" TO WS-AGE
                   ELSE IF WS-ENTRY = 04 THEN
                       MOVE "a" TO WS-AGE
                   ELSE IF WS-ENTRY = 05 THEN
                       MOVE "a-" TO WS-AGE
                   ELSE IF WS-ENTRY = 06 THEN
                       MOVE "a--" TO WS-AGE
                   ELSE IF WS-ENTRY = 07 THEN
                       MOVE "a---" TO WS-AGE
                   ELSE IF WS-ENTRY = 08 THEN
                       MOVE "a?" TO WS-AGE
                   ELSE IF WS-ENTRY = 09 THEN
                       MOVE "!a" TO WS-AGE
                   END-IF
               END-IF
           END-IF.

           PERFORM 90000-CLEAR-SCREEN.

       22900-WEIRD.
           ADD 1 TO WS-PAGE-CNT
           MOVE WS-PAGE-CNT TO WS-CNT

           DISPLAY "Weirdness
      -       " Page: " WS-CNT " of " WS-TOT-PAGE
           END-DISPLAY
           DISPLAY "====================================================
      -"==========================="
           END-DISPLAY
           DISPLAY " 1 w+++ Mainstream? I heard of that once, I think."
           END-DISPLAY
           DISPLAY " 2 w++ I am so weird, I make Al Yankovic look sane
      -        ". "
           END-DISPLAY
           DISPLAY " 3 w+ So? What's your problem with weird."
           END-DISPLAY
           DISPLAY " 4 w I am not weird. I'm perfectly normal."
           END-DISPLAY
           DISPLAY " 5 w- I'm more normal that most people normally a
      -        "re."
           END-DISPLAY
           DISPLAY " 6 w-- I am so incredibly boring . . . "
           END-DISPLAY
           DISPLAY " " END-DISPLAY
           DISPLAY " " END-DISPLAY
           DISPLAY " " END-DISPLAY
           DISPLAY "Enter your Weirdness 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 <= 06
                   SET WS-VALID-FLAG TO "Y"
                   IF WS-ENTRY = 00 THEN
                       PERFORM 92000-ABEND
                   ELSE IF WS-ENTRY = 01 THEN
                               MOVE "w+++" TO WS-WEIRD
                   ELSE IF WS-ENTRY = 02 THEN
                               MOVE "w++" TO WS-WEIRD
                   ELSE IF WS-ENTRY = 03 THEN
                       MOVE "w+" TO WS-WEIRD
                   ELSE IF WS-ENTRY = 04 THEN
                       MOVE "w" TO WS-WEIRD
                   ELSE IF WS-ENTRY = 05 THEN
                       MOVE "w-" TO WS-WEIRD
                   ELSE IF WS-ENTRY = 06 THEN
                       MOVE "w--" TO WS-WEIRD
                   END-IF
               END-IF
           END-IF.

           PERFORM 90000-CLEAR-SCREEN.

       23000-VERBAGE.
           ADD 1 TO WS-PAGE-CNT

           DISPLAY "Verbage
      -       " Page: " WS-PAGE-CNT " of " WS-TOT-PAGE
           END-DISPLAY
           DISPLAY "====================================================
      -"==========================="
           END-DISPLAY
           DISPLAY " 1 v--- I don't talk. I just type. "
           END-DISPLAY
           DISPLAY " 2 v-- When I talk, people usually look mildly em
      -        "barrassed. "
           END-DISPLAY
           DISPLAY " 3 v- I use words like 'grok' in everyday conver
      -        "sation."
           END-DISPLAY
           DISPLAY " 4 v At least I speak in complete sentences. Us
      -        "ually. "
           END-DISPLAY
           DISPLAY " 5 v+ People compliment me on my vocabulary. "
           END-DISPLAY
           DISPLAY " 6 v++ People compliment me on my eloquence. "
           END-DISPLAY
           DISPLAY " 7 v+++ I was the regional forensics champ. "
           END-DISPLAY
           DISPLAY " 8 !v Speech is irrelevant, I use telepathy. "
           END-DISPLAY
           DISPLAY " 9 v? I mumble. " END-DISPLAY
           DISPLAY "10 v* I babble. " END-DISPLAY
           DISPLAY " " END-DISPLAY
           DISPLAY " " END-DISPLAY
           DISPLAY " " END-DISPLAY
           DISPLAY "Enter your Verbage 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 <= 10
                   SET WS-VALID-FLAG TO "Y"
                   IF WS-ENTRY = 00 THEN
                       PERFORM 92000-ABEND
                   ELSE IF WS-ENTRY = 01 THEN
                       MOVE "v---" TO WS-VERBAGE
                   ELSE IF WS-ENTRY = 02 THEN
                       MOVE "v--" TO WS-VERBAGE
                   ELSE IF WS-ENTRY = 03 THEN
                       MOVE "v-" TO WS-VERBAGE
                   ELSE IF WS-ENTRY = 04 THEN
                       MOVE "v" TO WS-VERBAGE
                   ELSE IF WS-ENTRY = 05 THEN
                       MOVE "v+" TO WS-VERBAGE
                   ELSE IF WS-ENTRY = 06 THEN
                       MOVE "v++" TO WS-VERBAGE
                   ELSE IF WS-ENTRY = 07 THEN
                       MOVE "v+++" TO WS-VERBAGE
                   ELSE IF WS-ENTRY = 08 THEN
                       MOVE "!v" TO WS-VERBAGE
                   ELSE IF WS-ENTRY = 09 THEN
                       MOVE "v?" TO WS-VERBAGE
                   ELSE IF WS-ENTRY = 10 THEN
                       MOVE "v*" TO WS-VERBAGE
                   END-IF
               END-IF
           END-IF.

           PERFORM 90000-CLEAR-SCREEN.

       23100-COMP.
           ADD 1 TO WS-PAGE-CNT

           DISPLAY "Computers
      -       " Page: " WS-PAGE-CNT " of " WS-TOT-PAGE
           END-DISPLAY
           DISPLAY "====================================================
      -"==========================="
           END-DISPLAY
           DISPLAY " 1 C++++ I'll be first in line to get the new cyber
      -       "netic interface installed "
           END-DISPLAY
           DISPLAY " into my skull. " END-DISPLAY
           DISPLAY " 2 C+++ You mean there is life outside of Internet
      -        "? You're shittin' me! I "
           END-DISPLAY
           DISPLAY " live for muds. I haven't dragged myself to
      -        " class in weeks. "
           END-DISPLAY
           DISPLAY " 3 C++ Computers are a large part of my existenc
      -        "ence. When I get up in the "
           END-DISPLAY
           DISPLAY " morning, the first thing I do is log myse
      -        "lf in. I mud on weekends, "
           END-DISPLAY
           DISPLAY " but still manage to stay off of academic p
      -        "robation."
           END-DISPLAY
           DISPLAY " 4 C+ Computers are fun and I enjoy using them.
      -        "I play a mean game of DOOM! "
           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.

       23200-FLAVOR.
           ADD 1 TO WS-PAGE-CNT

           DISPLAY "UNIX Flavor
      -       " Page: " WS-PAGE-CNT " of " WS-TOT-PAGE
           END-DISPLAY
           DISPLAY "====================================================
      -"==========================="
           END-DISPLAY
           DISPLAY " 1 B BSD (use this unless your BSDish system is men
      -        "tioned below)." END-DISPLAY
           DISPLAY " 2 L Linux" END-DISPLAY
           DISPLAY " 3 U Ultrix" END-DISPLAY
           DISPLAY " 4 A AIX" END-DISPLAY
           DISPLAY " 5 V SysV" END-DISPLAY
           DISPLAY " 6 H HP-UX" END-DISPLAY
           DISPLAY " 7 I IRIX" END-DISPLAY
           DISPLAY " 8 O OSF/1" END-DISPLAY
           DISPLAY " 9 S SunOS / Solaris" END-DISPLAY
           DISPLAY "10 C SCO UNIX" END-DISPLAY
           DISPLAY "11 N NeXT" END-DISPLAY
           DISPLAY "12 ? Some other one not listed." END-DISPLAY
           DISPLAY " " END-DISPLAY
           DISPLAY " " END-DISPLAY
           DISPLAY " " END-DISPLAY
           DISPLAY "Enter your UNIX Flavor 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 <= 12
                   SET WS-VALID-FLAG TO "Y"
                   IF WS-ENTRY = 00 THEN
                       PERFORM 92000-ABEND
                   ELSE IF WS-ENTRY = 01 THEN
                       MOVE "UB" TO WS-UNIX-FLAVOR
                   ELSE IF WS-ENTRY = 02 THEN
                       MOVE "UL" TO WS-UNIX-FLAVOR
                   ELSE IF WS-ENTRY = 03 THEN
                       MOVE "UU" TO WS-UNIX-FLAVOR
                   ELSE IF WS-ENTRY = 04 THEN
                       MOVE "UA" TO WS-UNIX-FLAVOR
                   ELSE IF WS-ENTRY = 05 THEN
                       MOVE "UV" TO WS-UNIX-FLAVOR
                   ELSE IF WS-ENTRY = 06 THEN
                       MOVE "UH" TO WS-UNIX-FLAVOR
                   ELSE IF WS-ENTRY = 07 THEN
                       MOVE "UI" TO WS-UNIX-FLAVOR
                   ELSE IF WS-ENTRY = 08 THEN
                       MOVE "UO" TO WS-UNIX-FLAVOR
                   ELSE IF WS-ENTRY = 09 THEN
                       MOVE "US" TO WS-UNIX-FLAVOR
                   ELSE IF WS-ENTRY = 10 THEN
                       MOVE "UC" TO WS-UNIX-FLAVOR
                   ELSE IF WS-ENTRY = 11 THEN
                       MOVE "UN" TO WS-UNIX-FLAVOR
                   ELSE IF WS-ENTRY = 12 THEN
                       MOVE "U?" TO WS-UNIX-FLAVOR
                   END-IF
               END-IF
           END-IF.

           PERFORM 90000-CLEAR-SCREEN.

       23250-UNIX.
           ADD 1 TO WS-PAGE-CNT

           DISPLAY "UNIX Skill
      -       " Page: " WS-PAGE-CNT " of " WS-TOT-PAGE
           END-DISPLAY
           DISPLAY "====================================================
      -"==========================="
           END-DISPLAY
           DISPLAY " 1 " WS-UNIX-FLAVOR "++++ I am the sysadmin. If you
      -        "try and crack my machine don't be"
           END-DISPLAY
           DISPLAY " surprised if the municipal works department g
      -        "ets an 'accidental'"
           END-DISPLAY
           DISPLAY " computer-generated order to start a new la
      -        "ndfill put on your front"
           END-DISPLAY
           DISPLAY " lawn."
           END-DISPLAY
           DISPLAY " 2 " WS-UNIX-FLAVOR "+++ I don't need to crack /etc
      -        "/passwd because I just modified su"
           END-DISPLAY
           DISPLAY " so that it doesn't prompt me. The admin staf
      -        "f doesn't even know"
           END-DISPLAY
           DISPLAY " I'm here. If you don't understand what I j
      -        "ust said, this category"
           END-DISPLAY
           DISPLAY " does NOT apply to you!" END-DISPLAY
           DISPLAY " 3 " WS-UNIX-FLAVOR "++ I've get the entire admin
      -        "ticked off at me because I am always"
           END-DISPLAY
           DISPLAY " using all of the CPU time and trying to run p
      -        "rograms that I don't have"
           END-DISPLAY
           DISPLAY " access to. I'm going to try cracking /etc/
      -        "passwd next week, just "
           END-DISPLAY
           DISPLAY " don't tell anyone." END-DISPLAY
           DISPLAY " 4 " WS-UNIX-FLAVOR "+ I not only have a unix acc
      -        "ount, but I slam VMS any chance I get."
           END-DISPLAY
           DISPLAY " 5 " WS-UNIX-FLAVOR " I have a unix account to d
      -        "o my stuff in."
           END-DISPLAY
           DISPLAY " 6 " WS-UNIX-FLAVOR "- I have a VMS account."
           END-DISPLAY
           DISPLAY " 7 " WS-UNIX-FLAVOR "-- I've seen unix and didn't
      -        "like it. DEC rules!"
           END-DISPLAY
           DISPLAY " 8 " WS-UNIX-FLAVOR "--- Unix geeks are actually ne
      -        "rds in disguise. "
           END-DISPLAY
           DISPLAY " " END-DISPLAY
           DISPLAY " " END-DISPLAY
           DISPLAY " " END-DISPLAY
           DISPLAY "Enter your UNIX Skill 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 "++++" TO WS-UNIX-GURU
                   ELSE IF WS-ENTRY = 02 THEN
                       MOVE "+++" TO WS-UNIX-GURU
                   ELSE IF WS-ENTRY = 03 THEN
                       MOVE "++" TO WS-UNIX-GURU
                   ELSE IF WS-ENTRY = 04 THEN
                       MOVE "+" TO WS-UNIX-GURU
                   ELSE IF WS-ENTRY = 05 THEN
                       MOVE " " TO WS-UNIX-GURU
                   ELSE IF WS-ENTRY = 06 THEN
                       MOVE "-" TO WS-UNIX-GURU
                   ELSE IF WS-ENTRY = 07 THEN
                       MOVE "--" TO WS-UNIX-GURU
                   ELSE IF WS-ENTRY = 08 THEN
                       MOVE "---" TO WS-UNIX-GURU
                   END-IF
               END-IF
           END-IF.

           PERFORM 90000-CLEAR-SCREEN.

       23300-PERL.
           ADD 1 TO WS-PAGE-CNT

           DISPLAY "Perl
      -       " Page: " WS-PAGE-CNT " of " WS-TOT-PAGE
           END-DISPLAY
           DISPLAY "====================================================
      -"==========================="
           END-DISPLAY
           DISPLAY " 1 P++++ I don't write Perl, I speak it. Perl has s
      -        "uperseded all"
           END-DISPLAY
           DISPLAY " other programming languages. I firmly bel
      -        "ieve that all"
           END-DISPLAY
           DISPLAY " programs can be reduced to a Perl one-line
      -        "r."
           END-DISPLAY
           DISPLAY " 2 P+++ Perl is a very powerful programming tool.
      -        "Not only do I"
           END-DISPLAY
           DISPLAY " no longer write shell scripts, I also no l
      -        "onger use awk or"
           END-DISPLAY
           DISPLAY " sed. I use Perl for all programs of less t
      -        "han a thousand lines. "
           END-DISPLAY
           DISPLAY " 3 P++ Perl is a powerful programming tool. I don
      -        "'t write shell"
           END-DISPLAY
           DISPLAY " scripts anymore because I write them in Pe
      -        "rl."
           END-DISPLAY
           DISPLAY " 4 P+ I know of Perl. I like Perl. I just haven'
      -        "t learned much Perl,"
           END-DISPLAY
           DISPLAY " but it is on my agenda. " END-DISPLAY
           DISPLAY " 5 P- What's Perl got that awk and sed don't hav
      -        "e? "
           END-DISPLAY
           DISPLAY " 6 P-- Perl users are sick, twisted programmers w
      -        "ho are just"
           END-DISPLAY
           DISPLAY " showing off. " END-DISPLAY
           DISPLAY " 7 P--- Perl combines the power of sh, the clarity
      -        " of sed, and the"
           END-DISPLAY
           DISPLAY " performance of awk with the simplicity of
      -        "C. It should be banned."
           END-DISPLAY
           DISPLAY " 8 P? What's Pearl?" END-DISPLAY
           DISPLAY " 9 !P Our paranoid admin won't let us install pe
      -        "rl! Says it's"
           END-DISPLAY
           DISPLAY " a 'hacking tool'."  END-DISPLAY
           DISPLAY " " END-DISPLAY
           DISPLAY "Enter your Perl 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 <= 09
                   SET WS-VALID-FLAG TO "Y"
                   IF WS-ENTRY = 00 THEN
                       PERFORM 92000-ABEND
                   ELSE IF WS-ENTRY = 01 THEN
                       MOVE "P++++" TO WS-PERL
                   ELSE IF WS-ENTRY = 02 THEN
                       MOVE "P+++" TO WS-PERL
                   ELSE IF WS-ENTRY = 03 THEN
                       MOVE "P++" TO WS-PERL
                   ELSE IF WS-ENTRY = 04 THEN
                       MOVE "P+" TO WS-PERL
                   ELSE IF WS-ENTRY = 05 THEN
                       MOVE "P-" TO WS-PERL
                   ELSE IF WS-ENTRY = 06 THEN
                       MOVE "P--" TO WS-PERL
                   ELSE IF WS-ENTRY = 07 THEN
                       MOVE "P---" TO WS-PERL
                   ELSE IF WS-ENTRY = 08 THEN
                       MOVE "P?" TO WS-PERL
                   ELSE IF WS-ENTRY = 09 THEN
                       MOVE "!P" TO WS-PERL
                   END-IF
               END-IF
           END-IF.

           PERFORM 90000-CLEAR-SCREEN.

       23400-LINUX.
           ADD 1 TO WS-PAGE-CNT

           DISPLAY "Linux
      -       " Page: " WS-PAGE-CNT " of " WS-TOT-PAGE
           END-DISPLAY
           DISPLAY "====================================================
      -"==========================="
           END-DISPLAY
           DISPLAY " 1 L++++ I am Linus, hear me roar." END-DISPLAY
           DISPLAY " 2 L+++ I am a Linux wizard. I munch C code for br
      -        "eakfast and have enough "
           END-DISPLAY
           DISPLAY " room left over for a kernel debugging. I h
      -        "ave so many patches "
           END-DISPLAY
           DISPLAY " installed that I lost track about ten vers
      -        "ions ago. Linux"
           END-DISPLAY
           DISPLAY " newbies consider me a net.god."
           END-DISPLAY
           DISPLAY " 3 L++ I use Linux almost exclusively on my syste
      -       "m. I monitor "
           END-DISPLAY
           DISPLAY " comp.os.linux.* and even answer questions
      -        "some times. I've aliased "
           END-DISPLAY
           DISPLAY " Linux FTP sites to make getting new softwa
      -        "re easier. "
           END-DISPLAY
           DISPLAY " 4 L+ I've managed to get Linux installed and ev
      -        "en used it a few times. "
           END-DISPLAY
           DISPLAY " It seems like it is just another OS."
           END-DISPLAY
           DISPLAY " 5 L I know what Linux is, but that's about all
      -        "."
           END-DISPLAY
           DISPLAY " 6 L- I have no desire to use Linux and frankly
      -       " don't give a rats patootie "
           END-DISPLAY
           DISPLAY " about it. " END-DISPLAY
           DISPLAY " 7 L-- Unix sucks. Because Linux = Unix. Linux S
      -        "ucks. I worship Bill Gates."
           END-DISPLAY
           DISPLAY " 8 L--- I am Bill Gates. " END-DISPLAY
           DISPLAY " 9 !L I don't even know what Linux is!"
           END-DISPLAY
           DISPLAY " " END-DISPLAY
           DISPLAY " " END-DISPLAY
           DISPLAY " " END-DISPLAY
           DISPLAY "Enter your Linux 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 <= 09
                   SET WS-VALID-FLAG TO "Y"
                   IF WS-ENTRY = 00 THEN
                       PERFORM 92000-ABEND
                   ELSE IF WS-ENTRY = 01 THEN
                       MOVE "L++++" TO WS-LINUX
                   ELSE IF WS-ENTRY = 02 THEN
                       MOVE "L+++" TO WS-LINUX
                   ELSE IF WS-ENTRY = 03 THEN
                       MOVE "L++" TO WS-LINUX
                   ELSE IF WS-ENTRY = 04 THEN
                       MOVE "L+" TO WS-LINUX
                   ELSE IF WS-ENTRY = 05 THEN
                       MOVE "L" TO WS-LINUX
                   ELSE IF WS-ENTRY = 06 THEN
--> --------------------

--> maximum size reached

--> --------------------