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

 POPMSG()    Display a shadow-boxed message on the screen & wait for keypress

 Syntax....: POPMSG( Msg [,Keys [,mRow [,mCol [,TmO [,BxT [,C1 [,C2 [,RS]]]]]]]] )
                 POPMSG( Msg [,Keys, mRow, mCol, TmO, BxT, C1, C2, RS ] )
 Parameters: <expC>: Msg = the string or array of text to be displayed
 [optional]  <expC>: Keys= a string of expected keys/chars (default = any key)
  "      "   <expN>: tr  = top row        (default = centered)
  "      "   <expN>: lc  = left column    (default = centered)
  "      "   <expN>: TmO = timeout seconds(default = 0 ie. until a key press)
  "      "   <expN>: BxT = Box Type       (default = 3 / DoubleWide Box )
  "      "                                           1 = Single line
  "      "                                           2 = Double line
  "      "   <expC>: C1  = Border Color
  "      "   <expC>: C2  = Text Color
  "      "   <expL>: RS  = Restore Screen  (default = .T. / Yes )

 Returns...: <expN>: LASTKEY() value, else 0 ( if TmO )
 Cautions..: none
 CC Calls..: ALONGEST(Array) = the length of the longest string in Msg array
             SHADOWBOX()
 Alias.....: none

 Example...: POPMSG( "DBF not found. Continue? (Y/N)","YN"+CHR(27),04,10,5 )