anchor.diff:  	    ok;
          true ->
   	    send(Data,State),
  -	    ct:sleep(500),
  +	    timer:sleep(500),
   	    send_loop(T0,T,Data,State)
       end.
   
  
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: do_handle_data("echo_delayed_prompt "++Data,State) ->
      [MsStr|EchoData] = string:tokens(Data, " "),
      send(string:join(EchoData,"\n"),State),
      timer:sleep(list_to_integer(MsStr)),
      send("\r\n> ",State),
      {ok,State};
  do_handle_data("disconnect_after " ++WaitStr,State) ->
  