home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Frozen Fish 1: Amiga
/
FrozenFish-Apr94.iso
/
bbs
/
alib
/
d1xx
/
d183
/
pcq.lha
/
PCQ
/
Examples
/
WhereFrom.p
< prev
Wrap
Text File
|
1989-02-26
|
371b
|
19 lines
Program WhereFrom;
{$I "include/dos.i"}
var
stdfile : FileHandle;
begin
{ Calling Input() will always give you the filehandle of standard
input, since that's where the startup code gets it from }
stdfile := Input();
if IsInteractive(stdfile) then
writeln('Input is coming from the console.')
else
writeln('Input is comming from a file.');
end.