anchor.diff:  usage_inspect() ->
       io:format(
         "~n"
  -      " (q)uit, (e)val expr, (g)arb-coll. (d)ictionary"
  +      " (q)uit, (e)val expr, (g)arb-coll, (d)ictionary, (m)essages."
         %% ", exclude (t)op itself" %% undocumented feature for top development
         "~n sort by: (c)pu usage~n").
   
  
positive.code:                                                   [element(2, X)]))])
            || X <- process_info_get(Infos, dictionary, [])],
      ok.
  
  -spec on(comm:message(), state()) -> state().
  
  
negative.code:                 comm:send_local(TopPid, {enable_output, pid}),
                  comm:send_local(TopPid, {output_pid, Pid}),
                  ok;
              "m" -> %% show messages
                  comm:send_local(TopPid, {output_off}),
                  comm:send_local(TopPid, {stop_sampling}),
                  print_process_messages(Pid),
                  _ = io:get_chars("Hit return to continue> ", 1),
                  comm:send_local(TopPid, {enable_sampling, Pid}),
                  comm:send_local(TopPid, {sample_pid, Pid}),
                  comm:send_local(TopPid, {enable_output, pid}),
                  comm:send_local(TopPid, {output_pid, Pid}),
                  ok;
              "e" ->
                  comm:send_local(TopPid, {output_off}),
                  Expr = io:parse_erl_exprs('expr>'),
  