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