SUBROUTINE TTYRAW
      IMPLICIT INTEGER (A-Z)
      COMMON /KER/ N,RPSIZ,SPSIZ,PAD,NUMTRY,OLDTRY, FD,RMTINFD,RMTOUTFD,
     *STATE,PADCHAR, EOL,ESCHAR,QUOTE,FILNAM(132),RECPKT(94 ), PACKET(94
     * ),SIZE,MOREFD,IBM,HOST, LOCALINFD,LOCALOUTFD,SPEED
      INTEGER IER
      INTEGER XCHAR(3)
      IF(.NOT.(HOST.EQ.-1))GOTO 23000
      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)
      GOTO 23001
23000 CONTINUE
      IF(.NOT.(SPEED.EQ.0))GOTO 23002
      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)
      GOTO 23003
23002 CONTINUE
      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)
23003 CONTINUE
23001 CONTINUE
      RETURN
      END