anchor.diff:  				      _ ->
   					  false
   				  end
  -			  end, [{b1, 1}, {b2, 2}, {b3, 3}, {b4, 4},
  -				{b5, 5}, {b6, 6}, {b7, 7}, {b8, 8}]),
  +			  end, [{B1, 1}, {B2, 2}, {B3, 3}, {B4, 4},
  +				{B5, 5}, {B6, 6}, {B7, 7}, {B8, 8}]),
       Res = lists:map(fun({_, N}) ->
   		      N + Add
   	      end, Select),
  
positive.code:     gen_tcp:send(Socket, Datagram).
  
  %%--------------------------------------------------------------------
  %% Function: send_handshake
  %% Description: Send a handshake message
  %%--------------------------------------------------------------------
  send_handshake(Socket, PeerId, InfoHash) ->
      ok = gen_tcp:send(Socket, build_handshake(PeerId, InfoHash)).
  
  %%--------------------------------------------------------------------
  %% Function: recv_handshake
  
negative.code: 	      end, 0, Set).
  
  decode_byte(B, Add) ->
      <<B1:1, B2:1, B3:1, B4:1, B5:1, B6:1, B7:1, B8:1>> = <<B>>,
      Select = lists:filter(fun(X) ->
  				  case X of
  				      {1, _} ->
  