anchor.diff:      accept(State),
       ok = gen_tcp:close(LSock),
       dbg("telnet_server closed the listen socket ~p\n", [LSock]),
  -    ct:sleep(1000),
  +    timer:sleep(1000),
       ok.
   
   listen(0, _Port, _Opts) ->
  
positive.code: 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)),
      send("\r\n> ",State),
      {ok,State};
  do_handle_data("disconnect_after " ++WaitStr,State) ->
  
negative.code: 	    ok;
         true ->
  	    send(Data,State),
  	    timer:sleep(500),
  	    send_loop(T0,T,Data,State)
      end.
  
  