Trailing-Edge
-
PDP-10 Archives
-
decuslib10-07
-
43,50446/getmp.f4
There are no other files named getmp.f4 in the archive.
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