Лабораторная работа / EXAMPLE

Program Example;

Uses Corout,Crt;

Var
proc1,
proc2,
proc3 : descptr;
{-----------------------------------------------------}
Procedure P1;
Begin
while true do begin
DirectS.Out('1');
Transfer(proc1,proc2);
end {while};
End {P1};
{-----------------------------------------------------}
Procedure P2;
Begin
while true do begin
DirectS.Out('2');
Transfer(proc2,proc3);
end {while};
End {P2};
{-----------------------------------------------------}
Procedure P3;
Var
i : integer;
Begin
i := 0;
while true do begin
inc(i);
DirectS.Out('3');
if KeyPressed then
if ReadKey = #27 then
Begin
Writeln('‚л室 Ї® Є« ўЁиҐ ESC!');
Transfer(proc3,main);
End;
Transfer(proc3,proc1);
end {while};
End {P3};
{-----------------------------------------------------}
Begin
(* Writeln('„®бвгЇ­® Ї ¬пвЁ ў ­ з «Ґ: ',MemAvail);
{}
NewProcess(@p1,proc1);
NewProcess(@p2,proc2);
NewProcess(@p3,proc3);
{}
Transfer(main,proc1);
{}
DelProcess(proc1);
DelProcess(proc2);
DelProcess(proc3);
{}
Writeln('„®бвгЇ­® Ї ¬пвЁ ў Є®­жҐ: ',MemAvail); *)
End {Example}.