anchor.diff:      color : byte;
       constructor Create;
       procedure Render; override;
  -    function Str:string; override;
  +    function ToString:string; override;
     end;
   
   constructor TClockMorph.Create;
  
positive.code: 
  type
    TEntry =  class;
    TDict  = class(TObj)
      public
        nextdict : TDict;
        latest   : TEntry;
        constructor Create;
        procedure Define( name : string; value : TObj );
        function Lookup( s : string; var item : TObj ): boolean;
      end;
  
    TEntry = class
      public
        prev : TEntry;
        name : string[32];
        item : TObj;
      end;
  
  
negative.code: implementation
  
  {-- fixed-size data blocks --------}
  type
    Block = array[ 0 .. 1023 ] of byte;
  