//
// DIR-LCMP.VDM                                                (C) C.Z.  06.01.1998
//
// Prüft die Zeilen auf Gleichheit des 1. Wortes und löscht alle Einzel-Zeilen.
// Es bleiben also nur mehrfach vorhanden Zeilen übrig.
//
// Anwendung: Doubletten im Dateisystem suchen.
//
// Vorarbeit: DIR /S > datei
//            DIR-EXT.VDM zum Umstrukturieren (Dateiname am Zeilenanfang, 
//                                             Pfad etc. jeweils dahinter)


Replace("|W|>","",ALL+NOERR+BEGIN)
Eof
Sort(0,CP)
BoF
#1=0

while(! at_EOF) {
  bb(CP)
  s("|W|A:\", NOERR)
  be(CP)
  rcb(11,BB,BE)
  BB(CLEAR)
  line(1,NOERR)
  if (EM){
    return
  }
  if (match(@11,ADVANCE)!=0){
    if (#1==0){
      L(-1)
      DL(1)
    }
    #1=0
  } else {
    if (Match("|w")!=0) {
      if (#1==0){
        L(-1)
        DL(1)
      }
      #1=0
    } else {
      BOL
      #1=1
    }
  }
}