if(f__curunit->ufmt) err(a->cierr,102,"cdue") if(!f__curunit->useek) err(a->cierr,104,"cdue")
if(f__curunit->ufmt) err(a->cierr,102,"cdue"); if(!f__curunit->useek) err(a->cierr,104,"cdue"); if(f__curunit->ufd==NULL) err(a->cierr,114,"cdue"); if(a->cirec <= 0) err(a->cierr,130,"due"); (void) fseek(f__cf,(long)(a->cirec-1)*f__curunit->url,SEEK_SET); f__curunit->uend = 0; return(0); }
c_due(cilist *a)#endif{	if(!f__init) f_init();	if(a->ciunit>=MXUNIT || a->ciunit<0)		err(a->cierr,101,"startio");	f__sequential=f__formatted=f__recpos=0;	f__external=1;	f__curunit = &f__units[a->ciunit];	f__elist=a;	if(f__curunit->ufd==NULL && fk_open(DIR,UNF,a->ciunit) ) err(a->cierr,104,"due");	f__cf=f__curunit->ufd;	if(f__curunit->ufmt) err(a->cierr,102,"cdue")	if(!f__curunit->useek) err(a->cierr,104,"cdue")