home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 1 / GoldFishApril1994_CD1.img / d1xx / d183 / pcq / examples / wherefrom.p < prev   
Text File  |  1989-02-25  |  371b  |  19 lines
  1. Program WhereFrom;
  2.  
  3. {$I "include/dos.i"}
  4.  
  5. var
  6.     stdfile : FileHandle;
  7.  
  8. begin
  9.     { Calling Input() will always give you the filehandle of standard
  10.       input, since that's where the startup code gets it from }
  11.  
  12.     stdfile := Input();
  13.     if IsInteractive(stdfile) then
  14.     writeln('Input is coming from the console.')
  15.     else
  16.     writeln('Input is comming from a file.');
  17. end.
  18.  
  19.