home *** CD-ROM | disk | FTP | other *** search
/ The Fred Fish Collection 1.5 / ffcollection-1-5-1992-11.iso / ff_disks / 200-299 / ff267.lzh / Diglib / diglib.zoo / diglib / CURSOR.FOR < prev    next >
Text File  |  1989-06-20  |  539b  |  22 lines
  1.         SUBROUTINE CURSOR(X,Y,KEY)
  2.         INTEGER*1 KEY
  3. C
  4. C       DISPLAY AND READ THE GRAPHICS CURSOR AND RETURN ITS POSITION
  5. C       IN USER COORDINATES.
  6. C
  7.         INCLUDE PLTCOM.PRM
  8.         INCLUDE PLTSIZ.PRM
  9. C
  10. C       GET CURSOR POSITION IN VIRTUAL COORDINATES.
  11. C
  12.         CALL GSGIN(X,Y,KEY,IERR)
  13.         IF (IERR .GE. 0) GO TO 50
  14.         X = XVSTRT
  15.         Y = YVSTRT
  16. 50      X = (X-XVSTRT)*UDX/XVLEN + UX0
  17.         IF (LOGX) X = 10.0**X
  18.         Y = (Y-YVSTRT)*UDY/YVLEN + UY0
  19.         IF (LOGY) Y = 10.0**Y
  20.         RETURN
  21.         END
  22.