C     Include file for mouse calls.

C     Mouse events
      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        fsBtn
      END STRUCTURE

C     Mouse pointer shape union containing structures for graphics and text
      STRUCTURE / PTRSHAPE /
         UNION
            MAP
               INTEGER*1 atScreen
               INTEGER*1 chScreen
               INTEGER*1 atCursor
               INTEGER*1 chCursor
            END MAP
            MAP
               INTEGER*2 xHot
               INTEGER*2 yHot
               INTEGER*2 afsPtr(32)
            END MAP
         END UNION

      END STRUCTURE

C Values for SetPtrVis function

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


      INTEGER MouseInit[EXTERN]
      LOGICAL GetMouseEvent[EXTERN]
