Google
 

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