* Copyright (c) 1979, 1993
* The Regents of the University of California. All rights reserved.
* %sccs.include.redist.c%
* @(#)unixio.i 8.1 (Berkeley) %G%
sccsid = '@(#)unixio.i 8.1 %G%';
filesize, headsize, tailsize :integer;
while not eof(fptr) do begin
while not eof(fptr) do begin
for headsize := 1 to filesize - tailsize do
while not eof(fptr) do begin
while not eof(tmp) do begin