Лабораторная работа / 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}.