        SUBROUTINE GSMOVE(X,Y)
        IMPLICIT NONE
        REAL*4 X,Y
C
C       MOVE THE THE POINT (X,Y).
C
        INCLUDE DIGLIB$KOM:GCLTYP.PRM
        INCLUDE DIGLIB$KOM:GCVPOS.PRM
        INCLUDE DIGLIB$KOM:GCCPOS.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
D	WRITE(9,1345)X,Y,XVPOS,YVPOS,XAPOS,YAPOS
D1345	FORMAT(1X,"GSMOVE",6F6.2)
        CALL GSRST(XVPOS,YVPOS,XAPOS,YAPOS)
        IVIS = GSIVIS(XAPOS,YAPOS)
D	WRITE(9,1345)X,Y,XVPOS,YVPOS,XAPOS,YAPOS
	RETURN
	END
