	SUBROUTINE GSDRGB(ICOLOR,RED,GRN,BLU,IERR)
	COMMON /GCDCHR/ DEVID, XLENCM, YLENCM, XRES, YRES,
	1   NDCLRS, IDVBTS, NFLINE, XCLIPD, YCLIPD
	DIMENSION RGB(3)
C
C	DEFINE A COLOR
C
	IF ( IAND(IDVBTS,64) .EQ. 0 .OR.
	1   (ICOLOR .GT. NDCLRS) .OR.
	2   (ICOLOR .LT. 0)) GO TO 900
	IERR = 0
	RGB(1) = RED
	RGB(2) = GRN
	RGB(3) = BLU
	CALL GSDRVR(10,FLOAT(ICOLOR),RGB)
	RETURN
900	IERR = -1
	RETURN
	END
