anchor.diff:          written ->
               Acc0
       end.
  +
  +
  +
  +write_txt(WriteFun, TS, PID, Txt) when is_list(Txt) ->
  +    WriteFun("~n~s ~p ~s~n", 
  +             [lists:flatten(TS),
  +              PID,
  +              lists:flatten(Txt)],
  +             written % this is returned
  +            ).
   
   %%%----------------------------------------------------------------
   wr_record(T, Fs, BL) when is_tuple(T) ->
  
positive.code: 
  -export([init/1, handle_call/3, handle_cast/2, handle_info/2]).
  
  -include("ssh.hrl").
  -include("ssh_transport.hrl").
  -include("ssh_connect.hrl").
  
negative.code:     {reply, {error,{unknown_call,C}}, D}.
      
  
  handle_cast({new_proc,Pid}, D) ->
      monitor(process, Pid),
      {noreply, D};
  
  handle_cast(C, D) ->
      io:format('*** Unknown cast: ~p~n',[C]),
      {noreply, D}.
      
  
  handle_info({'DOWN', _MonitorRef, process, Pid, _Info}, D) ->
      %% Universal real-time synchronization (there might be dbg msgs in the queue to the tracer):
      timer:apply_after(20000, ?MODULE, ets_delete, [?MODULE, Pid]),
      {noreply, D};
  
  handle_info(C, D) ->
      io:format('*** Unknown info: ~p~n',[C]),
      {noreply, D}.
  