program first;
#include "classes/gui.inc";

     unit writer: process(node: integer, s: string);
          var i: integer, A: arrayof char;
  

     begin
       A := unpack(s);
       return;

       for i := lower(A) to upper(A)
       do
          write(A(lower(A)));  write(A(lower(A)));  write(A(lower(A)))
       od
     end writer;
var w1, w2, w3: writer;
begin
    w1 := new writer(0, "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa");
    w2 := new writer(0, "bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb");
    w3 := new writer(0, "cccccccccccccccccccccccccccccccccccccccccccccccccccc");
    resume(w1);
    resume(w2);
    resume(w3);
    pref GUI  block
    begin
    while true do
         if GUI_KeyPressed=ord('f') then exit fi
    od
    end (* block *);

    call endrun
end   