if(a
->cunit
>= MXUNIT
) return(0);
if(b
->ufd
==NULL
) return(0);
if(b
->uwrt
) (void) t_runc(b
);
if(fclose(b
->ufd
) != 0) abort();
if(b
->ufnm
!=0) free(b
->ufnm
);
{ (void) unlink(b
->ufnm
); /*SYSDEP*/
else if(b
->uscrtch
==1) goto delete;
if(units
[i
].ufd
!= NULL
) (void) fflush(units
[i
].ufd
);