examp/remote.log

   1 program remote;
   2
   3
   4 unit MyProcess:process(n:integer);
   5 var koniec:boolean;
   6   unit Destroy:procedure;
   7   begin
   8     koniec:=TRUE;
   9   end Destroy;
  10
  11   unit WriteChar:procedure(a:char);
  12   begin
  13     write(a);
  14   end WriteChar;
  15
  16 begin
  17 koniec:=FALSE;
  18  enable Destroy;
  19 writeln("READY");
  20 return;
  21 while not koniec do
  22 accept WriteChar;
  23 od;
  24 writeln;
  25 writeln("END");
  26
  27 end MyProcess;
  28
  29 var p:MyProcess,i:integer;
  30 begin
  31 pref IIUWGRAPH block
  32 begin
  33 p:=new MyProcess(5);
  34 resume(p);
  35 i:=inkey;
  36 while i<>ord('q') do
  37 if i<>0 then call p.WriteChar(chr(i)); write(chr(i)); fi;
  38
  39 i:=inkey;
  40 od;
  41 call p.Destroy;
  42 end;
  43 end.\0\0