|
|
1.1 ! root 1: (* Copyright (c) 1979 Regents of the University of California *) ! 2: ! 3: const ! 4: sccsid = '@(#)unixio.h 1.1 6/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;
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.