anchor.diff:  start() ->
       start([{root, "/tmp"}]).
   
  -start(Opts) when list(Opts) ->
  +start(Opts) when is_list(Opts) ->
       case options(Opts, #sconf{}) of
   	{ok, SConf} ->
   	    start(SConf);
   	Error ->
   	    Error
       end;
  -start(SConf) when record(SConf, sconf) ->
  +start(SConf) when is_record(SConf, sconf) ->
       gen_server:start(?MODULE, [SConf], []).
   
   start_link(SConf) ->
  
positive.code:     send(Ctl, Code, [rstr(Code)++ ?CRNL]).
  
  %% Send a single line reply with CRNL
  rsend(Ctl, Code, Mesg) when integer(Code) ->
      send(Ctl, Code, [integer_to_list(Code)," ",Mesg, ?CRNL]).
  
  %% send a multi line reply
  
negative.code: 	U when U#user.passwd == Password ->
  	    rsend(Ctl, 230, ["User ", U#user.name, " logged in, proceed"]),
  	    St#cstate{ust = valid};
  	U when is_record(U, user) ->
  	    rsend(Ctl, 530, "Login incorrect"),
  	    St;
  	UserName ->
  