Click above to get retro games delivered to your door ever month!

Syntax

L_MENU( nChoice, aRa1[, aRa2[, nRow1[, nRow2 ;
        [, nOffset[, lMenuopt[,lNoline ;
        [, ncColour ]]]]]]] )

Purpose

A generalised light-bar menu administrator. Optionally provides messages.

Arguments

     nChoice -- starting menu position

     aRa1 -- array of menu items

     nRa2 -- if passed, array of messages

     nRow1 -- row on which to paint the menu; defaults to 0

     nRow2 -- if passed, row for messages, default nRow1 + 1

     nOffset -- if passed, the number of spaces between menu items;
                    defaults to 2

     lMenu_opt -- if passed and .T., the caller has painted the menu.
                      For speed, we then SET CONSOLE OFF for the PROMPT
                      statements; defaults to unconditionally painting the
                      menu

     lNoline -- if passed and .T., do not include the graphic line on
                    the row below the menu; defaults to drawing the graphic
                    line

     ncColour -- if passed as a colour string or number, colour in
                     which to paint the menu; defaults to 4

Setup

aRa1 must exist. Use with or without messages, on any desired
row.

Example

     LOCAL array := { "Negotiate", "Retaliate", "Annihilate" }
     ? L_MENU( 1, array )

Returns

The number of the choice selected, or 0 if ESC pressed.

Side Effects

None.

Artful Calls

ALENGTH, PAD, SCR_LINE

Source File

AA_LMENU.PRG