Function:    MouseAlert()

               This function has the same functionality as Clipper's
               Alert() function. The feature added is that this alert
               supports a Mouse, and, optionally, other color combinations.

               This function does not require a Mouse to be installed,
               but just uses it when MouseThere() returns true.

               The function will display a Box, and present the user with some
               Menu choices (or simply " Ok "), and wait for the user to
               select an option. The option can be selected using a Mouse
               and/or the keyboard.

  Syntax:      MouseAlert(cMsg[,aOptions][,cColor]) --> nChoice

  Arguments:   <cMsg> is a String to display. It may be semicolon delimited
               to expand it into a number of lines. <aOptions> is a list of
               options strings to present to the user. When none is supplied
               the user is simply presented with {" Ok "}. <cColor>
               optionally indicates a color to use, otherwise the standard
               Color as used by Clipper's alert() is used.

  Returns:     0 when the user pressed ESC (or Right clicked), otherwise
               the Option number in the aOptions array is returned.
               [Space], [Enter] and [Left-Button] select the option.

  Usage:       MouseAlert('Hello, World') /* Nothing useful */

               * - Some selection:
               x := MouseAlert('Warning;Zapping the database will destroy;'+;
                    'you know what',{"Ok","Not Ok"},'w+/b,n/bg')