INTEGER*2 IBUF(1024)
	IQUIT=20
	OPEN(UNIT=1,NAME='MYDUMP',BLOCKSIZE=2048,
	1	RECORDTYPE='FIXED',FORM='UNFORMATTED',
	2	RECL=512,STATUS='OLD')
	OPEN(UNIT=2,NAME='MYLIS',STATUS='NEW')
	IBLOCK=1
10	CONTINUE
	READ(1,END=100,ERR=200)IBUF
	WRITE(2,15)IBLOCK
15	FORMAT(1H1,30X,'BLOCK',1I6)
	WRITE(2,20)IBUF
20	FORMAT(2X,20O6)
	IBLOCK=IBLOCK+1
	IF(IBLOCK.LE.IQUIT)GO TO 10
	WRITE(6,30)IQUIT
30	FORMAT(5X,'END AFTER',1I6,' BLOCKS')
	GO TO 300
100	WRITE(6,40)IBLOCK
40	FORMAT(5X,'END OF FILE WHILE READING BLOCK',1I6)
	GO TO 300
200	CONTINUE
	WRITE(6,50)IBLOCK
50	FORMAT(5X,'ERROR WHILE READING BLOCK',1I6)
300	CONTINUE
	STOP
	END