home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d2xx / d267 / diglib.lha / Diglib / diglib.zoo / diglib / GSCRSR.FOR < prev    next >
Text File  |  1989-06-20  |  929b  |  38 lines
  1.         SUBROUTINE GSCRSR(X,Y,IBUTN,IERR)
  2. C
  3. C       THIS DIGLIB SUBROUTINE TRIES TO GET GRAPHIC INPUT FROM
  4. C       THE CURRENTLY SELECTED DEVICE.   IF THE DEVICE IS NOT CAPABLE
  5. C       OF IT, IERR=-1, ELSE IERR=0 AND:
  6. C         X     = X POSITION OF CURSOR IN VIRTUAL COORDINATES
  7. C         Y     = Y POSITION OF CURSOR IN VIRTUAL COORDINATES
  8. C         IBUTN = NEW BUTTON STATE
  9. C
  10.         INCLUDE GCDCHR.PRM
  11.         INCLUDE GCDPRM.PRM
  12.         DIMENSION ARRAY(3)
  13. C
  14. C       SEE IF DEVICE SUPPORTS CURSOR
  15. C
  16.         IF (IAND(IDVBTS,1024) .EQ. 0) GO TO 900
  17. C
  18. C       NOW ASK FOR CURSOR FROM DEVICE DRIVER
  19. C
  20.         CALL GSDRVR(12,ARRAY,DUMMY)
  21. C
  22. C       CONVERT ABSOLUTE CM. COORD. TO VIRTUAL COORDINATES
  23. C
  24.         CALL GSIRST(ARRAY(2),ARRAY(3),X,Y)
  25. C
  26. C       GET BUTTON STATE
  27. C
  28.         IBUTN = ARRAY(1)
  29. 120     CONTINUE
  30.         IERR = 0
  31.         RETURN
  32. C
  33. C       DEVICE DOESN'T SUPPORT GIN
  34. C
  35. 900     IERR = -1
  36.         RETURN
  37.         END
  38.