1*3905Smckusick (* Copyright (c) 1979 Regents of the University of California *)
2*3905Smckusick 
3*3905Smckusick const
4*3905Smckusick sccsid = '@(#)unixio.h 1.1 06/17/81';
5*3905Smckusick 
6*3905Smckusick type
7*3905Smckusick fileptr = record
8*3905Smckusick 	cnt :integer
9*3905Smckusick 	end;
10*3905Smckusick 
11*3905Smckusick function TELL(
12*3905Smckusick var	fptr :text)
13*3905Smckusick {returns} :fileptr;
14*3905Smckusick 
15*3905Smckusick   external;
16*3905Smckusick 
17*3905Smckusick procedure SEEK(
18*3905Smckusick  var	fptr :text;
19*3905Smckusick  var	cnt :fileptr);
20*3905Smckusick 
21*3905Smckusick   external;
22*3905Smckusick 
23*3905Smckusick procedure APPEND(
24*3905Smckusick  var	fptr :text);
25*3905Smckusick 
26*3905Smckusick    external;
27