SUBROUTINE CONNECT
      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 ECHAR,T,STATUS,ICHAR,KGETCH,CQ,CS
      CS=011423K
      CQ=010421K
      ECHAR=29
      STATUS=1
      TASK KPICK,ID=3,PRI=1
      CALL REMARK(" typing CNTR-] causes return to KERMIT-AOS")
23000 IF(.NOT.(STATUS.EQ.1))GOTO 23001
      T=KGETCH(ICHAR,LOCALINFD)
      IF(.NOT.(T.EQ.0))GOTO 23002
      CALL REMARK("error in I/O using remote TTY")
      CALL TIDK(3,IER)
      CALL WAIT(1,2,IER)
      CALL REMARK("returning to Kermit-AOS")
      CALL WRSEQ(RMTOUTFD,CQ,1,IER)
      RETURN
23002 CONTINUE
      IF(.NOT.(ICHAR.EQ.ECHAR))GOTO 23004
      CALL TIDK(3,IER)
      CALL WAIT(1,2,IER)
      CALL REMARK("returning to Kermit-AOS")
      CALL WRSEQ(RMTOUTFD,CQ,1,IER)
      RETURN
23004 CONTINUE
      CALL KPUTCH(ICHAR,RMTOUTFD)
      IF(.NOT.(IBM.EQ.-1))GOTO 23006
      CALL KPUTCH(ICHAR,LOCALOUTFD)
23006 CONTINUE
23005 CONTINUE
      GOTO 23000
23001 CONTINUE
      RETURN
      END