Programmer 7500/MAX_PROGRAMMERS.iso/PASCAL/SORT2.ZIP/ISATTY.FUN

Text File | 1993-01-04 | 329 b | 11 lines

{ Call with 0 or 1 to see if standard input or output has been directed from
  or to a file. }

function isatty(handle:word):boolean; var r: dos.registers; begin
   with r do begin
   ax:=$4400; bx:=handle; dos.msdos(r);
   if (flags and fcarry)=0 then
      isatty:= (ax and $80)<>0
   else isatty:=false; end; end;