/* $DOC$
   $NAME$
      ft_Menu2()
   $CATEGORY$
      Menus/Prompts
   $ONELINER$
      Vertical lightbar menu
   $SYNTAX$
      ft_Menu2( <aMenuarray> [, <cColors> ] ) -> NIL
   $ARGUMENTS$
      <aMenuarray> is an array of menu options, messages, and action
       blocks.

      Each element in this array is a nested array with the structure:

         element[ x, 1 ] = menu option
         element[ x, 2 ] = message to be displayed when option is highlighted
         element[ x, 3 ] = code block to be executed when option is selected

      <cColors> is a string containing colors for the prompts, in the same
      format as that returned by Set( _SET_COLOR ).  If not supplied,
      colors default to the current color setting.
   $RETURNS$
      NIL
   $DESCRIPTION$
      This function greatly simplifies the process of displaying light-bar
      menus.  All prompts are padded out with spaces so they are the same
      length, a box is drawn around the prompts, the box is automatically
      centered on the screen, and the underlying screen is restored after
      a menu selection has been made.

      Additionally, because you can tie action blocks to each menu
      option, you can save on a lot of DO CASE or IF..ELSEIF code in your
      main program.  See the test code for a succinct demonstration.
   $EXAMPLES$
      LOCAL mainmenu := { ;
         { "Data Entry",  "Enter data",    {|| ft_Menu2( datamenu )  } }, ;
         { "Reports",     "Hard copy",     {|| ft_Menu2( repmenu )   } }, ;
         { "Maintenance", "Reindex files", {|| ft_Menu2( maintmenu ) } }, ;
         { "Quit", "See ya later" } }
      ft_Menu2( mainmenu )
   $END$
 */