Contributor: MARIUS ELLEN
{ Try the DOS GetAttr function (Also faster than findfirst) }
{ test to see if file exists }
function fIsFileP(SrcPath:pchar):boolean;
inline({get fattr, dos 2.0+}
5ドルA/ { pop dx }
58ドル/ { pop ax }
1ドルE/ { push ds }
8ドルE/$D8/ { mov ds,ax }
$B8/00ドル/43ドル/ { MOV AX,4300h }
$CD/21ドル/ { int 21h }
1ドルF/ { pop ds }
72ドル/08ドル/ { JC +8 }
$B8/01ドル/00ドル/ { MOV AX,1 }
$F6/$C1/10ドル/ { TEST CL,faDirectory }
74ドル/02ドル/ { JE +2 }
31ドル/$C0); { xor ax,ax }
BEGIN
WriteLn(FisFIleP('\turbo\bp.exe'));
END.