# connect - read from local terminal and send to remote system
#         - if ibm flag is on, then send the same character to the
#         - local terminal, also read from the host and send to the
#         - local terminal
#  
#  
subroutine connect
include ratdef
include kerdef
include kercom
#  
integer echar,t,status,ichar,kgetch,cq,cs
#  
cs=011423k
cq=010421k
echar=29     # CNTR-]
status=YES
task kpick,id=3,pri=1
call remark(" typing CNTR-] causes return to KERMIT-AOS")
while(status==YES){
      t=kgetch(ichar,localinfd)
      if(t==0){
         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
      }
      if(ichar==echar){
         call tidk(3,ier)
         call wait(1,2,ier)
         call remark("returning to Kermit-AOS")
         call wrseq(rmtoutfd,cq,1,ier)
         return
      }
      else {
            call kputch(ichar,rmtoutfd)
            if(ibm==TRUE)call kputch(ichar,localoutfd)
      }
}  
return
end