anchor.diff:  
       { dispatch to all actors }
       i := 0;
  -    while i < numActors do
  +    numActors := actors.length;
  +    while i < actors.length do
         begin
           a := actors[ i ];
           if a^.active then begin
  
positive.code: 
  procedure Step;
    var i : byte; ch : char; a : Actor; msg:Event;
    begin
  
      // TODO: without this next line (at least on freebsd)
      // it won't readkey. why not!?!
      if not keypressed then sleep(50);
  
negative.code: constructor ShellObj.Create;
    begin
      inherited Create;
      vm := New(Machine, Create); launch(vm);
      clock := New(ClockMorph, Create);
      clock^.bounds.x := 0; clock^.bounds.y := 0;
      launch(clock);
      self.Clear;
      words := New(Dict, Create);
    end;
  