Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-04 - decus/20-0125/move.for
There is 1 other file named move.for in the archive. Click here to see a list.
	SUBROUTINE MOVE(N, FILE, X, Y)
C************************************************************
C
C  THIS ROUTINE INSERTS AN INVISIBLE VECTOR TO USER (X, Y)
C
C  SEE DOCUMENTATION ON SUBROUTINE ADLINE
C
C  POSSIBLE ERRORS:
C	NONE
C
C  ROUTINES CALLED:
C	ADLINE
C
C************************************************************
	INTEGER FILE(N)
	CALL ADLINE(N, FILE, X, Y, .FALSE.)
	RETURN
	END