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

 RDMOUSEON()
 Set/Return status of using mouse in READ
------------------------------------------------------------------------------
 Syntax
      RDMOUSEON(<lOn>) -> lCurrent
 Arguments
      <lOn> - Logical = .T. for mouse being active
                      = .F. for mouse being ignored
 Returns
      Current status as a logical
 Description
      This procedure sets the flag which controls whether the mouse
      is active for the current read. If the calling argument is
      missing then it just returns the current setting.

      This routine does not signal an error if an incorrect calling
      parameter is passed. In this case it acks as if the caller passed
      none.

      This routine should not normally need to be called but is included
      on the off chance that it will be.

 Examples
      lCurMouse=RDMouseOn(.T.)

 Source: MOUSEGET.PRG

 Author: Leo Letendre