	SUBROUTINE PLTBX2(XLEFT,XRIGHT,YBOT,YTOP)
C
C
	CSIZE = GOODCS(AMIN1(YTOP-YBOT,XRIGHT-XLEFT)/80.0)
	CALL MAPPRM(XLEFT,XRIGHT,YBOT,YTOP,CSIZE,0.9*CSIZE,.TRUE.)
	RETURN
	END
