INCLUDE 'SYS$LIBRARY:GKSDEFS.BND'

	CALL GOPKS(6)
	CALL GQEWK(1,IERR,NTYPES,IW)
	WRITE(6,*) 'Number of GKS Workstation types=',NTYPES
	DO I=1,NTYPES
	    CALL GQEWK(I,IERR,NTYPES,IW)
	    ICAT = -777
	    CALL GQWKCA(IW,IERR,ICAT)
	    WRITE(6,*) I,IW,ICAT
	END DO

	CALL EXIT
	END