trap '' 2
echo
echo "PinkBBS v0.99b"
echo
response='a'
while [ ! $response = '!' ]
do
  if [ $response = 'a' -o $response = 'e' -o $response = 'foo' ]
  then
    echo
    echo
  fi
  response='a'
  echo
  echo -n "main [?nrsfgcwplume!] "
  read bar
  response=$response$bar
  response=`echo $response | cut -f1 -d " "`
  if [ $response = 'a' ]
  then
    response='foo'
  else
    response=`echo $response | cut -c2`
  fi
  case $response in
    '?') echo
         more /usr/local/lib/menu/help;;
    'n') if [ $LOGNAME = 'new' -o $LOGNAME = 'anon' ]
         then
           echo
           echo "executing rn... please keep in mind that you're not logged"
           echo "  in under your own account, and therefor you won't be able"
           echo "  to receive direct response to any posted articles."
         fi
         echo
         /usr/local/bin/rn;;
    'r') if [ $LOGNAME = 'new' -o $LOGNAME = 'anon' ]
         then
           echo
           echo "you must be logged in under your own acct to use this feature"
         else
           echo
           /usr/bin/mailx
         fi;;
    's') if [ $LOGNAME = 'new' -o $LOGNAME = 'anon' ]
         then
           echo
           echo "please keep in mind that since you're not logged-in under"
           echo "your own account, you will not be able to receive any replies"
           echo "to your mail."
         fi
         echo
         echo -n "to: "
         read whom
         /usr/bin/mailx $whom;;
    'f') cd /usr/pub
         while [ ! $response = 'e' ]
         do
           response='a'
           echo
           echo -n "file [?udlrbcvze] "
           read bar
           response=$response$bar
           if [ $response = 'a' ]
           then
             response='foo'
           else
             response=`echo $response | cut -c2`
           fi
           case $response in
             '?') echo
                  more /usr/local/lib/menu/help.file;;
             'u') rz;;
             'd') echo
                  echo -n "file(s): "
                  read bar
                  sz $bar;;
             'l') echo
                  ls -al | more
                  echo
                  echo "(lines preceded with a 'd' are directories)";;
             'b') echo
                  ls -CF | more;;
             'r') echo
                  ls -CRF | more;;
             'c') echo
                  echo -n "to: "
                  read bar
                  cd $bar*;;
             'v') echo
                  echo -n "file(s): "
                  read bar
                  more $bar;;
             'z') echo
                  echo -n "file(s): "
                  read bar
                  zcat $bar | more
           esac
         done;; 
    'g') while [ ! $response = 'e' ]
         do
           response='a'
           echo
           echo -n "game [?cgmlte] "
           read bar
           response=$response$bar
           if [ $response = 'a' ]
           then
             response='foo'
           else
             response=`echo $response | cut -c2`
           fi
           case $response in
             '?') echo
                  more /usr/local/lib/menu/help.games;;
             'c') /usr/games/gnuchess;;
             'g') /usr/games/gnugo;;
             'm') /usr/games/mazewar;;
             'l') /usr/games/lander;;
             't') echo
                  echo -n "sludge factor (default: 100): "
                  read bar
                  /usr/games/tetrix $bar;;
           esac
         done;;
    'w') echo
         /bin/who -THu;;
    'p') bar='-ft'
         echo
         echo -n "of which terminal(s) ('e' for everyone): "
         read whom
         response=$bar$whom
         if [ $response = '-fte' ]
         then
           response='-fe'
         fi
         echo
         ps $response;;
    'l') echo
         who /etc/wtmp | tail -15;;
    'c') while [ ! $response = 'e' ]
         do
           response='a'
           echo
           echo -n "chat [?wpre] "
           read bar
           response=$response$bar
           if [ $response = 'a' ]
           then
             response='foo'
           else
             response=`echo $response | cut -c2`
           fi
           case $response in
             '?') echo
                  more /usr/local/lib/menu/help.chat;;
             'w') echo
                  echo -n "to: "
                  read whom
                  write $whom;;
             'p') echo
                  echo -n "to: "
                  read whom
                  /usr/local/bin/phone $whom;;
             'r') echo
                  /usr/local/bin/rt;;
           esac
         done;;
    'u') while [ ! $response = 'e' ]
         do
           response='a'
           echo
           echo -n "help [?hime] "
           read bar
           response=$response$bar
           if [ $response = 'a' ]
           then
             response='foo'
           else
             response=`echo $response | cut -c2`
           fi
           case $response in
             '?') echo
                  more /usr/local/lib/menu/help.unix;;
             'h') help;;
             'i') echo
                  more /usr/local/lib/menu/info;;
             'm') echo
                  echo -n "topic: "
                  read bar
                  man $bar | more;; 
           esac
         done;;
    'm') echo
         echo "please leave mail to iczer with your desired one-word login"
         echo "name, and a full name.  you acct will most likely be active"
         echo "in a few hours.";;
    'e') kill -9 0;;
  esac
done
echo
echo "type 'menu' to return - 'help' for help on Unix"