anchor.diff:  %% Module API
   -export([start/1, reload/1]).
   
  +%% Defines
  +-define(MAX_HLINE, 300).
  +
   %% =============================================================================
   %% Module API
   %% =============================================================================
   start(State) ->
       Parent = self(),
       NState = load_remote_static_data(State),
  -    {_, Binary, Filename} = code:get_object_code(NState#state.remote_module),
  -    rpc:call(State#state.node, code, load_binary, [NState#state.remote_module, Filename, Binary]),
  +    remote_load_code(NState#state.remote_module, State#state.node),
       ViewPid = erlang:spawn(fun() -> init(Parent, NState) end),
       receive continue -> ok end,
       ViewPid.
  
positive.code:     State#state{ otp_version = Otp, erts_version = Erts,
  		 os_fam = Os1, os = Os2, os_version = OsVers, node_flags = Flags }.
  
  
  update_sort_screen(State, N) ->
      if N >= 1 andalso N =< length(State#state.columns) ->
  	    update_screen(State#state{ sort = N });
         true -> State
      end.
  
  update_screen(State) ->
      print_nodeinfo(State),
      draw_title_bar(State),
      {Time, {ok, SystemInfo, ProcessInfo}} = 
  	timer:tc(rpc, call, [State#state.node, State#state.remote_module, get_data, []]),
      print_showinfo(State, Time),
      {Headers, State1} = handle_system_info(SystemInfo, State),
      {ProcList, State2} = handle_process_info(ProcessInfo, State1), 
      SortedProcList = sort(ProcList, State),
      update_headers(Headers, State2),
      {Y, X} = cecho:getmaxyx(),
      StartY = (Y-(Y-7)),
      lists:foreach(fun(N) -> ok = cecho:move(N, 0),
  			    ok = cecho:hline($ , X) 
  		  end, lists:seq(StartY, Y-7)),
      update_rows(SortedProcList, State2#state.columns, StartY, Y),
      ok = cecho:refresh(),
      State2.
  
  print_nodeinfo(State) ->
      {_Y, X} = cecho:getmaxyx(),
      ok = cecho:move(0, 0),
      ok = cecho:hline($ , X),
      {Mj, Md, Mi} = State#state.os_version,
      OsVers = lists:concat([Mj,".",Md,".",Mi]),
      Head = io_lib:format("Node: ~p (~s/~s) ~p (~p ~s)~s", 
  
negative.code: 		  _ ->
  		      string:left(StrColVal, Width)
  	      end,
      cecho:mvaddstr(LineNumber, Offset, Aligned),
      update_row(Rest, RestColumns, LineNumber, Offset+Width+1).
      
      
  