rInkey2()

         Does the same as Inkey() and takes care of the mouse and Setkey()

    Syntax:

         rInkey() -> nKey

    Description:

         The same as rInkey() and takes care of the mouse and Setkey().

    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:

         SetKey ( 1001, { || Warning ( "Mouse Left pressed"  } )
         SetKey ( 1002, { || Warning ( "Mouse Right pressed" } )
         SetKey ( 1003, { || Warning ( "Mouse Central pressed" } )
         nKey := rInkey2(0)
         If nKey != 0
           Warning ( "Key pressed" )
         Else
           Warning ( "Nothing" )
         EndIf