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"

You are viewing proxied material from sdf.org. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.