PROGRAM core

c	Extracts core of all map for TOMMAP

	REAL		map(155:340,59:229), title(20)
	CHARACTER*80	filnam
	INTEGER		in(5)

	WRITE (6, 1000) 'Enter input file name:'
1000	FORMAT (a)
	READ (5, 1000) filnam

	OPEN (unit=1, form='UNFORMATTED', status='OLD', readonly,
	1	file=filnam)

	WRITE (6, 1000) 'Enter output file name:'
	READ (5, 1000) filnam

	OPEN (unit=2, form='UNFORMATTED', status='NEW', file=filnam)

	READ (1) title
	WRITE (2) title

	DO WHILE (.TRUE.)
	  READ (1) in
	  in(4) = 66
	  in(5) = 222
	  WRITE (2) in
	  IF (in(1) .LT. 0) goto 10
	  READ (1) map
	  WRITE (2) ((map(i,j), i=in(2),in(3)), j=in(4),in(5))
	endDO

10	CLOSE (unit=1)
	CLOSE (unit=2)

	end