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