FUNCTION MSG()

  Short:
  ------
  MSG() Displays up to a 9 line message in a window

  Returns:
  --------
  Nothing

  Syntax:
  -------
  MSG(c1,[c2,c3,c4,c5,c6,c7,c8,c9])

  Description:
  ------------
  Displays in a popup box up to 9 lines of a message
  <c1..c9>.

  Then waits for a keypress or optionally a time-out.
  First parameter can be a number equaling a time-out value in
  seconds

  Examples:
  ---------
   MSG("An error has been detected",;
       "...don't move!")

   MSG("A","B","C","D","E","F")

   MSG(5,"A","B","C","D","E","F")

  Notes:
  -------
  Message is centered on screen in a box
  Once message is displayed, waits for keypress and
  then removes window, restoring screen underneath.
  Or waits for time-out value.

  Source:
  -------
  S_MSG.PRG