.key drive
.bra [
.ket ]

if exists "[drive]KAN7"
 rename "[drive]KAN7" "[drive]KANx"
endif
if exists "[drive]KAN6"
  if not exists "[drive]KANx"
     rename "[drive]KAN6" "[drive]KANx"
  else
     rename "[drive]KAN6" "[drive]KAN7"
  endif
endif
if exists "[drive]KAN5"
  if not exists "[drive]KANx"
     rename "[drive]KAN5" "[drive]KANx"
  else
     rename "[drive]KAN5" "[drive]KAN6"
  endif
endif
if exists "[drive]KAN4"
  if not exists "[drive]KANx"
     rename "[drive]KAN4" "[drive]KANx"
  else
     rename "[drive]KAN4" "[drive]KAN5"
  endif
endif
if exists "[drive]KAN3"
  if not exists "[drive]KANx"
     rename "[drive]KAN3" "[drive]KANx"
  else
     rename "[drive]KAN3" "[drive]KAN4"
  endif
endif
if exists "[drive]KAN2"
  if not exists "[drive]KANx"
     rename "[drive]KAN2" "[drive]KANx"
  else
     rename "[drive]KAN2" "[drive]KAN3"
  endif
  rename "[drive]KAN"  "[drive]KAN2"
  rename "[drive]KANx" "[drive]KAN"
endif
