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

 BOXCHOICE() Display a self-sizing CUA-style boxed ACHOICE() selection window

 Syntax....: BOXCHOICE( c_title, ac_list [, ac_colr, i_tr, i_lc ] )
 Parameters: <expC>: c_title = box title string
             <arrC>: ac_list = string array of choices
 [optional]  <arrC>: ac_colr= color array:     [defaults]
  "      "                    [1] = "N/W"  Box
  "      "                    [2] = "B/W"  Title
  "      "                    [3] = "B/W"  Option panel
  "      "                    [4] = "N/W"  ACHOICE unsel
  "      "                    [5] = "W+/N" ACHOICE selected
  "      "                    [6] = "W/N"  Shadow
  "      "   <expN>: i_row  = top row     (default = centered)
  "      "   <expN>: i_colm = left column (default = centered)

 Returns...: <expN>: the ACHOICE() array subscript or 0 if Esc pressed
 Cautions..: none
 CC Calls..: ALONGEST(), BOXREST(), CENTER(), SETSCRSTS(), SHADOWBOX()
 Alias.....: none

 Example...: PRIVATE i_fcnt
             i_fcnt= ADIR("*.*")
             PRIVATE ac_fil[ i_fcnt ]
             ADIR( "*.*",ac_fil )
                              *syntx: c_title, ac_list [, ac_colr, i_tr, i_lc ]
             pick= BOXCHOICE( "Select a File", ac_fil )
             CLEAR SCREEN
             ? "You selected:",IIF(pick>0, ac_fil[pick], "none" )