program notbad
!
!	Take file generated by AVD and write bad block descriptor showing
!		no bad blocks so INI and BRU wont complain.
!
!	Don Rubin	April 1983
!
	character file*32,bufff*254
	byte buff(512),fil(32)
	integer*2 buf(256)
	integer*4 size
	equivalence (buf,buff,bufff),(file,fil)

	call getmcr(buff,j)
	if(j.le.0)then
		write(5,9)
9		format( '$Enter disk filename ')
		read(5,8)j,(buff(k),k=5,254)
8		format(q,254a1)
		j=j+4
	endif

	k=index(bufff,'.')	!look for file extension
	if(k.eq.0)then		!add it
		bufff(j+1:j+4)='.DSK'
		j=j+4
	endif
	file(1:j-4)=bufff(5:j)	!get filename
	fil(j-3)=0		!set null byte

	open(unit=1,name=file,status='old',access='direct',err=91,
	1	recordsize=128)

!
!	Look at file header to get length of file
!
	call getlen(1,size)
	if(size.le.0)goto 91

!
!	Create fake bad block descriptor
!
	do 1 j=1,128
1		buf(j)=0
	buf(1)="1401
	buf(2)="176000
	buf(256)="177401

	write(1'size)buf
	goto 99	
!
!	Display errors
!
90	type*,'Error - Opening file',file
	goto 99
91	type*,'Error - Bad size'
	goto 99

99	close(unit=1)
	end