(* Copyright (c) 1979 Regents of the University of California *)
sccsid = '@(#)unixio.i 1.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