	SUBROUTINE GSCGET(IPTR,DX,DY,LMOVE)
        IMPLICIT NONE
        REAL*4 DX,DY,X,Y
        INTEGER IPTR
C
C	THIS SUBROUTINE GETS THE NEXT NODE (POINT) ON THE CHARACTER
C	BASED UPON "IPTR".   IT THEN SCALES AND ROTATES IT.
C
	LOGICAL*1 LMOVE
	INCLUDE DIGLIB$KOM:GCCTBL.PRM
C
	LMOVE = .FALSE.
50	IF (BX(IPTR) .NE. -64) GO TO 100
	LMOVE = .TRUE.
	IPTR = IPTR + 1
	GO TO 50
100	X=BX(IPTR)
	Y=BY(IPTR)
	CALL GSCCLC(X,Y,DX,DY)
	IPTR = IPTR + 1
        RETURN
	END
