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