Trailing-Edge
-
PDP-10 Archives
-
decuslib20-04
-
decus/20-0125/getmp.for
There is 1 other file named getmp.for in the archive. Click here to see a list.
SUBROUTINE GETMP(X, Y)
C************************************************************
C
C THIS ROUTINE IS USED TO RETURN THE USER CO-ORDINATES OF
C THE MAIN POINTER.
C
C POSSIBLE ERRORS:
C ?INVALID REPLY TO A POINTER REQUEST
C
C ROUTINES CALLED:
C GETPTR - POINTER RETRIEVAL ROUTINE
C
C************************************************************
CALL GETPTR(4, X, Y)
RETURN
END