        SUBROUTINE GSDRAW(X,Y)
        IMPLICIT NONE
        REAL*4 X,Y,X1,Y1
C
C
        INCLUDE DIGLIB$KOM:GCVPOS.PRM
        INCLUDE DIGLIB$KOM:GCCPOS.PRM
        INTEGER*2 GSIVIS,IVIS1
C
C       TRANSFORM VIRT. COOR. TO SCREEN COORD.
C
D       WRITE(9,90)XAPOS,YAPOS,IVIS
D90	FORMAT('OLD POSITION ',3F10.3)
        XVPOS = X
        YVPOS = Y
        CALL GSRST(XVPOS,YVPOS,X1,Y1)
        IVIS1 = GSIVIS(X1,Y1)
        CALL GSDRW2(XAPOS,YAPOS,IVIS,X1,Y1,IVIS1)
        XAPOS = X1
        YAPOS = Y1
        IVIS = IVIS1
D       WRITE(9,91)XAPOS,YAPOS,IVIS
D91	FORMAT('NEW POSITION ',3F10.3)
        RETURN
        END
