/*rewind, backspace, endfile*/
{ FILE *ufd
; /*0=unconnected*/
int url
; /*0=sequential*/
flag useek
; /*true=can backspace, use dir, ...*/
flag uwrt
; /*last io was write*/
ftnint
*inex
; /*parameters in standard's order*/
extern cilist
*elist
; /*active external io list*/
extern flag reading
,external
,sequential
,formatted
;
extern int (*getn
)(),(*putn
)(); /*for formatted io*/
extern FILE *cf
; /*current file*/
extern unit
*curunit
; /*current unit*/
#define err(f,n,s) {if(f) errno= n; else fatal(n,s); return(n);}
extern int recpos
; /*position in current record*/