anchor.diff:  
   do_update(Fd,Info,Prev,Config) ->
       {Cpu,NProcs,RQ,Clock} = loadinfo(Info,Prev),
  +    FieldWidths = calc_field_widths(Info#etop_info.procinfo),
       io:nl(Fd),
  -    writedoubleline(Fd),
  +    writedoubleline(Fd, FieldWidths),
       case Info#etop_info.memi of
   	undefined ->
   	    io:fwrite(Fd, " ~-72w~10s~n"
  
positive.code: 		       RQ,Atom,Ets])
      end,
      io:nl(Fd),
      writepinfo_header(Fd),
      writesingleline(Fd),
      writepinfo(Fd,Info#etop_info.procinfo,modifier(Fd)),
      writedoubleline(Fd),
      io:nl(Fd),
      Info.
  
  writepinfo_header(Fd) ->
      io:fwrite(Fd,"Pid            Name or Initial Func    Time    Reds  Memory    MsgQ Current Function~n",[]).
  
  writesingleline(Fd) ->
      io:fwrite(Fd,"----------------------------------------------------------------------------------------~n",[]).
  writedoubleline(Fd) ->
      io:fwrite(Fd,"========================================================================================~n",[]).
   
  writepinfo(Fd,[#etop_proc_info{pid=Pid,
  			       mem=Mem,
  			       reds=Reds,
  
negative.code: 			       cf=MFA,
  			       mq=MQ}
  	       |T],
             Modifier, FieldWidths) ->
      io:fwrite(Fd,proc_format(Modifier, FieldWidths),
                [Pid,to_string(Name,Modifier),Time,Reds,Mem,MQ,
                 to_string(MFA,Modifier)]),
      writepinfo(Fd,T,Modifier, FieldWidths);
  writepinfo(_Fd,[],_,_) ->
      ok.
  
  proc_format(Modifier, #field_widths{init_func = InitFunc, reds = Reds,
                                      mem = Mem, msgq = MsgQ,
                                      curr_func = CurrFunc}) ->
      "~-15w"
      "~-" ++ i2l(InitFunc) ++ Modifier ++ "s"
      "~8w"
      "~" ++ i2l(Reds) ++ "w "
      "~" ++ i2l(Mem) ++"w "
      "~" ++ i2l(MsgQ) ++ "w "
      "~-" ++ i2l(CurrFunc) ++ Modifier ++ "s~n".
  
  
  to_string({M,F,A},Modifier) ->
      io_lib:format("~w:~"++Modifier++"w/~w",[M,F,A]);
  to_string(Other,Modifier) ->
      io_lib:format("~"++Modifier++"w",[Other]).
  
  i2l(I) -> integer_to_list(I).
  
  modifier(Device) ->
      case encoding(Device) of
  