.key drive/A
.bra {
.ket }

failat 21
delete >nil: "{drive}KAN/#?" all quiet
if FAIL
  skip ERR
endif
if exists "{drive}:KAN2"
  delete >nil: "{drive}:KAN2/#?" all quiet
  if FAIL
    skip ERR
  endif
endif
if exists "{drive}:KAN3"
  delete >nil: "{drive}:KAN3/#?" all quiet
  if FAIL
    skip ERR
  endif
endif
if exists "{drive}:KAN4"
  delete >nil: "{drive}:KAN4/#?" all quiet
  if FAIL
    skip ERR
  endif
endif
if exists "{drive}:KAN5"
  delete >nil: "{drive}:KAN5/#?" all quiet
  if FAIL
    skip ERR
  endif
endif
if exists "{drive}:KAN6"
  delete >nil: "{drive}:KAN6/#?" all quiet
  if FAIL
    skip ERR
  endif
endif
if exists "{drive}:KAN7"
  delete >nil: "{drive}:KAN7/#?" all quiet
  if FAIL
    skip ERR
  endif
endif
failat 10
quit
LAB ERR
 failat 10
 echo "There may be Read Only files in some of your KAN directories"
