anchor.diff:  do_handle_data("echo_delayed_prompt "++Data,State) ->
       [MsStr|EchoData] = string:tokens(Data, " "),
       send(string:join(EchoData,"\n"),State),
  -    ct:sleep(list_to_integer(MsStr)),
  +    timer:sleep(list_to_integer(MsStr)),
       send("\r\n> ",State),
       {ok,State};
   do_handle_data("disconnect_after " ++WaitStr,State) ->
  
positive.code:     Msgs = string:tokens(Data," "),
      lists:foreach(fun(Msg) ->
  			  send(Msg,State),
  			  ct:sleep(10)
  		  end, Msgs),
      send("\r\n> ",State),
      {ok,State};
  
negative.code:     accept(State),
      ok = gen_tcp:close(LSock),
      dbg("telnet_server closed the listen socket ~p\n", [LSock]),
      timer:sleep(1000),
      ok.
  
  listen(0, _Port, _Opts) ->
  