	SUBROUTINE GSCCMP(IX,IY,XOFF,YOFF,X,Y)
C
C
	COMMON /GCCPAR/ CSIZE, CCOS, CSIN
	LOGICAL LCURNT
	COMMON /GCCPOS/ XAPOS, YAPOS, IVIS, LCURNT
C
C	SCALE TO PROPER SIZE
C
	XS = CSIZE*IX
	YS = CSIZE*IY
C
C	ROTATE AND TRANSLATE
C
	X = CCOS*XS + CSIN*YS + XOFF
	Y = CCOS*YS - CSIN*XS + YOFF
D	TYPE 9999, IX, IY, X,Y
D9999	FORMAT(' CMOVE TO (',I2,',',I2,') GOES TO (',F9.4,',',F9.4,')')
	RETURN
	END
