	FUNCTION GOODCS(APPROX)
	COMMON /GCDCHR/ DEVID, XLENCM, YLENCM, XRES, YRES,
	1   NDCLRS, IDVBTS, NFLINE, XCLIPD, YCLIPD
	COMMON /GCDPRM/ XS, YS, XT, YT, RCOS, RSIN, VXL, VXH, VYL, VYH
C
C	CALCULATE MINIMUM VIRTUAL COORD. SIZE OF CHARS THAT ARE READALBE WITH
C	 THE DEVICES RESOLUTION.
C
	SIZE = (GSCHIT()/YRES)/YS
C
C	NOW SCALE UP THIS MINIMUM SIZE SO THAT CHARACTERS ARE ABOUT
C	 THE SIZE DESIRED.
C
	N = APPROX/SIZE + 0.25
C
C	MUST BE ATLEAST N=1
C
	IF (N .EQ. 0) N=1
C
C	NOW RETURN OUR ANSWER
C
	GOODCS = N*SIZE
	RETURN
	END
