anchor.diff:  %% ------------------------------------------------------------------
   %% Internal Function Definitions
   %% ------------------------------------------------------------------
  -
  -physical_clock() ->
  -    {Mega,Sec,Micro} = erlang:now(),
  -    (Mega*1000000+Sec)*1000000+Micro.
  
positive.code: handle_cast(_Msg, State) ->
      {noreply, State}.
  
  handle_info({update, N, RT}, C) ->
      %{reply, CLT, C} = hlc:handle_call(timestamp, undefined, C),
      %case (RT#timestamp.wall_time + RT#timestamp.logical)
      %     - (CLT#timestamp.wall_time + CLT#timestamp.logical) of
      %    TNDiff when TNDiff > 1000 ->
      %        io:format("UPD ~p~n", [TNDiff]);
      %    TNDiff when TNDiff < -1000 ->
      %        io:format("UPD ~p~n", [TNDiff]);
      %    _ -> ok
      %end,
      {reply, _LT, C1} = hlc:handle_call({update, N, RT}, undefined, C),
      {noreply, C1}.
  
  terminate(_Reason, _State) ->
  
negative.code: 
  handle_call(now, From, C) ->
      {reply, T, C1} = hlc:handle_call(now, From, C),
      [{?SERVER, Node} ! {update, T} || Node <- nodes()],
      {reply, T, C1};
  handle_call(timestamp, _From, C) ->
      {reply, CLT, C} = hlc:handle_call(timestamp, undefined, C),
  