PROCEDURE DFEOF(CH);
INTEGER CH;
BEGIN
INTEGER J; INTEGER ARRAY LLE[1:6];
EXTERNAL PROCEDURE DRFIND,DREAD,DWFIND;
COMMENT Part of Algol Random Access package,
which also includes DOPEN.MAC, DCLOSE.MAC, DWRITE.MAC, DREAD.MAC,
DRFIND.MAC, DWFIND.MAC, DNEW.ALG;
DRFIND(CH,0);DREAD(CH,6,LLE);
J:=LLE[6] DIV 128;
IF J*128<LLE[6] THEN J:=J+1;J:=J+1;
DWFIND(CH,J);
END DFEOF;