# rpar - what are the requirement of the other KERMIT
#  
subroutine rpar(xdata)
include ratdef
include kerdef
include kercom
#  
character xdata(1)
integer unchar,ctl
#  
spsiz=unchar(xdata(1))
pad=unchar(xdata(3))
padchar=ctl(xdata(4))
eol=unchar(xdata(5))
quote=xdata(6)
return
end