	SUBROUTINE GSSTRK(IICHAR)
        IMPLICIT NONE
        INTEGER IICHAR,INDX,IDONE
        REAL*4 DX,DY,GSCWID
C
C	THIS SUBROUTINE STROKES OUT A CHARACTER.
C
	LOGICAL*1 LMOVE
	INCLUDE DIGLIB$KOM:GCCIDX.PRM
C
C	SPACE FILL ALL NON-PRINTING
C
	IF (IICHAR .LE. 32 .OR. IICHAR .GE. 128) GO TO 200
C
C	STROKE THIS CHARACTER
C
	INDX = INDEXC(IICHAR-32)
	IDONE = INDEXC(IICHAR-31)
C
C	GET THE SCALED AND ROTATED NEXT NODE ON THE CHARACTER
C
100	CALL GSCGET(INDX,DX,DY,LMOVE)
	IF (LMOVE) GO TO 140
	CALL GSDRAW(DX,DY)
	GO TO 160
140	CALL GSMOVE(DX,DY)
C
C	SEE IF ALL DONE
C
160	IF (INDX .LT. IDONE) GO TO 100
C
C	ALL DONE WITH THE CHARACTER, MOVE TO NEXT CHARACTER POSITION
C
200	CALL GSCCLC(GSCWID(),0.0,DX,DY)
	CALL GSMOVE(DX,DY)
	RETURN
	END
