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), j=in(2), in(3)), i=in(4),in(5))

	  DO WHILE (.TRUE.)
	    READ (5, 1002, end=9) ix, iy
	    IF (ix .GE. 900) GOTO 1
1002	    FORMAT (2i5, f10.4, i5)
	    WRITE (6, 1002) ix, iy, sec(ix,iy), NINT(sec(ix,iy)*8.5392)
	  endDO
1	continue
	endDO

9	CLOSE (unit=1)

	end