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

 BOXMSG()    Display a shadow-boxed dialog box & return response

 Syntax....: BOXMSG( msg,[ title,prompts,colors,mRow,mColm,TmO ])
 Parameters: <exp/arrC>: msg    = the string or array of text to be displayed
 [optional]  <expC>:     title  = title string
  "      "   <arrC>:     prompts= array of response prompts (default = "OK")
  "      "   <arrC>:     colors = color array: (defaults)
  "      "                        [1]= "N/W"  unsel prom
  "      "                        [2]= "W+/W" unsel trig
  "      "                        [3]= "W/N"  sel prom
  "      "                        [4]= "W+/N" sel trig
  "      "                        [5]= "N/W"  boxtxt color | opt line color
  "      "                        [6]= "B/W"  title color
  "      "   <expN>:     mRow   = top row     (default = centered)
  "      "   <expN>:     mColm  = left column (default = centered)
  "      "   <expN>:     TmO    = time out    (default = 0 ie. until keypress)

 Returns...: <expN>: the selected prompt array subscript, else 0
 Cautions..: none
 CC Calls..: ALONGEST(Array) - the length of the longest string in Msg array
             SHADOWBOX()
             SETCURSOR()
 Alias.....: none

 Example...: PRIVATE aProm[2]
             ASTORE( aProm,"Yes","No" )
             ss= BOXMSG("DBF not found. Exit?","Help Text",aProm,colrs,04,10,5)
             IF ss = 1
               EXIT2DOS(.T.)
             ENDIF