anchor.diff:  
   ui_hosts_help() ->
     io:format("Display the contents of the /etc/hosts file~n").
  -  
  +
  +ui_exit_help() ->
  +   io:format("Exit the UI~n").
  +
   ui_help_help() ->
  -  io:format("TODO: Insert help help text here~n").
  -  
  -
  +  io:format("Display the contents of the help screen").
  +  
     
   %%
   %% Check the number of parameters in the param list
  
positive.code: %%
  cmd_atom_map() ->  
    [
      {cmd_create_block,     ?MODULE,  ui_create_block},
      {cmd_copy_block,       ?MODULE,  ui_copy_block},
      {cmd_rename_block,     ?MODULE,  ui_rename_block},
      {cmd_execute_block,    ?MODULE,  ui_execute_block},
      {cmd_delete_block,     ?MODULE,  ui_delete_block},
      {cmd_disable_block,    ?MODULE,  ui_disable_block},
      {cmd_enable_block,     ?MODULE,  ui_enable_block},
      {cmd_freeze_block,     ?MODULE,  ui_freeze_block},
      {cmd_thaw_block,       ?MODULE,  ui_thaw_block},
      {cmd_get_values,       ?MODULE,  ui_get_values},
      {cmd_set_value,        ?MODULE,  ui_set_value},
      {cmd_link_blocks,      ?MODULE,  ui_link_blocks},
      {cmd_unlink_blocks,    ?MODULE,  ui_unlink_blocks},
      {cmd_status,           ?MODULE,  ui_status},
      {cmd_block_types,      ?MODULE,  ui_block_types},
      {cmd_valid_block_name, ?MODULE,  ui_valid_block_name},
      {cmd_load_blocks,      ?MODULE,  ui_load_blocks},
      {cmd_save_blocks,      ?MODULE,  ui_save_blocks},
      {cmd_node,             ?MODULE,  ui_node},
      {cmd_nodes,            ?MODULE,  ui_nodes},
      {cmd_connect,          ?MODULE,  ui_connect},
      {cmd_hosts,            ?MODULE,  ui_hosts},
      {cmd_exit,             ?MODULE,  ui_exit},
      {cmd_help,             ?MODULE,  ui_help}
    ].
  
  
  
negative.code: %%
  cmd_atom_to_function(CmdAtom) ->
    case lists:keysearch(CmdAtom, 1, cmd_atom_map()) of
  	  {value, {_, Module, Function, _HelpFunction}} -> {Module, Function};
  	  false -> unknown_cmd
    end.
  
  %%
  %% Translate command atom to command module and help function
  %%
  cmd_atom_to_help_function(CmdAtom) ->
    case lists:keysearch(CmdAtom, 1, cmd_atom_map()) of
  	  {value, {_, Module, _Function, HelpFunction}} -> {Module, HelpFunction};
  	  false -> unknown_cmd
    end.
  
  