fpc/docs/bunixex/ex31.pp

program Example31;

{ Program to demonstrate the Dup function. }

uses baseunix;

var f : text;

begin
  if  fpdup (output,f)<>0 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.