| products/sources/formale sprachen/Cobol/verschiedene-Autoren/Randy Lejeune/ |
|
Quellcode-Bibliothek© Kompilation durch diese Firma[Weder Korrektheit noch Funktionsfähigkeit der Software werden zugesichert.]Datei: Sprache: CobolOriginal von: verschiedene© |
|
||||||
|
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.136 Sekunden (vorverarbeitet) ¤ |
Laden
Fehler beim Verzeichnis:
in der Quellcodebibliothek suchenDie farbliche Syntaxdarstellung ist noch experimentell.Bot Zugriff |
