.key DIR
.bra {
.ket }
failat 21
cd "{DIR}"
c:which >NIL: makehash
IF WARN
  echo "Program 'MakeHash' must be available!"
  quit 10
ENDIF
IF NOT EXISTS data.hash
  echo "The file 'data.hash' doesn't exist!*nAre you in the right drawer ???"
  quit 10
ENDIF
c:makedir >NIL: T:yacdp{$$}
c:makedir >NIL: Storage
c:copy data.hash T:yacdp{$$}/
makehash T:yacdp{$$}/ EXTRACT=#?
c:copy >NIL: ((UPC-#?)|(#?'|#?)|(#[0-9])) TO T:yacdp{$$}/ QUIET CLONE
c:rename >NIL: ((UPC-#?)|(#?'|#?)|(#[0-9])) TO Storage/ QUIET
makehash >NIL: T:yacdp{$$}/ NUM=400
c:copy T:yacdp{$$}/data.hash ""
c:delete T:yacdp{$$} QUIET ALL
echo "OK, the hashfile was updated.*n(your new songfiles were also saved to `cd`/Storage/)"