anchor.diff:  %% OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
   %% THE SOFTWARE.
   %%
  -%    -*- Erlang -*- 
  +%    -*- Erlang -*-
   %    File:	slip.erl  (~jb/serialport/slip.erl)
   %    Author:	Johan Bevemyr
   %    Created:	Thu Oct 24 16:17:28 1996
  -%    Purpose:   
  - 
  +%    Purpose:
  +
   -module(slip).
   -author('jb@erix.ericsson.se').
   
   %
   %  SLIP (Serial Line IP)
  -% 
  +%
   %  The idea behind SLIP is very simple. IP-packets are sent over
   %  a serial line. Each packet is terminated with END (digtal 192).
   %  If END occurs in the packet the sequence ESC (digital 219) and
  -%  ESCEND (digital 220) is sent instead. If ESC occurs then the 
  +%  ESCEND (digital 220) is sent instead. If ESC occurs then the
   %  sequence ESC ESCESC (digital 221) is sent instead.
  -% 
  +%
   %  An optimisation is to start all packets with an END token. This
   %  has the effect of flushing all line noise that may have occured.
   %
  -%  Both the sender and the reciever need to know each others 
  -%  IP-addresses. 
  -%   
  +%  Both the sender and the reciever need to know each others
  +%  IP-addresses.
  +%
   
   -define(END,192).
   -define(ESC,219).
  
positive.code: 
  slip_unpack_acc([],Acc) -> Acc;
  slip_unpack_acc([X|Xs],Acc) ->
      case X of 
  	?ESC ->
  	    slip_unpack_esc_acc(Xs,Acc);
  	?END ->
  
negative.code: 
  -export([start/1,init/2]).
  
  start(IPAddress) when is_list(IPAddress), length(IPAddress) == 4 ->
      spawn_link(slip,init,[IPAddress,self()]);
  
  start(IPAddress) when is_atom(IPAddress) ->
      xk:start(),
      case xk:host2ip(IPAddress) of
  	{ok,IpDst} ->
  