	SUBROUTINE MAPSZ2(XLPCT,XRPCT,YBPCT,YTPCT,CHRSIZ)
	COMMON /GCDPRM/ XS, YS, XT, YT, RCOS, RSIN, VXL, VXH, VYL, VYH
C
	XLEFT = VXL + (VXH-VXL)*XLPCT/100.0
	XRIGHT = VXL + (VXH-VXL)*XRPCT/100.0
	YBOT = VYL + (VYH-VYL)*YBPCT/100.0
	YTOP = VYL + (VYH-VYL)*YTPCT/100.0
	CSIZE = CHRSIZ
	IF (CSIZE .EQ. 0.0)
	1   CSIZE = GOODCS(AMAX1(0.3,AMIN1(YTOP-YBOT,XRIGHT-XLEFT)/80.0))
	CALL MAPPRM(XLEFT,XRIGHT,YBOT,YTOP,CSIZE,0.9*CSIZE,.TRUE.)
	RETURN
	END
