# bufemp - write the data just receive into the receiving file
#  
subroutine bufemp(buffer,len)
include ratdef
include kerdef
include kercom
#  
character buffer(1)
integer ch,len,ctl
#  
integer i,t
ch=fd
for(i=1;i<len+1;i=i+1){
    t=buffer(i)
    if(t==MYQUOTE){
       i=i+1
       t=buffer(i)
       if(t!=MYQUOTE)t=ctl(t)
    }
    if(t!=CR)call kputch(t,ch)
}  
return
end