R_ISRATREAD()

  Short:
  ------
  R_ISRATREAD() Determines if RAT_READ() is current get system

  Returns:
  --------
  <lIsRatRead> => True if RAT_READ() is current get system

  Syntax:
  -------
  R_ISRATREAD()

  Description:
  ------------

  By calling R_ISRATREAD(), you can determine if the current
  read is a RAT_READ or not, and call the regular exported
  read/get functions, or call their equivalent RAT* functions
  as listed in RAT_READ().

  An exception is GETACTIVE(), which may be called while using
  either get system, as RAT_READ() calls GETACTIVE() to update
  the current get, and also saves and restores the active get
  in case there is a prior READ active.

  This R_ISRATREAD() function returns TRUE/FALSE for 'is the current
  read a RAT_READ or a READMODAL (normal) read'. Essentially it tells
  you which GetSystem you are in.

  Thus you can have both RAT_READ() mouse aware reads, and standard
  READMODAL() Clipper reads in the same system, and tell the
  difference between the two.

  Examples:
  ---------
  IF R_ISRATREAD()
     ...
  ENDIF

  Notes:
  -------

  Source:
  -------
  S_RREAD.PRG

See also : RAT_READ(), READMODAL()