blob: f65b36df6fec1697093530abb86fe47b26c080df (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
program Example31;
{ Program to demonstrate the Dup function. }
uses oldlinux;
var f : text;
begin
if not dup (output,f) then
Writeln ('Dup Failed !');
writeln ('This is written to stdout.');
writeln (f,'This is written to the dup file, and flushed');flush(f);
writeln
end.
|
