SUBROUTINE KPICK
      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 IBYTE,STATUS,CS,CQ,COUNT
      INTEGER ALIN(132)
      CS=011423K
      CQ=010421K
      STATUS=1
      IF(.NOT.(IBM.EQ.0))GOTO 23000
23002 IF(.NOT.(STATUS.EQ.1))GOTO 23003
      CALL RDLIN(RMTINFD,ALIN,COUNT,IER)
      CALL WRSEQ(RMTOUTFD,CS,1,IER)
      CALL WRSEQ(LOCALOUTFD,ALIN,COUNT,IER)
      CALL WRSEQ(RMTOUTFD,CQ,1,IER)
      GOTO 23002
23003 CONTINUE
      GOTO 23001
23000 CONTINUE
23004 IF(.NOT.(STATUS.EQ.1))GOTO 23005
      CALL RDSEQ(RMTINFD,IBYTE,1,IER)
      CALL WRSEQ(LOCALOUTFD,IBYTE,1,IER)
      GOTO 23004
23005 CONTINUE
23001 CONTINUE
      RETURN
      END