/*write sequential formatted external*/
extern int x_putc(),w_ed(),w_ned();
extern int xw_end(),xw_rev(),x_wSL();
s_wsfe(a
) cilist
*a
; /*start*/
if(n
=c_sfe(a
,WRITE
)) return(n
);
curunit
= &units
[a
->ciunit
];
if(pars_f(fmtbuf
)<0) err(a
->cierr
,100,"startio");
if(!curunit
->uwrt
) nowwriting(curunit
);
if(c
=='0') putc('\n',cf
);
else if(c
=='1') putc('\f',cf
);
if(workdone
) (*putn
)('\n');