.key file, path

; Recover-Script für die Version 36.12 von ZPCheckZC.

; Der Assign TA3: ist das Hauptverzeichnis von TheAnswer.
; Das Directory TA3:BadPuffers muss bereits vorhanden sein;
; dort werden verunglückte Puffer gelagert.

Echo "*NChecke <file>*N"

TA3:ZPCheckZC path="" FILE=<file> BUFFERS=128

IF WARN

     IF EXISTS <file>.BAD

          Copy   <file>.BAD TO TA3:BadPuffers/
          Delete <file>.BAD
          Copy   <file>     TO TA3:BadPuffers/

          ;ReqAsk SCREEN="`PubScrName`" BODY="Puffer *"<file>*"*Nist fehlerhaft!" GADGET="So ein Mist!" TITLE="RECOVER" TIME=2

          Echo "Defekter Puffer <file>*N"

     ENDIF

     IF EXISTS <file>.001

          Delete <file> quiet
          Rename <file>.001 TO <file>

          Echo "wurde umkopiert und ersetzt.*N"

     ENDIF

ENDIF

IF EXISTS <file>.001

     Echo "<file>.001 wird gelöscht..." NOLINE
     Delete <file>.001 quiet
     Echo " OK."

ENDIF