From smj Sat Sep 24 11:12 CDT 1994
>From metronet.com!iczer Fri Sep 23 18:30:36 1994
Received: by metronet.com id AA03000
  (5.67a/IDA1.5hp for smj@sdf.lonestar.org); Fri, 23 Sep 1994 13:32:25 -0500
Date: Fri, 23 Sep 1994 13:30:36 -0500 (CDT)
From: Ted Uhlemann <iczer@metronet.com>
Subject: pbbs-c
To: smj@sdf.lonestar.org
Message-Id: <Pine.3.87.9409231336.A2806-0100000@fohnix.metronet.com>
Mime-Version: 1.0
Content-Type: TEXT/PLAIN; charset=US-ASCII
Content-Length: 831
Status: RO

here's the latest version of PinkBBS "Pro".  I hope you like it.

-----
#!/bin/sh
trap "" 2
pbbs=/usr/local/lib/pbbs
PATH=$pbbs:$PATH
export PATH 
ans=blah
if [ "$1." = "." ]
then
  menu=main
else
  menu=$1
fi
while [ "$ans." != "." ]
do
  tput clear
  mesg="TERM=$TERM"
  if [ -s /usr/mail/$LOGNAME ]
  then
    mesg="* mail *"
  fi
  echo "PinkBBS \"Pro\" v1.5	($mesg)"
  echo
  cat $pbbs/$menu
  echo
  echo  "($menu): \c"
  read ans
  while [ `echo $ans|wc -c` -gt 2 ]
  do
    sh -c "exec $ans"
    echo "\n($menu): \c"
    read ans
  done
  cmd=`grep "^\[$ans\]" $pbbs/$menu | cut -f2 -d"(" | cut -f1 -d")"`
  tput clear
  if [ "`echo $cmd|cut -c1-4`." = "pbbs." ]
  then
    exec $0 `echo $cmd|cut -f2 -d" "` $menu $2 $3 $4 $5 $6
  else
    sh -c "exec $cmd"
  fi
done
if [ "$2." != "." ]
then
  exec $0 $2 $3 $4 $5 $6
fi