	PROGRAM CRASH
	LOGICAL*1 X(512)
	CALL ASSIGN(6,'LP:CRASH.LST',12,'NEW','CC',2)
	TYPE 1001
 1001	FORMAT('$ENTER NAME OF BAD DEVICE: ')
	CALL ASSIGN(2,' ',-1)
	TYPE 1002
 1002	FORMAT('$ENTER SIZE OF THE DEVICE IN BLOCKS: ')
	ACCEPT *,ISIZE
	DEFINE FILE 2(ISIZE,256,U,K1)
	DO 10 I=1,ISIZE
	READ(2'I,END=99) X
	DO 5 J=1,40
	IF(X(J).LT.' ') X(J)=' '
    5	CONTINUE
	IBLK=I-1
	WRITE(6,1000) IBLK,(X(J),J=1,40)
 1000	FORMAT(' ',I5,80A1)
   10	CONTINUE
   99	STOP
	END
