home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 364b.lha / PCQ_v1.1 / Examples / WhereFrom.p < prev    next >
Encoding:
Text File  |  1990-04-08  |  375 b   |  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 := DOSInput();
  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.