# bufill - get a single character from the sending file
#  
integer function bufill(buffer)
include ratdef
include kerdef
include kercom
#  
integer i,ctl,t,kgetch,buffer(1),ch
#  
i=1
ch=fd
while(kgetch(t,ch)>0){
      if((t<SP)|(t==DEL)|(t==quote)){
          if(t==NEWLINE){
             buffer(i)=quote
             i=i+1
             buffer(i)=ctl(CR)
             i=i+1
          }
          buffer(i)=quote
          i=i+1
          if(t!=quote)t=ctl(t)
      }
      buffer(i)=t
      i=i+1
      if(i>spsiz-8){
         bufill=i-1
         return
      }
}  
if(i==1){
   bufill=EOF
   return
}  
bufill=i-1
return
end