anchor.diff:    public
       procedure AddToQueue(aBuffer: TByteBuffer);
     public
  -    procedure Load(aStream: TStream); virtual; // todo: abstract;
  -    procedure Save(aStream: TStream; aSavedSlices: TList<TSlice>); virtual; // todo: abstract;
  +    procedure Load(aStream: TStream); virtual; //abstract;
  +    procedure Save(aStream: TStream; aSavedSlices: TList<TSlice>); virtual; //abstract;
     end;
   
     TSliceReceptor = class(TSlice)
  
positive.code: 
  procedure TSlice.Load(aStream: TStream);
  begin
    // todo: make abstract, remove body
  end;
  
  function TSlice.PointValue(const aLat, aLon: Double; aThreadPool: TMyThreadPool): Double;
  
negative.code: 		  '<ul>';
  
    for s in model.fConnectedServices
    do html := html+
          '<li>'+s+'</li>';
  
    html := html+
  		  '</ul>'+
  