<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">C     Include file for mouse calls.

C     Mouse events
      INTEGER*4 LEFT_DOWN, RIGHT_DOWN, MIDDLE_DOWN
      PARAMETER (LEFT_DOWN   = #01)    ! 0000 0010 Left button pressed
      PARAMETER (RIGHT_DOWN  = #02)    ! 0000 1000 Right button pressed
      PARAMETER (MIDDLE_DOWN = #04)    ! 0010 0000 Middle button pressed

C     Mouse event structure
      STRUCTURE / EVENT /
         INTEGER*2      x
         INTEGER*2      y
         INTEGER*4      fsBtn
      END STRUCTURE

C     Button status structure
      STRUCTURE / BTN_STS /
         INTEGER*2      x
         INTEGER*2      y
         INTEGER*2      Btn
         INTEGER*2      BtnState
      END STRUCTURE

C Values for SetPtrVis function

      INTEGER*4 SHOW, HIDE
      PARAMETER (SHOW = 1)
      PARAMETER (HIDE = 2)


      INTEGER*4 MouseInit[EXTERN]
      INTEGER*4 GetButtonPress[EXTERN]
      INTEGER*4 GetButtonRelease[EXTERN]
      LOGICAL GetMouseEvent[EXTERN]
</pre></body></html>