anchor.diff:  -include("etop.hrl").
   -include("etop_defs.hrl").
   
  +-define(DEFAULT_WIDTH, 89).
  +
  +-record(field_widths, {cols      :: pos_integer(),
  +                       used_cols :: pos_integer(),
  +                       init_func :: pos_integer(),
  +                       reds      :: pos_integer(),
  +                       mem       :: pos_integer(),
  +                       msgq      :: pos_integer(),
  +                       curr_func :: pos_integer()}).
  +
   -import(etop,[loadinfo/2,meminfo/2]).
   
   stop(Pid) -> Pid ! stop.
  
positive.code: 			       cf=MFA,
  			       mq=MQ}
  	       |T],
             Modifier) ->
      io:fwrite(Fd,proc_format(Modifier),
                [Pid,to_string(Name,Modifier),Time,Reds,Mem,MQ,
                 to_string(MFA,Modifier)]),
      writepinfo(Fd,T,Modifier);
  writepinfo(_Fd,[],_) ->
      ok.
  
  proc_format(Modifier) ->
      "~-15w~-20"++Modifier++"s~8w~8w~8w~8w ~-20"++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]).
  
  modifier(Device) ->
      case encoding(Device) of
  
negative.code: 
  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, FieldWidths),
      case Info#etop_info.memi of
  	undefined ->
  	    io:fwrite(Fd, " ~-72w~10s~n"
  