f__reading=0;
integer s_wdfe(cilist *a)#endif{	int n;	if(!f__init) f_init();	if(n=c_dfe(a)) return(n);	f__reading=0;	if(f__curunit->uwrt != 1 && f__nowwriting(f__curunit))		err(a->cierr,errno,"startwrt");	f__putn = y_putc;	f__doed = w_ed;	f__doned= w_ned;	f__dorevert = y_err;	f__donewrec = y_newrec;	f__doend = y_rev;	if(pars_f(f__fmtbuf)<0)		err(a->cierr,100,"startwrt");	fmt_bg();	return(0);}