function flength(var f: bytefile):integer;
    external;
procedure bseek(var f: bytefile; loc: integer);
    external;
function testreadaccess(var fn: UNIXfilename):boolean;
    external;