\File{grindB\-3.c},{22:23},{Jun 12 1988}
\L{\LB{...}}
\L{\LB{}}
\L{\LB{\K{static} \K{int}  ros\_end (sd, roe)}}
\L{\LB{\K{int}     sd;}}
\L{\LB{\K{struct} RoSAPend *roe;}}
\L{\LB{\{}}
\L{\LB{    \K{struct} RoSAPindication  rois;}}
\L{\LB{    \K{register} \K{struct} RoSAPindication *roi = \&rois;}}
\L{\LB{    \K{register} \K{struct} RoSAPpreject   *rop = \&roi \-\> roi\_preject;}}
\L{\LB{}}
\L{\LB{    \K{if} (RoEndResponse (sd, roi) == NOTOK)}}
\L{\LB{}\Tab{8}{error (\S{}\"RO\-END.RESPONSE: \%s\"\SE{}, RoErrString (rop \-\> rop\_reason));}}
\L{\LB{}}
\L{\LB{    exit (0);}}
\L{\LB{\}}}