        REAL FUNCTION GOODCS(APPROX)

        IMPLICIT NONE
        REAL YCELL,SIZE,APPROX
        INTEGER N
        INCLUDE DIGLIB$KOM:GCDCHR.PRM
        INCLUDE DIGLIB$KOM:GCDPRM.PRM
	DATA YCELL /8.0/
C
C       CALCULATE MINIMUM VIRTUAL COORD. SIZE OF CHARS THAT ARE READALBE WITH
C        THE DEVICES RESOLUTION.
C
        SIZE = (YCELL/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

