# kpick - read a character from the host and send it to the local
#       - terminal port
#  
#  
subroutine kpick
include ratdef
include kerdef
include kercom
integer ibyte,status,cs,cq,count
character alin(MAXLINE)
cs=011423k
cq=010421k
status=YES
if(ibm==FALSE){
   while(status==YES){
          call rdlin(rmtinfd,alin,count,ier)
          call wrseq(rmtoutfd,cs,1,ier)
          call wrseq(localoutfd,alin,count,ier)
          call wrseq(rmtoutfd,cq,1,ier)
   }
}  
else {
     while(status==YES){
           call rdseq(rmtinfd,ibyte,1,ier)
           call wrseq(localoutfd,ibyte,1,ier)
     }
}  
return
end