PARAMETER	mx = 400, my = 400

	DIMENSION	in(5), sec(0:mx-1,0:my-1)
	CHARACTER*80	filnam
	REAL	title(20)

	WRITE (6, 1000) 'Enter Ten Eyck map name'
1000	FORMAT (a)
	READ (5, 1000) filnam
	OPEN (unit=1, file=filnam, form='UNFORMATTED', status='OLD', readonly)

	READ (1) title

	DO iz = 1, 256

  	  READ (1) in
	  IF (in(1) .LT. 0) goto 9

	  READ (1) ((sec(i,j), i=in(2), in(3)), j=in(4),in(5))
	  DO j = in(4), in(5)
	    DO i = in(2), in(3)
	      IF (sec(i,j) .GT. z) THEN
	        ix = i
	        iy = j
	        z = sec(i,j)
	      endIF
	    endDO
	  endDO
	  WRITE (6, 1002) ix, iy, sec(ix,iy)

	  DO WHILE (.TRUE.)
	    READ (5, 1002, end=9) ix, iy, scalval
	    IF (scalval .NE. 0) scale = scalval/sec(ix,iy)
	    IF (ix .GE. 900) GOTO 1
1002	    FORMAT (2i5, 2f15.4)
	    WRITE (6, 1002) ix, iy, sec(ix,iy), sec(ix,iy)*scale
	  endDO
1	continue
	endDO

9	CLOSE (unit=1)

	end