	SUBROUTINE GSDRAW(X,Y)
C
C
	COMMON /GCVPOS/ XVPOS, YVPOS
	LOGICAL LCURNT
	COMMON /GCCPOS/ XAPOS, YAPOS, IVIS, LCURNT
	INTEGER GSIVIS
C
C	TRANSFORM VIRT. COOR. TO SCREEN COORD.
C
D	TYPE *,'OLD POSITION ',XAPOS,YAPOS,IVIS
	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	TYPE *,'NEW POSITION ',XAPOS,YAPOS,IVIS
	RETURN
	END
