blob: b72673aa9485d2f77700a7c35b1121fa1823ece4 (
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 baseunix;
var f : text;
begin
if fpdup (output,f)=-1 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.
|
