anchor.diff:          end else begin
             if (FNetProtocolVersion.protocol_available>CT_NetProtocol_Available) And (Not FAlertedForNewProtocolAvailable) then begin
               FAlertedForNewProtocolAvailable := true;
  -            TNode.Node.NotifyNetClientMessage(Nil,'Detected a new Net protocol version at '+
  +            TNode.Node.NotifyNetClientMessage(Nil,
  +              'Detected a new Net protocol version at '+
                 ClientRemoteAddr+' (v '+inttostr(HeaderData.protocol.protocol_version)+' '+inttostr(HeaderData.protocol.protocol_available)+') '+
                 '... Visit official download website for possible updates: https://sourceforge.net/projects/pascalcoin/');
             end;
  
positive.code:     data.Write(i,4);
      for i := 0 to High(nsarr) do begin
        nsa := nsarr[i];
        TStreamOp.WriteAnsiString(data, nsa.ip);
        data.Write(nsa.port,2);
        data.Write(nsa.last_connection,4);
      end;
      // Send client version
      TStreamOp.WriteAnsiString(data,TNode.NodeVersion);
      // Build 1.5 send accumulated work
      data.Write(TNode.Node.Bank.SafeBox.WorkSum,SizeOf(TNode.Node.Bank.SafeBox.WorkSum));
      //
  
negative.code:         DataBuffer.Read(c,4);
          for i := 1 to c do begin
            nsa := CT_TNodeServerAddress_NUL;
            TStreamOp.ReadString(DataBuffer,nsa.ip);
            DataBuffer.Read(nsa.port,2);
            DataBuffer.Read(nsa.last_connection_by_server,4);
            If (nsa.last_connection_by_server>0) And (i<=CT_MAX_NODESERVERS_ON_HELLO) then // Protect massive data
              TNetData.NetData.AddServer(nsa);
          end;
          if TStreamOp.ReadString(DataBuffer,other_version)>=0 then begin
            // Captures version
            ClientAppVersion := other_version;
            if (DataBuffer.Size-DataBuffer.Position>=SizeOf(FRemoteAccumulatedWork)) then begin
  