# spar- let the other KERMIT know what my requirements are
#  
subroutine spar(xdata)
include ratdef
include kerdef
include kercom
character xdata(1)
#  
integer ctl,tochar
xdata(1)=tochar(MAXPACK)
xdata(2)=tochar(0)
xdata(3)=tochar(MYPAD)
xdata(4)=ctl(MYPCHAR)
xdata(5)=tochar(MYEOL)
xdata(6)=MYQUOTE
return
end