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

 twPopChoice( aChoices, cHeader, wT, wL, nChoice,;
              wColor, wSType, wFType, wFColor,;
              cJustify, cUser, nStartRow, lSbar,;
              bPreRun, bPostRun )
 ----------------------------------------------------------------------------
     Perform an ACHOICE in a window. If the top, left corner is not
     passed, the window is centered on the screen.

       Arguments:

     amArray    - 'A' An array of choices.

     cHeader    - 'C' Optional Title for the Choice window.

     wT, wL     - 'N' Relative window coordinates. Default to center
                      the window on the screen.

     nChoice    - 'N' Initial choice number to highlight.

     wColor     - 'C' Clipper colour string. Defaults to current window
                      colour.

     wSType     - 'N' TSDWIN shadow type. Defaults to the current
                      shadow type.

     wFType     - 'N' TSDWIN frame type. Defaults to the current frame
                      type.

     wFColor    - 'C or A' TSDWIN frame colour string or array

     cJustify   - 'C' "C" - Center
                      "L" - Left justify
                      "R" - Right justify

     cUser      - 'C' Optional User defined function.

     nStartRow  - 'N' Row to start on.

     lSbar      - 'L' Logical to display scroll bars.

       Return:

     The element number of the array choice or zero if the escape key
     was pressed.

       Example:

     LOCAL amArray := {"Yes","No","Maybe"}, nMenuChoice
     nMenuChoice := twPopChoice( amArray, "ACHOICE()",,,, ;
                                "gr+/r,w+/b,,,n/w", 9, 9 )
     twInfo("You Chose: " + STRINT( nMenuChoice ) )