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