XPdisplay()
 Display a string with more colors
------------------------------------------------------------------------------

   Function:   XPdisplay()

               Display's a string on the screen, possibility to
               mix two colors in the string. Quite handy. The Colors
               are toggled on the occurence of ~ in the string.

               So: XPdisplay(0,0,'Hello ~Clipper~ Freaks!')

               results in: Hello Clipper Freaks!

               This is quite handy, for instance for Keys in Menu systems

   Syntax:     XPdisplay(nRow,nCol,cString,lInverse) --> NIL

   Arguments:  Quite clear huh? lInverse defaults to .f.
               cString must be supplied and of type Character.

   Returns:    NIL

   Usage:      It's Source code:
               Function XPdisplay(nRow,nCol,cStr,lInverse)
               /***
               * Display a string
               */
               Local cBuf
               default lInverse to .f.
               if !lInverse
                 cBuf := XPinsAttr(cStr,aColor[1],aColor[4])
               else
                 cBuf := XPinsAttr(cStr,aColor[2],aColor[5])
               end
               RestScreen(nRow,nCol,nRow,nCol-1+(Len(cBuf)/2),cBuf)
               Return (NIL)