3
{ Program to demonstrate the Dup function. }
10
if fpdup (output,f)<>0 then
11
Writeln ('Dup Failed !');
12
writeln ('This is written to stdout.');
13
writeln (f,'This is written to the dup file, and flushed');flush(f);
b'\\ No newline at end of file'