if(f__curunit->ufmt) err(a->cierr,103,"sue") if(!f__curunit->useek) err(a->cierr,103,"sue")
if(f__curunit->ufmt) err(a->cierr,103,"sue"); if(!f__curunit->useek) err(a->cierr,103,"sue"); return(0); }
c_sue(cilist *a)#endif{	if(a->ciunit >= MXUNIT || a->ciunit < 0)		err(a->cierr,101,"startio");	f__external=f__sequential=1;	f__formatted=0;	f__curunit = &f__units[a->ciunit];	f__elist=a;	if(f__curunit->ufd==NULL && fk_open(SEQ,UNF,a->ciunit))		err(a->cierr,114,"sue");	f__cf=f__curunit->ufd;	if(f__curunit->ufmt) err(a->cierr,103,"sue")	if(!f__curunit->useek) err(a->cierr,103,"sue")