anchor.diff:      function OnKeyPress( ch :  char ):boolean; virtual;
     end;
   
  +  TWorld = class (TMorph)
  +    public
  +      manageKeyboard : boolean;
  +      constructor Create;
  +      procedure Step; override;
  +      procedure Draw; override;
  +      function Done : boolean;
  +    end;
  +
  +
   var
  -  world , focus : IMorph;
  +  world	: TWorld;
  +  focus	: IMorph;
   
    
  
positive.code:   launch(world);
  
  finalization
  
    cw.cwriteln( '|w|!k' );
    kvm.ClrScr;
  
  end.
  
negative.code:     function Send( msg : IMessage ):boolean; override;
    end;
  
  
    Point = object
      x, y : integer;
    end;
  