examp/first.log

   1 program first;
   2 #include "classes/gui.inc";
   3
   4      unit writer: process(node: integer, s: string);
   5           var i: integer, A: arrayof char;
   6
   7
   8      begin
   9        A := unpack(s);
  10        return;
  11
  12        for i := lower(A) to upper(A)
  13        do
  14           write(A(lower(A)));  write(A(lower(A)));  write(A(lower(A)))
  15        od
  16      end writer;
  17 var w1, w2, w3: writer;
  18 begin
  19     w1 := new writer(0, "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa");
  20     w2 := new writer(0, "bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb");
  21     w3 := new writer(0, "cccccccccccccccccccccccccccccccccccccccccccccccccccc");
  22     resume(w1);
  23     resume(w2);
  24     resume(w3);
  25     pref GUI  block
  26     begin
  27     while true do
  28          if GUI_KeyPressed=ord('f') then exit fi
  29     od
  30     end (* block *);
  31
  32     call endrun
  33 end \0\0