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

 RDMOUSELVL()
 Sets/Gets Level of nested READS currently mouse active
------------------------------------------------------------------------------
 Syntax
       RDMouseLvl(<nLevel>) -> nCurLevel
 Arguments
      <nLevel> - integer value of the level of READs below which
               the mouse is inactive. READs are numbered in
               order of execution starting at 1.

 Returns
      Current status of active levels of reads
 Description
      This procedure sets the flag which controls which levels of READS
      are accesable to the mouse. If the calling  argument is missing then
      it just returns the current setting.

      Is usually called prior to READ but could be called from within
      a WHEN clause.

      Note: To get the current level of read use RDCurLevel().

 Examples
      RDMouseLvl(RDCurLvl())  // turn off mouse use for all but the next
                              // read
      READ

 Source: MOUSEGET.PRG

 Author: Leo Letendre