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