INTEGER FUNCTION BUFILL(BUFFER)
      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 I,CTL,T,KGETCH,BUFFER(1),CH
      I=1
      CH=FD
23000 IF(.NOT.(KGETCH(T,CH).GT.0))GOTO 23001
      IF(.NOT.((T.LT.32 ).OR.(T.EQ.127 ).OR.(T.EQ.QUOTE)))GOTO 23002
      IF(.NOT.(T.EQ.10))GOTO 23004
      BUFFER(I)=QUOTE
      I=I+1
      BUFFER(I)=CTL(13)
      I=I+1
23004 CONTINUE
      BUFFER(I)=QUOTE
      I=I+1
      IF(.NOT.(T.NE.QUOTE))GOTO 23006
      T=CTL(T)
23006 CONTINUE
23002 CONTINUE
      BUFFER(I)=T
      I=I+1
      IF(.NOT.(I.GT.SPSIZ-8))GOTO 23008
      BUFILL=I-1
      RETURN
23008 CONTINUE
      GOTO 23000
23001 CONTINUE
      IF(.NOT.(I.EQ.1))GOTO 23010
      BUFILL=10003
      RETURN
23010 CONTINUE
      BUFILL=I-1
      RETURN
      END