From: bzs@ussr.std.com (Barry Shein)
Subject: Re: GOOLEY: I SAW ELVIS
Organization: The World
	<1992Aug12.125052.9528@cs.yale.edu>
Date: Thu, 13 Aug 1992 05:06:58 GMT


>One day, I'm going to write a program that generates these at random...

Here's a remarkably silly and trivial program I wrote to amuse someone
once that should get you off to a good start and a career in the
media:


#! /bin/sh
# This is a shell archive.  Remove anything before this line, then unpack
# it by saving it into a file and typing "sh file".  To overwrite existing
# files, type "sh file -c".  You can also feed this as standard input via
# unshar, or by typing "sh <file", e.g..  If this archive is complete, you
# will see the following message at the end:
#		"End of shell archive."
# Contents:  sensat.perl sensat
# Wrapped by bzs@world on Thu Aug 13 00:05:06 1992
PATH=/bin:/usr/bin:/usr/ucb ; export PATH
if test -f sensat.perl -a "${1}" != "-c" ; then 
  echo shar: Will not over-write existing file \"sensat.perl\"
else
echo shar: Extracting \"sensat.perl\" \(573 characters\)
sed "s/^X//" >sensat.perl <<'END_OF_sensat.perl'
X#!/usr/local/bin/perl
X#
X# Copyright, 1992, Barry Shein, Software Tool & Die
X#
X# Anyone but AT&T & USL may use this software for anything they
X# like for free.
X#
Xopen(INPUT,"sensat");
Xfor($i=0; <INPUT>; $i++) {
X  chop;
X  ($leader[$i],$verbs[$i],$conseq[$i]) = split(':');
X}
Xsrand;
X$l = $leader[rand($i)];
X$v = $verbs[rand($i)];
X$c = $conseq[rand($i)];
X
Xformat =
X@||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
X$l
X@||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
X$v
X@||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
X$c
X.
Xwrite;
Xexit 0;
END_OF_sensat.perl
if test 573 -ne `wc -c <sensat.perl`; then
    echo shar: \"sensat.perl\" unpacked with wrong size!
fi
chmod +x sensat.perl
# end of overwriting check
fi
if test -f sensat -a "${1}" != "-c" ; then 
  echo shar: Will not over-write existing file \"sensat\"
else
echo shar: Extracting \"sensat\" \(872 characters\)
sed "s/^X//" >sensat <<'END_OF_sensat'
XDRUG USERS:IMPLICATED IN:CONGRESSIONAL INVESTIGATION
XHOMOSEXUALS:PRIME SUSPECTS IN:GLOBAL WARMING
XCHILD ABUSE:REPORTED A FACTOR IN:NEW TAXES
XCRIMINALS:SAID TO BE CAUSE OF:MOST RAPE CASES
XABORTION RIGHTS ACTIVISTS:FOCUS OF:MASS DEMONSTRATIONS
XILLEGAL IMMIGRANTS:BLAMED FOR:RISE IN POVERTY
XCONGRESSMAN:INVOLVED IN:WIDESPREAD WELFARE ABUSE
XUNWED MOTHERS:BLAMED FOR SHARP INCREASES IN:CANCER RATE
XANTI-ABORTION PROPONENTS:SUBJECT OF:RECESSIONARY FEARS
XWELFARE FRAUD:MAJOR CONCERN IN:NEW MILITARY SPENDING
XFUNDAMENTALIST GROUP:RAISES DOUBTS ABOUT:FEDERAL DEFICIT
XPRESIDENT:AROUSES FEARS OF:NEW LEGISLATION
XTERRORISTS:ARRESTED IN:SEX-RING SCANDALS
XWHITE HOUSE:ADDRESSES PROBLEMS OF:CHILD PORNOGRAPHY
XAIDS VICTIMS:SAID TO BE LEADING CAUSE OF:DECLINE IN AMERICAN MORALITY
XPRO-CHOICE ACTIVISTS:SAID TO FAVOR:RISE IN OIL PRICES
XS&L EXECUTIVES:REFUSE COMMENT ON:NUCLEAR PLANT SAFETY
END_OF_sensat
if test 872 -ne `wc -c <sensat`; then
    echo shar: \"sensat\" unpacked with wrong size!
fi
# end of overwriting check
fi
echo shar: End of shell archive.
exit 0

--
        -Barry Shein

Software Tool & Die    | bzs@world.std.com          | uunet!world!bzs
Purveyors to the Trade | Voice: 617-739-0202        | Login: 617-739-WRLD
Newsgroups: talk.bizarre