rInkey()

         Does the same as Inkey() but also takes care of the mouse

    Syntax:

         rInkey() -> nKey

    Description:

         The same as inkey() but also takes care of the mouse.

    Return:

         Returns the same as inKey() or 1001 if the left button is
         pressed, 1002 if the right button is pressed or 1003 if the center
         button is pressed.

    Example:

         nKey := rInkey(0)
         If nKey > 1000
           Warning ( "Mouse button pressed" )
         ElseIf nKey != 0
           Warning ( "Key pressed" )
         Else
           Warning ( "Nothing" )
         EndIf