/* read sequential formatted external */
extern int x_getc(),rd_ed(),rd_ned();
extern int x_endp(),x_rev(),xrd_SL();
s_rsfe(a
) cilist
*a
; /* start */
if(n
=c_sfe(a
)) return(n
);
curunit
= &units
[a
->ciunit
];
if(pars_f(fmtbuf
)<0) err(a
->cierr
,100,"startio");
if(curunit
->uwrt
) (void) nowreading(curunit
);
while((ch
=getc(cf
))!='\n' && ch
!=EOF
);
if(curunit
->uend
) return(EOF
);
if((ch
=getc(cf
))!=EOF
&& ch
!='\n')