3
{ Program to demonstrate the AssignPipe function. }
11
Writeln ('Assigning Pipes.');
12
If assignpipe(pipi,pipo)<>0 then
13
Writeln('Error assigning pipes !',fpgeterrno);
14
Writeln ('Writing to pipe, and flushing.');
15
Writeln (pipo,'This is a textstring');close(pipo);
16
Writeln ('Reading from pipe.');
17
While not eof(pipi) do
20
Writeln ('Read from pipe : ',s);
23
writeln ('Closed pipes.');
b'\\ No newline at end of file'