home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 502b.lha / PCQ_v1.2 / PCQ_Examples / examples.LZH / Examples / WhereFrom.p < prev    next >
Encoding:
Text File  |  1991-04-16  |  437 b   |  26 lines
  1. Program WhereFrom;
  2.  
  3. {$I "Include:Libraries/DOS.i"}
  4.  
  5. type
  6.     FileRec = record
  7.     Handle    : FileHandle;
  8.     Next    : ^FileRec;
  9.     Buffer    : Address;
  10.     Current    : Address;
  11.     Last    : Address;    
  12.     Max    : Address;
  13.     RecSize    : Integer;
  14.     Interactive : Boolean;
  15.     EOF    : Boolean;
  16.     Access    : Short;
  17.     end;
  18.  
  19. begin
  20.     if IsInteractive(FileRec(Input).Handle) then
  21.     writeln('Input is coming from the console.')
  22.     else
  23.     writeln('Input is comming from a file.');
  24. end.
  25.  
  26.