$FUNCNAME$
   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)
$Author: itk $
   Greg Lief
$END$
