home *** CD-ROM | disk | FTP | other *** search
/ Garbo / Garbo.cdr / pc / source / motd.cob < prev    next >
Encoding:
Text File  |  1992-04-19  |  17.7 KB  |  429 lines
  1. IDENTIFICATION DIVISION.
  2.  
  3. PROGRAM-ID.     MESSAGE-OF-THE-DAY.
  4. AUTHOR.         JEREMY C. RADWAN
  5. INSTALLATION.   UNIVERSITY OF DAYTON.
  6. DATE-WRITTEN.   NOVEMBER 15, 1991
  7. DATE-COMPILED.  
  8. SECURITY.       OPEN.
  9.  
  10. ****
  11. **** MOTD (MESSAGE OF THE DAY) V2.0
  12. **** COPYRIGHT (C)1992 BY REALMSOFT ENTERPRISES
  13. **** ALL RIGHTS RESERVED
  14. ****
  15. **** A FUNNY VAX UTILITY BY JEREMY C. RADWAN (AKA WINDRACER)
  16. **** SEND ANY QUESTIONS OR COMMENTS TO:
  17. ****
  18. **** AG154@CLEVELAND.FREENET.EDU OR
  19. **** RADWANJC@UDAVXB.OCA.UDAYTON.EDU
  20. ****
  21. **** I KNOW THERE ARE A LOT OF RANDOM QUOTE GENERATORS OUT THERE
  22. **** TODAY, BUT I WANTED SOMETHING DIFFERENT. HAVING JUST TAKEN COBOL
  23. **** HERE AT THE UNIVERSITY OF DAYTON, I DECIDED TO USE THAT (AS A WAY
  24. **** OF IMPROVING MY COBOL TECHNIQUE). WELL, THIS PROGRAM MAY NOT HAVE 
  25. **** IMPROVED MY PROGRAMMING ABILITY (IT WAS PRETTY SIMPLE, AFTER ALL),
  26. **** BUT IT IS A COOL PROGRAM. HERE'S HOW TO "INSTALL" IT ON YOUR ACCOUNT.
  27. **** NOTE: YOU MUST HAVE COBOL ON YOUR VAX SYSTEM FOR THIS TO WORK!
  28. **** SIMPLY TYPE THE FOLLOWING TWO COMMANDS:
  29. ****
  30. **** $ COBOL MOTD
  31. **** $ LINK MOTD
  32. ****
  33. **** YOU CAN DELETE THE MOTD.OBJ FILE THAT IS CREATED. ALL YOU NEED IS
  34. **** THE EXECUTABLE (AND THE SOURCE CODE IF YOU WANT IT STILL). THEN, TO
  35. **** RUN THE PROGRAM, USE THIS COMMAND:
  36. ****
  37. **** $ RUN MOTD
  38. ****
  39. **** OR DEFINE A COMMAND FOR IT. PLEASE FEEL FREE TO DISTRIBUTE THIS
  40. **** PROGRAM AROUND. HOWEVER, PLEASE LEAVE THE CODE, QUOTES, AND CREDITS
  41. **** INTACT. I KNOW THERE MIGHT NOT BE A LOT OF ACTUAL CODE IN THIS PROGRAM,
  42. **** BUT I WORKED HARD ON IT. PLEASE DO NOT TAKE CREDIT FOR OTHER PEOPLE'S
  43. **** WORK. IF YOU HAVE ANY QUESTIONS, COMMENTS, OR SUGGESTIONS, PLEASE
  44. **** MAIL THEM TO ME AT EITHER OF THE ADDRESSES ABOVE. I LOVE GETTING MAIL,
  45. **** SO IF YOU LIKE MY PROGRAM, TELL ME!
  46. ****
  47. **** THANKS, AND ENJOY MOTD!                  JEREMY C. RADWAN, MARCH 1992
  48. ****
  49. **** P.S. IF ANYONE CAN FIGURE OUT HOW TO MODIFY THIS PROGRAM TO WORK ON
  50. **** AN MS-DOS MACHINE, PLEASE LET ME KNOW!
  51. ****
  52.  
  53. ENVIRONMENT DIVISION.
  54.  
  55. CONFIGURATION SECTION.
  56. SOURCE-COMPUTER. VAX.
  57. OBJECT-COMPUTER. VAX.
  58.  
  59. DATA DIVISION.
  60.  
  61. FILE SECTION.
  62.  
  63. WORKING-STORAGE SECTION.
  64. **** THIS AREA CONTAINS ANY VARIABLES NEEDED FOR PROGRAM PROCESSING
  65.  
  66. 01   WORK-VARIABLES.
  67.      05  TIME-IN          PIC 9(8).
  68.      05  RND-NUMBER       PIC 9(2).
  69.      05  QUOTE-FOUND      PIC X(3)          VALUE "NO".
  70.  
  71. PROCEDURE DIVISION.
  72.  
  73. A100-MAIN-CONTROL.
  74. **** THIS MODULE CONTROLS ALL PROCESSING.
  75.      PERFORM Z100-CLEAR.
  76.      PERFORM Z200-GET-RANDOM.
  77.      PERFORM Z300-MOTD-HEADER.
  78.      PERFORM B100-FIND-QUOTE UNTIL QUOTE-FOUND = "YES".
  79.      PERFORM Z400-MOTD-FOOTER.
  80.      STOP RUN.
  81.  
  82. B100-FIND-QUOTE.
  83. **** THIS LARGE MODULE ANALYZES THE GENERATED RANDOM NUMBER
  84. **** AND SELECTS AND DISPLAYS A QUOTE.
  85.      EVALUATE RND-NUMBER
  86.      WHEN "00"
  87.           DISPLAY "People ask me why I do this, and I tell them that I have the heart of a small"
  88.           DISPLAY "boy, and I keep it in a jar on my desk."
  89.           DISPLAY "                                                 - Steven King"
  90.           MOVE "YES" TO QUOTE-FOUND
  91.      WHEN "01"
  92.           DISPLAY "                    A Smith and Wesson beats four aces."
  93.           MOVE "YES" TO QUOTE-FOUND
  94.      WHEN "02"
  95.           DISPLAY "     It is better to be ten minutes early, then to be ten minutes late."
  96.           MOVE "YES" TO QUOTE-FOUND
  97.      WHEN "03"
  98.           DISPLAY "      All things are possible, except skiing through a revolving door."
  99.           MOVE "YES" TO QUOTE-FOUND
  100.      WHEN "04"
  101.           DISPLAY " Every four seconds, a woman has a baby. We must find this woman and STOP her!"
  102.           MOVE "YES" TO QUOTE-FOUND
  103.      WHEN "05"
  104.           DISPLAY "     All programmers are playwrights, and all computers are lousy actors."
  105.           MOVE "YES" TO QUOTE-FOUND
  106.      WHEN "06"
  107.           DISPLAY "Duct tape is like the force. It has a Dark Side, and a Light Side, and it holds"
  108.           DISPLAY "the universe together."
  109.           MOVE "YES" TO QUOTE-FOUND
  110.      WHEN "07"
  111.           DISPLAY "        Hardware: (n) The parts of the computer that can be kicked."
  112.           MOVE "YES" TO QUOTE-FOUND
  113.      WHEN "08"
  114.           DISPLAY "      White giant seeking red dwarf interested in binary relationship."
  115.           MOVE "YES" TO QUOTE-FOUND
  116.      WHEN "09"
  117.           DISPLAY "                    God is real unless declared integer."
  118.           MOVE "YES" TO QUOTE-FOUND
  119.      WHEN "10"
  120.           DISPLAY "                        Life is but a Virtual Reality."
  121.           MOVE "YES" TO QUOTE-FOUND
  122.      WHEN "11"
  123.           DISPLAY "                         Ankh if you love Isis."
  124.           MOVE "YES" TO QUOTE-FOUND
  125.      WHEN "12"
  126.           DISPLAY "                             E Pluribus Unix."
  127.           MOVE "YES" TO QUOTE-FOUND
  128.      WHEN "13"
  129.           DISPLAY "      If at first you don't succeed, your skydiving days are over..."
  130.           MOVE "YES" TO QUOTE-FOUND
  131.      WHEN "14"
  132.           DISPLAY "                A nuclear war can ruin your entire day."
  133.           MOVE "YES" TO QUOTE-FOUND
  134.      WHEN "15"
  135.           DISPLAY "     Nuclear weapons can wipe out the entire planet...if used properly."
  136.           MOVE "YES" TO QUOTE-FOUND
  137.      WHEN "16"
  138.           DISPLAY "        Sure I believe in peace...peace through superior firepower."
  139.           MOVE "YES" TO QUOTE-FOUND
  140.      WHEN "17"
  141.           DISPLAY "                              God is love."
  142.           DISPLAY "                             Love is blind."
  143.           DISPLAY "                          Ray Charles is blind."
  144.           DISPLAY "                      Therefore, Ray Charles is God."
  145.           MOVE "YES" TO QUOTE-FOUND
  146.      WHEN "18"
  147.           DISPLAY " Your IBM compatible computer grows more incompatible with every passing second."
  148.           MOVE "YES" TO QUOTE-FOUND
  149.      WHEN "19"
  150.           DISPLAY "A mind is a terrible thing to waste, so if you see one lying around, pick it up"
  151.           DISPLAY "and play with it for a while."
  152.           MOVE "YES" TO QUOTE-FOUND
  153.      WHEN "20"
  154.           DISPLAY "                You can tune a piano, but you can't tuna fish."
  155.           MOVE "YES" TO QUOTE-FOUND
  156.      WHEN "21" 
  157.           DISPLAY "                 Computer programmers do it byte by byte!"
  158.           MOVE "YES" TO QUOTE-FOUND
  159.      WHEN "22"
  160.           DISPLAY "               Pretend to spank me - I'm a psuedo-masochist!"
  161.           MOVE "YES" TO QUOTE-FOUND
  162.      WHEN "23"
  163.           DISPLAY "           Is a computer language without GOTOs totally Wirth-less?"
  164.           MOVE "YES" TO QUOTE-FOUND
  165.      WHEN "24"
  166.           DISPLAY "             A chicken is an egg's way of producing more eggs."
  167.           MOVE "YES" TO QUOTE-FOUND
  168.      WHEN "25"
  169.           DISPLAY "             Reality is for people who can't face science fiction."
  170.           MOVE "YES" TO QUOTE-FOUND
  171.      WHEN "26"
  172.           DISPLAY "           People with narrow minds usually have broad tongues."
  173.           MOVE "YES" TO QUOTE-FOUND
  174.      WHEN "27"
  175.           DISPLAY "                           Friction is a drag."
  176.           MOVE "YES" TO QUOTE-FOUND
  177.      WHEN "28"
  178.           DISPLAY "      If practice makes perfect, and nobody's perfect, why practice?"
  179.           MOVE "YES" TO QUOTE-FOUND
  180.      WHEN "29"
  181.           DISPLAY "                A mouse is an elephant built by the Japanese."
  182.           MOVE "YES" TO QUOTE-FOUND
  183.      WHEN "30"
  184.           DISPLAY "           Santa's elves are just a bunch of subordinate Clauses."
  185.           MOVE "YES" TO QUOTE-FOUND
  186.      WHEN "31"
  187.           DISPLAY "                       A penny saved is ridiculous. "
  188.           MOVE "YES" TO QUOTE-FOUND
  189.      WHEN "32"
  190.           DISPLAY "                     Does the name Pavlov ring a bell?"
  191.           MOVE "YES" TO QUOTE-FOUND
  192.      WHEN "33"
  193.           DISPLAY "                  Help stamp out and abolish redundancy!"
  194.           MOVE "YES" TO QUOTE-FOUND
  195.      WHEN "34"
  196.           DISPLAY "                   Radioactive cats have 18 half-lives."
  197.           MOVE "YES" TO QUOTE-FOUND
  198.      WHEN "35"
  199.           DISPLAY "    Computer programmers never die, they just get lost in the processing."
  200.           MOVE "YES" TO QUOTE-FOUND
  201.      WHEN "36"
  202.           DISPLAY "                     Entropy isn't what it used to be!"
  203.           MOVE "YES" TO QUOTE-FOUND
  204.      WHEN "37"
  205.           DISPLAY "           Keep your mouth shut, and people will think you stupid;"
  206.           DISPLAY "                     Open it and you remove all doubt."
  207.           MOVE "YES" TO QUOTE-FOUND
  208.      WHEN "38"
  209.           DISPLAY "                          Individualists unite!"
  210.           MOVE "YES" TO QUOTE-FOUND
  211.      WHEN "39"
  212.           DISPLAY "               Disco is to music what Etch-a-Sketch is to art."
  213.           MOVE "YES" TO QUOTE-FOUND
  214.      WHEN "40"
  215.           DISPLAY "          The moon may be smaller than Earth, but it's farther away."
  216.           MOVE "YES" TO QUOTE-FOUND
  217.      WHEN "41"
  218.           DISPLAY "The human mind ordinarily operates at only ten percent of its capacity - the"
  219.           DISPLAY "rest is just overhead for the operating system."
  220.           MOVE "YES" TO QUOTE-FOUND
  221.      WHEN "42"
  222.           DISPLAY "   If debugging is the process of removing bugs, then programming must be the"
  223.           DISPLAY "                          process of putting them in!"
  224.           MOVE "YES" TO QUOTE-FOUND
  225.      WHEN "43"
  226.           DISPLAY "          COBOL programs are exercises in Artificial Inelegance."
  227.           MOVE "YES" TO QUOTE-FOUND
  228.      WHEN "44"
  229.           DISPLAY "                          Clones are people two."
  230.           MOVE "YES" TO QUOTE-FOUND
  231.      WHEN "45"
  232.           DISPLAY "    Time is just Nature's way of keeping everything from happening at once."
  233.           MOVE "YES" TO QUOTE-FOUND
  234.      WHEN "46"
  235.           DISPLAY "                     There's no future in time travel."
  236.           MOVE "YES" TO QUOTE-FOUND
  237.      WHEN "47"
  238.           DISPLAY "                       Reality does not exist - yet."
  239.           MOVE "YES" TO QUOTE-FOUND
  240.      WHEN "48"
  241.           DISPLAY "                Xerox never comes up with anything original."
  242.           MOVE "YES" TO QUOTE-FOUND
  243.      WHEN "49"
  244.           DISPLAY "          Never hit a man with glasses; hit him with your fist."
  245.           MOVE "YES" TO QUOTE-FOUND
  246.      WHEN "50"
  247.           DISPLAY "             Two can live as cheaply as one, for half as long."
  248.           MOVE "YES" TO QUOTE-FOUND
  249.      WHEN "51"
  250.           DISPLAY "                   Part-time musicians are semiconductors."
  251.           MOVE "YES" TO QUOTE-FOUND
  252.      WHEN "52"
  253.           DISPLAY "  Counting in binary is just like counting in decimal, if you are all thumbs."
  254.           MOVE "YES" TO QUOTE-FOUND
  255.      WHEN "53"
  256.           DISPLAY "    We really don't understand it, so we'll give it to the programmers!"
  257.           MOVE "YES" TO QUOTE-FOUND
  258.      WHEN "54"
  259.           DISPLAY "         Confession is good for the soul, but bad for your career."
  260.           MOVE "YES" TO QUOTE-FOUND
  261.      WHEN "55"
  262.           DISPLAY "               Don't sweat it - it's only ones and zeroes!"
  263.           MOVE "YES" TO QUOTE-FOUND
  264.      WHEN "56"
  265.           DISPLAY "         Never put off 'til tomorrow what you can avoid altogether."
  266.           MOVE "YES" TO QUOTE-FOUND
  267.      WHEN "57"
  268.           DISPLAY "              You can fool some of the people all of the time,"
  269.           DISPLAY "            and you can fool all of the people some of the time,"
  270.           DISPLAY "                but you can make a fool of yourself anytime."
  271.           MOVE "YES" TO QUOTE-FOUND
  272.      WHEN "58"
  273.           DISPLAY "          People who live in stone houses shouldn't throw glasses."
  274.           MOVE "YES" TO QUOTE-FOUND
  275.      WHEN "59"
  276.           DISPLAY "               There is no such thing as a 'Fail Safe' design."
  277.           MOVE "YES" TO QUOTE-FOUND
  278.      WHEN "60"
  279.           DISPLAY "   If I want your opinion, I'll ask you to fill out the appropriate form."
  280.           MOVE "YES" TO QUOTE-FOUND
  281.      WHEN "61"
  282.           DISPLAY "             Give a woman an inch and she'll park a car in it."
  283.           DISPLAY "            Give a speculator an inch, and he'll build a condo."
  284.           MOVE "YES" TO QUOTE-FOUND
  285.      WHEN "62"
  286.           DISPLAY " If God had intended man to have computers, He would have given him 16 fingers."
  287.           MOVE "YES" TO QUOTE-FOUND
  288.      WHEN "63"
  289.           DISPLAY "               All work and no play...will make you a manager."
  290.           MOVE "YES" TO QUOTE-FOUND
  291.      WHEN "64"
  292.           DISPLAY "      Would the last person to leave Michigan please turn off the lights?"
  293.           MOVE "YES" TO QUOTE-FOUND
  294.      WHEN "65"
  295.           DISPLAY "    The shortest distance between two points is usually under construction."
  296.           MOVE "YES" TO QUOTE-FOUND
  297.      WHEN "66"
  298.           DISPLAY "  There are two ways to write error-free programs...only the third one works."
  299.           MOVE "YES" TO QUOTE-FOUND
  300.      WHEN "67"
  301.           DISPLAY "      If your computer speaks English, it was probably built in Japan."
  302.           MOVE "YES" TO QUOTE-FOUND
  303.      WHEN "68"
  304.           DISPLAY "            COBOL programmers understand why women hate periods."
  305.           MOVE "YES" TO QUOTE-FOUND
  306.      WHEN "69"
  307.           DISPLAY "      Flying is the art of throwing yourself at the ground, and missing." 
  308.           MOVE "YES" TO QUOTE-FOUND
  309.      WHEN "70"
  310.           DISPLAY "                    Your karma just ran over my dogma."
  311.           MOVE "YES" TO QUOTE-FOUND
  312.      WHEN "71"
  313.           DISPLAY "            In God we trust - all others require a phase review."
  314.           MOVE "YES" TO QUOTE-FOUND
  315.      WHEN "72"
  316.           DISPLAY "    Philadelphia isn't dull...it just seems so because it is next to exciting"
  317.           DISPLAY "    Camden, New Jersey."
  318.           MOVE "YES" TO QUOTE-FOUND
  319.      WHEN "73"
  320.           DISPLAY "   The reason the government thinks your just a number is because it's just a "
  321.           DISPLAY "   machine."
  322.           MOVE "YES" TO QUOTE-FOUND
  323.      WHEN "74"
  324.           DISPLAY "             Death is Nature's way of telling you to slow down."
  325.           MOVE "YES" TO QUOTE-FOUND
  326.      WHEN "75"
  327.           DISPLAY "                Computers can never replace human stupidity."
  328.           MOVE "YES" TO QUOTE-FOUND
  329.      WHEN "76"
  330.           DISPLAY "                        Immanual Kant but Kubla Kahn."
  331.           MOVE "YES" TO QUOTE-FOUND
  332.      WHEN "77"
  333.           DISPLAY "             Don't look back, the lemmings are gaining on you."
  334.           MOVE "YES" TO QUOTE-FOUND
  335.      WHEN "78"
  336.           DISPLAY "                  SDRAWKCAB spelled backwards is backwards."
  337.           MOVE "YES" TO QUOTE-FOUND
  338.      WHEN "79"
  339.           DISPLAY "                    Pain is just God's way of hurting you."
  340.           MOVE "YES" TO QUOTE-FOUND
  341.      WHEN "80"
  342.           DISPLAY "   The attention span of a computer is only as long as its electric cord."
  343.           MOVE "YES" TO QUOTE-FOUND
  344.      WHEN "81"
  345.           DISPLAY "          The way to a man's heart is through the left ventricle."
  346.           MOVE "YES" TO QUOTE-FOUND
  347.      WHEN "82"
  348.           DISPLAY "      Alan Luck's Axiom: When all else fails, read the documentation!"
  349.           MOVE "YES" TO QUOTE-FOUND
  350.      WHEN "83"
  351.           DISPLAY "                 Gravity doesn't exist, the Earth sucks..."
  352.           MOVE "YES" TO QUOTE-FOUND
  353.      WHEN "84"
  354.           DISPLAY "     Usenet is like Tetris for people who still remember how to read."
  355.           MOVE "YES" TO QUOTE-FOUND
  356.      WHEN "85"
  357.           DISPLAY "                    It works better if you plug it in."
  358.           MOVE "YES" TO QUOTE-FOUND
  359.      WHEN "86"
  360.           DISPLAY "          Monday is a hard way to spend one-seventh of your life."
  361.           MOVE "YES" TO QUOTE-FOUND
  362.      WHEN "87"
  363.           DISPLAY "                 Don't force it...get a large hammer."
  364.           MOVE "YES" TO QUOTE-FOUND
  365.      WHEN "88"
  366.           DISPLAY "     Before making a backup copy, be sure to first destroy the originals."
  367.           MOVE "YES" TO QUOTE-FOUND
  368.      WHEN "89"
  369.           DISPLAY "      Wernher von Braun settled for a V-2 when he could've had a V-8."
  370.           MOVE "YES" TO QUOTE-FOUND
  371.      WHEN "90"
  372.           DISPLAY "   Shift to the left, shift to the right, mask in, mask out, BYTE! BYTE! BYTE!"
  373.           MOVE "YES" TO QUOTE-FOUND
  374.      WHEN "91"
  375.           DISPLAY "       Health is merely the slowest possible rate at which one can die."
  376.           MOVE "YES" TO QUOTE-FOUND
  377.      WHEN "92"
  378.           DISPLAY "                      Schizophrenia beats being alone."
  379.           MOVE "YES" TO QUOTE-FOUND
  380.      WHEN "93"
  381.           DISPLAY "           To err is human, to forgive is against company policy."
  382.           MOVE "YES" TO QUOTE-FOUND
  383.      WHEN "94"
  384.           DISPLAY "       The problem with the gene pool is that there is no lifeguard."
  385.           MOVE "YES" TO QUOTE-FOUND
  386.      WHEN "95"
  387.           DISPLAY "                   On a clear disk, you can seek forever..."
  388.           MOVE "YES" TO QUOTE-FOUND
  389.      WHEN "96"
  390.           DISPLAY "                 Everyone hates me because I'm paranoid."
  391.           MOVE "YES" TO QUOTE-FOUND
  392.      WHEN "97"
  393.           DISPLAY "               Going the speed of light is bad for your age."
  394.           MOVE "YES" TO QUOTE-FOUND
  395.      WHEN "98"
  396.           DISPLAY "                    Small programs are for small minds."
  397.           MOVE "YES" TO QUOTE-FOUND
  398.      WHEN "99"
  399.           DISPLAY "           MOTD Generator -  written in COBOL by Jeremy C. Radwan"
  400.           DISPLAY "       RADWANJC@udavxb.oca.udayton.edu  OR  ag154@cleveland.freenet.edu"
  401.           MOVE "YES" TO QUOTE-FOUND
  402.      WHEN OTHER
  403.           MOVE "NO" TO QUOTE-FOUND
  404.           PERFORM Z200-GET-RANDOM
  405.      END-EVALUATE.
  406.  
  407. Z100-CLEAR.
  408. **** THIS MODULE CLEARS THE SCREEN.
  409.      CALL "SCR$ERASE_PAGE" USING BY VALUE 1,1.
  410.  
  411. Z200-GET-RANDOM.
  412. **** THIS MODULE GENERATES A RANDOM NUMBER BY USING THE
  413. **** HUNDRETHS OF A SECOND (IMPORTED FROM THE SYSTEM CLOCK)
  414.      ACCEPT TIME-IN FROM TIME.
  415.      MOVE TIME-IN TO RND-NUMBER.
  416.  
  417. Z300-MOTD-HEADER.
  418. **** DISPLAYS THE MESSAGE OF THE DAY HEADER.
  419.      DISPLAY " ".
  420.      DISPLAY "                           Message of the Day:".
  421.      DISPLAY " ".
  422.  
  423. Z400-MOTD-FOOTER.
  424.      DISPLAY " ".
  425.      DISPLAY "      [ MOTD Generator - Copyright (c)1992 by RealmSoft Enterprises ]".
  426.      DISPLAY " ".
  427.      DISPLAY " ".
  428.  
  429.