anchor.diff:  constructor ShellObj.Create;
     begin
       inherited Create;
  -    vm := New(Machine, Create); register(vm);
  +    vm := New(Machine, Create); launch(vm);
       clock := New(ClockMorph, Create);
       clock^.bounds.x := 0; clock^.bounds.y := 0;
  -    Register(clock);
  +    launch(clock);
       self.Clear;
       words := New(Dict, Create);
     end;
  
positive.code: {$i xpc.inc}{$mode objfpc}{$h+}
  unit impworld;
  interface uses
    xpc,      // pass, general compatability
    mnml,
    vorunati,
    sysutils, // AppendStr, FormatDateTime
    kvm,      // fg, gotoxy, clreol
  
negative.code: 
  {-- concurrency --------------------}
  
  type
    TActors = GArray<Actor>;
  var
    actors : TActors;
  
  procedure launch(this:Actor);
    begin
      actors.append(this);
    end;
  
  