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
--> --------------------
¤ Dauer der Verarbeitung: 0.118 Sekunden
(vorverarbeitet)
¤
|
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.
|