PDP-10 Archive: decus/20-0125/movemp.for from decus_20tap4

Trailing-Edge - PDP-10 Archives - decus_20tap4_198111 - decus/20-0125/movemp.for

There is 1 other file named movemp.for in the archive. Click here to see a list.

	SUBROUTINE MOVEMP(X, Y)
C************************************************************
C
C  THIS ROUTINE IS USED TO MOVE THE MAIN POINTER
C  TO USER (X, Y)
C
C  POSSIBLE ERRORS:
C	?INVALID REPLY TO A MOVE COMMAND
C
C  ROUTINES CALLED:
C	MOVFIL - MOVE DISPLAY FILE ROUTINE
C
C************************************************************
	INTEGER DISNUM

	DISNUM = 4
	CALL MOVFIL(DISNUM, X, Y)
	RETURN
	END