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

 FUNCTION RAT_EQMROW()

  Short:
  ------
  RAT_EQMROW() Returns mouse row at last press

  Returns:
  --------
  <nRow> => mouse row at last button press (left or
  right)

  Syntax:
  -------
  RAT_EQMROW()

  Description:
  ------------
  Returns mouse row at last press (LEFT OR RIGHT).
  S_MOOSE.PRG has two static variables, 'mouserow' and 'mousecol'.
  These are set each time RAT_EVENT() determines that the mouse
  has been depressed.

  Examples:
  ---------
   e := 0

   while e#27
      e := rat_event(30)
      do case
      case e == 0
        ? "Timed out after 30 seconds"
      case e < 400
        ? "Key press with inkey() value of :",e
      case e == 400
        ? "Left mouse button pressed at :"
        ?? "row-> ",rat_eqmrow()
        ?? "col-> ",rat_eqmcol()
      case e == 500
        ? "Right mouse button pressed at :"
        ?? "row-> ",rat_eqmrow()
        ?? "col-> ",rat_eqmcol()
      endcase
   end

  Source:
  -------
  S_MOOSE.PRG