SUBROUTINE BUFEMP(BUFFER,LEN)
      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 BUFFER(1)
      INTEGER CH,LEN,CTL
      INTEGER I,T
      CH=FD
      I=1
23000 IF(.NOT.(I.LT.LEN+1))GOTO 23002
      T=BUFFER(I)
      IF(.NOT.(T.EQ.35 ))GOTO 23003
      I=I+1
      T=BUFFER(I)
      IF(.NOT.(T.NE.35 ))GOTO 23005
      T=CTL(T)
23005 CONTINUE
23003 CONTINUE
      IF(.NOT.(T.NE.13))GOTO 23007
      CALL KPUTCH(T,CH)
23007 CONTINUE
23001 I=I+1
      GOTO 23000
23002 CONTINUE
      RETURN
      END