	SUBROUTINE GSPSTR(BSTRNG)
	CHARACTER*1 BSTRNG(80)
C
C	THIS SUBROUTINE STROKES OUT THE CHARACTER STRING "BSTRNG" (A BYTE
C	ARRAY WITH 0 AS A TERMINATOR) AT THE CURRENT POSITION.
C
	INCLUDE GCVPOS.PRM
	INCLUDE GCCOFF.PRM
	INCLUDE GCLTYP.PRM
C
C	DON'T DRAW CHARACTERS IN LINETYPES
C
	IOLD = ILNTYP
	ILNTYP = 1
C
	NBYTE = 0
100	NBYTE = NBYTE + 1
C
C	SAVE THE (0,0) POSITION OF THE CHARACTER
C
	XOFF = XVPOS
	YOFF = YVPOS
C
C	GET THE CHARACTER TO STROKE
C
	IICHAR = ICHAR(BSTRNG(NBYTE))
	IF (IICHAR .EQ. 0) GO TO 200
C
C	STROKE THE CHARACTER
C
	CALL GSSTRK(IICHAR)
	GO TO 100
C
C	RETURN LINE TYPE TO THAT OF BEFORE
C
200	CONTINUE
	ILNTYP = IOLD
	RETURN
	END
