FT_MENU2()
 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)

 Source: VERTMENU.PRG

 Author: Greg Lief