API tools faq
paste
Advertisement
gsibbery

Geekcode-2.1.cob

gsibbery
Jun 16th, 2020
3,011
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
COBOL 169.21 KB | None | 0 0
raw download clone embed print report
  1.        identification division.
  2.        program-id. geekcode.
  3.       ******************************************************************
  4.       *                                                               *
  5.       *Author. Randy LeJeune.                                          *
  6.       *Date-written.  29  Sep 2010. (v. 0.1)                           *
  7.       *Edited:        22 April 2013   - Minor Typos fixed.             *
  8.       *                             - Code converted to lowercase    *
  9.       *                                (v. 0.2)                       *
  10.       *              18 October 2013 - Spelling Errors & Typos        *
  11.       *                                corrected. (v. 0.3)            *
  12.       *                                                               *
  13.       ******************************************************************
  14.       ******************************************************************
  15.       *  This program is free software; you can redistribute it       *
  16.       *  and/or modify it under the terms of the GNU General Public   *
  17.       *  License as published by the Free Software Foundation; either *
  18.       *  version 2 of the License, or at your option) any later       *
  19.       *  version.                                                     *
  20.       *                                                               *
  21.       *  This program is distributed in the hope that it will be      *
  22.       *  useful, but WITHOUT ANY WARRANTY; without even the implied   *
  23.       *  warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR      *
  24.       *  PURPOSE.  See the GNU General Public License for more        *
  25.       *  details.                                                     *
  26.       *                                                               *
  27.       *  You should have received a copy of the GNU General Public    *
  28.       *  License along with this program; if not, write to the Free   *
  29.       *  Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139,*
  30.       *                                                               *
  31.       *  Interface Design taken from Chris Gushue's geekcode generator*
  32.      *                                                                *
  33.      ******************************************************************
  34.      ******************************************************************
  35.  
  36.       environment division.
  37.  
  38.       configuration section.
  39.  
  40.           source-computer. ibm-686.
  41.           object-computer. ibm-686.
  42.  
  43.       input-output section.
  44.  
  45.       file-control.
  46.           select geek-sig             assign to "geekcode.sig"
  47.                                       organization is line sequential.
  48.       data division.
  49.  
  50.       file section.
  51.  
  52.       fd  geek-sig.
  53.       01  geek-output-rec             pic x(80).
  54.  
  55.       working-storage section.
  56.  
  57.              01  ws-geek-code.
  58.           03  ws-head                 pic x(33)     value spaces.
  59.           03  ws-ver                  pic x(12)     value
  60.                  "Version: 2.1".
  61.           03  ws-type                 pic xxx       value spaces.
  62.           03                          pic x         value space.
  63.           03  ws-dress                pic x(4)      value spaces.
  64.           03                          pic x         value space.
  65.           03  ws-hair                 pic x(5)      value spaces.
  66.           03                          pic x         value space.
  67.           03  ws-shape.
  68.               05  ws-height           pic x(4)      value spaces.
  69.               05                      pic x         value ":".
  70.               05  ws-weight           pic x(4)      value spaces.
  71.           03  ws-glasses              pic x(4)      value spaces.
  72.           03                          pic x         value space.
  73.           03  ws-pens                 pic xxx       value spaces.
  74.           03                          pic x         value space.
  75.           03  ws-auto                 pic x(6)      value spaces.
  76.           03                          pic x         value space.
  77.           03  ws-age                  pic x(4)      value spaces.
  78.           03                          pic x         value space.
  79.           03  ws-weird                pic x(4)      value spaces.
  80.           03                          pic x         value space.
  81.           03  ws-verbage              pic x(4)      value spaces.
  82.           03                          pic x         value space.
  83.           03  ws-comp                 pic x(5)      value spaces.
  84.           03                          pic x         value space.
  85.           03  ws-unix.    
  86.               05  ws-unix-flavor      pic xx        value space.
  87.               05  ws-unix-guru        pic x(4)      value spaces.
  88.           03                          pic x         value space.
  89.           03  ws-perl                 pic x(5)      value spaces.
  90.           03                          pic x         value space.
  91.           03  ws-linux                pic x(5)      value spaces.
  92.           03                          pic x         value space.
  93.           03  ws-386bsd               pic x(4)      value spaces.
  94.           03                          pic x         value space.
  95.           03  ws-news                 pic x(5)      value spaces.
  96.           03                          pic x         value space.
  97.           03  ws-web                  pic x(4)      value spaces.
  98.           03                          pic x         value space.
  99.           03  ws-emacs                pic x(5)      value spaces.
  100.           03                          pic x         value space.
  101.           03  ws-kibo                 pic x(7)      value spaces.
  102.           03                          pic x         value space.
  103.           03  ws-ms                   pic x(5)      value spaces.
  104.           03                          pic x         value space.
  105.           03  ws-mac                  pic x(4)      value spaces.
  106.           03                          pic x         value space.
  107.           03  ws-vms                  pic x(4)      value spaces.
  108.           03                          pic x         value space.
  109.           03  ws-pol                  pic x(5)      value spaces.
  110.           03                          pic x         value space.
  111.           03  ws-cp                   pic x(4)      value spaces.
  112.           03                          pic x         value space.
  113.           03  ws-trek                 pic x(4)      value spaces.
  114.           03                          pic x         value space.
  115.           03  ws-bab                  pic x(4)      value spaces.
  116.           03                          pic x         value space.
  117.           03  ws-jeop                 pic x(4)      value spaces.
  118.           03                          pic x         value space.
  119.           03  ws-role                 pic x(4)      value spaces.
  120.           03                          pic x         value space.
  121.           03  ws-magic                pic x(5)      value spaces.
  122.           03                          pic x         value space.
  123.           03  ws-tv                   pic x(5)      value spaces.
  124.           03                          pic x         value space.
  125.           03  ws-books                pic x(4)      value spaces.
  126.           03                          pic x         value space.
  127.           03  ws-doom                 pic x(4)      value spaces.
  128.           03                          pic x         value space.
  129.           03  ws-barney               pic x(4)      value spaces.
  130.           03                          pic x         value space.
  131.           03  ws-educ                 pic x(5)      value spaces.
  132.           03                          pic x         value space.
  133.           03  ws-music                pic x(4)      value spaces.
  134.           03                          pic x         value space.
  135.           03  ws-house                pic x(5)      value spaces.
  136.           03                          pic x         value space.
  137.           03  ws-friends              pic x(4)      value spaces.
  138.           03                          pic x         value space.
  139.           03  ws-rel                  pic x(4)      value spaces.
  140.           03                          pic x         value space.
  141.           03  ws-nut                  pic x(5)      value spaces.
  142.           03                          pic x         value space.
  143.           03  ws-code-sex.
  144.               05  ws-sex-pre          pic x         value space.
  145.               05  ws-sex-gender       pic x         value space.
  146.               05  ws-sex              pic x(4)      value spaces.
  147.           03  ws-end                  pic x(33)     value spaces.
  148.  
  149.  
  150.       77  ws-print-line1              pic x(80)     value spaces.
  151.       77  ws-print-line2              pic x(80)     value spaces.
  152.       77  ws-print-line3              pic x(80)     value spaces.
  153.       77  ws-print-line4              pic x(80)     value spaces.
  154.  
  155.       77  ws-command                  pic a(20)     value spaces.
  156.       77  ws-cl-args                  pic x(10)     value spaces.
  157.       77  ws-page-cnt                 pic 99        value zeroes.
  158.       77  ws-cnt                      pic xx        value spaces.
  159.       77  ws-tot-page                 pic 99        value 45.
  160.       77  ws-rec-cnt                  pic 9         value zeroes.
  161.       77  ws-return-sys-code          pic 9(8) comp value zeroes.
  162.       77  ws-entry                    pic xx        value zeroes.
  163.  
  164.       01 ws-valid-flag                pic x         value "n".
  165.          88  ws-valid-data                          value "y".
  166.          88  ws-invalid-data                        value "n".
  167.  
  168.       01 ws-valid-pens                pic x         value "n".
  169.          88  ws-how-many                            value "y".
  170.  
  171.       procedure division.
  172.  
  173.       00000-control.
  174.           perform 10000-setup
  175.           perform 20000-process
  176.           perform 30000-cleanup.
  177.  
  178.       10000-setup.
  179.           accept ws-cl-args from command-line end-accept
  180.           perform 93000-parse-cmdln
  181.           open output geek-sig
  182.           initialize  geek-output-rec.
  183.  
  184.       20000-process.
  185.           perform 90000-clear-screen
  186.           perform 91000-print-heading
  187.           perform 21000-create.
  188.  
  189.       21000-create.
  190.           perform 22100-type      until ws-valid-data
  191.           set ws-valid-flag to "n"
  192.           perform 22200-dress     until ws-valid-data
  193.           set ws-valid-flag to "n"
  194.           perform 22300-hair      until ws-valid-data
  195.           set ws-valid-flag to "n"
  196.           perform 22400-height    until ws-valid-data
  197.           set ws-valid-flag to "n"
  198.           perform 22450-weight    until ws-valid-data
  199.           set ws-valid-flag to "n"
  200.           perform 22500-glasses   until ws-valid-data
  201.           set ws-valid-flag to "n"
  202.           perform 22600-pens      until ws-valid-data
  203.           set ws-valid-flag to "n"
  204.           perform 22670-slides    until ws-valid-data
  205.           set ws-valid-flag to "n"
  206.           perform 22700-auto      until ws-valid-data
  207.           set ws-valid-flag to "n"
  208.           perform 22800-age       until ws-valid-data
  209.           set ws-valid-flag to "n"
  210.           perform 22900-weird     until ws-valid-data
  211.           set ws-valid-flag to "n"
  212.           perform 23000-verbage   until ws-valid-data
  213.           set ws-valid-flag to "n"
  214.           perform 23100-comp      until ws-valid-data
  215.           set ws-valid-flag to "n"
  216.           perform 23200-flavor    until ws-valid-data
  217.           set ws-valid-flag to "n"
  218.           perform 23250-unix      until ws-valid-data
  219.           set ws-valid-flag to "n"
  220.           perform 23300-perl      until ws-valid-data
  221.           set ws-valid-flag to "n"
  222.           perform 23400-linux     until ws-valid-data
  223.           set ws-valid-flag to "n"
  224.           perform 23500-386bsd    until ws-valid-data
  225.           set ws-valid-flag to "n"
  226.           perform 23600-news      until ws-valid-data
  227.           set ws-valid-flag to "n"
  228.           perform 23700-web       until ws-valid-data
  229.           set ws-valid-flag to "n"
  230.           perform 23800-emacs     until ws-valid-data
  231.           set ws-valid-flag to "n"
  232.           perform 23900-kibo      until ws-valid-data
  233.           set ws-valid-flag to "n"
  234.           perform 24000-ms        until ws-valid-data
  235.           set ws-valid-flag to "n"
  236.           perform 24100-mac       until ws-valid-data
  237.           set ws-valid-flag to "n"
  238.           perform 24200-vms       until ws-valid-data
  239.           set ws-valid-flag to "n"
  240.           perform 24400-pol       until ws-valid-data
  241.           set ws-valid-flag to "n"
  242.           perform 24500-cp        until ws-valid-data
  243.           set ws-valid-flag to "n"
  244.           perform 24700-trek      until ws-valid-data
  245.           set ws-valid-flag to "n"
  246.           perform 24800-bab       until ws-valid-data
  247.           set ws-valid-flag to "n"
  248.           perform 25000-jeop      until ws-valid-data
  249.           set ws-valid-flag to "n"
  250.           perform 25100-role      until ws-valid-data
  251.           set ws-valid-flag to "n"
  252.           perform 25200-magic     until ws-valid-data
  253.           set ws-valid-flag to "n"
  254.           perform 25300-tv        until ws-valid-data
  255.           set ws-valid-flag to "n"
  256.           perform 25400-books     until ws-valid-data
  257.           set ws-valid-flag to "n"
  258.           perform 25500-doom      until ws-valid-data
  259.           set ws-valid-flag to "n"
  260.           perform 25600-barney    until ws-valid-data
  261.           set ws-valid-flag to "n"
  262.           perform 25700-educ      until ws-valid-data
  263.           set ws-valid-flag to "n"
  264.           perform 25800-music     until ws-valid-data
  265.           set ws-valid-flag to "n"
  266.           perform 25900-house     until ws-valid-data
  267.           set ws-valid-flag to "n"
  268.           perform 26000-friends   until ws-valid-data
  269.           set ws-valid-flag to "n"
  270.           perform 26100-rel       until ws-valid-data
  271.           set ws-valid-flag to "n"
  272.           perform 26200-nut       until ws-valid-data
  273.           set ws-valid-flag to "n"
  274.           perform 26300-gender    until ws-valid-data
  275.           set ws-valid-flag to "n"
  276.           perform 26350-sex       until ws-valid-data
  277.           perform 26500-print.
  278.  
  279.       22100-type.
  280.           add 1 to ws-page-cnt
  281.           move ws-page-cnt (2:1) to ws-cnt
  282.  
  283.           display "Geek Type
  284.      -       "             Page: " ws-cnt " of " ws-tot-page
  285.                  end-display
  286.           display "====================================================
  287.      -"==========================="
  288.               end-display
  289.           display " 1 GB  - Geek of Business                15 GL  -
  290.      -"Geek of Literature"
  291.               end-display
  292.           display " 2 GC  - Geek of Classics                16 GMC -
  293.      -"Geek of Mass Communications"
  294.               end-display
  295.           display " 3 GCA - Geek of Commercial Arts         17 GM  -
  296.      -"Geek of Math"
  297.               end-display
  298.           display " 4 GCM - Geek of Computer Management     18 GMD -
  299.      -"Geek of Medicine"
  300.               end-display
  301.           display " 5 GCS - Geek of Computer Science        19 GMU -
  302.      -"Geek of Music"
  303.               end-display
  304.           display " 6 GCC - Geek of Communications          20 GPA -
  305.      -"Geek of Performing Arts"
  306.               end-display
  307.           display " 7 GE  - Geek of Engineering             21 GP  -
  308.      -"Geek of Philosophy"
  309.               end-display
  310.           display " 8 GED - Geek of Education               22 GS  -
  311.      -"Geek of Science"
  312.               end-display
  313.           display " 9 GFA - Geek of Fine Arts               23 GSS -
  314.      -"Geek of Social Science"
  315.               end-display
  316.           display "10 GG  - Geek of Government              24 GTW -
  317.      -"Geek of Technicial Writing"
  318.               end-display
  319.           display "11 GH  - Geek of Humanities              25 GO  -
  320.      -"Geek of Other"
  321.               end-display
  322.           display "12 GIT - Geek of Information Technology  26 GU  -
  323.      -"Geek of Undecided"
  324.               end-display
  325.           display "13 GJ  - Geek of Jurisprudence (Law)     27 G!  -
  326.      -"Geek of No Qualifications"
  327.               end-display
  328.           display "14 GLS - Geek of Library Science         28 GAT -
  329.      -"Geek of All Trades"
  330.               end-display
  331.           display " " end-display
  332.           display " " end-display
  333.           display " " end-display
  334.           display " " end-display
  335.           display "Enter your Geek Type code "
  336.               "number here [0 to quit]: " with no advancing
  337.           end-display
  338.  
  339.           accept ws-entry end-accept
  340.  
  341.           if ws-entry (2:1) = space
  342.               move ws-entry (1:1) to ws-entry (2:1)
  343.               move 0              to ws-entry (1:1)  
  344.           end-if
  345.  
  346.           if ws-entry not numeric
  347.               continue
  348.           else
  349.               if ws-entry <= 28
  350.                   set ws-valid-flag to "y"
  351.                   if ws-entry = 00 then
  352.                       perform 92000-abend
  353.                   else if ws-entry = 01 then
  354.                       move "GL" to ws-type
  355.                   else if ws-entry = 02 then
  356.                       move "GC" to ws-type
  357.                   else if ws-entry = 03 then
  358.                       move "GCA" to ws-type
  359.                   else if ws-entry = 04 then
  360.                       move "GCM" to ws-type
  361.                   else if ws-entry = 05 then
  362.                       move "GCS" to ws-type
  363.                   else if ws-entry = 06 then
  364.                       move "GCC" to ws-type
  365.                   else if ws-entry = 07 then
  366.                       move "GE" to ws-type
  367.                   else if ws-entry = 08 then
  368.                       move "GED" to ws-type
  369.                   else if ws-entry = 09 then
  370.                       move "GFA" to ws-type
  371.                   else if ws-entry = 10 then
  372.                       move "GG" to ws-type
  373.                   else if ws-entry = 11 then
  374.                       move "GH" to ws-type
  375.                   else if ws-entry = 12 then
  376.                       move "GIT" to ws-type
  377.                   else if ws-entry = 13 then
  378.                       move "GJ" to ws-type
  379.                   else if ws-entry = 14 then
  380.                       move "GLS" to ws-type
  381.                   else if ws-entry = 15 then
  382.                       move "GL" to ws-type
  383.                   else if ws-entry = 16 then
  384.                       move "GMC" to ws-type
  385.                   else if ws-entry = 17 then
  386.                       move "GM" to ws-type
  387.                   else if ws-entry = 18 then
  388.                       move "GMD" to ws-type
  389.                   else if ws-entry = 19 then
  390.                       move "GMU" to ws-type
  391.                   else if ws-entry = 20 then
  392.                       move "GPA" to ws-type
  393.                   else if ws-entry = 21 then
  394.                       move "GP" to ws-type
  395.                   else if ws-entry = 22 then
  396.                       move "GS" to ws-type
  397.                   else if ws-entry = 23 then
  398.                       move "GSS" to ws-type
  399.                   else if ws-entry = 24 then
  400.                       move "GTW" to ws-type
  401.                   else if ws-entry = 25 then
  402.                       move "GO" to ws-type
  403.                   else if ws-entry = 26 then
  404.                       move "GU" to ws-type
  405.                   else if ws-entry = 27 then
  406.                       move "G!" to ws-type
  407.                   else if ws-entry = 28 then
  408.                       move "GAT" to ws-type
  409.                   end-if
  410.               end-if
  411.           end-if.
  412.  
  413.           perform 90000-clear-screen.
  414.  
  415.       22200-dress.
  416.           add 1 to ws-page-cnt
  417.           move ws-page-cnt (2:1) to ws-cnt
  418.  
  419.           display "Dress                                              
  420.      -       "             Page: " ws-cnt " of " ws-tot-page
  421.           end-display
  422.           display "====================================================
  423.      -"==========================="
  424.           end-display
  425.           display " 1  d++  I tend to wear conservative dress such as "
  426.              "a business suit or "
  427.           end-display
  428.           display "         worse, a tie." end-display
  429.           display " 2  d+   Good leisure-wear. Slacks, button-shirt, "
  430.               "etc. No jeans, tennis "
  431.           end-display
  432.           display "         shoes, or t-shirts." end-display
  433.           display " 3  d    I dress a lot like those found in catalog "
  434.               "ads. Bland, boring, "
  435.           end-display
  436.           display "         without life or meaning." end-display
  437.           display " 4  d-   I'm usually in jeans and a t-shirt."
  438.           end-display
  439.           display " 5  d--  My t-shirts go a step further and have a "
  440.               "trendy political "
  441.           end-display
  442.           display "         message on them." end-display
  443.           display " 6  d--- Punk dresser, including, but not limited "
  444.               "to, torn jeans and "
  445.           end-display
  446.           display "         shirts, body piercings, and prominent "
  447.               "tattoos."
  448.           end-display
  449.           display " 7  dx   Cross dresser." end-display
  450.           display " 8  d?   I have no idea what I am wearing now, "
  451.               "let alone what I wore yesterday."
  452.           end-display
  453.           display " 9  !d   No clothing. Quite a fashion statement, "
  454.               "don't you think?"
  455.           end-display
  456.           display "10  dpu  I wear the same clothes all the time, no "
  457.               "matter the occasion, "
  458.           end-display
  459.           display "         forgetting to do laundry between wearings."
  460.           end-display
  461.           display " " end-display
  462.           display " " end-display
  463.           display " " end-display
  464.           display "Enter your Dress code "
  465.               "number here [0 to quit]: " with no advancing
  466.           end-display
  467.  
  468.           accept ws-entry end-accept
  469.  
  470.           if ws-entry (2:1) = space
  471.               move ws-entry (1:1) to ws-entry (2:1)
  472.               move 0              to ws-entry (1:1)  
  473.           end-if
  474.  
  475.           if ws-entry not numeric
  476.               continue
  477.           else
  478.               if ws-entry <= 10
  479.                   set ws-valid-flag to "y"
  480.                   if ws-entry = 00 then
  481.                       perform 92000-abend
  482.                   else if ws-entry = 01 then
  483.                       move "d++" to ws-dress
  484.                   else if ws-entry = 02 then
  485.                       move "d+" to ws-dress
  486.                   else if ws-entry = 03 then
  487.                       move "d" to ws-dress
  488.                   else if ws-entry = 04 then
  489.                       move "d-" to ws-dress
  490.                   else if ws-entry = 05 then
  491.                       move "d--" to ws-dress
  492.                   else if ws-entry = 06 then
  493.                       move "d---" to ws-dress
  494.                   else if ws-entry = 07 then
  495.                       move "dx" to ws-dress
  496.                   else if ws-entry = 08 then
  497.                       move "d?" to ws-dress
  498.                   else if ws-entry = 09 then
  499.                       move "!d" to ws-dress
  500.                   else if ws-entry = 10 then
  501.                       move "dpu" to ws-dress
  502.                   end-if
  503.               end-if
  504.           end-if.
  505.  
  506.           perform 90000-clear-screen.
  507.  
  508.       22300-hair.
  509.           add 1 to ws-page-cnt
  510.           move ws-page-cnt (2:1) to ws-cnt
  511.  
  512.           display "Hair                                                
  513.      -       "             Page: " ws-cnt " of " ws-tot-page
  514.           end-display
  515.           display "====================================================
  516.      -"==========================="
  517.           end-display
  518.           display " 1 H+++   My hair goes down past my waist."
  519.           end-display
  520.           display " 2 H++    My hair dangles to my mid-back."
  521.           end-display
  522.           display " 3 H+     It's down to about my shoulders."
  523.           end-display
  524.           display " 4 H      It's just pretty normal hair."
  525.           end-display
  526.           display " 5 H-     It's cut above the neck."
  527.           end-display
  528.           display " 6 H--    Above the neck AND ear (flattop)."
  529.           end-display
  530.           display " 7 H---   It's about 1/8 inch long."
  531.           end-display
  532.           display " 8 H----  I shave my head daily, otherwise it gets "
  533.               "too long."
  534.           end-display
  535.           display " 9 !H     I'm bald."
  536.           end-display
  537.           display "10 H?     I have wigs that allow me to vary my "
  538.               "hair."
  539.           end-display
  540.           display "11 H*     My hair is dyed funky flavors."
  541.           end-display
  542.           display " " end-display
  543.           display " " end-display
  544.           display " " end-display
  545.           display "Enter your Hair code "
  546.               "number here [0 to quit]: " with no advancing
  547.           end-display
  548.  
  549.           accept ws-entry end-accept
  550.  
  551.           if ws-entry (2:1) = space
  552.               move ws-entry (1:1) to ws-entry (2:1)
  553.               move 0              to ws-entry (1:1)  
  554.           end-if
  555.  
  556.           if ws-entry not numeric
  557.               continue
  558.           else
  559.               if ws-entry <= 11
  560.                   set ws-valid-flag to "y"
  561.                   if ws-entry = 00 then
  562.                       perform 92000-abend
  563.                   else if ws-entry = 01 then
  564.                       move "H+++" to ws-hair
  565.                   else if ws-entry = 02 then
  566.                       move "H++" to ws-hair
  567.                   else if ws-entry = 03 then
  568.                       move "H+" to ws-hair
  569.                   else if ws-entry = 04 then
  570.                       move "H" to ws-hair
  571.                   else if ws-entry = 05 then
  572.                       move "H-" to ws-hair
  573.                   else if ws-entry = 06 then
  574.                       move "H--" to ws-hair
  575.                   else if ws-entry = 07 then
  576.                       move "H---" to ws-hair
  577.                   else if ws-entry = 08 then
  578.                       move "H----" to ws-hair
  579.                   else if ws-entry = 09 then
  580.                       move "!H" to ws-hair
  581.                   else if ws-entry = 10 then
  582.                       move "H?" to ws-hair
  583.                   else if ws-entry = 11 then
  584.                       move "H*" to ws-hair
  585.                   end-if
  586.               end-if
  587.           end-if.
  588.  
  589.           perform 90000-clear-screen.
  590.  
  591.       22400-height.
  592.           add 1 to ws-page-cnt
  593.           move ws-page-cnt (2:1) to ws-cnt
  594.  
  595.           display "Height                                              
  596.       -      "             Page: " ws-cnt " of " ws-tot-page
  597.            end-display
  598.            display "====================================================
  599.      -"==========================="
  600.           end-display
  601.           display " 1 s+++   I usually have to duck through doors. "
  602.           end-display
  603.           display " 2 s++    I'm a basketball candidate. "
  604.           end-display
  605.           display " 3 s+     I'm a little taller than most. "
  606.           end-display
  607.           display " 4 s      I'm an average geek. "
  608.           end-display
  609.           display " 5 s-     I look up to most people. "
  610.           end-display
  611.           display " 6 s--    I look up to damn near everybody. "
  612.           end-display
  613.           display " 7 s---   I take a phone book with me when I go "
  614.           end-display
  615.           display "          out so I can eat dinner. "
  616.           end-display
  617.           display " " end-display
  618.           display " " end-display
  619.           display " " end-display
  620.           display "Enter your Height code "
  621.               "number here [0 to quit]: " with no advancing
  622.           end-display
  623.  
  624.           accept ws-entry end-accept
  625.  
  626.           if ws-entry (2:1) = space
  627.               move ws-entry (1:1) to ws-entry (2:1)
  628.               move 0              to ws-entry (1:1)  
  629.           end-if
  630.  
  631.           if ws-entry not numeric
  632.               continue
  633.           else
  634.               if ws-entry <= 07
  635.                   set ws-valid-flag to "y"
  636.                   if ws-entry = 00 then
  637.                       perform 92000-abend
  638.                   else if ws-entry = 01 then
  639.                       move "s+++" to ws-height
  640.                   else if ws-entry = 02 then
  641.                       move "s++" to ws-height
  642.                   else if ws-entry = 03 then
  643.                       move "s+" to ws-height
  644.                   else if ws-entry = 04 then
  645.                       move "s" to ws-height
  646.                   else if ws-entry = 05 then
  647.                       move "s-" to ws-height
  648.                   else if ws-entry = 06 then
  649.                       move "s--" to ws-height
  650.                   else if ws-entry = 07 then
  651.                       move "s---" to ws-height
  652.                   end-if
  653.               end-if
  654.           end-if.
  655.  
  656.           perform 90000-clear-screen.
  657.  
  658.       22450-weight.
  659.           add 1 to ws-page-cnt
  660.           move ws-page-cnt (2:1) to ws-cnt
  661.  
  662.           display "Weight                                              
  663.      -       "             Page: " ws-cnt " of " ws-tot-page
  664.           end-display
  665.           display "====================================================
  666.      -"==========================="
  667.           end-display
  668.           display " 1 s+++   I take up three movie seats. "
  669.           end-display
  670.           display " 2 s++    I'm a linebacker candidate. "
  671.           end-display
  672.           display " 3 s+     I'm a little rounder than most."
  673.           end-display
  674.           display " 4 s      I'm an average geek."
  675.           end-display
  676.           display " 5 s-     Everybody tells me to gain a few pounds."
  677.           end-display
  678.           display " 6 s--    I tend to have to fight against a strong "
  679.               "breeze."
  680.           end-display
  681.           display " 7 s---   My bones are poking through my skin. "
  682.           end-display
  683.           display " " end-display
  684.           display " " end-display
  685.           display " " end-display
  686.           display "Enter your Weight code "
  687.               "number here [0 to quit]: " with no advancing
  688.           end-display
  689.  
  690.           accept ws-entry end-accept
  691.  
  692.           if ws-entry (2:1) = space
  693.               move ws-entry (1:1) to ws-entry (2:1)
  694.               move 0              to ws-entry (1:1)  
  695.           end-if
  696.  
  697.           if ws-entry not numeric
  698.               continue
  699.           else
  700.               if ws-entry <= 07
  701.                   set ws-valid-flag to "y"
  702.                   if ws-entry = 00 then
  703.                       perform 92000-abend
  704.                   else if ws-entry = 01 then
  705.                       move "+++" to ws-weight
  706.                   else if ws-entry = 02 then
  707.                       move "++" to ws-weight
  708.                   else if ws-entry = 03 then
  709.                       move "+" to ws-weight
  710.                   else if ws-entry = 04 then
  711.                       move " " to ws-weight
  712.                   else if ws-entry = 05 then
  713.                       move "-" to ws-weight
  714.                   else if ws-entry = 06 then
  715.                       move "--" to ws-weight
  716.                   else if ws-entry = 07 then
  717.                       move "---" to ws-weight
  718.                   end-if
  719.               end-if
  720.           end-if.
  721.  
  722.           perform 90000-clear-screen.
  723.  
  724.       22500-glasses.
  725.           add 1 to ws-page-cnt
  726.           move ws-page-cnt (2:1) to ws-cnt
  727.  
  728.           display "Glasses                                            
  729.       -      "             Page: " ws-cnt " of " ws-tot-page
  730.            end-display
  731.            display "====================================================
  732.      -"==========================="
  733.           end-display
  734.           display " 1 g+++   I have coke-bottle glasses that I can "
  735.               "use to start leaves on "
  736.           end-display
  737.           display "          fire in the hot sun."
  738.           end-display
  739.           display " 2 g++    I've got four eyes and tape in the "
  740.               "middle.  "
  741.           end-display
  742.           display " 3 g+     I've got four eyes, what's your point?"
  743.           end-display
  744.           display " 4 g-     I have contacts."
  745.           end-display
  746.           display " 5 g--    I have colored contacts I have contacts."
  747.           end-display
  748.           display " 6 g---   I have those funky contact that have "
  749.              "interesting designs on"
  750.           end-display
  751.           display "          then such as happy faces or some such. "
  752.           end-display
  753.           display " 7 !g     I have no glasses."
  754.           end-display
  755.           display " 8 g?     I can't find my glasses."
  756.           end-display
  757.           display " " end-display
  758.           display " " end-display
  759.           display " " end-display
  760.           display "Enter your Glasses code "
  761.               "number here [0 to quit]: " with no advancing
  762.           end-display
  763.  
  764.           accept ws-entry end-accept
  765.  
  766.           if ws-entry (2:1) = space
  767.               move ws-entry (1:1) to ws-entry (2:1)
  768.               move 0              to ws-entry (1:1)  
  769.           end-if
  770.  
  771.           if ws-entry not numeric
  772.               continue
  773.           else
  774.               if ws-entry <= 08
  775.                   set ws-valid-flag to "y"
  776.                   if ws-entry = 00 then
  777.                       perform 92000-abend
  778.                   else if ws-entry = 01 then
  779.                       move "g+++" to ws-glasses
  780.                   else if ws-entry = 02 then
  781.                       move "g++" to ws-glasses
  782.                   else if ws-entry = 03 then
  783.                       move "g+" to ws-glasses
  784.                   else if ws-entry = 04 then
  785.                       move "g-" to ws-glasses
  786.                   else if ws-entry = 05 then
  787.                       move "g--" to ws-glasses
  788.                   else if ws-entry = 06 then
  789.                       move "g---" to ws-glasses
  790.                   else if ws-entry = 07 then
  791.                       move "!g" to ws-glasses
  792.                   else if ws-entry = 08 then
  793.                       move "g?" to ws-glasses
  794.                   end-if
  795.               end-if
  796.           end-if.
  797.  
  798.           perform 90000-clear-screen.
  799.  
  800.       22600-pens.
  801.           add 1 to ws-page-cnt
  802.           move ws-page-cnt (2:1) to ws-cnt
  803.  
  804.           display "Pens                                          
  805.       -      "             Page: " ws-cnt " of " ws-tot-page
  806.            end-display
  807.            display "====================================================
  808.      -"==========================="
  809.           end-display
  810.           display "Do you have any pens in your pockets? "
  811.           end-display
  812.           display " " end-display
  813.           display " " end-display
  814.           display " " end-display
  815.           display " 1 Yes." end-display
  816.           display " 2 No." end-display
  817.           display " " end-display
  818.           display " " end-display
  819.           display " " end-display
  820.           display "Enter your Pens code "
  821.               "number here [0 to quit]: " with no advancing
  822.           end-display
  823.  
  824.           accept ws-entry end-accept
  825.  
  826.           if ws-entry (2:1) = space
  827.               move ws-entry (1:1) to ws-entry (2:1)
  828.               move 0              to ws-entry (1:1)  
  829.           end-if
  830.  
  831.           if ws-entry not numeric
  832.               continue
  833.           else
  834.               if ws-entry <= 02
  835.                   set ws-valid-flag to "y"
  836.                   if ws-entry = 00 then
  837.                       perform 92000-abend
  838.                   else if ws-entry = 01 then
  839.                       move "p" to ws-pens (1:1)
  840.                       perform 90000-clear-screen
  841.                       perform 22650-how-many until ws-how-many
  842.                   else if ws-entry = 02 then
  843.                       perform 90000-clear-screen
  844.                       perform 22660-nopens
  845.                   end-if
  846.               end-if
  847.           end-if.
  848.  
  849.           perform 90000-clear-screen.
  850.  
  851.       22650-how-many.
  852.           add 1 to ws-page-cnt
  853.           move ws-page-cnt (2:1) to ws-cnt
  854.  
  855.           display "Pens                                          
  856.       -      "             Page: " ws-cnt " of " ws-tot-page
  857.            end-display
  858.            display "====================================================
  859.      -"==========================="
  860.           end-display
  861.           display "How many pens do you have in your pockets? "
  862.           end-display
  863.           display " " end-display
  864.           display " " end-display
  865.           display " " end-display
  866.           display " 1 One." end-display
  867.           display " 2 Two." end-display
  868.           display " 3 Three." end-display
  869.           display " 4 Four." end-display
  870.           display " 5 Five." end-display
  871.           display " 6 Six." end-display
  872.           display " 7 Seven." end-display
  873.           display " 8 Eight." end-display
  874.           display " 9 Nine." end-display
  875.           display " " end-display
  876.           display " " end-display
  877.           display " " end-display
  878.           display "Enter your Pens Number code "
  879.               "number here [0 to quit]: " with no advancing
  880.           end-display
  881.  
  882.           accept ws-entry end-accept
  883.  
  884.           if ws-entry (2:1) = space
  885.               move ws-entry (1:1) to ws-entry (2:1)
  886.               move 0              to ws-entry (1:1)  
  887.           end-if
  888.  
  889.           if ws-entry not numeric
  890.               continue
  891.           else
  892.               if ws-entry <= 09
  893.                   set ws-valid-pens to "y"
  894.                   if ws-entry = 00 then
  895.                       perform 92000-abend
  896.                   else if ws-entry = 01 then
  897.                       move 1 to ws-pens (2:1)
  898.                   else if ws-entry = 02 then
  899.                       move 2 to ws-pens (2:1)
  900.                   else if ws-entry = 03 then
  901.                       move 3 to ws-pens (2:1)
  902.                   else if ws-entry = 04 then
  903.                       move 4 to ws-pens (2:1)
  904.                   else if ws-entry = 05 then
  905.                       move 5 to ws-pens (2:1)
  906.                   else if ws-entry = 06 then
  907.                       move 6 to ws-pens (2:1)
  908.                   else if ws-entry = 07 then
  909.                       move 7 to ws-pens (2:1)
  910.                   else if ws-entry = 08 then
  911.                       move 8 to ws-pens (2:1)
  912.                   else if ws-entry = 09 then
  913.                       move 9 to ws-pens (2:1)
  914.                   end-if
  915.               end-if
  916.           end-if.
  917.  
  918.           perform 90000-clear-screen.
  919.  
  920.       22660-nopens.
  921.           exit.
  922.           add 1 to ws-page-cnt
  923.           move ws-page-cnt (2:1) to ws-cnt
  924.  
  925.           display "Pens                                          
  926.       -      "             Page: " ws-cnt " of " ws-tot-page
  927.            end-display
  928.            display "====================================================
  929.      -"==========================="
  930.           end-display
  931.           display " 1 p?     I can't find a writing instrument."
  932.           end-display
  933.           display " 2 !p     Pens are obsolete. I have a Newton."
  934.           end-display
  935.           display " " end-display
  936.           display " " end-display
  937.           display " " end-display
  938.           display "Enter your No Pens code "
  939.               "number here [0 to quit]: " with no advancing
  940.           end-display
  941.  
  942.           accept ws-entry end-accept
  943.  
  944.           if ws-entry (2:1) = space
  945.               move ws-entry (1:1) to ws-entry (2:1)
  946.               move 0              to ws-entry (1:1)  
  947.           end-if
  948.  
  949.           if ws-entry not numeric
  950.               continue
  951.           else
  952.               if ws-entry <= 02
  953.                   set ws-valid-flag to "y"
  954.                   if ws-entry = 00 then
  955.                       perform 92000-abend
  956.                   else if ws-entry = 01 then
  957.                       move "?" to ws-pens (2:1)
  958.                   else if ws-entry = 02 then
  959.                       move "!p" to ws-pens
  960.                   end-if
  961.               end-if
  962.           end-if.
  963.  
  964.           perform 90000-clear-screen.
  965.  
  966.       22670-slides.
  967.           add 1 to ws-page-cnt
  968.           move ws-page-cnt (2:1) to ws-cnt
  969.  
  970.           display "Slide Rules, Etc.                                  
  971.      -       "             Page: " ws-cnt " of " ws-tot-page
  972.           end-display
  973.           display "====================================================
  974.      -"==========================="
  975.           end-display
  976.           display "Do you carry a slide rule, calculator or portable co
  977.      -        "mputer along with you?"
  978.           end-display
  979.           display " " end-display
  980.           display " " end-display
  981.           display " " end-display
  982.           display " 1 Yes." end-display
  983.           display " 2 No." end-display
  984.           display " " end-display
  985.           display " " end-display
  986.           display " " end-display
  987.           display "Enter your Extra Stuff code "
  988.               "number here [0 to quit]: " with no advancing
  989.           end-display
  990.  
  991.           accept ws-entry end-accept
  992.  
  993.           if ws-entry (2:1) = space
  994.               move ws-entry (1:1) to ws-entry (2:1)
  995.               move 0              to ws-entry (1:1)  
  996.           end-if
  997.  
  998.           if ws-entry not numeric
  999.               continue
  1000.           else
  1001.               if ws-entry <= 02
  1002.                   set ws-valid-flag to "y"
  1003.                   if ws-entry = 00 then
  1004.                       perform 92000-abend
  1005.                   else if ws-entry = 01 then
  1006.                       move "+" to ws-pens (3:1)
  1007.                   else if ws-entry = 02 then
  1008.                       continue
  1009.                   end-if
  1010.               end-if
  1011.           end-if.
  1012.  
  1013.           perform 90000-clear-screen.
  1014.  
  1015.       22700-auto.
  1016.           add 1 to ws-page-cnt
  1017.           move ws-page-cnt to ws-cnt
  1018.  
  1019.           display "Automobile                                          
  1020.      -       "             Page: " ws-cnt " of " ws-tot-page
  1021.           end-display
  1022.           display "====================================================
  1023.      -"==========================="
  1024.           end-display
  1025.           display " 1 au++++ I have my chauffeured limo take me "
  1026.               "everywhere."
  1027.           end-display
  1028.           display " 2 au+++  I own four different colored Mercedes."
  1029.           end-display
  1030.           display " 3 au++   I drive a brand new car that cost more "
  1031.               "than most houses"
  1032.           end-display
  1033.           display " 4 au+    I have a sporty-looking car which would "
  1034.               "be a babe-mobile if"
  1035.           end-display
  1036.           display "          I wasn't such a geek."
  1037.           end-display
  1038.           display " 5 au     I drive a car which I bought from my "
  1039.               " parents. It has four doors even "
  1040.           end-display
  1041.           display "          though I'm the only one who ever rides in
  1042.      -        "it. "
  1043.           end-display
  1044.           display " 6 au-    I drive my parents' car. Hey, if I could "
  1045.               "afford my own I wouldn't "
  1046.           end-display
  1047.           display "          be living at home with them. "
  1048.           end-display
  1049.           display " 7 au--   My car has rust everywhere and the "
  1050.              "muffler drags along the ground.  "
  1051.           end-display
  1052.           display " 8 au---  I drive a '77 Pinto which went over "
  1053.               "100,000 miles two years ago.  "
  1054.           end-display
  1055.           display " 9 au---- I have a Yugo."
  1056.           end-display
  1057.           display "10 !au    I don't have a car."
  1058.           end-display
  1059.           display "11 au*    I have a motorcycle."
  1060.           end-display
  1061.           display " " end-display
  1062.           display " " end-display
  1063.           display " " end-display
  1064.           display "Enter your Automobile code "
  1065.               "number here [0 to quit]: " with no advancing
  1066.           end-display
  1067.  
  1068.           accept ws-entry end-accept
  1069.  
  1070.           if ws-entry (2:1) = space
  1071.               move ws-entry (1:1) to ws-entry (2:1)
  1072.               move 0              to ws-entry (1:1)  
  1073.           end-if
  1074.  
  1075.           if ws-entry not numeric
  1076.               continue
  1077.           else
  1078.               if ws-entry <= 11
  1079.                   set ws-valid-flag to "y"
  1080.                   if ws-entry = 00 then
  1081.                       perform 92000-abend
  1082.                   else if ws-entry = 01 then
  1083.                       move "au++++" to ws-auto
  1084.                   else if ws-entry = 02 then
  1085.                       move "au+++" to ws-auto
  1086.                   else if ws-entry = 03 then
  1087.                       move "au++" to ws-auto
  1088.                   else if ws-entry = 04 then
  1089.                       move "au+" to ws-auto
  1090.                   else if ws-entry = 05 then
  1091.                       move "au" to ws-auto
  1092.                   else if ws-entry = 06 then
  1093.                       move "au-" to ws-auto
  1094.                   else if ws-entry = 07 then
  1095.                       move "au--" to ws-auto
  1096.                   else if ws-entry = 08 then
  1097.                       move "au---" to ws-auto
  1098.                   else if ws-entry = 09 then
  1099.                       move "au----" to ws-auto
  1100.                   else if ws-entry = 10 then
  1101.                       move "!au" to ws-auto
  1102.                   else if ws-entry = 11 then
  1103.                       move "au*" to ws-auto
  1104.                   end-if
  1105.               end-if
  1106.           end-if.
  1107.  
  1108.           perform 90000-clear-screen.
  1109.  
  1110.       22800-age.
  1111.           add 1 to ws-page-cnt
  1112.           move ws-page-cnt to ws-cnt
  1113.  
  1114.           display "Age                                                
  1115.      -       "             Page: " ws-cnt " of " ws-tot-page
  1116.           end-display
  1117.           display "====================================================
  1118.      -"==========================="
  1119.           end-display
  1120.           display " 1 a+++   60 and up." end-display
  1121.           display " 2 a++    50-59." end-display
  1122.           display " 3 a+     40-49." end-display
  1123.           display " 4 a      30-39." end-display
  1124.           display " 5 a-     20-29." end-display
  1125.           display " 6 a--    10-19." end-display
  1126.           display " 7 a---   9 and under." end-display
  1127.           display " 8 a?     Ageless." end-display
  1128.           display " 9 !a     It's none of your business how old I am."
  1129.           end-display
  1130.           display " " end-display
  1131.           display " " end-display
  1132.           display " " end-display
  1133.           display "Enter your Age code "
  1134.               "number here [0 to quit]: " with no advancing
  1135.           end-display
  1136.  
  1137.           accept ws-entry end-accept
  1138.  
  1139.           if ws-entry (2:1) = space
  1140.               move ws-entry (1:1) to ws-entry (2:1)
  1141.               move 0              to ws-entry (1:1)  
  1142.           end-if
  1143.  
  1144.           if ws-entry not numeric
  1145.               continue
  1146.           else
  1147.               if ws-entry <= 09
  1148.                   set ws-valid-flag to "y"
  1149.                   if ws-entry = 00 then
  1150.                       perform 92000-abend
  1151.                   else if ws-entry = 01 then
  1152.                               move "a+++" to ws-age
  1153.                   else if ws-entry = 02 then
  1154.                       move "a++" to ws-age
  1155.                   else if ws-entry = 03 then
  1156.                       move "a+" to ws-age
  1157.                   else if ws-entry = 04 then
  1158.                       move "a" to ws-age
  1159.                   else if ws-entry = 05 then
  1160.                       move "a-" to ws-age
  1161.                   else if ws-entry = 06 then
  1162.                       move "a--" to ws-age
  1163.                   else if ws-entry = 07 then
  1164.                       move "a---" to ws-age
  1165.                   else if ws-entry = 08 then
  1166.                       move "a?" to ws-age
  1167.                   else if ws-entry = 09 then
  1168.                       move "!a" to ws-age
  1169.                   end-if
  1170.               end-if
  1171.           end-if.
  1172.  
  1173.           perform 90000-clear-screen.
  1174.  
  1175.       22900-weird.
  1176.           add 1 to ws-page-cnt
  1177.           move ws-page-cnt to ws-cnt
  1178.  
  1179.           display "Weirdness                                          
  1180.       -      "             Page: " ws-cnt " of " ws-tot-page
  1181.            end-display
  1182.            display "====================================================
  1183.      -"==========================="
  1184.           end-display
  1185.           display " 1 w+++  Mainstream? I heard of that once, I think."
  1186.           end-display
  1187.           display " 2 w++   I am so weird, I make Al Yankovic look sane
  1188.       -       ".  "
  1189.            end-display
  1190.            display " 3 w+    So? What's your problem with weird."
  1191.            end-display
  1192.            display " 4 w     I am not weird. I'm perfectly normal."
  1193.            end-display
  1194.            display " 5 w-    I'm more normal that most people normally a
  1195.      -        "re."
  1196.           end-display
  1197.           display " 6 w--   I am so incredibly boring . . .  "
  1198.           end-display
  1199.           display " " end-display
  1200.           display " " end-display
  1201.           display " " end-display
  1202.           display "Enter your Weirdness code "
  1203.               "number here [0 to quit]: " with no advancing
  1204.           end-display
  1205.  
  1206.           accept ws-entry end-accept
  1207.  
  1208.           if ws-entry (2:1) = space
  1209.               move ws-entry (1:1) to ws-entry (2:1)
  1210.               move 0              to ws-entry (1:1)  
  1211.           end-if
  1212.  
  1213.           if ws-entry not numeric
  1214.               continue
  1215.           else
  1216.               if ws-entry <= 06
  1217.                   set ws-valid-flag to "y"
  1218.                   if ws-entry = 00 then
  1219.                       perform 92000-abend
  1220.                   else if ws-entry = 01 then
  1221.                       move "w+++" to ws-weird
  1222.                   else if ws-entry = 02 then
  1223.                       move "w++" to ws-weird
  1224.                   else if ws-entry = 03 then
  1225.                       move "w+" to ws-weird
  1226.                   else if ws-entry = 04 then
  1227.                       move "w" to ws-weird
  1228.                   else if ws-entry = 05 then
  1229.                       move "w-" to ws-weird
  1230.                   else if ws-entry = 06 then
  1231.                       move "w--" to ws-weird
  1232.                   end-if
  1233.               end-if
  1234.           end-if.
  1235.  
  1236.           perform 90000-clear-screen.
  1237.  
  1238.       23000-verbage.
  1239.           add 1 to ws-page-cnt
  1240.  
  1241.           display "Verbage                                            
  1242.       -      "             Page: " ws-page-cnt " of " ws-tot-page
  1243.            end-display
  1244.            display "====================================================
  1245.      -"==========================="
  1246.           end-display
  1247.           display " 1 v---   I don't talk. I just type. "
  1248.           end-display
  1249.           display " 2 v--    When I talk, people usually look mildly em
  1250.      -        "barrassed. "
  1251.           end-display
  1252.           display " 3 v-     I use words like 'grok' in everyday conver
  1253.      -        "sation."
  1254.           end-display
  1255.           display " 4 v      At least I speak in complete sentences. Us
  1256.      -        "ually. "
  1257.           end-display
  1258.           display " 5 v+     People compliment me on my vocabulary. "
  1259.           end-display
  1260.           display " 6 v++    People compliment me on my eloquence. "
  1261.           end-display
  1262.           display " 7 v+++   I was the regional forensics champ. "
  1263.           end-display
  1264.           display " 8 !v     Speech is irrelevant, I use telepathy. "
  1265.           end-display
  1266.           display " 9 v?     I mumble.  " end-display
  1267.           display "10 v*     I babble.  " end-display
  1268.           display " " end-display
  1269.           display " " end-display
  1270.           display " " end-display
  1271.           display "Enter your Verbage code "
  1272.               "number here [0 to quit]: " with no advancing
  1273.           end-display
  1274.  
  1275.           accept ws-entry end-accept
  1276.  
  1277.           if ws-entry (2:1) = space
  1278.               move ws-entry (1:1) to ws-entry (2:1)
  1279.               move 0              to ws-entry (1:1)  
  1280.           end-if
  1281.  
  1282.           if ws-entry not numeric
  1283.               continue
  1284.           else
  1285.               if ws-entry <= 10
  1286.                   set ws-valid-flag to "y"
  1287.                   if ws-entry = 00 then
  1288.                       perform 92000-abend
  1289.                   else if ws-entry = 01 then
  1290.                       move "v---" to ws-verbage
  1291.                   else if ws-entry = 02 then
  1292.                       move "v--" to ws-verbage
  1293.                   else if ws-entry = 03 then
  1294.                       move "v-" to ws-verbage
  1295.                   else if ws-entry = 04 then
  1296.                       move "v" to ws-verbage
  1297.                   else if ws-entry = 05 then
  1298.                       move "v+" to ws-verbage
  1299.                   else if ws-entry = 06 then
  1300.                       move "v++" to ws-verbage
  1301.                   else if ws-entry = 07 then
  1302.                       move "v+++" to ws-verbage
  1303.                   else if ws-entry = 08 then
  1304.                       move "!v" to ws-verbage
  1305.                   else if ws-entry = 09 then
  1306.                       move "v?" to ws-verbage
  1307.                   else if ws-entry = 10 then
  1308.                       move "v*" to ws-verbage
  1309.                   end-if
  1310.               end-if
  1311.           end-if.
  1312.  
  1313.           perform 90000-clear-screen.
  1314.  
  1315.       23100-comp.
  1316.           add 1 to ws-page-cnt
  1317.  
  1318.           display "Computers                                          
  1319.      -       "             Page: " ws-page-cnt " of " ws-tot-page
  1320.           end-display
  1321.           display "====================================================
  1322.      -"==========================="
  1323.           end-display
  1324.           display " 1 C++++  I'll be first in line to get the new cyber
  1325.       -      "netic interface installed "
  1326.            end-display
  1327.            display "          into my skull. " end-display
  1328.            display " 2 C+++   You mean there is life outside of Internet
  1329.      -        "? You're shittin' me! I "
  1330.           end-display
  1331.           display "          live for muds. I haven't dragged myself to
  1332.      -        " class in weeks. "
  1333.           end-display
  1334.           display " 3 C++    Computers are a large part of my existenc
  1335.      -        "ence. When I get up in the "
  1336.           end-display
  1337.           display "          morning, the first thing I do is log myse
  1338.      -        "lf in. I mud on weekends, "
  1339.           end-display
  1340.           display "          but still manage to stay off of academic p
  1341.      -        "robation."
  1342.           end-display
  1343.           display " 4 C+     Computers are fun and I enjoy using them.
  1344.      -        "I play a mean game of DOOM! "
  1345.           end-display
  1346.           display "          and can use a word processor without resor
  1347.      -        "ting to the manual too. "
  1348.           end-display
  1349.           display "          often. I know that a 3.5 inch disk is not
  1350.      -        " a hard disk. I also "
  1351.           end-display
  1352.           display "          know that when it says 'press any key' to
  1353.      -        "continue, I don't have to "
  1354.           end-display
  1355.           display "          look for a key labeled 'ANY'.  "
  1356.           end-display
  1357.           display " 5 C      Computers are a tool, nothing more. I use
  1358.       -       "it when it serves my "
  1359.            end-display
  1360.            display "          purpose." end-display
  1361.            display " 6 C-     Anything more complicated than my calculat
  1362.      -        "or and I'm screwed. "
  1363.           end-display
  1364.           display " 7 C--    Where's the on switch? " end-display
  1365.           display " 8 C---   If you even mention computers, I will rip
  1366.       -        "your head off!  "
  1367.            end-display
  1368.            display " " end-display
  1369.            display " " end-display
  1370.            display " " end-display
  1371.            display "Enter your Computer code "
  1372.                "number here [0 to quit]: " with no advancing
  1373.            end-display
  1374.  
  1375.            accept ws-entry end-accept
  1376.  
  1377.            if ws-entry (2:1) = space
  1378.                move ws-entry (1:1) to ws-entry (2:1)
  1379.                move 0              to ws-entry (1:1)  
  1380.            end-if
  1381.  
  1382.            if ws-entry not numeric
  1383.                continue
  1384.            else
  1385.                if ws-entry <= 08
  1386.                    set ws-valid-flag to "y"
  1387.                    if ws-entry = 00 then
  1388.                        perform 92000-abend
  1389.                    else if ws-entry = 01 then
  1390.                        move "C++++" to ws-comp
  1391.                    else if ws-entry = 02 then
  1392.                        move "C+++" to ws-comp
  1393.                    else if ws-entry = 03 then
  1394.                        move "C++" to ws-comp
  1395.                    else if ws-entry = 04 then
  1396.                        move "C+" to ws-comp
  1397.                    else if ws-entry = 05 then
  1398.                        move "C" to ws-comp
  1399.                    else if ws-entry = 06 then
  1400.                        move "C-" to ws-comp
  1401.                    else if ws-entry = 07 then
  1402.                        move "C--" to ws-comp
  1403.                    else if ws-entry = 08 then
  1404.                        move "C---" to ws-comp
  1405.                    end-if
  1406.                end-if
  1407.            end-if.
  1408.  
  1409.            perform 90000-clear-screen.
  1410.  
  1411.        23200-flavor.
  1412.            add 1 to ws-page-cnt
  1413.  
  1414.            display "UNIX Flavor                                        
  1415.      -       "             Page: " ws-page-cnt " of " ws-tot-page
  1416.           end-display
  1417.           display "====================================================
  1418.       -"==========================="
  1419.            end-display
  1420.            display " 1 B  BSD (use this unless your BSDish system is men
  1421.      -        "tioned below)." end-display
  1422.           display " 2 L  Linux" end-display
  1423.           display " 3 U  Ultrix" end-display
  1424.           display " 4 A  AIX" end-display
  1425.           display " 5 V  SysV" end-display
  1426.           display " 6 H  HP-UX" end-display
  1427.           display " 7 I  IRIX" end-display
  1428.           display " 8 O  OSF/1" end-display
  1429.           display " 9 S  SunOS / Solaris" end-display
  1430.           display "10 C  SCO UNIX" end-display
  1431.           display "11 N  NeXT" end-display
  1432.           display "12 ?  Some other one not listed." end-display
  1433.           display " " end-display
  1434.           display " " end-display
  1435.           display " " end-display
  1436.           display "Enter your UNIX Flavor code "
  1437.               "number here [0 to quit]: " with no advancing
  1438.           end-display
  1439.  
  1440.           accept ws-entry end-accept
  1441.  
  1442.           if ws-entry (2:1) = space
  1443.               move ws-entry (1:1) to ws-entry (2:1)
  1444.               move 0              to ws-entry (1:1)  
  1445.           end-if
  1446.  
  1447.           if ws-entry not numeric
  1448.               continue
  1449.           else
  1450.               if ws-entry <= 12
  1451.                   set ws-valid-flag to "y"
  1452.                   if ws-entry = 00 then
  1453.                       perform 92000-abend
  1454.                   else if ws-entry = 01 then
  1455.                       move "UB" to ws-unix-flavor
  1456.                   else if ws-entry = 02 then
  1457.                       move "UL" to ws-unix-flavor
  1458.                   else if ws-entry = 03 then
  1459.                       move "UU" to ws-unix-flavor
  1460.                   else if ws-entry = 04 then
  1461.                       move "UA" to ws-unix-flavor
  1462.                   else if ws-entry = 05 then
  1463.                       move "UV" to ws-unix-flavor
  1464.                   else if ws-entry = 06 then
  1465.                       move "UH" to ws-unix-flavor
  1466.                   else if ws-entry = 07 then
  1467.                       move "UI" to ws-unix-flavor
  1468.                   else if ws-entry = 08 then
  1469.                       move "UO" to ws-unix-flavor
  1470.                   else if ws-entry = 09 then
  1471.                       move "US" to ws-unix-flavor
  1472.                   else if ws-entry = 10 then
  1473.                       move "UC" to ws-unix-flavor
  1474.                   else if ws-entry = 11 then
  1475.                       move "UN" to ws-unix-flavor
  1476.                   else if ws-entry = 12 then
  1477.                       move "U?" to ws-unix-flavor
  1478.                   end-if
  1479.               end-if
  1480.           end-if.
  1481.  
  1482.           perform 90000-clear-screen.
  1483.  
  1484.       23250-unix.
  1485.           add 1 to ws-page-cnt
  1486.  
  1487.           display "UNIX Skill                                          
  1488.       -      "             Page: " ws-page-cnt " of " ws-tot-page
  1489.            end-display
  1490.            display "====================================================
  1491.      -"==========================="
  1492.           end-display
  1493.           display " 1 " ws-unix-flavor "++++ I am the sysadmin. If you
  1494.       -       "try and crack my machine don't be"
  1495.            end-display
  1496.            display "          surprised if the municipal works department g
  1497.      -        "ets an 'accidental'"
  1498.           end-display
  1499.           display "          computer-generated order to start a new la
  1500.       -       "ndfill put on your front"
  1501.            end-display
  1502.            display "          lawn."
  1503.            end-display
  1504.            display " 2 " ws-unix-flavor "+++  I don't need to crack /etc
  1505.      -        "/passwd because I just modified su"
  1506.           end-display
  1507.            display "          so that it doesn't prompt me.  The admin staf
  1508.      -        "f doesn't even know"
  1509.           end-display
  1510.           display "          I'm here. If you don't understand what I j
  1511.       -       "ust said, this category"
  1512.            end-display
  1513.            display "          does NOT apply to you!" end-display
  1514.            display " 3 " ws-unix-flavor "++   I've get the entire admin
  1515.      -        "ticked off at me because I am always"
  1516.           end-display
  1517.            display "          using all of the CPU time and trying to run p
  1518.       -       "rograms that I don't have"
  1519.            end-display
  1520.            display "          access to. I'm going to try cracking /etc/
  1521.      -        "passwd next week, just "
  1522.           end-display
  1523.           display "          don't tell anyone." end-display
  1524.           display " 4 " ws-unix-flavor "+    I not only have a unix acc
  1525.      -        "ount, but I slam VMS any chance I get."
  1526.           end-display
  1527.           display " 5 " ws-unix-flavor "     I have a unix account to d
  1528.      -        "o my stuff in."
  1529.           end-display
  1530.           display " 6 " ws-unix-flavor "-    I have a VMS account."
  1531.           end-display
  1532.           display " 7 " ws-unix-flavor "--   I've seen unix and didn't
  1533.      -        "like it.  DEC rules!"
  1534.           end-display
  1535.           display " 8 " ws-unix-flavor "---  Unix geeks are actually ne
  1536.      -        "rds in disguise. "
  1537.           end-display
  1538.           display " " end-display
  1539.           display " " end-display
  1540.           display " " end-display
  1541.           display "Enter your UNIX Skill code "
  1542.               "number here [0 to quit]: " with no advancing
  1543.           end-display
  1544.  
  1545.           accept ws-entry end-accept
  1546.  
  1547.           if ws-entry (2:1) = space
  1548.               move ws-entry (1:1) to ws-entry (2:1)
  1549.               move 0              to ws-entry (1:1)  
  1550.           end-if
  1551.  
  1552.           if ws-entry not numeric
  1553.               continue
  1554.           else
  1555.               if ws-entry <= 08
  1556.                   set ws-valid-flag to "y"
  1557.                   if ws-entry = 00 then
  1558.                       perform 92000-abend
  1559.                   else if ws-entry = 01 then
  1560.                       move "++++" to ws-unix-guru
  1561.                   else if ws-entry = 02 then
  1562.                       move "+++" to ws-unix-guru
  1563.                   else if ws-entry = 03 then
  1564.                       move "++" to ws-unix-guru
  1565.                   else if ws-entry = 04 then
  1566.                       move "+" to ws-unix-guru
  1567.                   else if ws-entry = 05 then
  1568.                       move " " to ws-unix-guru
  1569.                   else if ws-entry = 06 then
  1570.                       move "-" to ws-unix-guru
  1571.                   else if ws-entry = 07 then
  1572.                       move "--" to ws-unix-guru
  1573.                   else if ws-entry = 08 then
  1574.                       move "---" to ws-unix-guru
  1575.                   end-if
  1576.               end-if
  1577.           end-if.
  1578.  
  1579.           perform 90000-clear-screen.
  1580.  
  1581.       23300-perl.
  1582.           add 1 to ws-page-cnt
  1583.  
  1584.           display "Perl                                                
  1585.      -       "             Page: " ws-page-cnt " of " ws-tot-page
  1586.           end-display
  1587.           display "====================================================
  1588.      -"==========================="
  1589.           end-display
  1590.           display " 1 P++++  I don't write Perl, I speak it. Perl has s
  1591.       -       "uperseded all"
  1592.            end-display
  1593.            display "          other programming languages. I firmly bel
  1594.      -        "ieve that all"
  1595.           end-display
  1596.           display "          programs can be reduced to a Perl one-line
  1597.       -       "r."
  1598.            end-display
  1599.            display " 2 P+++   Perl is a very powerful programming tool.
  1600.      -        "Not only do I"
  1601.           end-display
  1602.           display "          no longer write shell scripts, I also no l
  1603.       -       "onger use awk or"
  1604.            end-display
  1605.            display "          sed. I use Perl for all programs of less t
  1606.      -        "han a thousand lines.  "
  1607.           end-display
  1608.           display " 3 P++    Perl is a powerful programming tool. I don
  1609.       -       "'t write shell"
  1610.            end-display
  1611.            display "          scripts anymore because I write them in Pe
  1612.      -        "rl."
  1613.           end-display
  1614.           display " 4 P+     I know of Perl. I like Perl. I just haven'
  1615.      -        "t learned much Perl,"
  1616.           end-display
  1617.           display "          but it is on my agenda. " end-display
  1618.           display " 5 P-     What's Perl got that awk and sed don't hav
  1619.      -        "e?  "
  1620.           end-display
  1621.           display " 6 P--    Perl users are sick, twisted programmers w
  1622.      -        "ho are just"
  1623.           end-display
  1624.           display "          showing off. " end-display
  1625.           display " 7 P---   Perl combines the power of sh, the clarity
  1626.      -        " of sed, and the"
  1627.           end-display
  1628.           display "          performance of awk with the simplicity of
  1629.      -        "C. It should be banned."
  1630.           end-display
  1631.           display " 8 P?     What's Pearl?" end-display
  1632.           display " 9 !P     Our paranoid admin won't let us install pe
  1633.      -        "rl! Says it's"
  1634.           end-display
  1635.           display "          a 'hacking tool'."  end-display
  1636.           display " " end-display
  1637.           display "Enter your Perl code "
  1638.               "number here [0 to quit]: " with no advancing
  1639.           end-display
  1640.  
  1641.           accept ws-entry end-accept
  1642.  
  1643.           if ws-entry (2:1) = space
  1644.               move ws-entry (1:1) to ws-entry (2:1)
  1645.               move 0              to ws-entry (1:1)  
  1646.           end-if
  1647.  
  1648.           if ws-entry not numeric
  1649.               continue
  1650.           else
  1651.               if ws-entry <= 09
  1652.                   set ws-valid-flag to "y"
  1653.                   if ws-entry = 00 then
  1654.                       perform 92000-abend
  1655.                   else if ws-entry = 01 then
  1656.                       move "P++++" to ws-perl
  1657.                   else if ws-entry = 02 then
  1658.                       move "P+++" to ws-perl
  1659.                   else if ws-entry = 03 then
  1660.                       move "P++" to ws-perl
  1661.                   else if ws-entry = 04 then
  1662.                       move "P+" to ws-perl
  1663.                   else if ws-entry = 05 then
  1664.                       move "P-" to ws-perl
  1665.                   else if ws-entry = 06 then
  1666.                       move "P--" to ws-perl
  1667.                   else if ws-entry = 07 then
  1668.                       move "P---" to ws-perl
  1669.                   else if ws-entry = 08 then
  1670.                       move "P?" to ws-perl
  1671.                   else if ws-entry = 09 then
  1672.                       move "!P" to ws-perl
  1673.                   end-if
  1674.               end-if
  1675.           end-if.
  1676.  
  1677.           perform 90000-clear-screen.
  1678.  
  1679.       23400-linux.
  1680.           add 1 to ws-page-cnt
  1681.  
  1682.           display "Linux                                              
  1683.       -      "             Page: " ws-page-cnt " of " ws-tot-page
  1684.            end-display
  1685.            display "====================================================
  1686.      -"==========================="
  1687.           end-display
  1688.           display " 1 L++++  I am Linus, hear me roar." end-display
  1689.           display " 2 L+++   I am a Linux wizard. I munch C code for br
  1690.       -       "eakfast and have enough "
  1691.            end-display
  1692.            display "          room left over for a kernel debugging. I h
  1693.      -        "ave so many patches "
  1694.           end-display
  1695.           display "          installed that I lost track about ten vers
  1696.       -       "ions ago. Linux"
  1697.            end-display
  1698.            display "          newbies consider me a net.god."
  1699.            end-display
  1700.            display " 3 L++    I use Linux almost exclusively on my syste
  1701.      -       "m. I monitor "
  1702.           end-display
  1703.           display "          comp.os.linux.* and even answer questions
  1704.       -       "some times. I've aliased "
  1705.            end-display
  1706.            display "          Linux FTP sites to make getting new softwa
  1707.      -        "re easier.  "
  1708.           end-display
  1709.           display " 4 L+     I've managed to get Linux installed and ev
  1710.      -        "en used it a few times. "
  1711.           end-display
  1712.           display "          It seems like it is just another OS."
  1713.           end-display
  1714.           display " 5 L      I know what Linux is, but that's about all
  1715.       -       "."
  1716.            end-display
  1717.            display " 6 L-     I have no desire to use Linux and frankly
  1718.      -       " don't give a rat's patootie "
  1719.           end-display
  1720.           display "          about it.  " end-display
  1721.           display " 7 L--    Unix sucks. Because Linux = Unix. Linux
  1722.       -       "sucks. I worship Bill Gates."
  1723.            end-display
  1724.            display " 8 L---   I am Bill Gates. " end-display
  1725.            display " 9 !L     I don't even know what Linux is!"
  1726.            end-display
  1727.            display " " end-display
  1728.            display " " end-display
  1729.            display " " end-display
  1730.            display "Enter your Linux code "
  1731.                "number here [0 to quit]: " with no advancing
  1732.            end-display
  1733.  
  1734.            accept ws-entry end-accept
  1735.  
  1736.            if ws-entry (2:1) = space
  1737.                move ws-entry (1:1) to ws-entry (2:1)
  1738.                move 0              to ws-entry (1:1)  
  1739.            end-if
  1740.  
  1741.            if ws-entry not numeric
  1742.                continue
  1743.            else
  1744.                if ws-entry <= 09
  1745.                    set ws-valid-flag to "y"
  1746.                    if ws-entry = 00 then
  1747.                        perform 92000-abend
  1748.                    else if ws-entry = 01 then
  1749.                        move "L++++" to ws-linux
  1750.                    else if ws-entry = 02 then
  1751.                        move "L+++" to ws-linux
  1752.                    else if ws-entry = 03 then
  1753.                        move "L++" to ws-linux
  1754.                    else if ws-entry = 04 then
  1755.                        move "L+" to ws-linux
  1756.                    else if ws-entry = 05 then
  1757.                        move "L" to ws-linux
  1758.                    else if ws-entry = 06 then
  1759.                        move "L-" to ws-linux
  1760.                    else if ws-entry = 07 then
  1761.                        move "L--" to ws-linux
  1762.                    else if ws-entry = 08 then
  1763.                        move "L---" to ws-linux
  1764.                    else if ws-entry = 09 then
  1765.                        move "!L" to ws-linux
  1766.                    end-if
  1767.                end-if
  1768.            end-if.
  1769.  
  1770.            perform 90000-clear-screen.
  1771.  
  1772.        23500-386bsd.
  1773.            add 1 to ws-page-cnt
  1774.  
  1775.            display "386BSD                                              
  1776.      -       "             Page: " ws-page-cnt " of " ws-tot-page
  1777.           end-displaY
  1778.           display "====================================================
  1779.       -"==========================="
  1780.            end-display
  1781.            display " 1 3+++   I am a 386BSD wizard. I munch C code for b
  1782.      -        "reakfast and have enough"
  1783.           end-display
  1784.           DISPLAY "          room left over for a kernel debugging. I h
  1785.       -       "ave so many patches"
  1786.            end-display
  1787.            display "          installed that I lost track about ten vers
  1788.      -        "ions ago. "
  1789.           end-display
  1790.           display "          386BSD newbies consider me a net.god."
  1791.           end-display
  1792.           display " 2 3++    I use 386BSD almost exclusively on my syst
  1793.       -      "em. I monitor "
  1794.            end-display
  1795.            display "          comp.os.386bsd.* and even answer questions
  1796.      -        "some times. I've aliased "
  1797.           end-display
  1798.           display "          386BSD FTP sites to make getting new softw
  1799.      -        "are easier.  "
  1800.           end-display
  1801.           display " 3 3+     I've managed to get 386BSD installed and e
  1802.       -       "ven used it a few times. "
  1803.            end-display
  1804.            display "          It seems like it is just another OS."
  1805.            end-display
  1806.            display " 4 3      I know what 386BSD is, but that's about al
  1807.      -        "l."
  1808.           end-display
  1809.           display " 5 3-     I have no desire to use 386BSD and frankly
  1810.       -      " don't give a rat's patootie "
  1811.            end-display
  1812.            display "          about it.  " end-display
  1813.            display " 6 3--    Unix sucks. Because 386BSD = Unix. 386BSD
  1814.      -        "Sucks. I worship Bill Gates."
  1815.           end-display
  1816.           display " 7 3---   I am USL's lawyer. " end-display
  1817.           display " 8 !3     I don't even know what Linux is!"
  1818.           end-display
  1819.           display " " end-display
  1820.           display " " end-display
  1821.           display " " end-display
  1822.           display "Enter your 386BSD code "
  1823.               "number here [0 to quit]: " with no advancing
  1824.           end-display
  1825.  
  1826.           accept ws-entry end-accept
  1827.  
  1828.           if ws-entry (2:1) = space
  1829.               move ws-entry (1:1) to ws-entry (2:1)
  1830.               move 0              to ws-entry (1:1)  
  1831.           end-if
  1832.  
  1833.           if ws-entry not numeric
  1834.               continue
  1835.           else
  1836.               if ws-entry <= 08
  1837.                   set ws-valid-flag to "y"
  1838.                   if ws-entry = 00 then
  1839.                       perform 92000-abend
  1840.                   else if ws-entry = 01 then
  1841.                       move "3+++" to ws-386bsd
  1842.                   else if ws-entry = 02 then
  1843.                       move "3++" to ws-386bsd
  1844.                   else if ws-entry = 03 then
  1845.                       move "3+" to ws-386bsd
  1846.                   else if ws-entry = 04 then
  1847.                       move "3" to ws-386bsd
  1848.                   else if ws-entry = 05 then
  1849.                       move "3-" to ws-386bsd
  1850.                   else if ws-entry = 06 then
  1851.                       move "3--" to ws-386bsd
  1852.                   else if ws-entry = 07 then
  1853.                       move "3---" to ws-386bsd
  1854.                   else if ws-entry = 08 then
  1855.                       move "!3" to ws-386bsd
  1856.                   end-if
  1857.               end-if
  1858.           end-if.
  1859.  
  1860.           perform 90000-clear-screen.
  1861.  
  1862.       23600-news.
  1863.           add 1 to ws-page-cnt
  1864.  
  1865.           display "USENET                                              
  1866.       -      "             Page: " ws-page-cnt " of " ws-tot-page
  1867.            end-display
  1868.            display "====================================================
  1869.      -"==========================="
  1870.           end-display
  1871.           display " 1 N++++  I am Tim Pierce." end-display
  1872.           display " 2 N+++   I read so many news groups that the next b
  1873.       -       "atch of news "
  1874.            end-display
  1875.            display "          comes in before I finish reading the last
  1876.      -        "batch, and I"
  1877.           end-display
  1878.           display "          have to read for about 2 hours straight be
  1879.       -       "fore I'm "
  1880.            end-display
  1881.            display "          caught up on the morning's news. Then ther
  1882.      -        "e's the afternoon...  "
  1883.           end-display
  1884.           display " 3 N++    I read all the news in a select handful of
  1885.      -        " groups. "
  1886.           end-display
  1887.           display " 4 N+     I read news recreationally when I have som
  1888.      -        "e time to kill."
  1889.           end-display
  1890.           display " 5 N      Usenet News? Sure, I read that once."
  1891.           end-display
  1892.           display " 6 N-     News is a waste of my time and I avoid it
  1893.      -        "completely."
  1894.           end-display
  1895.           display " 7 N--    News sucks! 'Nuff said." end-display
  1896.           display " 8 N*     All I do is read news." end-display
  1897.           display " 9 !N     We don't have news." end-display
  1898.           display " " end-display
  1899.           display " " end-display
  1900.           display " " end-display
  1901.           display "Enter your Usenet code "
  1902.               "number here [0 to quit]: " with no advancing
  1903.           end-display
  1904.  
  1905.           accept ws-entry end-accept
  1906.  
  1907.           if ws-entry (2:1) = space
  1908.               move ws-entry (1:1) to ws-entry (2:1)
  1909.               move 0              to ws-entry (1:1)  
  1910.           end-iF
  1911.  
  1912.           if ws-entry not numeric
  1913.               continue
  1914.           else
  1915.               if ws-entry <= 09
  1916.                   set ws-valid-flag to "y"
  1917.                   if ws-entry = 00 then
  1918.                       perform 92000-abend
  1919.                   else if ws-entry = 01 then
  1920.                       move "N++++" to ws-news
  1921.                   else if ws-entry = 02 then
  1922.                       move "N+++" to ws-news
  1923.                   else if ws-entry = 03 then
  1924.                       move "N++" to ws-news
  1925.                   else if ws-entry = 04 then
  1926.                       move "N+" to ws-news
  1927.                   else if ws-entry = 05 then
  1928.                       move "N" to ws-news
  1929.                   else if ws-entry = 06 then
  1930.                       move "N-" to ws-news
  1931.                   else if ws-entry = 07 then
  1932.                       move "N--" to ws-news
  1933.                   else if ws-entry = 08 then
  1934.                       move "N*" to ws-news
  1935.                   else if ws-entry = 09 then
  1936.                       move "!N" to ws-news
  1937.                  end-if
  1938.              end-if
  1939.          end-if.
  1940.  
  1941.           perform 90000-clear-screen.
  1942.  
  1943.       23700-web.
  1944.           add 1 to ws-page-cnt
  1945.  
  1946.           display "World Wide Web                                      
  1947.      -       "             Page: " ws-page-cnt " of " ws-tot-page
  1948.           end-display
  1949.           display "====================================================
  1950.      -"==========================="
  1951.           end-display
  1952.           display " 1 W+++  I am a WebMaster . Don't even think about t
  1953.       -       "rying to view"
  1954.            end-display
  1955.            display "         my homepage without the latest version of N
  1956.      -        "etscape. When"
  1957.           end-display
  1958.           display "         I'm not on my normal net connection, I surf
  1959.      -        " the web using"
  1960.           end-display
  1961.           display "         my Newton and a cellular modem."
  1962.           end-display
  1963.           display " 2 W++   I have a homepage. I surf daily. My homepag
  1964.      -        "e is advertised"
  1965.           end-display
  1966.           display "         in my .signature."
  1967.           end-display
  1968.           display " 3 W+    I have the latest version of Netscape, and
  1969.      -        "wander the web"
  1970.           end-display
  1971.           display "         only when there's something specific I'm lo
  1972.      -        "oking for."
  1973.           end-display
  1974.           display " 4 W     I have a browser and a connection. Occasio
  1975.      -        "nally I'll use them."
  1976.           end-display
  1977.           display " 5 W-    The web is really a pain. Life was so much
  1978.       -       " easier when"
  1979.            end-display
  1980.            display "         you could transfer information by simple
  1981.      -        "ASCII. Now everyone"
  1982.           end-display
  1983.           display "         won't even consider your ideas unless you
  1984.      -        "spiff them up"
  1985.           end-display
  1986.           display "         with bandwidth-consuming pictures and poin
  1987.      -        "tless information links. "
  1988.           end-display
  1989.           display " 6 W--   A pox on the Web! It wastes time and bandw
  1990.      -        "idth and just"
  1991.           end-display
  1992.           display "         gives the uneducated morons a reason to
  1993.      -        "clutter the Internet."
  1994.           end-display
  1995.           display " " end-display
  1996.           display " " end-display
  1997.           display " " end-display
  1998.           display "Enter your World Wide Web code "
  1999.               "number here [0 to quit]: " with no advancing
  2000.           end-display
  2001.  
  2002.           accept ws-entry end-accept
  2003.  
  2004.           if ws-entry (2:1) = space
  2005.               move ws-entry (1:1) to ws-entry (2:1)
  2006.               move 0              to ws-entry (1:1)  
  2007.           end-if
  2008.  
  2009.           if ws-entry not numeric
  2010.               continue
  2011.           else
  2012.               if ws-entry <= 06
  2013.                   set ws-valid-flag to "y"
  2014.                   if ws-entry = 00 then
  2015.                       perform 92000-abend
  2016.                   else if ws-entry = 01 then
  2017.                       move "W+++" to ws-web
  2018.                   else if ws-entry = 02 then
  2019.                       move "W++" to ws-web
  2020.                   else if ws-entry = 03 then
  2021.                       move "W+" to ws-web
  2022.                   else if ws-entry = 04 then
  2023.                       move "W" to ws-web
  2024.                   else if ws-entry = 05 then
  2025.                       move "W" to ws-web
  2026.                   else if ws-entry = 06 then
  2027.                       move "W--" to ws-web
  2028.                   end-if
  2029.               end-if
  2030.           end-if.
  2031.  
  2032.           perform 90000-clear-screen.
  2033.  
  2034.       23800-emacs.
  2035.           ADD 1 TO WS-PAGE-CNT
  2036.  
  2037.           display "Emacs                                              
  2038.      -       "             Page: " ws-page-cnt " of " ws-tot-page
  2039.           end-display
  2040.           display "====================================================
  2041.      -"==========================="
  2042.           end-display
  2043.           display " 1 E+++   Emacs is my login shell!! M-x doctor is my
  2044.      -         " psychologist! I use"
  2045.           end-display
  2046.           display "          emacs to control my TV and toaster oven! A
  2047.      -        "ll you vi people"
  2048.           end-display
  2049.           display "          don't know what you're missing! I read alt
  2050.      -        ".relgion.emacs,"
  2051.           end-display
  2052.           display "          alt.sex.emacs, and comp.os.emacs."
  2053.           end-display
  2054.           display " 2 E++    I know and use elisp regularly!"
  2055.           end-display
  2056.           display " 3 E+     Emacs is great! I read my mail and news wi
  2057.      -        "th it!"
  2058.           end-display
  2059.           display " 4 E      Yeah, I know what emacs is, and use it as
  2060.      -        "my regular editor."
  2061.           end-display
  2062.           display " 5 E-     Emacs is too big and bloated for my tastes
  2063.      -        "."
  2064.           end-display
  2065.           display " 6 E--    Emacs is just a fancy word processor."
  2066.           end-display
  2067.           display " 7 E---   Emacs sucks! vi forever!!!"
  2068.           end-display
  2069.           display " 8 E----  Emacs sucks! pico forever!!!"
  2070.           end-display
  2071.           display " 9 !E     Emacs? What's that?" end-display
  2072.           display " " end-display
  2073.           display " " end-display
  2074.           display " " end-display
  2075.           display "Enter your Emacs code "
  2076.               "number here [0 to quit]: " with no advancing
  2077.           end-display
  2078.  
  2079.           accept ws-entry end-accept
  2080.  
  2081.           if ws-entry (2:1) = space
  2082.               move ws-entry (1:1) to ws-entry (2:1)
  2083.               move 0              to ws-entry (1:1)  
  2084.           end-if
  2085.  
  2086.           if ws-entry not numeric
  2087.               continue
  2088.           else
  2089.               if ws-entry <= 09
  2090.                   set ws-valid-flag to "y"
  2091.                   if ws-entry = 00 then
  2092.                       perform 92000-abend
  2093.                   else if ws-entry = 01 then
  2094.                       move "E+++" to ws-emacs
  2095.                   else if ws-entry = 02 then
  2096.                       move "E++" to ws-emacs
  2097.                   else if ws-entry = 03 then
  2098.                       move "E+" to ws-emacs
  2099.                   else if ws-entry = 04 then
  2100.                       move "E" to ws-emacs
  2101.                   else if ws-entry = 05 then
  2102.                       move "E-" to ws-emacs
  2103.                   else if ws-entry = 06 then
  2104.                       move "E--" to ws-emacs
  2105.                   else if ws-entry = 07 then
  2106.                       move "E---" to ws-emacs
  2107.                   else if ws-entry = 08 then
  2108.                       move "E----" to ws-emacs
  2109.                   else if ws-entry = 09 then
  2110.                       move "!E" to ws-emacs
  2111.                   end-if
  2112.               end-if
  2113.           end-if.
  2114.  
  2115.           perform 90000-clear-screen.
  2116.  
  2117.       23900-kibo.
  2118.           add 1 to ws-page-cnt
  2119.  
  2120.           display "Kibo                                                
  2121.       -      "             Page: " ws-page-cnt " of " ws-tot-page
  2122.            end-display
  2123.            display "====================================================
  2124.      -"==========================="
  2125.           end-display
  2126.           display " 1 K++++++  I _am_ Kibo. " end-display
  2127.           display " 2 K+++++   I've had sex with Kibo." end-display
  2128.           display " 3 K++++    I've met Kibo." end-display
  2129.           display " 4 K+++     I've gotten mail from Kibo." end-display
  2130.           display " 5 K++      I've read Kibo." end-display
  2131.           display " 6 K+       I like Kibo." end-display
  2132.           display " 7 K        I know who Kibo is." end-display
  2133.           display " 8 K-       I don't know who Kibo is." end-display
  2134.           display " 9 K--      I dislike Kibo." end-display
  2135.           display "10 K---     I am Xibo." end-display
  2136.           display " " end-display
  2137.           display " " end-display
  2138.           display " " end-display
  2139.           display "Enter your Kibo code "
  2140.               "number here [0 to quit]: " with no advancing
  2141.           end-display
  2142.  
  2143.           accept ws-entry end-accept
  2144.  
  2145.           if ws-entry (2:1) = space
  2146.               move ws-entry (1:1) to ws-entry (2:1)
  2147.               move 0              to ws-entry (1:1)  
  2148.           end-if
  2149.  
  2150.           if ws-entry not numeric
  2151.               continue
  2152.           else
  2153.               if ws-entry <= 10
  2154.                   set ws-valid-flag to "y"
  2155.                   if ws-entry = 00 then
  2156.                       perform 92000-abend
  2157.                   else if ws-entry = 01 then
  2158.                       move "K++++++" to ws-kibo
  2159.                   else if ws-entry = 02 then
  2160.                       move "K+++++" to ws-kibo
  2161.                   else if ws-entry = 03 then
  2162.                       move "K++++" to ws-kibo
  2163.                   else if ws-entry = 04 then
  2164.                       move "K+++" to ws-kibo
  2165.                   else if ws-entry = 05 then
  2166.                       move "K++" to ws-kibo
  2167.                   else if ws-entry = 06 then
  2168.                       move "K+" to ws-kibo
  2169.                   else if ws-entry = 07 then
  2170.                       move "K" to ws-kibo
  2171.                   else if ws-entry = 08 then
  2172.                       move "K-" to ws-kibo
  2173.                   else if ws-entry = 09 then
  2174.                       move "K--" to ws-kibo
  2175.                   else if ws-entry = 10 then
  2176.                       move "K---" to ws-kibo
  2177.                   end-if
  2178.               end-if
  2179.           end-if.
  2180.  
  2181.           perform 90000-clear-screen.
  2182.  
  2183.       24000-ms.
  2184.           add 1 to ws-page-cnt
  2185.  
  2186.           display "Microsoft Windows                                  
  2187.      -       "             Page: " ws-page-cnt " of " ws-tot-page
  2188.           end-display
  2189.           display "====================================================
  2190.      -"==========================="
  2191.           end-display
  2192.           display " 1 w++++    I have Windows, Windows NT, and Windows
  2193.      -        "NT Advanced Server all "
  2194.           end-display
  2195.           display "            running on my SMP RISC machine. I haven'
  2196.       -       "t seen daylight in six"
  2197.            end-display
  2198.            display "            months." end-display
  2199.            display " 2 w+++     I am a MS Windows programming god. I wro
  2200.      -        "te a VxD driver to allow "
  2201.           end-display
  2202.           display "            MS Windows and DOS to share the use of m
  2203.       -       "y waffle iron. "
  2204.            end-display
  2205.            display "            P.S. Unix sux. " end-display
  2206.            display " 3 W++      I write MS Windows programs in C and thi
  2207.      -        "nk about using C++ "
  2208.           end-display
  2209.           display "            someday. I've written at least one DLL."
  2210.           end-display
  2211.           display " 4 w+       I have installed my own custom sounds, w
  2212.      -        "allpaper, and screen "
  2213.           end-display
  2214.           display "            savers so my PC walks and talks like a f
  2215.      -        "un house.  Oh yeah, I have "
  2216.           end-display
  2217.           display "            a hundred TrueType(tm) fonts that I've i
  2218.       -       "nstalled but never used. "
  2219.            end-display
  2220.            display " 5 w        Ok, so I use MS Windows, I don't have to
  2221.      -        " like it. "
  2222.           end-display
  2223.           display " 6 w-       I'm still trying to install MS Windows a
  2224.      -        "nd have at least one "
  2225.           end-display
  2226.           display "            peripheral that never works right."
  2227.           end-display
  2228.           display " 7 w--      MS Windows is a joke operating system. H
  2229.      -        "ell, its not even an "
  2230.           end-display
  2231.           display "            operating system. NT is Not Tough enough
  2232.      -        " for me either. "
  2233.           end-display
  2234.           display " 8 w---     Windows has set back the computing indus
  2235.      -        "try by at least 10 "
  2236.           end-display
  2237.           display "            years. Bill Gates should be drawn, quart
  2238.      -       "ered, hung, shot, poisoned, "
  2239.           end-display
  2240.           display "            disemboweled, and then REALLY hurt."
  2241.           end-display
  2242.           display " 9 !w       I don't do Windows. Got a problem with t
  2243.       -       "hat? "
  2244.            end-display
  2245.            display " " end-display
  2246.            display "Enter your Microsoft Windows code "
  2247.                "number here [0 to quit]: " with no advancing
  2248.            end-display
  2249.  
  2250.            accept ws-entry end-accept
  2251.  
  2252.            if ws-entry (2:1) = space
  2253.                move ws-entry (1:1) to ws-entry (2:1)
  2254.                move 0              to ws-entry (1:1)  
  2255.            end-if
  2256.  
  2257.            if ws-entry not numeric
  2258.                continue
  2259.            else
  2260.                if ws-entry <= 09
  2261.                    set ws-valid-flag to "y"
  2262.                    if ws-entry = 00 then
  2263.                        perform 92000-abend
  2264.                    else if ws-entry = 01 then
  2265.                        move "w++++" to ws-ms
  2266.                    else if ws-entry = 02 then
  2267.                        move "w+++" to ws-ms
  2268.                    else if ws-entry = 03 then
  2269.                        move "w++" to ws-ms
  2270.                    else if ws-entry = 04 then
  2271.                        move "w+" to ws-ms
  2272.                    else if ws-entry = 05 then
  2273.                        move "w" to ws-ms
  2274.                    else if ws-entry = 06 then
  2275.                        move "w-" to ws-ms
  2276.                    else if ws-entry = 07 then
  2277.                        move "w--" to ws-ms
  2278.                    else if ws-entry = 08 then
  2279.                        move "w---" to ws-ms
  2280.                    else if ws-entry = 09 then
  2281.                        move "!w" to ws-ms
  2282.                    end-if
  2283.                end-if
  2284.            end-if.
  2285.  
  2286.            perform 90000-clear-screen.
  2287.  
  2288.        24100-mac.
  2289.            add 1 to ws-page-cnt
  2290.  
  2291.            display "Macintosh                                          
  2292.      -       "             Page: " ws-page-cnt " of " ws-tot-page
  2293.           end-display
  2294.           display "====================================================
  2295.       -"==========================="
  2296.            end-display
  2297.            display " 1 M++    I am a Mac guru. Anything those dos putzes
  2298.      -        " and unix nerds"
  2299.           end-display
  2300.           display "          can do, I can do better, and if not, I'll
  2301.      -        " write the damn"
  2302.           end-display
  2303.           display "          software to do it. " end-display
  2304.           display " 2 M+     A Mac has it's uses and I use it quite oft
  2305.       -       "en."
  2306.            end-display
  2307.            display " 3 M      I use a Mac, but I'm pretty indifferent ab
  2308.      -        "out it."
  2309.           end-display
  2310.           display " 4 M-     Macs suck. All real geeks have a character
  2311.       -       " prompt."
  2312.            end-display
  2313.            display " 5 M--    Macs do more than suck. They make a user
  2314.      -        "stupid by allowing"
  2315.           end-display
  2316.           display "          them to use the system without knowing wha
  2317.       -       "t they are doing."
  2318.            end-display
  2319.            display "          Mac weenies have lower IQs than the fuzz i
  2320.      -        "n my navel."
  2321.           end-display
  2322.           display " 6 !M     What's a Macintosh?" end-display
  2323.           display " " end-display
  2324.           display " " end-display
  2325.           display " " end-display
  2326.           display "Enter your Macintosh code "
  2327.               "number here [0 to quit]: " with no advancing
  2328.           end-display
  2329.  
  2330.           accept ws-entry end-accept
  2331.  
  2332.           if ws-entry (2:1) = space
  2333.               move ws-entry (1:1) to ws-entry (2:1)
  2334.               move 0              to ws-entry (1:1)  
  2335.           end-if
  2336.  
  2337.           if ws-entry not numeric
  2338.               continue
  2339.           else
  2340.               if ws-entry <= 06
  2341.                   set ws-valid-flag to "y"
  2342.                   if ws-entry = 00 then
  2343.                       perform 92000-abend
  2344.                   else if ws-entry = 01 then
  2345.                       move "M++" to ws-mac
  2346.                   else if ws-entry = 02 then
  2347.                       move "M+" to ws-mac
  2348.                   else if ws-entry = 03 then
  2349.                       move "M" to ws-mac
  2350.                   else if ws-entry = 04 then
  2351.                       move "M-" to ws-mac
  2352.                   else if ws-entry = 05 then
  2353.                       move "M--" to ws-mac
  2354.                   else if ws-entry = 06 then
  2355.                       move "!M" to ws-mac
  2356.                   end-if
  2357.               end-if
  2358.           end-if.
  2359.  
  2360.           perform 90000-clear-screen.
  2361.  
  2362.       24200-vms.
  2363.           add 1 to ws-page-cnt
  2364.  
  2365.           display "VMS                                                
  2366.      -       "             Page: " ws-page-cnt " of " ws-tot-page
  2367.           end-display
  2368.           display "====================================================
  2369.      -"==========================="
  2370.           end-display
  2371.           display " 1 V++    Unix is a passing fad compared to the real
  2372.      -        " power in the universe, "
  2373.           end-display
  2374.           display "          my VMS system.  " end-display
  2375.           display " 2 V+     I tend to like VMS better than Unix."
  2376.           end-display
  2377.           display " 3 V      I've used VMS." end-display
  2378.           display " 4 V-     Unix is much better than VMS for my comput
  2379.       -       "ing needs. "
  2380.            end-display
  2381.            display " 5 V--    I would rather smash my head repeatedly in
  2382.      -        "to a brick wall than "
  2383.           end-display
  2384.           display "          suffer the agony of working with VMS. It's
  2385.      -        "reminiscent of a dead "
  2386.           end-display
  2387.           display "          and decaying pile of moose droppings. Unix
  2388.      -        " rules the universe. "
  2389.           end-display
  2390.           display " 6 !V     I've not ever used VMS." end-display
  2391.           display " " end-display
  2392.           display " " end-display
  2393.           display " " end-display
  2394.           display "Enter your VMS code "
  2395.               "number here [0 to quit]: " with no advancing
  2396.           end-display
  2397.  
  2398.           accept ws-entry end-accept
  2399.  
  2400.           if ws-entry (2:1) = space
  2401.               move ws-entry (1:1) to ws-entry (2:1)
  2402.               move 0              to ws-entry (1:1)  
  2403.           end-if
  2404.  
  2405.           if ws-entry not numeric
  2406.               continue
  2407.           else
  2408.               if ws-entry <= 06
  2409.                   set ws-valid-flag to "y"
  2410.                   if ws-entry = 00 then
  2411.                       perform 92000-abend
  2412.                   else if ws-entry = 01 then
  2413.                       move "V++" to ws-vms
  2414.                   else if ws-entry = 02 then
  2415.                       move "V+" to ws-vms
  2416.                   else if ws-entry = 03 then
  2417.                       move "V" to ws-vms
  2418.                   else if ws-entry = 04 then
  2419.                       move "V-" to ws-vms
  2420.                   else if ws-entry = 05 then
  2421.                       move "V--" to ws-vms
  2422.                   else if ws-entry = 06 then
  2423.                       move "!V" to ws-vms
  2424.                   end-if
  2425.               end-if
  2426.           end-if.
  2427.  
  2428.           perform 90000-clear-screen.
  2429.  
  2430.       24400-pol.
  2431.           add 1 to ws-page-cnt
  2432.  
  2433.           display "Politics                                            
  2434.       -      "             Page: " ws-page-cnt " of " ws-tot-page
  2435.            end-display
  2436.            display "====================================================
  2437.      -"==========================="
  2438.           end-display
  2439.           display " 1 po+++  Fuckin' Minorities! Adolf Hitler is my her
  2440.      -        "o! And so is"
  2441.           end-display
  2442.           display "          Rush Limbaugh!"
  2443.           end-display
  2444.           display " 2 po++   All in favor of eliminating free speech, s
  2445.      -        "ay aye!"
  2446.           end-display
  2447.           display " 3 po+    Let's get the government off of big-busine
  2448.       -       "ss' back."
  2449.            end-display
  2450.            display " 4 po     Politics? I've heard of that somewhere but
  2451.      -        " in all honesty I "
  2452.           end-display
  2453.           display "          really don't give a shit. "
  2454.           end-display
  2455.           display " 5 po-    Bring back the 60's."
  2456.           end-display
  2457.           display " 6 po--   I'm still living in the 60's."
  2458.           end-display
  2459.           display " 7 po---  No taxes through no government."
  2460.           end-display
  2461.           display " 8 -po+   Don't label me you moron! Both sides are e
  2462.      -        "qually fucked up!"
  2463.           end-display
  2464.           display " " end-display
  2465.           display " " end-display
  2466.           display " " end-display
  2467.           display "Enter your Politics code "
  2468.               "number here [0 to quit]: " with no advancing
  2469.           end-display
  2470.  
  2471.           accept ws-entry end-accept
  2472.  
  2473.           if ws-entry (2:1) = space
  2474.               move ws-entry (1:1) to ws-entry (2:1)
  2475.               move 0              to ws-entry (1:1)  
  2476.           end-if
  2477.  
  2478.           if ws-entry not numeric
  2479.               continue
  2480.           else
  2481.               if ws-entry <= 08
  2482.                   set ws-valid-flag to "y"
  2483.                   if ws-entry = 00 then
  2484.                       perform 92000-abend
  2485.                   else if ws-entry = 01 then
  2486.                       move "po+++" to ws-pol
  2487.                   else if ws-entry = 02 then
  2488.                       move "po++" to ws-pol
  2489.                   else if ws-entry = 03 then
  2490.                       move "po+" to ws-pol
  2491.                   else if ws-entry = 04 then
  2492.                       move "po" to ws-pol
  2493.                   else if ws-entry = 05 then
  2494.                       move "po-" to ws-pol
  2495.                   else if ws-entry = 06 then
  2496.                       move "po--" to ws-pol
  2497.                   else if ws-entry = 07 then
  2498.                       move "po---" to ws-pol
  2499.                   else if ws-entry = 08 then
  2500.                       move "-po+" to ws-pol
  2501.                   end-if
  2502.               end-if
  2503.           end-if.
  2504.  
  2505.           perform 90000-clear-screen.
  2506.  
  2507.       24500-cp.
  2508.           add 1 to ws-page-cnt
  2509.  
  2510.           display "Cypherpunk                                          
  2511.      -       "             Page: " ws-page-cnt " of " ws-tot-page
  2512.           end-display
  2513.           display "====================================================
  2514.      -"==========================="
  2515.           end-display
  2516.           display " 1 Y+++   I am T.C. May" end-display
  2517.           display " 2 Y++    I am on the cypherpunks mailing list and a
  2518.      -        "ctive around"
  2519.           end-display
  2520.           display "          Usenet. I never miss an opportunity to tal
  2521.      -        "k about the"
  2522.           end-display
  2523.           display "          evils of Clipper and the NSA. Orwells' 198
  2524.       -       "4 is more than"
  2525.            end-display
  2526.            display "          a story, it is a warning to ours' and futu
  2527.      -        "re generations."
  2528.           end-display
  2529.           display "          I'm a member of the EFF." end-display
  2530.           display " 3 Y+     I have an interest and concern in privacy
  2531.      -        "issues, but in"
  2532.           end-display
  2533.           display "          reality I am not really all that active or
  2534.      -       " vocal."
  2535.           end-display
  2536.           display " 4 Y      I'm pretty indifferent on the whole issue"
  2537.           end-display
  2538.           display " 5 Y-     It seems to me that all of these concerns
  2539.       -       "are a little "
  2540.            end-display
  2541.            display "          extreme. I mean, the government must be ab
  2542.      -        "le to protect"
  2543.           end-display
  2544.           display "          itself from criminals." end-display
  2545.           display " 6 Y--    Get a life. The only people that need this
  2546.       -       " kind of protection"
  2547.            end-display
  2548.            display "          are people with something to hide. I think
  2549.      -        " cypherpunks are "
  2550.           end-display
  2551.           display "          just a little paranoid."
  2552.           end-display
  2553.           display " 7 Y---   I am L. Dietweiller." end-display
  2554.           display " " end-display
  2555.           display " " end-display
  2556.           display " " end-display
  2557.           display "Enter your Cypherpunk code "
  2558.               "number here [0 to quit]: " with no advancing
  2559.           end-display
  2560.  
  2561.           accept ws-entry end-accept
  2562.  
  2563.           if ws-entry (2:1) = space
  2564.               move ws-entry (1:1) to ws-entry (2:1)
  2565.               move 0              to ws-entry (1:1)  
  2566.           end-if
  2567.  
  2568.           if ws-entry not numeric
  2569.               continue
  2570.           else
  2571.               if ws-entry <= 07
  2572.                   set ws-valid-flag to "y"
  2573.                   if ws-entry = 00 then
  2574.                       perform 92000-abend
  2575.                   else if ws-entry = 01 then
  2576.                       move "Y+++" to ws-cp
  2577.                   else if ws-entry = 02 then
  2578.                       move "Y++" to ws-cp
  2579.                   else if ws-entry = 03 then
  2580.                       move "Y+" to ws-cp
  2581.                   else if ws-entry = 04 then
  2582.                       move "Y" to ws-cp
  2583.                   else if ws-entry = 05 then
  2584.                       move "Y-" to ws-cp
  2585.                   else if ws-entry = 06 then
  2586.                       move "Y--" to ws-cp
  2587.                   else if ws-entry = 07 then
  2588.                       move "Y---" to ws-cp
  2589.                   end-if
  2590.               end-if
  2591.           end-if.
  2592.  
  2593.           perform 90000-clear-screen.
  2594.  
  2595.       24700-trek.
  2596.           add 1 to ws-page-cnt
  2597.  
  2598.           display "Star Trek                                          
  2599.       -      "             Page: " ws-page-cnt " of " ws-tot-page
  2600.            end-display
  2601.            display "====================================================
  2602.      -"==========================="
  2603.           end-display
  2604.           display " 1 t+++ It's not just a TV show, its a religion. I k
  2605.      -        "now all about"
  2606.           end-display
  2607.           display "        warp field dynamics and the principles behin
  2608.      -        "d the transporter."
  2609.           end-display
  2610.           display "        I have memorized the TECH manual. I speak Kl
  2611.      -        "ingon. I go to"
  2612.           end-display
  2613.           display "        cons with Vulcan ears on. I have no life. It
  2614.      -        "'s not just a "
  2615.           end-display
  2616.           display "        TV show, its a religion. " end-display
  2617.           display " 2 t++  It's the best show around. I have all the ep
  2618.      -        "isodes and the"
  2619.           end-display
  2620.           display "        movies on tape and can quote entire scenes v
  2621.      -        "erbatim.  I've "
  2622.           end-display
  2623.           display "        built a few of the model kits too. But you l
  2624.       -       "l never catch"
  2625.            end-display
  2626.            display "        me at one of those conventions. Those people
  2627.      -        " are kooks."
  2628.           end-display
  2629.           display " 3 t+   It's a damn fine TV show and is one of the o
  2630.      -        "nly things "
  2631.           end-display
  2632.           display "        good on television any more. " end-display
  2633.           display " 4 t    It's just another TV show." end-display
  2634.           display " 5 t-   Maybe it is just me, but I have no idea what
  2635.       -       " the big deal"
  2636.            end-display
  2637.            display "        with Star Trek is. Perhaps I'm missing somet
  2638.      -        "hing but I "
  2639.           end-display
  2640.           display "        just think it is bad drama. " end-display
  2641.           DISPLAY " 6 t--  Star Trek is just another Space Opera."
  2642.           end-display
  2643.           display " 7 t--- Star Trek SUCKS! It is the worst crap I ha
  2644.       -       "ve ever seen!"
  2645.            end-display
  2646.            display "        Hey, all you trekkies out there, GET A LIFE
  2647.      -        "!!!"
  2648.           end-display
  2649.           display " " end-display
  2650.           display "Enter your Star Trek code "
  2651.               "number here [0 to quit]: " with no advancing
  2652.           end-display
  2653.  
  2654.           accept ws-entry end-accept
  2655.  
  2656.           if ws-entry (2:1) = space
  2657.               move ws-entry (1:1) to ws-entry (2:1)
  2658.               move 0              to ws-entry (1:1)  
  2659.           end-if
  2660.  
  2661.           if ws-entry not numeric
  2662.               continue
  2663.           else
  2664.               if ws-entry <= 07
  2665.                   set ws-valid-flag to "y"
  2666.                   if ws-entry = 00 then
  2667.                       perform 92000-abend
  2668.                   else if ws-entry = 01 then
  2669.                       move "t+++" to ws-trek
  2670.                   else if ws-entry = 02 then
  2671.                       move "t++" to ws-trek
  2672.                   else if ws-entry = 03 then
  2673.                       move "t+" to ws-trek
  2674.                   else if ws-entry = 04 then
  2675.                       move "t" to ws-trek
  2676.                   else if ws-entry = 05 then
  2677.                       move "t-" to ws-trek
  2678.                   else if ws-entry = 06 then
  2679.                       move "t--" to ws-trek
  2680.                   else if ws-entry = 07 then
  2681.                       move "t---" to ws-trek
  2682.                   end-if
  2683.               end-if
  2684.           end-if.
  2685.  
  2686.           perform 90000-clear-screen.
  2687.  
  2688.       24800-bab.
  2689.           add 1 to ws-page-cnt
  2690.  
  2691.           display "Babylon 5                                          
  2692.       -      "             Page: " ws-page-cnt " of " ws-tot-page
  2693.            END-DISPLAY
  2694.            display "====================================================
  2695.      -"==========================="
  2696.           end-display
  2697.           display " 1 5+++   I am a True Worshipper of the Church of Jo
  2698.       -       "e who lives"
  2699.            end-display
  2700.            display "          eats breathes and thinks Babylon 5, and ha
  2701.      -        "s Evil thoughts"
  2702.           end-display
  2703.           display "          about stealing Joe's videotape archives ju
  2704.      -        "st to see "
  2705.           end-display
  2706.           display "          episodes earlier." end-display
  2707.           display " 2 5++    Finally a show that shows what a real futu
  2708.      -        "re would look"
  2709.           end-display
  2710.           display "          like. None of this Picardian 'Let's talk a
  2711.      -        "bout it and"
  2712.           end-display
  2713.           display "          be friends' crap. And what's this? We fina
  2714.      -        "lly get to "
  2715.           end-display
  2716.           display "          see a bathroom!  Over on that Enterprise,
  2717.      -        "they've been "
  2718.           end-display
  2719.           display "          holding it for over seven years.  "
  2720.           end-display
  2721.           display " 3 5+     Babylon 5 certainly presents a fresh persp
  2722.       -       "ective in the"
  2723.            end-display
  2724.            display "          Sci-Fi universe. I watch it weekly."
  2725.            end-display
  2726.            display " 4 5      I've seen it, I am pretty indifferent to i
  2727.      -        "t."
  2728.           end-display
  2729.           display " 5 5-     This show is sub-par. The acting is wooden
  2730.       -       ", the special "
  2731.            end-display
  2732.            display "          effects are obviously poor quality. In gen
  2733.      -        "eral, it"
  2734.           end-display
  2735.           display "          seems like a very cheap Star Trek ripoff."
  2736.           end-display
  2737.           display " 6 5--    You call this Sci-Fi? That is such a load
  2738.       -       "of crap! This"
  2739.            end-display
  2740.            display "          show is just a soap with bad actors, piss-
  2741.      -        "poor effects,"
  2742.           end-display
  2743.           display "          and lame storylines. Puh-leese."
  2744.           end-display
  2745.           display " 7 !5     I've never seen Babylon 5."
  2746.           end-display
  2747.           display " " end-display
  2748.           display "Enter your Babylon 5 code "
  2749.               "number here [0 to quit]: " with no advancing
  2750.           end-display
  2751.  
  2752.           accept ws-entry end-accept
  2753.  
  2754.           if ws-entry (2:1) = space
  2755.               move ws-entry (1:1) to ws-entry (2:1)
  2756.               move 0              to ws-entry (1:1)  
  2757.           end-if
  2758.  
  2759.           if ws-entry not numeric
  2760.               continue
  2761.           else
  2762.               if ws-entry <= 07
  2763.                   set ws-valid-flag to "y"
  2764.                   if ws-entry = 00 then
  2765.                       perform 92000-abend
  2766.                   else if ws-entry = 01 then
  2767.                       move "5+++" to ws-bab
  2768.                   else if ws-entry = 02 then
  2769.                       move "5++" to ws-bab
  2770.                   else if ws-entry = 03 then
  2771.                       move "5+" to ws-bab
  2772.                   else if ws-entry = 04 then
  2773.                       move "5" to ws-bab
  2774.                   else if ws-entry = 05 then
  2775.                       move "5-" to ws-bab
  2776.                   else if ws-entry = 06 then
  2777.                       move "5--" to ws-bab
  2778.                   else if ws-entry = 07 then
  2779.                       move "!5" to ws-bab
  2780.                   end-if
  2781.               end-if
  2782.           end-if.
  2783.  
  2784.           perform 90000-clear-screen.
  2785.  
  2786.       25000-jeop.
  2787.           add 1 to ws-page-cnt
  2788.  
  2789.           display "Jeopardy                                            
  2790.      -       "             Page: " ws-page-cnt " of " ws-tot-page
  2791.           end-display
  2792.           display "====================================================
  2793.      -"==========================="
  2794.           end-display
  2795.           display " 1 j+++   I dress like Art Fleming, practice Alex Tr
  2796.      -        "ebek's vocal"
  2797.           end-display
  2798.           display "          nuances, and make a pilgrimage to the Jeop
  2799.       -       "ardy studio"
  2800.            end-display
  2801.            display "          every six months to either take the contes
  2802.      -        "tant test or"
  2803.           end-display
  2804.           display "          to cheer from the audience. "
  2805.           end-display
  2806.           display " 2 j++    I watch Jeopardy regularly, and annoy othe
  2807.       -       "rs in the college"
  2808.            end-display
  2809.            display "          rec center by shouting out the answers."
  2810.            end-display
  2811.            display " 3 j+     I watch Jeopardy regularly."
  2812.            end-display
  2813.            display " 4 j      Sure I watch it, but, hey, it's only a sho
  2814.      -        "w."
  2815.           end-display
  2816.           display " 5 j-     Jeopardy? That's show's for a bunch of no-
  2817.       -       "life eggheads. "
  2818.            end-display
  2819.            display " 6 j--    I annoy others in the college rec center b
  2820.      -        "y shouting out"
  2821.           end-display
  2822.           display "          the *wrong* answers." end-display
  2823.           display " 7 !j     I've never seen Jeopardy or don't watch it
  2824.       -       "."
  2825.            end-display
  2826.            display " 8 j$     I've won money on the show." end-display
  2827.            display " 9 jP     I've gotten the d*mn Lee Press-On Nails on
  2828.      -        " the show (or"
  2829.           end-display
  2830.           display "          some other lame-o consolation prize). "
  2831.           end-display
  2832.           display "10 jx     I don't watch Jeopardy because it's too ea
  2833.       -       "sy."
  2834.            end-display
  2835.            display " " end-display
  2836.            display " " end-display
  2837.            display " " end-display
  2838.            display "Enter your Jeopardy code "
  2839.                "number here [0 to quit]: " with no advancing
  2840.            end-display
  2841.  
  2842.            accept ws-entry end-accept
  2843.  
  2844.            if ws-entry (2:1) = space
  2845.                move ws-entry (1:1) to ws-entry (2:1)
  2846.                move 0              to ws-entry (1:1)  
  2847.            end-if
  2848.  
  2849.            if ws-entry not numeric
  2850.                continue
  2851.            else
  2852.                if ws-entry <= 10
  2853.                    set ws-valid-flag to "y"
  2854.                    if ws-entry = 00 then
  2855.                        perform 92000-abend
  2856.                    else if ws-entry = 01 then
  2857.                        move "j+++" to ws-jeop
  2858.                    else if ws-entry = 02 then
  2859.                        move "j++" to ws-jeop
  2860.                    else if ws-entry = 03 then
  2861.                        move "j+" to ws-jeop
  2862.                    else if ws-entry = 04 then
  2863.                        move "j" to ws-jeop
  2864.                    else if ws-entry = 05 then
  2865.                        move "j-" to ws-jeop
  2866.                    else if ws-entry = 06 then
  2867.                        move "j--" to ws-jeop
  2868.                    else if ws-entry = 07 then
  2869.                        move "!j" to ws-jeop
  2870.                    else if ws-entry = 08 then
  2871.                        move "j$" to ws-jeop
  2872.                    else if ws-entry = 09 then
  2873.                        move "jP" to ws-jeop
  2874.                    else if ws-entry = 10 then
  2875.                        move "jx" to ws-jeop
  2876.                    end-if
  2877.                end-if
  2878.            end-if.
  2879.  
  2880.            perform 90000-clear-screen.
  2881.  
  2882.        25100-role.
  2883.            add 1 to ws-page-cnt
  2884.  
  2885.            display "Role Playing                                        
  2886.      -       "             Page: " ws-page-cnt " of " ws-tot-page
  2887.           end-display
  2888.           display "====================================================
  2889.       -"==========================="
  2890.            end-display
  2891.            display " 1 R+++   I've written and publish my own gaming mat
  2892.      -        "erials. "
  2893.           end-display
  2894.           display " 2 R++    There is no life outside the role of the d
  2895.       -       "ie. I know all"
  2896.            end-display
  2897.            display "          of piddly rules of (chosen game). _MY_ own
  2898.      -        " warped rules"
  2899.           end-display
  2900.           display "          scare the rest of the players."
  2901.           end-display
  2902.           display " 3 R+     I've got my weekly sessions set up and a c
  2903.      -        "haracter that"
  2904.           end-display
  2905.           display "          I know better than I know myself. "
  2906.           end-display
  2907.           display " 4 R      Role-Playing? That's just something to do
  2908.       -       " to kill a"
  2909.            end-display
  2910.            display "          Saturday afternoon." end-display
  2911.            display " 5 R-     Gosh, what an utter waste of time!"
  2912.            end-display
  2913.            display " 6 R--    Role-Players are instruments of pure evil"
  2914.            end-display
  2915.            display " " end-display
  2916.            display " " end-display
  2917.            display " " end-display
  2918.            display "Enter your Role Playing code "
  2919.                "number here [0 to quit]: " with no advancing
  2920.            end-display
  2921.  
  2922.            accept ws-entry end-accept
  2923.  
  2924.            if ws-entry (2:1) = space
  2925.                move ws-entry (1:1) to ws-entry (2:1)
  2926.                move 0              to ws-entry (1:1)  
  2927.            end-if
  2928.  
  2929.            if ws-entry not numeric
  2930.                continue
  2931.            else
  2932.                if ws-entry < 07
  2933.                    set ws-valid-flag to "y"
  2934.                    if ws-entry = 00 then
  2935.                        perform 92000-abend
  2936.                    else if ws-entry = 01 then
  2937.                        move "R+++" to ws-role
  2938.                    else if ws-entry = 02 then
  2939.                        move "R++" to ws-role
  2940.                    else if ws-entry = 03 then
  2941.                        move "R+" to ws-role
  2942.                    else if ws-entry = 04 then
  2943.                        move "R" to ws-role
  2944.                    else if ws-entry = 05 then
  2945.                        move "R-" to ws-role
  2946.                    else if ws-entry = 06 then
  2947.                        move "R--" to ws-role
  2948.                    end-if
  2949.                end-if
  2950.            end-if.
  2951.  
  2952.            perform 90000-clear-screen.
  2953.  
  2954.        25200-magic.
  2955.            add 1 to ws-page-cnt
  2956.  
  2957.            display "MAGIC: The Gathering                                
  2958.      -       "             Page: " ws-page-cnt " of " ws-tot-page
  2959.           end-display
  2960.           display "====================================================
  2961.       -"==========================="
  2962.            end-display
  2963.            display " 1 G++++  I am considered a Magic(tm) god. I have
  2964.      -        "nicknames for"
  2965.           end-display
  2966.           display "          every card and know just about every strat
  2967.       -       "egy there is."
  2968.            end-display
  2969.            display " 2 G+++   I have a Lord of the Pit, a Black Lotus an
  2970.      -        "d a Reverse"
  2971.           end-display
  2972.           display "          Damage. I play for hours every night."
  2973.           end-display
  2974.           display " 3 G++    I've spent almost $100 on cards. A good ch
  2975.      -        "unk of my"
  2976.           end-display
  2977.           display "          spare time goes into playing or constructi
  2978.      -        "ng decks and"
  2979.           end-display
  2980.           display "          keeping up my checklist." end-display
  2981.           display " 4 G+     Ok, ok, so I bought a few packs of cards.
  2982.      -        " Big deal."
  2983.           end-display
  2984.           display " 5 G      I play Magic, if I can borrow a deck. It's
  2985.       -       " an ok game."
  2986.            end-display
  2987.            display " 6 G-     I don't even play anymore. I just collect.
  2988.      -       " My cards fill "
  2989.           end-display
  2990.           display "          three shoeboxes." end-display
  2991.           display " 7 G--    I don't go to class/work anymore.  Sometim
  2992.      -        "es I don't sleep."
  2993.           end-display
  2994.           display " 8 G---   I have 3 Lords of the Pit, Armageddon, Wra
  2995.       -       "th of God,"
  2996.            end-display
  2997.            display "          and two Reverse Damages. I also have all f
  2998.      -        "ive of the"
  2999.           end-display
  3000.           display "          Greater Legends Dragons. I can quote the e
  3001.       -       "xact wording"
  3002.            end-display
  3003.            display "          and, in some cases, casting cost, of any c
  3004.      -        "ard on demand."
  3005.           end-display
  3006.           display "          I've memorized the PPG. I am a Magic munch
  3007.      -        "kin. "
  3008.           end-display
  3009.           display " 9 G----  Some friends and I are trying to get boxes
  3010.      -        " of booster"
  3011.           end-display
  3012.           display "          packs at cost so we can sell them at a pro
  3013.      -        "fit and buy more"
  3014.           end-display
  3015.           display "          cards at cost that we can sell for profit
  3016.      -        "and buy more"
  3017.           end-display
  3018.           display "          cards at.... " end-display
  3019.           display "10 G?     What the hell _IS_ Magic?"
  3020.           end-display
  3021.           display " " end-display
  3022.           display "Enter your MAGIC code "
  3023.               "number here [0 to quit]: " with no advancing
  3024.           end-display
  3025.  
  3026.           accept ws-entry end-accept
  3027.  
  3028.           if ws-entry (2:1) = space
  3029.               move ws-entry (1:1) to ws-entry (2:1)
  3030.               move 0              to ws-entry (1:1)  
  3031.           end-if
  3032.  
  3033.           if ws-entry not numeric
  3034.               continue
  3035.           else
  3036.               if ws-entry <= 10
  3037.                   set ws-valid-flag to "y"
  3038.                   if ws-entry = 00 then
  3039.                       perform 92000-abend
  3040.                   else if ws-entry = 01 then
  3041.                       move "G++++" to ws-magic
  3042.                   else if ws-entry = 02 then
  3043.                       move "G+++" to ws-magic
  3044.                   else if ws-entry = 03 then
  3045.                       move "G++" to ws-magic
  3046.                   else if ws-entry = 04 then
  3047.                       move "G+" to ws-magic
  3048.                   else if ws-entry = 05 then
  3049.                       move "G" to ws-magic
  3050.                   else if ws-entry = 06 then
  3051.                       move "G-" to ws-magic
  3052.                   else if ws-entry = 07 then
  3053.                       move "G--" to ws-magic
  3054.                   else if ws-entry = 08 then
  3055.                       move "G---" to ws-magic
  3056.                   else if ws-entry = 09 then
  3057.                       move "G----" to ws-magic
  3058.                   else if ws-entry = 10 then
  3059.                       move "G?" to ws-magic
  3060.                   end-if
  3061.               end-if
  3062.           end-if.
  3063.  
  3064.           perform 90000-clear-screen.
  3065.  
  3066.       25300-tv.
  3067.           add 1 to ws-page-cnt
  3068.  
  3069.           display "Television                                          
  3070.      -       "             Page: " ws-page-cnt " of " ws-tot-page
  3071.           end-display
  3072.           display "====================================================
  3073.      -"==========================="
  3074.           end-display
  3075.           display " 1 tv+++  There's nothing I can experience 'out ther
  3076.      -        "e' that I can't"
  3077.           end-display
  3078.           display "          see coming over my satellite dish. I wish
  3079.      -        "there were"
  3080.           end-display
  3081.           display "          MORE channels. " end-display
  3082.           display " 2 tv++   I just leave the tv on, to make sure I don
  3083.      -        "'t miss anything."
  3084.           end-display
  3085.           display " 3 tv+    I watch some tv every day. "
  3086.           end-display
  3087.           display " 4 tv     I watch only the shows that are actually w
  3088.       -       "orth while."
  3089.            end-display
  3090.            display " 5 tv-    I watch tv for the news and 'special progr
  3091.      -        "amming.' "
  3092.           end-display
  3093.           display " 6 tv--   I turn my tv on during natural disasters."
  3094.           end-display
  3095.           display " 7 !tv    I do not own a television. " end-display
  3096.           display " " end-display
  3097.           display " " end-display
  3098.           display " " end-display
  3099.           display "Enter your Television code "
  3100.               "number here [0 to quit]: " with no advancing
  3101.           end-display
  3102.  
  3103.           accept ws-entry end-accept
  3104.  
  3105.           if ws-entry (2:1) = space
  3106.               move ws-entry (1:1) to ws-entry (2:1)
  3107.               move 0              to ws-entry (1:1)  
  3108.           end-if
  3109.  
  3110.           if ws-entry not numeric
  3111.               continue
  3112.           else
  3113.               if ws-entry <= 07
  3114.                   set ws-valid-flag to "y"
  3115.                   if ws-entry = 00 then
  3116.                       perform 92000-abend
  3117.                   else if ws-entry = 01 then
  3118.                       move "tv+++" to ws-tv
  3119.                   else if ws-entry = 02 then
  3120.                       move "tv++" to ws-tv
  3121.                   else if ws-entry = 03 then
  3122.                       move "tv+" to ws-tv
  3123.                   else if ws-entry = 04 then
  3124.                       move "tv" to ws-tv
  3125.                   else if ws-entry = 05 then
  3126.                       move "tv-" to ws-tv
  3127.                   else if ws-entry = 06 then
  3128.                       move "tv--" to ws-tv
  3129.                   else if ws-entry = 07 then
  3130.                       move "!tv" to ws-tv
  3131.                   end-if
  3132.               end-if
  3133.           end-if.
  3134.  
  3135.           perform 90000-clear-screen.
  3136.  
  3137.       25400-books.
  3138.           add 1 to ws-page-cnt
  3139.  
  3140.           display "Books                                              
  3141.      -       "             Page: " ws-page-cnt " of " ws-tot-page
  3142.           end-display
  3143.           display "====================================================
  3144.      -"==========================="
  3145.           end-display
  3146.           display " 1 b+++   I consume a few books a week as part of a
  3147.      -        "staple diet."
  3148.           end-display
  3149.           display " 2 b++    I find the time to get through at least on
  3150.      -        "e new book a month. "
  3151.           end-display
  3152.           display " 3 b+     I enjoy reading, but don't get the time ve
  3153.       -       "ry often.  "
  3154.            end-display
  3155.            display " 4 b      I read the newspaper and the occasional bo
  3156.      -        "ok. "
  3157.           end-display
  3158.           display " 5 b-     I read when there is no other way to get t
  3159.       -       "he information. "
  3160.            end-display
  3161.            display " 6 b--    I did not actually READ the geek code, "
  3162.            end-display
  3163.            display "          I just had someone tell me. "
  3164.            end-display
  3165.            display " " end-display
  3166.            display " " end-display
  3167.            display " " end-display
  3168.            display "Enter your Books code "
  3169.                "number here [0 to quit]: " with no advancing
  3170.            end-display
  3171.  
  3172.            accept ws-entry end-accept
  3173.  
  3174.            if ws-entry (2:1) = space
  3175.                move ws-entry (1:1) to ws-entry (2:1)
  3176.                move 0              to ws-entry (1:1)  
  3177.            end-if
  3178.  
  3179.            if ws-entry not numeric
  3180.                continue
  3181.            else
  3182.                if ws-entry <= 06
  3183.                    set ws-valid-flag to "y"
  3184.                    if ws-entry = 00 then
  3185.                        perform 92000-abend
  3186.                    else if ws-entry = 01 then
  3187.                        move "b+++" to ws-books
  3188.                    else if ws-entry = 02 then
  3189.                        move "b++" to ws-books
  3190.                    else if ws-entry = 03 then
  3191.                        move "b+" to ws-books
  3192.                    else if ws-entry = 04 then
  3193.                        move "b" to ws-books
  3194.                    else if ws-entry = 05 then
  3195.                        move "b-" to ws-books
  3196.                    else if ws-entry = 06 then
  3197.                        move "b--" to ws-books
  3198.                    end-if
  3199.                end-if
  3200.            end-if.
  3201.  
  3202.            perform 90000-clear-screen.
  3203.  
  3204.        25500-doom.
  3205.            add 1 to ws-page-cnt
  3206.  
  3207.            display "DOOM!                                              
  3208.      -       "             Page: " ws-page-cnt " of " ws-tot-page
  3209.           end-display
  3210.           display "====================================================
  3211.       -"==========================="
  3212.            end-display
  3213.            display " 1 D+++   I crank out PWAD files daily, complete wit
  3214.      -        "h new monsters,"
  3215.           end-display
  3216.           display "          weaponry, sounds and maps. I'm a DOOM God.
  3217.      -        " I can solve the"
  3218.           end-display
  3219.           display "          original maps in nightmare mode with my ey
  3220.      -        "es closed. "
  3221.           end-display
  3222.           display " 2 D++    I've played the shareware version and boug
  3223.       -       "ht the real one"
  3224.            end-display
  3225.            display "          and I'm actually pretty good at the game.
  3226.      -        "I occasionally "
  3227.           end-display
  3228.           display "          download PWAD files and play them too. "
  3229.           end-display
  3230.           display " 3 D+     It's a fun, action game that is a nice div
  3231.      -        "ersion on a "
  3232.           end-display
  3233.           display "          lazy afternoon." end-display
  3234.           display " 4 D      I've played the game and I'm pretty indiff
  3235.      -        "erent."
  3236.           end-display
  3237.           display " 5 D-     I've played the game and really didn't thi
  3238.      -        "nk it was"
  3239.           end-display
  3240.           display "          all that impressive." end-display
  3241.           display " 6 D--    It's an overly-violent game and pure crap"
  3242.           end-display
  3243.           display " 7 D---   I've seen better on my Atari 2600."
  3244.           end-display
  3245.           display " 8 !D     I've never played Doom!" end-display
  3246.           display " " end-display
  3247.           display " " end-display
  3248.           display " " end-display
  3249.           display "Enter your DOOM code "
  3250.               "number here [0 to quit]: " with no advancing
  3251.           end-display
  3252.  
  3253.           accept ws-entry end-accept
  3254.  
  3255.           if ws-entry (2:1) = space
  3256.               move ws-entry (1:1) to ws-entry (2:1)
  3257.               move 0              to ws-entry (1:1)  
  3258.           end-if
  3259.  
  3260.           if ws-entry not numeric
  3261.               continue
  3262.           else
  3263.               if ws-entry <= 08
  3264.                   set ws-valid-flag to "y"
  3265.                   if ws-entry = 00 then
  3266.                       perform 92000-abend
  3267.                   else if ws-entry = 01 then
  3268.                       move "D+++" to ws-doom
  3269.                   else if ws-entry = 02 then
  3270.                       move "D++" to ws-doom
  3271.                   else if ws-entry = 03 then
  3272.                       move "D+" to ws-doom
  3273.                   else if ws-entry = 04 then
  3274.                       move "D" to ws-doom
  3275.                   else if ws-entry = 05 then
  3276.                       move "D-" to ws-doom
  3277.                   else if ws-entry = 06 then
  3278.                       move "D--" to ws-doom
  3279.                   else if ws-entry = 07 then
  3280.                       move "D---" to ws-doom
  3281.                   else if ws-entry = 08 then
  3282.                       move "!D" to ws-doom
  3283.                   end-if
  3284.               end-if
  3285.           end-if.
  3286.  
  3287.           perform 90000-clear-screen.
  3288.  
  3289.       25600-barney.
  3290.           add 1 to ws-page-cnt
  3291.  
  3292.           display "Barney                                              
  3293.       -      "             Page: " ws-page-cnt " of " ws-tot-page
  3294.            end-display
  3295.            display "====================================================
  3296.      -"==========================="
  3297.           end-display
  3298.           display " 1 B+++   I worship the ground He walks on. I wish t
  3299.       -       "o erect a"
  3300.            end-display
  3301.            display "          shrine for Him in my front yard. I feel a
  3302.      -        " need to sell"
  3303.           end-display
  3304.           display "          all my worldly belongings, shave my head,
  3305.       -       "and go to "
  3306.            end-display
  3307.            display "          airports where I will hand out Barney doll
  3308.      -        "s and spread"
  3309.           end-display
  3310.           display "          His message of universal love for everyone
  3311.       -       " regardless of"
  3312.            end-display
  3313.            display "          race, creed, color, sexual preference, or
  3314.      -        "species. "
  3315.           end-display
  3316.           display " 2 B++    I don't miss an episode, except when I hav
  3317.      -        "e to work"
  3318.           end-display
  3319.           display "          or go in for a root canal. Barney loves me
  3320.      -        ". "
  3321.           end-display
  3322.           display " 3 B+     I like him. He has a nice, wholesome messa
  3323.      -        "ge. He's"
  3324.           end-display
  3325.           display "          good for the country. " end-display
  3326.           display " 4 B      Hey, the little tykes love him, they don't
  3327.      -       " go around "
  3328.           end-display
  3329.           display "          karate-chopping each other any more; what'
  3330.       -       "s the big deal?"
  3331.            end-display
  3332.            display " 5 B-     Barney is annoying." end-display
  3333.            display " 6 B--    Don't talk to me about him. I'm getting si
  3334.      -        "ck of his "
  3335.           end-display
  3336.           display "          smarmy message. He makes me ill."
  3337.           end-display
  3338.           display " 7 B---   He's sick. He's polluting our children's m
  3339.      -       "inds with this"
  3340.           end-display
  3341.           display "          love and tolerance crap."
  3342.           end-display
  3343.           display " 8 !B     Who's Barney?" end-display
  3344.           display " " end-display
  3345.           display "Enter your Barney code "
  3346.               "number here [0 to quit]: " with no advancing
  3347.           end-display
  3348.  
  3349.           accept ws-entry end-accept
  3350.  
  3351.           if ws-entry (2:1) = space
  3352.               move ws-entry (1:1) to ws-entry (2:1)
  3353.               move 0              to ws-entry (1:1)  
  3354.           end-if
  3355.  
  3356.           if ws-entry not numeric
  3357.               continue
  3358.           else
  3359.               if ws-entry <= 08
  3360.                   set ws-valid-flag to "y"
  3361.                   if ws-entry = 00 then
  3362.                       perform 92000-abend
  3363.                   else if ws-entry = 01 then
  3364.                       move "B+++" to ws-barney
  3365.                   else if ws-entry = 02 then
  3366.                       move "B++" to ws-barney
  3367.                   else if ws-entry = 03 then
  3368.                       move "B+" to ws-barney
  3369.                   else if ws-entry = 04 then
  3370.                       move "B" to ws-barney
  3371.                   else if ws-entry = 05 then
  3372.                       move "B-" to ws-barney
  3373.                   else if ws-entry = 06 then
  3374.                       move "B--" to ws-barney
  3375.                   else if ws-entry = 07 then
  3376.                       move "B---" to ws-barney
  3377.                   else if ws-entry = 08 then
  3378.                       move "!B" to ws-barney
  3379.                   end-if
  3380.               end-if
  3381.           end-if.
  3382.  
  3383.           perform 90000-clear-screen.
  3384.  
  3385.       25700-educ.
  3386.           add 1 to ws-page-cnt
  3387.  
  3388.           display "Education                                          
  3389.       -      "              age: " ws-page-cnt " of " ws-tot-page
  3390.            end-display
  3391.            display "====================================================
  3392.      -"==========================="
  3393.           end-display
  3394.           display " 1 e++++  Still pretty stupid, over qualified to wor
  3395.       -       "k any"
  3396.            end-display
  3397.            display "          job, went and got my Ph.D. "
  3398.            end-display
  3399.            display " 2 e+++   Had not learned enough to know better not
  3400.      -        "to go back"
  3401.           end-display
  3402.           display "          and try for a master's degree."
  3403.           end-display
  3404.           display " 3 e++    Managed to finish my bachelors. "
  3405.           end-display
  3406.           display " 4 e+     Started a degree, plan to finish it some d
  3407.      -        "ay.  "
  3408.           end-display
  3409.           display " 5 e      K-12, been on a college campus."
  3410.           end-display
  3411.           display " 6 e-     Got my bachelors, escaped alive, and am ma
  3412.      -        "king hoards"
  3413.           end-display
  3414.           display "          of money writing unmaintainable (except by
  3415.      -        " me) software. "
  3416.           end-display
  3417.           display " 7 e--    The company I work for was dumb enough to
  3418.      -        "fund my way"
  3419.           end-display
  3420.           display "          through a masters degree, then started pay
  3421.      -        "ing me even more money."
  3422.           end-display
  3423.           display " 8 e---   Achieved a Ph.D, have devoted my life to i
  3424.      -        "nsignificant"
  3425.           end-display
  3426.           display "          research, which my employer pays dearly fo
  3427.      -        "r.  "
  3428.           end-display
  3429.           display " 9 !e     Flunked high school, learned life the hard
  3430.      -        " way."
  3431.           end-display
  3432.           display "10 e*     I learned everything there is to know abou
  3433.      -        "t life from"
  3434.           end-display
  3435.           display "          the 'Hitchhiker's Trilogy'. "
  3436.           end-display
  3437.           display " " end-display
  3438.           display " " end-display
  3439.           display " " end-display
  3440.           display "Enter your Education code "
  3441.               "number here [0 to quit]: " with no advancing
  3442.           end-display
  3443.  
  3444.           accept ws-entry end-accept
  3445.  
  3446.           if ws-entry (2:1) = space
  3447.               move ws-entry (1:1) to ws-entry (2:1)
  3448.               move 0              to ws-entry (1:1)  
  3449.           end-if
  3450.  
  3451.           if ws-entry not numeric
  3452.               continue
  3453.           else
  3454.               if ws-entry <= 10
  3455.                   set ws-valid-flag to "y"
  3456.                   if ws-entry = 00 then
  3457.                       perform 92000-abend
  3458.                   else if ws-entry = 01 then
  3459.                       move "e++++" to ws-educ
  3460.                   else if ws-entry = 02 then
  3461.                       move "e+++" to ws-educ
  3462.                   else if ws-entry = 03 then
  3463.                       move "e++" to ws-educ
  3464.                   else if ws-entry = 04 then
  3465.                       move "e+" to ws-educ
  3466.                   else if ws-entry = 05 then
  3467.                       move "e" to ws-educ
  3468.                   else if ws-entry = 06 then
  3469.                       move "e-" to ws-educ
  3470.                   else if ws-entry = 07 then
  3471.                       move "e--" to ws-educ
  3472.                   else if ws-entry = 08 then
  3473.                       move "e---" to ws-educ
  3474.                   else if ws-entry = 09 then
  3475.                       move "!e" to ws-educ
  3476.                   else if ws-entry = 10 then
  3477.                       move "e*" to ws-educ
  3478.                   end-if
  3479.               end-if
  3480.           end-if.
  3481.  
  3482.           perform 90000-clear-screen.
  3483.  
  3484.       25800-music.
  3485.           add 1 to ws-page-cnt
  3486.  
  3487.           display "Music                                              
  3488.       -      "             Page: " ws-page-cnt " of " ws-tot-page
  3489.            end-display
  3490.            display "====================================================
  3491.      -"==========================="
  3492.           end-display
  3493.           display " 1 u+++   I consider myself over-refined and grok th
  3494.       -       "at heavy-duty"
  3495.            end-display
  3496.            display "          elevator music." end-display
  3497.            display " 2 u++    I consider myself refined and enjoy classi
  3498.      -        "cal and"
  3499.           end-display
  3500.           display "          new-age selections." end-display
  3501.           display " 3 u+     I own a tape or CD collection (records als
  3502.       -       "o count,"
  3503.            end-display
  3504.            display "          but you would be admitting how old you rea
  3505.      -        "lly are)."
  3506.           end-display
  3507.           display " 4 u      I occasionally listen to the radio."
  3508.           end-display
  3509.           display " 5 u-     Just play it loud." end-display
  3510.           display " 6 u--    I play air-guitar better than anyone else.
  3511.       -   " "
  3512.            end-display
  3513.            display " 7 u---   LISTEN! I SAID TO PLAY IT LOUD!"
  3514.            end-display
  3515.            display " 8 u*     I listen to music that no one else has eve
  3516.      -        "r heard of."
  3517.           end-display
  3518.           display " 9 u**    I listen to so many types of music that I
  3519.       -       "can't even"
  3520.            end-display
  3521.            display "          keep them straight." end-display
  3522.            display "10 -u     I like _both_ kinds of music: Country AND
  3523.      -        "Western."
  3524.           end-display
  3525.           display " " end-display
  3526.           display " " end-display
  3527.           display " " end-display
  3528.           display "Enter your Music code "
  3529.               "number here [0 to quit]: " with no advancing
  3530.           end-display
  3531.  
  3532.           accept ws-entry end-accept
  3533.  
  3534.           if ws-entry (2:1) = space
  3535.               move ws-entry (1:1) to ws-entry (2:1)
  3536.               move 0              to ws-entry (1:1)  
  3537.           end-if
  3538.  
  3539.           if ws-entry not numeric
  3540.               continue
  3541.           else
  3542.               if ws-entry <= 10
  3543.                   set ws-valid-flag to "y"
  3544.                   if ws-entry = 00 then
  3545.                       perform 92000-abend
  3546.                   else if ws-entry = 01 then
  3547.                       move "u+++" to ws-music
  3548.                   else if ws-entry = 02 then
  3549.                       move "u++" to ws-music
  3550.                   else if ws-entry = 03 then
  3551.                       move "u+" to ws-music
  3552.                   else if ws-entry = 04 then
  3553.                       move "u" to ws-music
  3554.                   else if ws-entry = 05 then
  3555.                       move "u-" to ws-music
  3556.                   else if ws-entry = 06 then
  3557.                       move "u--" to ws-music
  3558.                   else if ws-entry = 07 then
  3559.                       move "u---" to ws-music
  3560.                   else if ws-entry = 08 then
  3561.                       move "u*" to ws-music
  3562.                   else if ws-entry = 09 then
  3563.                       move "e**" to ws-music
  3564.                   else if ws-entry = 10 then
  3565.                       move "-u" to ws-music
  3566.                   end-if
  3567.               end-if
  3568.           end-if.
  3569.  
  3570.           perform 90000-clear-screen.
  3571.  
  3572.       25900-house.
  3573.           add 1 to ws-page-cnt
  3574.  
  3575.           display "Housing                                            
  3576.       -      "             Page: " ws-page-cnt " of " ws-tot-page
  3577.            end-display
  3578.            display "====================================================
  3579.      -"==========================="
  3580.           end-display
  3581.           display " 1 h++    Living in a cave with 47 computers and an
  3582.       -       "Internet feed,"
  3583.            end-display
  3584.            display "          located near a Dominoes pizza. See !d."
  3585.            end-display
  3586.            display " 2 h+     Living alone, get out once a week to buy f
  3587.      -        "ood, no more"
  3588.           end-display
  3589.           display "          than once a month to do laundry. All surfa
  3590.       -       "ces covered."
  3591.            end-display
  3592.            display " 3 h      Friends come over to visit every once in a
  3593.      -        " while to talk"
  3594.           end-display
  3595.           display "          about Geek things. There is a place for th
  3596.       -       "em to sit."
  3597.            end-display
  3598.            display " 4 h-     Living with one or more registered Geeks."
  3599.            end-display
  3600.            display " 5 h--    Living with one or more people who know no
  3601.      -        "thing about"
  3602.           end-display
  3603.           display "          being a Geek and refuse to watch 'Star Tre
  3604.      -        "k'. "
  3605.           end-display
  3606.           display " 6 h---   Married, with the potential for children.
  3607.       -       " (persons living"
  3608.            end-display
  3609.            display "          with a fiance might as well label themselv
  3610.      -        "es h---,"
  3611.           end-display
  3612.           display "          you're as good as there already.)"
  3613.           end-display
  3614.           display " 7 h----  Married with children - Al Bundy can sympa
  3615.      -        "thize ."
  3616.           end-display
  3617.           display " 8 !h     I am stuck living with my parents!"
  3618.           end-display
  3619.           display " 9 h*     I'm not sure where I live anymore. This la
  3620.       -       "b/workplace"
  3621.            end-display
  3622.            display "          seems like home to me. " end-display
  3623.            display " " end-display
  3624.            display " " end-display
  3625.            display " " end-display
  3626.            display "Enter your Housing code "
  3627.                "number here [0 to quit]: " with no advancing
  3628.            end-display
  3629.  
  3630.            accept ws-entry end-accept
  3631.  
  3632.            if ws-entry (2:1) = space
  3633.                move ws-entry (1:1) to ws-entry (2:1)
  3634.                move 0              to ws-entry (1:1)  
  3635.            end-if
  3636.  
  3637.            if ws-entry not numeric
  3638.                continue
  3639.            else
  3640.                if ws-entry <= 09
  3641.                    set ws-valid-flag to "y"
  3642.                    if ws-entry = 00 then
  3643.                        perform 92000-abend
  3644.                    else if ws-entry = 01 then
  3645.                        move "h++" to ws-house
  3646.                    else if ws-entry = 02 then
  3647.                        move "h+" to ws-house
  3648.                    else if ws-entry = 03 then
  3649.                        move "h" to ws-house
  3650.                    else if ws-entry = 04 then
  3651.                        move "h-" to ws-house
  3652.                    else if ws-entry = 05 then
  3653.                        move "h--" to ws-house
  3654.                    else if ws-entry = 06 then
  3655.                        move "h---" to ws-house
  3656.                    else if ws-entry = 07 then
  3657.                        move "h----" to ws-house
  3658.                    else if ws-entry = 08 then
  3659.                        move "!h" to ws-house
  3660.                    else if ws-entry = 09 then
  3661.                        move "h*" to ws-house
  3662.                    end-if
  3663.                end-if
  3664.            end-if.
  3665.  
  3666.            perform 90000-clear-screen.
  3667.  
  3668.        26000-friends.
  3669.            add 1 to ws-page-cnt
  3670.  
  3671.            display "Friends                                            
  3672.      -       "             Page: " ws-page-cnt " of " ws-tot-page
  3673.           end-display
  3674.           display "====================================================
  3675.       -"==========================="
  3676.            end-display
  3677.            display " 1 f++    I have so many friends, I make other peopl
  3678.      -       "e jealous."
  3679.           end-display
  3680.           display " 2 f+     I have quite a few really close friends. W
  3681.       -       "e get along great. They "
  3682.            end-display
  3683.            display "          are all other geeks, though."
  3684.            end-display
  3685.            display " 3 f      Yeah, I have friends. Who told you?"
  3686.            end-display
  3687.            display " 4 f-     I have a few friends. They barely seem to
  3688.      -        "speak to me anymore."
  3689.           end-display
  3690.           display " 5 f--    I've got about one friend left in the worl
  3691.      -        "d, who probably wants to "
  3692.           end-display
  3693.           display "          shoot me. " end-display
  3694.           display " 6 f---   I used to have friends, but I didn't like
  3695.       -       "it ."
  3696.            end-display
  3697.            display " 7 f?     I *think* I have friends." end-display
  3698.            display " 8 f*     Everyone is my friend." end-display
  3699.            display " 9 !f     I have no friends. Get lost."
  3700.            end-display
  3701.            display " " end-display
  3702.            display " " end-display
  3703.            display " " END-DISPLAY
  3704.            display "Enter your Friends code "
  3705.                "number here [0 to quit]: " with no advancing
  3706.            end-display
  3707.  
  3708.            accept ws-entry end-accept
  3709.  
  3710.            if ws-entry (2:1) = space
  3711.                move ws-entry (1:1) to ws-entry (2:1)
  3712.                move 0              to ws-entry (1:1)  
  3713.            end-if
  3714.  
  3715.            if ws-entry not numeric
  3716.                continue
  3717.            else
  3718.                if wS-entry <= 09
  3719.                    set ws-valid-flag to "y"
  3720.                    if ws-entry = 00 then
  3721.                        perform 92000-abend
  3722.                    else if wS-entry = 01 then
  3723.                        move "f++" to ws-friends
  3724.                    else if ws-entry = 02 then
  3725.                        move "f+" to ws-friends
  3726.                    else if ws-entry = 03 then
  3727.                        move "f" to ws-friends
  3728.                    else if ws-entry = 04 then
  3729.                        move "f-" to ws-friends
  3730.                    else if ws-entry = 05 then
  3731.                        move "f--" to ws-friends
  3732.                    else if ws-entry = 06 then
  3733.                        move "f---" to ws-friends
  3734.                    else if ws-entry = 07 then
  3735.                        move "f?" to ws-friends
  3736.                    else if ws-entry = 08 then
  3737.                        move "f*" to ws-friends
  3738.                    else if ws-entry = 09 then
  3739.                        move "!f" to ws-friends
  3740.                    end-if
  3741.                end-if
  3742.            end-if.
  3743.  
  3744.            perform 90000-clear-screen.
  3745.  
  3746.        26100-rel.
  3747.            add 1 to ws-page-cnt
  3748.  
  3749.            display "Relationships                                      
  3750.      -       "             Page: " ws-page-cnt " of " ws-tot-page
  3751.           end-display
  3752.           display "====================================================
  3753.       -"==========================="
  3754.            end-display
  3755.            display " 1 r+++   Found someone, dated, and am now married."
  3756.            end-display
  3757.            display " 2 r++    I've dated my current SO for a long time."
  3758.            end-display
  3759.            display " 3 r+     I bounce from one relationship to another,
  3760.      -        " but I have quite a few. "
  3761.           end-display
  3762.           display " 4 r      I date periodically." end-display
  3763.           display " 5 r-     I have difficulty maintaining a relationsh
  3764.       -       "ip."
  3765.            end-display
  3766.            display " 6 r--    Most people aren't interested in dating me
  3767.      -        "."
  3768.           end-display
  3769.           display " 7 r---   I'm beginning to think I'm a leper or some
  3770.       -       "thing, the way"
  3771.            end-display
  3772.            display "          people avoid me like the plague."
  3773.            end-display
  3774.            display " 8 !r     I've never had a relationship."
  3775.            end-display
  3776.            display " 9 r*     signifying membership in the SBCA (Sour Ba
  3777.      -        "chelor(ette)'s"
  3778.           end-display
  3779.           display "          Club of America). The motto is 'Bitter, bu
  3780.       -       "t not Desperate'."
  3781.            end-display
  3782.            display "          First founded at Caltech. " end-display
  3783.            display " " end-display
  3784.            display " " end-display
  3785.            display " " end-display
  3786.            display "Enter your Relationships code "
  3787.                "number here [0 to quit]: " with no advancing
  3788.            end-display
  3789.  
  3790.            accept ws-entry end-accept
  3791.  
  3792.            if ws-entry (2:1) = space
  3793.                move ws-entry (1:1) to ws-entry (2:1)
  3794.                move 0              to ws-entry (1:1)  
  3795.            end-if
  3796.  
  3797.            if ws-entry not numeric
  3798.                continue
  3799.            else
  3800.                if ws-entry <= 09
  3801.                    set ws-valid-flag to "y"
  3802.                    if ws-entry = 00 then
  3803.                        perform 92000-abend
  3804.                    else if ws-entry = 01 then
  3805.                        move "r+++" to ws-rel
  3806.                    else if ws-entry = 02 then
  3807.                        move "r++" to ws-rel
  3808.                    else if ws-entry = 03 then
  3809.                        move "r+" to ws-rel
  3810.                    else if ws-entry = 04 then
  3811.                        move "r" to ws-rel
  3812.                    else if ws-entry = 05 then
  3813.                        move "r-" to ws-rel
  3814.                    else if ws-entry = 06 then
  3815.                        move "r--" to ws-rel
  3816.                    else if ws-entry = 07 then
  3817.                        move "r---" to ws-rel
  3818.                    else if ws-entry = 08 then
  3819.                        move "!r" to ws-rel
  3820.                    else if ws-entry = 09 then
  3821.                        move "r*" to ws-rel
  3822.                    end-if
  3823.                end-if
  3824.            end-if.
  3825.  
  3826.            perform 90000-clear-screen.
  3827.  
  3828.        26200-nut.
  3829.            add 1 to ws-page-cnt
  3830.  
  3831.            display "Nutrition                                          
  3832.      -       "             Page: " ws-page-cnt " of " ws-tot-page
  3833.           end-display
  3834.           display "====================================================
  3835.       -"==========================="
  3836.            end-display
  3837.            display " 1 n+++   I graze like a bunny - pass me a carrot!"
  3838.            end-display
  3839.            display " 2 n++    I like the fibers in food."
  3840.            end-display
  3841.            display " 3 n+     I like food - especially when it is health
  3842.      -        "y. "
  3843.           end-display
  3844.           display " 4 n-     Food? I just grab something from the shelv
  3845.       -       "es with meat in it. "
  3846.            end-display
  3847.            display " 5 n--    I eat only the cheap things - even with ar
  3848.      -        "tificial meat and"
  3849.           end-display
  3850.           display "          vegetables." end-display
  3851.           display " 6 n---   I eat meat - seen Jurassic Park?"
  3852.           end-display
  3853.           display " 7 n----  I _live_ on snacks and coke."
  3854.           end-display
  3855.           display " 8 !n     Eh what? never mind the menu, give me some
  3856.       -       "thing to eat!"
  3857.            end-display
  3858.            display " " end-display
  3859.            display " " end-display
  3860.            display " " end-display
  3861.            display "Enter your Nutrition code "
  3862.                "number here [0 to quit]: " with no advancing
  3863.            end-display
  3864.  
  3865.            accept ws-entry end-accept
  3866.  
  3867.            if ws-entry (2:1) = space
  3868.                move ws-entry (1:1) to ws-entry (2:1)
  3869.                move 0              to ws-entry (1:1)  
  3870.            end-if
  3871.  
  3872.            if ws-entry not numeric
  3873.                continue
  3874.            else
  3875.                if ws-entry <= 08
  3876.                    set ws-valid-flag to "y"
  3877.                    if ws-entry = 00 then
  3878.                        perform 92000-abend
  3879.                    else if ws-entry = 01 then
  3880.                        move "n+++" to ws-nut
  3881.                    else if ws-entry = 02 then
  3882.                        move "n++" to ws-nut
  3883.                    else if ws-entry = 03 then
  3884.                        move "n+" to ws-nut
  3885.                    else if ws-entry = 04 then
  3886.                        move "n-" to ws-nut
  3887.                    else if ws-entry = 05 then
  3888.                        move "n--" to ws-nut
  3889.                    else if ws-entry = 06 then
  3890.                        move "n---" to ws-nut
  3891.                    else if ws-entry = 07 then
  3892.                        move "n----" to ws-nut
  3893.                    else if ws-entry = 08 then
  3894.                        move "!n" to ws-nut
  3895.                    end-if
  3896.                end-if
  3897.            end-if.
  3898.  
  3899.            perform 90000-clear-screen.
  3900.  
  3901.        26300-gender.
  3902.            add 1 to ws-page-cnt
  3903.  
  3904.            display "Gender                                              
  3905.      -       "             Page: " ws-page-cnt " of " ws-tot-page
  3906.           end-display
  3907.           display "====================================================
  3908.       -"==========================="
  3909.            end-display
  3910.            display " 1 x   I am female." end-display
  3911.            display " 2 y   I am male." end-display
  3912.            display " 3 z   Its none of your business what sex I am."
  3913.            end-display
  3914.            display " " end-display
  3915.            display " " end-display
  3916.            display " " end-display
  3917.            display "Enter your Gender code "
  3918.                "number here [0 to quit]: " with no advancing
  3919.            end-display
  3920.  
  3921.            accept ws-entry end-accept
  3922.  
  3923.            if ws-entry (2:1) = space
  3924.                move ws-entry (1:1) to ws-entry (2:1)
  3925.                move 0              to ws-entry (1:1)  
  3926.            end-if
  3927.  
  3928.            if ws-entry not numeric
  3929.                continue
  3930.            else
  3931.                if ws-entry <= 03
  3932.                    set ws-valid-flag to "y"
  3933.                    if ws-entry = 00 then
  3934.                        perform 92000-abend
  3935.                    else if ws-entry = 01 then
  3936.                        move "x" to ws-sex-gender
  3937.                    else if ws-entry = 02 then
  3938.                        move "y" to ws-sex-gender
  3939.                    else if ws-entry = 03 then
  3940.                        move "z" to ws-sex-gender
  3941.                    end-if
  3942.                end-if
  3943.            end-if.
  3944.  
  3945.            perform 90000-clear-screen.
  3946.  
  3947.        26350-sex.
  3948.            add 1 to ws-page-cnt
  3949.  
  3950.            display "Sexuality                                          
  3951.      -       "             Page: " ws-page-cnt " of " ws-tot-page
  3952.           end-display
  3953.           display "====================================================
  3954.       -"==========================="
  3955.            end-display
  3956.            display " 1 " ws-sex-gender "++++  I have a few little rug ra
  3957.      -        "ts to prove I've"
  3958.           end-display
  3959.           display "          been there. Besides, with kids around, who
  3960.      -        " has time for sex? "
  3961.           end-display
  3962.           display " 2 " ws-sex-gender "+++   I'm married, so I can get
  3963.       -       "it"
  3964.            end-display
  3965.            display "          (theoretically) whenever I want."
  3966.            end-display
  3967.            display " 3 " ws-sex-gender "++    I was once referred to as
  3968.      -        "'easy'."
  3969.           end-display
  3970.           display "          I have no idea where that might have come
  3971.       -       " from though."
  3972.            end-display
  3973.            display " 4 " ws-sex-gender "+     I've had real, live sex."
  3974.            display " 5 " ws-sex-gender "-     I prefer computer sex to r
  3975.      -        "eal sex."
  3976.           end-display
  3977.           display " 6 " ws-sex-gender "--    I was once referred to a
  3978.       -       "s a 'cyberslut',"
  3979.            end-display
  3980.            display "          but I have no idea where that might have c
  3981.      -        "ome from."
  3982.           end-display
  3983.           display " 7 " ws-sex-gender "span class="sy0"> *    I'm a pervert."
  3984.           end-display
  3985.           display " 8 " ws-sex-gender "**    I've been known to make pe
  3986.       -       "rverts look like angels."
  3987.            end-display
  3988.            display " 9 !" ws-sex-gender "     Sex? What's that? I've had
  3989.      -        " no sexual experiences."
  3990.           end-display
  3991.           display "10 " ws-sex-gender "?     It's none of your business
  3992.      -        " what my sex life is like."
  3993.           end-display
  3994.           display "11 +" ws-sex-gender "?    Sex? What's that? No exper
  3995.       -       "ience, willing to learn! "
  3996.            end-display
  3997.            display " " end-display
  3998.            display "Enter your Sexuality code "
  3999.                "number here [0 to quit]: " with no advancing
  4000.            end-display
  4001.  
  4002.            accept ws-entry end-accept
  4003.  
  4004.            if ws-entry (2:1) = space
  4005.                move ws-entry (1:1) to ws-entry (2:1)
  4006.                move 0              to ws-entry (1:1)  
  4007.            end-if
  4008.  
  4009.            if ws-entry not numeric
  4010.                continue
  4011.            else
  4012.                if ws-entry <= 11
  4013.                    set ws-valid-flag to "y"
  4014.                    if ws-entry = 00 then
  4015.                        perform 92000-abend
  4016.                    else if ws-entry = 01 then
  4017.                        move "++++" to ws-sex
  4018.                    else if ws-entry = 02 then
  4019.                        move "+++" to ws-sex
  4020.                    else if ws-entry = 03 then
  4021.                        move "++" to ws-sex
  4022.                    else if ws-entry = 04 then
  4023.                        move "+" to ws-sex
  4024.                    else if ws-entry = 05 then
  4025.                        move "-" to ws-sex
  4026.                    else if ws-entry = 06 then
  4027.                        move "--" to ws-sex
  4028.                    else if ws-entry = 07 then
  4029.                        move "*" to ws-sex
  4030.                    else if ws-entry = 08 then
  4031.                        move "**" to ws-sex
  4032.                    else if ws-entry = 09 then
  4033.                        move "!" to ws-sex-pre
  4034.                        move " " to ws-sex
  4035.                    else if ws-entry = 10 then
  4036.                        move "?" to ws-sex
  4037.                    else if ws-entry = 11 then
  4038.                        move "+" to ws-sex-pre
  4039.                        move "?" to ws-sex
  4040.                    end-if
  4041.                end-if
  4042.            end-if.
  4043.  
  4044.            perform 90000-clear-screen.
  4045.  
  4046.        26500-print.
  4047.            move  "-----BEGIN GEEK CODE BLOCK-----" to   ws-head
  4048.            write geek-output-rec                   from ws-head
  4049.            end-write
  4050.            add 1 to ws-rec-cnt
  4051.            write geek-output-rec                   from ws-ver
  4052.            end-write
  4053.            add 1 to ws-rec-cnt
  4054.  
  4055.            string ws-type           delimited by space  
  4056.                   space             delimited by size
  4057.                   ws-dress          delimited by space
  4058.                   space             delimited by size
  4059.                   ws-hair           delimited by space
  4060.                   space             delimited by size
  4061.                   ws-shape          delimited by space
  4062.                   space             delimited by size
  4063.                   ws-glasses        delimited by space
  4064.                   space             delimited by size
  4065.                   ws-pens           delimited by space
  4066.                   space             delimited by size
  4067.                   ws-auto           delimited by space
  4068.                   space             delimited by size
  4069.                   ws-age            delimited by space
  4070.                   space             delimited by size
  4071.                   ws-weird          delimited by space
  4072.                   space             delimited by size
  4073.                   ws-verbage        delimited by space
  4074.                   space             delimited by size
  4075.                   ws-comp           delimited by space
  4076.            into ws-print-line1
  4077.            end-string
  4078.  
  4079.            write geek-output-rec from ws-print-line1
  4080.            end-write
  4081.            add 1 to ws-rec-cnt
  4082.  
  4083.            string ws-unix           delimited by space  
  4084.                   space             delimited by size
  4085.                   ws-perl           delimited by space  
  4086.                   space             delimited by size
  4087.                   ws-linux          delimited by space  
  4088.                   space             delimited by size
  4089.                   ws-386bsd         delimited by space  
  4090.                   space             delimited by size
  4091.                   ws-news           delimited by space  
  4092.                   space             delimited by size
  4093.                   ws-web            delimited by space  
  4094.                   space             delimited by size
  4095.                   ws-mac            delimited by space  
  4096.                   space             delimited by size
  4097.                   ws-vms            delimited by space  
  4098.                   space             delimited by size
  4099.                   ws-pol            delimited by space  
  4100.                   space             delimited by size
  4101.                   ws-cp             delimited by space  
  4102.            into ws-print-line2
  4103.            end-string
  4104.  
  4105.            write geek-output-rec from ws-print-line2
  4106.            end-write
  4107.            add 1 to ws-rec-cnt
  4108.  
  4109.            string ws-trek           delimited by space
  4110.                   space             delimited by size
  4111.                   ws-bab            delimited by space
  4112.                   space             delimited by size
  4113.                   ws-jeop           delimited by space
  4114.                   space             delimited by size
  4115.                   ws-role           delimited by space
  4116.                   space             delimited by size
  4117.                   ws-magic          delimited by space
  4118.                   space             delimited by size
  4119.                   ws-emacs          delimited by space
  4120.                   space             delimited by size
  4121.                   ws-kibo           delimited by space
  4122.                   space             delimited by size
  4123.                   ws-ms             delimited by space
  4124.                   space             delimited by size
  4125.                   ws-tv             delimited by space
  4126.            into ws-print-line3
  4127.            end-string
  4128.  
  4129.            write geek-output-rec from ws-print-line3
  4130.            end-write
  4131.            add 1 to ws-rec-cnt
  4132.  
  4133.            string ws-books          delimited by space
  4134.                   space             delimited by size
  4135.                   ws-doom           delimited by space
  4136.                   space             delimited by size
  4137.                   ws-barney         delimited by space
  4138.                   space             delimited by size
  4139.                   ws-educ           delimited by space
  4140.                   space             delimited by size
  4141.                   ws-music          delimited by space
  4142.                   space             delimited by size
  4143.                   ws-house          delimited by space
  4144.                   space             delimited by size
  4145.                   ws-rel            delimited by space
  4146.                   space             delimited by size
  4147.                   ws-friends        delimited by space
  4148.                   space             delimited by size
  4149.                   ws-nut            delimited by space  
  4150.                   space             delimited by size
  4151.                   ws-code-sex       delimited by size  
  4152.            into ws-print-line4
  4153.            end-string
  4154.  
  4155.            write geek-output-rec from ws-print-line4
  4156.            end-write
  4157.            add 1 to ws-rec-cnt
  4158.  
  4159.            move  "-----END GEEK CODE BLOCK-----" to   ws-end
  4160.            write geek-output-rec                 from ws-end
  4161.            end-write
  4162.            add 1 to ws-rec-cnt
  4163.  
  4164.            display "-----BEGIN GEEK CODE BLOCK-----" end-display
  4165.            display "Version: 2.1" end-display
  4166.            display ws-print-line1 end-display
  4167.            display ws-print-line2 end-display
  4168.            display ws-print-line3 end-display
  4169.            display ws-print-line4 end-display
  4170.            display "------END GEEK CODE BLOCK------" end-display
  4171.            display " " end-display
  4172.            display " " end-display
  4173.            display " " end-display
  4174.            display ws-rec-cnt " records written to 'geekcode.sig'"
  4175.            end-display
  4176.            display " " end-display
  4177.            display " " end-display
  4178.            display " " end-display.
  4179.  
  4180.        30000-cleanup.
  4181.            close geek-sig
  4182.            perform 94000-terminate.
  4183.  
  4184.        90000-clear-screen.
  4185.            move "clear" to ws-command
  4186.            call "system" using ws-command giving ws-return-sys-code
  4187.                end-call
  4188.            display " " end-display
  4189.            display " " end-display.
  4190.  
  4191.        91000-print-heading.
  4192.            display "Geek Code Generator v0.2 - Generates your geek code"
  4193.            end-display
  4194.            display "Copyright (C) 2010-2013 Randy LeJeune" end-display
  4195.            display " " end-display.
  4196.  
  4197.        92000-abend.
  4198.            perform 30000-cleanup.
  4199.  
  4200.        93000-parse-cmdln.
  4201.            perform 90000-clear-screen
  4202.            if ws-cl-args = "-h" or "-H" or "--help" or "/h" or "/?"
  4203.                display "Usage: geekcode2.1 [options] file..."
  4204.                end-display
  4205.                display " " end-display
  4206.                display "Options: " end-display
  4207.                display "    -h, --help            Display this message"
  4208.                end-display
  4209.                display "    -v, --version         Display version"
  4210.                end-display
  4211.                perform 94000-terminate
  4212.            else if ws-cl-args = "-v" or "-V" or "--version"
  4213.                display "geekcode generator 0.3" end-display
  4214.                display "Copyright (C) 2010-2013 Randy LeJeune"
  4215.                display "EMail: <rflejeune@yahoo.com>"
  4216.                end-display
  4217.                display "License GPLv3+: GNU GPL version 3 or later - <ht
  4218.      -            "tp://gnu.org/licenses/gpl.html>."
  4219.               end-display
  4220.               display "This is free software: you are free to change an
  4221.       -           "d redistribute it."
  4222.                end-display
  4223.                display "There is NO WARRANTY, to the extent permitted by
  4224.      -            " law."
  4225.               end-display
  4226.               display " " end-display
  4227.               display " " end-display
  4228.               display "Written by Randy LeJeune." end-display
  4229.               perform 94000-terminate
  4230.           else if ws-cl-args = spaces
  4231.               continue
  4232.           else
  4233.               display "geekcode: invalid option.'" end-display
  4234.               display "Try `geekcode -h' for more information."
  4235.               end-display
  4236.               perform 94000-terminate
  4237.           end-if.
  4238.  
  4239.       94000-terminate.
  4240.           goback.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!