if x$1x = xx goto usage
stty  !8-bit !breaks !delimit echo ek even odd hold !hupcl \
           indicate lower !raw	quiet
goto $1
: usage
echo "Usage is : thisisa  kind_of_terminal  [quiet]"
echo " e.g. decwriter vdu cdcvdu data100 silent700 teletype"
exit
: decwriter
stty  !data100 !nl !tabs !vdu !nldelay !crdelay \
           !skips line 132 !page $2
exit
: teletype
stty  !data100 !nl !tabs !vdu nldelay 5 crdelay 10 \
           !skips line 86 !page upper $2
exit
: data100
stty   data100 !nl !tabs !vdu nldelay 2 !crdelay \
           !skips line 80 page 24 $2
exit
: cdcvdu
stty  !data100 !nl !tabs vdu !nldelay !crdelay \
           !skips line 80 page 16 $2
exit
: silent700
stty  !data100 !nl !tabs !vdu nldelay 5 crdelay 10 \
           !skips line 80 !page $2
exit
: vdu
stty  !data100 !nl !tabs vdu !nldelay !crdelay \
           !skips line 80 page 24 $2
exit
