1 2 3 4 5 6
function flength(var f: bytefile):integer; external; procedure bseek(var f: bytefile; loc: integer); external; function testreadaccess(var fn: UNIXfilename):boolean; external;