        SUBROUTINE GSMOVE(X,Y)
C
C       MOVE THE THE POINT (X,Y).
C
        INCLUDE GCLTYP.PRM
        INCLUDE GCVPOS.PRM
        INCLUDE GCAPOS.PRM
        INTEGER*2 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
