:
#  Version      :       Thu, 17-Jun-93 / 08:48 / (pf+,mk)
#  Usage	: $0 [ Modemport without modem control (lowercase device) ]
MODEMPORT=$1 
: ${MODEMPORT:=/dev/tty2a}
#
OS=`uname -s`
if [ "$OS" = "XENIX" ]
then B19200=exta
else B19200=19200
fi
echo "Programming Telebit Worldblazer at Port $MODEMPORT"
( stty $B19200 ctsflow ; \
  while read KOMMANDO ; do
      echo $KOMMANDO 
      echo "$KOMMANDO\r\c" > $MODEMPORT
      sleep 1
   done < progT3000regs \
) < $MODEMPORT
