	SUBROUTINE GSMOVE(X,Y)
C
C	MOVE THE THE POINT (X,Y).
C
	LOGICAL*1 LINILT, LPOSND
	COMMON /GCLTYP/ ILNTYP, DLEFT, DIST(4,3), LINILT, LPOSND
	COMMON /GCVPOS/ XVPOS, YVPOS
	LOGICAL LCURNT
	COMMON /GCCPOS/ XAPOS, YAPOS, IVIS, LCURNT
	INTEGER GSIVIS
C
C	RESET LINE STYLE TO BEGINNING OF PATTERN AND SHOW MOVED
C
	LINILT = .TRUE.
	LPOSND = .FALSE.
C
C	TRANSFORM VIRTUAL COORD. TO ABSOLUTE COORD.
C
	XVPOS = X
	YVPOS = Y
	CALL GSRST(XVPOS,YVPOS,XAPOS,YAPOS)
	IVIS = GSIVIS(XAPOS,YAPOS)
	RETURN
	END
