!	PROGRAM TO GET COLORS FROM DISSPLA
	REAL LCOLOR(65),COLOR1(3),COLOR2(3)
	EQUIVALENCE (HUE,COLOR1(1)),(SAT,COLOR1(2)),(CINT,COLOR1(3))
	DATA LCOLOR/'AVOC','BACK','BEIG','BHGR','BHPU','BLAC','BLGR',
	1	    'BLPU','BLUE','BRIC','BROW','BURG','CHAR','CHES',
	2	    'CORA','CREA','CYAN','EVER','FORE','GHBL','GHYE',
	3	    'GOLD','GRAY','GRBL','GREE','GREY','GRYE','KELL',
	4	    'KHAK','LAVE','MAGE','MUST','NAVY','OCHE','OCHR',
	5	    'ORAN','OHYE','OLIV','ORRE','ORYE','PEAC','PHBL',
	6	    'PHRE','PINK','PUBL','PURE','PURP','RED' ,'REOR',
	7	    'REPU','RHPU','RHOR','ROSE','RUST','SKY' ,'TAN' ,
	8	    'TANG','TURQ','VIOL','WHIT','YEGR','YELL','YEOR',
	9	    'YHGR','YHOR'/
	CALL COMPRS
	CALL PAGE(11.0,8.5)
	CALL AREA2D(9.0,6.5)
	WRITE(8,*) 'COLOR  HUE  SAT     INTNS  RED   GRN  BLU'
	NCOLOR = 65
	DO I = 1, NCOLOR
	  CALL CLRHSI(LCOLOR(I),HUE,SAT,CINT)
	  CALL CVTCLR(COLOR1,'HSI',COLOR2,'RGB')
	  WRITE(8,600) LCOLOR(I),COLOR1,COLOR2
	END DO
600	FORMAT(1X,A4,2(3F6.2,2X))

	CALL ENDPL(0)
	CALL DONEPL
	CALL EXIT
	END