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 >
Wrap
Text File
|
1991-04-18
|
437b
|
26 lines
Program WhereFrom;
{$I "Include:Libraries/DOS.i"}
type
FileRec = record
Handle : FileHandle;
Next : ^FileRec;
Buffer : Address;
Current : Address;
Last : Address;
Max : Address;
RecSize : Integer;
Interactive : Boolean;
EOF : Boolean;
Access : Short;
end;
begin
if IsInteractive(FileRec(Input).Handle) then
writeln('Input is coming from the console.')
else
writeln('Input is comming from a file.');
end.