blob: a72f1f48ec7a518c0b788c71cf8c22c3daadde00 (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
Program Example52;
{ Program to demonstrate the GetFS function. }
Uses oldlinux;
begin
Writeln ('File descriptor of input ',getfs(input));
Writeln ('File descriptor of output ',getfs(output));
Writeln ('File descriptor of stderr ',getfs(stderr));
end.
|
