C Include file for mouse calls.

C Public mouse functions
      INTERFACE TO INTEGER FUNCTION MouseInit()
      END

      INTERFACE TO LOGICAL FUNCTION GetMouseEvent(pEvent)
      STRUCTURE / EVENT /
         INTEGER*2      x
         INTEGER*2      y
         INTEGER        fsBtn
      END STRUCTURE
      RECORD / EVENT / pEvent
      END

      INTERFACE TO SUBROUTINE GetPtrPos(pEvent)
      STRUCTURE / EVENT /
         INTEGER*2      x
         INTEGER*2      y
         INTEGER        fsBtn
      END STRUCTURE
      RECORD / EVENT / pEvent
      END

      INTERFACE TO SUBROUTINE SetPtrPos(x[VALUE], y[VALUE])
      INTEGER x, y
      END

      INTERFACE TO SUBROUTINE SetPtrVis(iPV[VALUE])
      INTEGER iPV
      END

      INTERFACE TO SUBROUTINE SetPtrShape(ps)
      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
      RECORD / PTRSHAPE / ps
      END
