home *** CD-ROM | disk | FTP | other *** search
/ AMIGA PD 1 / AMIGA-PD-1.iso / Programme_zum_Heft / Programmieren / Kurztests / PascalPCQ / Examples / WhereFrom.p < prev    next >
Text File  |  1991-04-18  |  437b  |  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.