SEARCH SYS
	SEARCH TRM	
	SEARCH SYSSYM
	VMAJOR=1.
	VMINOR=2.
	VSUB=0.
	VEDIT=500.
	PHDR	-1,0,PH$REE!PH$REU!PH$L12
	JMP	1$
	ASCII	/*** Program by Alan J. Cavallaro - Copyright 1984 by Driver-Harris systems, Inc. ***/
1$:	EVEN
	GETIMP	D.DDB,A5,CHKMEM 
	GETIMP	D.DDB,A7,CHKMEM 
	JMP	MEMOK
CHKMEM:	TYPECR	<Insuffcient memory>
	EXIT
MEMOK:	LEA	A2,F1
	FSPEC	@A7,SYS
	LEA	A2,F2
	FSPEC	@A5,SAV
	INIT	@A5
	INIT	@A7
	LOOKUP 	@A7
	JNE	OHSHIT
	LOOKUP	@A5
	BNE	NOTFND
	DSKDEL	@A5
NOTFND:	OPENO	@A5
	OPENI	@A7
LOOP:	FILINB	@A7
    	TST	D.SIZ(A7)
 	JEQ	CLOSET
	FILOTB	@A5
	JMP	LOOP 
CLOSET:	EVEN
	CLOSE	@A7
	CLOSE 	@A5
	EVEN
EXIT:	TYPECR	<BADBLK.SYS has been copied to BADBLK.SAV>
	EXIT	
OHSHIT: TYPECR	<BADBLK.SYS not found!>
	EXIT
F1:	ASCII	/BADBLK.SYS/
	BYTE	0
F2:	ASCII	/BADBLK.SAV/	
	BYTE	0
	END

.