Source position: tos.pas line 363
function Dreaddir(
buflen: SmallInt;
dir: LongInt;
out buf: shortstring
):LongInt;