nasty-shell [Re: Joke Shell]

[Dan_Jacobson at ATT.COM]

Arcive-name: nasty-shell

[I don't read rec.humor, so will miss all the excitement.]

>>>>> On 18 Nov 90 04:53 GMT, deen at romulus.rutgers.edu (Cinnamon Raisin) said:
Cinnamon> 	Has anyone created any sort of joke shell for Unix.

#! /bin/sh
# This is a shell archive.  Remove anything before this line, then feed it
# into a shell via "sh file" or similar.  To overwrite existing files,
# type "sh file -c".
# The tool that generated this appeared in the comp.sources.unix newsgroup;
# send mail to comp-sources-unix at uunet.uu.net if you want that tool.
# Contents:  nasty-shell
# Wrapped by danj1 at ihlpa on Sun Nov 18 01:29:18 1990
PATH=/bin:/usr/bin:/usr/ucb ; export PATH
echo If this archive is complete, you will see the following message:
echo '          "shar: End of archive."'
if test -f 'nasty-shell' -a "${1}" != "-c" ; then 
  echo shar: Will not clobber existing file \"'nasty-shell'\"
else
  echo shar: Extracting \"'nasty-shell'\" \(603 characters\)
  sed "s/^X//" >'nasty-shell' <<'END_OF_FILE'
X: #nasty-shell, totally prejudiced towards SYS V UNIX,  Dan_Jacobson at ATT.COM
Xusage="$0"; test $# -gt 0 && { echo $0: usage $usage; exit 1;}
Xx='1>&2 echo "\nThank you for using $0.  Deposit 25 cents please, then
X	hit <RETURN> \c"; read y' 
Xvideo_on=`tput blink`; test -z "$video_on" && video_on=`tput smso`
Xvideo_off=`tput rmso` #no tput rmblink
Xprompt_message=\
X"NASTY-Shell Version 0.0, Copyright (c)1989 Dan Jacobson, DanCo Corporation"
XPS1="$video_on$prompt_message>$video_off " sh -i #ksh doesn't show all
X						 #my beautiful prompt
Xeval $x
Xtput rs1; tput rs2; tput rs3 #fix up the bloody terminal
END_OF_FILE
  if test 603 -ne `wc -c <'nasty-shell'`; then
    echo shar: \"'nasty-shell'\" unpacked with wrong size!
  fi
  chmod +x 'nasty-shell'
  # end of 'nasty-shell'
fi
echo shar: End of archive.
exit 0
-- 
Dan_Jacobson at ATT.COM  Naperville IL USA  +1 708-979-6364