f__reading=1;
integer s_rdfe(cilist *a)#endif{	int n;	if(!f__init) f_init();	if(n=c_dfe(a))return(n);	f__reading=1;	if(f__curunit->uwrt && f__nowreading(f__curunit))		err(a->cierr,errno,"read start");	f__getn = y_getc;	f__doed = rd_ed;	f__doned = rd_ned;	f__dorevert = f__donewrec = y_err;	f__doend = y_rsk;	if(pars_f(f__fmtbuf)<0)		err(a->cierr,100,"read start");	fmt_bg();	return(0);}