#ttyraw- put the TTY that does the actual I/O of packet into raw mode # - whihc mean no echo and do not conver lower case to upper case # subroutine ttyraw include ratdef include kerdef include kercom integer ier integer xchar(3) if(host==TRUE){ # use the TTY the user currently logon under call qgchr(000000k,"@console",xchar,ier) call iclr(xchar(1),0) call iclr(xchar(1),1) call iset(xchar(2),15) call qschr(000000k,"@console",xchar,ier) } else { # we are in local mode, which terminal is to be used if(speed==FALSE){ # use a TTY with 1200 baud call qgchr(000000k,"@con11",xchar,ier) call iclr(xchar(1),0) call iclr(xchar(1),1) call iset(xchar(2),15) call qschr(000000k,"@con11",xchar,ier) } else { # use a TTY with 9600 baud call qgchr(000000k,"@con4",xchar,ier) call iclr(xchar(1),0) call iclr(xchar(1),1) call iset(xchar(2),15) call qschr(000000k,"@con4",xchar,ier) } } return end