Click above to get retro games delivered to your door ever month!

   These functions are used for mouse management.

   For  example  with these functions you  can change the mouse pointer,
   deinstall  mouse support, turn the mouse  off, get the mouse position
   etc...


   The following is an example of how to change the mouse pointer

    1                        1                        1
    2 6 3 1                  2 6 3 1                  2 6 3 1
    8 4 2 6 8 4 2 1          8 4 2 6 8 4 2 1          8 4 2 6 8 4 2 1
   +---------------+        +---------------+        +---------------+
  1| | | | | | | | | 0     1| | | |*| | | | | 16    1| | | | | | | | | 0
  2|*|*|*|*|*|*|*|*| 255   2| | | |*| | | | | 16    2| |*|*| | | | | | 96
  3|*| | | | | | |*| 129   3| | | |*| | | | | 16    3| |*|*| | | | | | 96
  4| |*| | | | |*| | 66    4| | | |*| | | | | 16    4| |*|*| |*|*|*|*| 111
  5| |*|*|*|*|*|*| | 126   5| | | |*| | | | | 16    5| |*|*| |*|*|*|*| 111
  6| | |*|*|*|*| | | 60    6| | | | | | | | | 0     6| |*|*| |*|*| | | 108
  7| | |*|*|*|*| | | 60    7| | |*|*|*| | | | 56    7| |*|*| |*|*| | | 108
  8| | | |*|*| | | | 24    8| | |*| | | | | | 32    8| | | | |*|*|*|*| 15
  9| | |*| | |*| | | 36    9| | |*|*|*| | | | 56    9|*|*|*|*| |*|*|*| 247
 10| | |*| | |*| | | 36   10| | | | |*| | | | 8    10|*|*|*|*| | |*|*| 243
 11| |*| | | | |*| | 66   11| | |*|*|*| | | | 56   11|*| | |*| | |*|*| 147
 12| |*| |*|*| |*| | 90   12| | | | | | | | | 0    12|*|*|*|*| |*|*|*| 151
 13|*| |*|*|*|*| |*| 189  13| | |*|*|*| | | | 56   13|*|*|*|*| |*|*|*| 247
 14|*|*|*|*|*|*|*|*| 255  14| | |*| |*| | | | 40   14|*| | |*| | | | | 240
 15| | | | | | | | | 0    15| | |*|*|*| | | | 56   15|*| | |*| | | | | 144
 16| | | | | | | | | 0    16| | |*| |*| | | | 40   16| | | | | | | | | 144

Example

* #############################################################################
PROCEDURE M_Cless() // Set the mouse pointer
* #############################################################################
LOCAL cCurMask := Chr(  0)+ ; // scan line 1
                  Chr(255)+ ; // scan line 2
                  Chr(129)+ ; // scan line 3
                  Chr( 66)+ ; // scan line 4
                  Chr(126)+ ; // scan line 5
                  Chr( 60)+ ; // scan line 6
                  Chr( 60)+ ; // scan line 7
                  Chr( 24)+ ; // scan line 8
                  Chr( 36)+ ; // scan line 9
                  Chr( 36)+ ; // scan line 10
                  Chr( 66)+ ; // scan line 11
                  Chr( 90)+ ; // scan line 12
                  Chr(189)+ ; // scan line 13
                  Chr(255)+ ; // scan line 14
                  Chr(  0)+ ; // scan line 15
                  Chr(  0)    // scan line 16

LOCAL cScrMask := "", nCount

FOR nCount := 1 to 16
   cScrMask += Chr(255-Asc(SubStr(cCurMask,nCount,1)))
NEXT

M_SetCur( cCurMask, cScrMask, 0, 0 )

RETURN