home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #18 / NN_1992_18.iso / spool / talk / bizarre / 25680 < prev    next >
Encoding:
Internet Message Format  |  1992-08-12  |  3.7 KB
  1. Xref: sparky talk.bizarre:25680 alt.elvis.sighting:9
  2. Newsgroups: talk.bizarre,alt.elvis.sighting
  3. Path: sparky!uunet!world!bzs
  4. From: bzs@ussr.std.com (Barry Shein)
  5. Subject: Re: GOOLEY: I SAW ELVIS
  6. In-Reply-To: glockner-gregory@CS.YALE.EDU's message of Wed, 12 Aug 1992 12:50:52 GMT
  7. Message-ID: <BZS.92Aug13000658@ussr.std.com>
  8. Sender: usenet@world.std.com (Mr USENET himself)
  9. Nntp-Posting-Host: ussr.std.com
  10. Organization: The World
  11. References: <b53mjd+.rdc@netcom.com> <1992Aug12.045828.25414@ringer.cs.utsa.edu>
  12.     <1992Aug12.125052.9528@cs.yale.edu>
  13. Date: Thu, 13 Aug 1992 05:06:58 GMT
  14. Lines: 93
  15.  
  16.  
  17. >One day, I'm going to write a program that generates these at random...
  18.  
  19. Here's a remarkably silly and trivial program I wrote to amuse someone
  20. once that should get you off to a good start and a career in the
  21. media:
  22.  
  23.  
  24. #! /bin/sh
  25. # This is a shell archive.  Remove anything before this line, then unpack
  26. # it by saving it into a file and typing "sh file".  To overwrite existing
  27. # files, type "sh file -c".  You can also feed this as standard input via
  28. # unshar, or by typing "sh <file", e.g..  If this archive is complete, you
  29. # will see the following message at the end:
  30. #        "End of shell archive."
  31. # Contents:  sensat.perl sensat
  32. # Wrapped by bzs@world on Thu Aug 13 00:05:06 1992
  33. PATH=/bin:/usr/bin:/usr/ucb ; export PATH
  34. if test -f sensat.perl -a "${1}" != "-c" ; then 
  35.   echo shar: Will not over-write existing file \"sensat.perl\"
  36. else
  37. echo shar: Extracting \"sensat.perl\" \(573 characters\)
  38. sed "s/^X//" >sensat.perl <<'END_OF_sensat.perl'
  39. X#!/usr/local/bin/perl
  40. X#
  41. X# Copyright, 1992, Barry Shein, Software Tool & Die
  42. X#
  43. X# Anyone but AT&T & USL may use this software for anything they
  44. X# like for free.
  45. X#
  46. Xopen(INPUT,"sensat");
  47. Xfor($i=0; <INPUT>; $i++) {
  48. X  chop;
  49. X  ($leader[$i],$verbs[$i],$conseq[$i]) = split(':');
  50. X}
  51. Xsrand;
  52. X$l = $leader[rand($i)];
  53. X$v = $verbs[rand($i)];
  54. X$c = $conseq[rand($i)];
  55. X
  56. Xformat =
  57. X@||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
  58. X$l
  59. X@||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
  60. X$v
  61. X@||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
  62. X$c
  63. X.
  64. Xwrite;
  65. Xexit 0;
  66. END_OF_sensat.perl
  67. if test 573 -ne `wc -c <sensat.perl`; then
  68.     echo shar: \"sensat.perl\" unpacked with wrong size!
  69. fi
  70. chmod +x sensat.perl
  71. # end of overwriting check
  72. fi
  73. if test -f sensat -a "${1}" != "-c" ; then 
  74.   echo shar: Will not over-write existing file \"sensat\"
  75. else
  76. echo shar: Extracting \"sensat\" \(872 characters\)
  77. sed "s/^X//" >sensat <<'END_OF_sensat'
  78. XDRUG USERS:IMPLICATED IN:CONGRESSIONAL INVESTIGATION
  79. XHOMOSEXUALS:PRIME SUSPECTS IN:GLOBAL WARMING
  80. XCHILD ABUSE:REPORTED A FACTOR IN:NEW TAXES
  81. XCRIMINALS:SAID TO BE CAUSE OF:MOST RAPE CASES
  82. XABORTION RIGHTS ACTIVISTS:FOCUS OF:MASS DEMONSTRATIONS
  83. XILLEGAL IMMIGRANTS:BLAMED FOR:RISE IN POVERTY
  84. XCONGRESSMAN:INVOLVED IN:WIDESPREAD WELFARE ABUSE
  85. XUNWED MOTHERS:BLAMED FOR SHARP INCREASES IN:CANCER RATE
  86. XANTI-ABORTION PROPONENTS:SUBJECT OF:RECESSIONARY FEARS
  87. XWELFARE FRAUD:MAJOR CONCERN IN:NEW MILITARY SPENDING
  88. XFUNDAMENTALIST GROUP:RAISES DOUBTS ABOUT:FEDERAL DEFICIT
  89. XPRESIDENT:AROUSES FEARS OF:NEW LEGISLATION
  90. XTERRORISTS:ARRESTED IN:SEX-RING SCANDALS
  91. XWHITE HOUSE:ADDRESSES PROBLEMS OF:CHILD PORNOGRAPHY
  92. XAIDS VICTIMS:SAID TO BE LEADING CAUSE OF:DECLINE IN AMERICAN MORALITY
  93. XPRO-CHOICE ACTIVISTS:SAID TO FAVOR:RISE IN OIL PRICES
  94. XS&L EXECUTIVES:REFUSE COMMENT ON:NUCLEAR PLANT SAFETY
  95. END_OF_sensat
  96. if test 872 -ne `wc -c <sensat`; then
  97.     echo shar: \"sensat\" unpacked with wrong size!
  98. fi
  99. # end of overwriting check
  100. fi
  101. echo shar: End of shell archive.
  102. exit 0
  103.  
  104. --
  105.         -Barry Shein
  106.  
  107. Software Tool & Die    | bzs@world.std.com          | uunet!world!bzs
  108. Purveyors to the Trade | Voice: 617-739-0202        | Login: 617-739-WRLD
  109.