//
//   DELDUPES.VDM                        Ch. Ziemski   19.10.2001
//
//  Deletes identical lines if following directly (after a sort or so)
//

BoF
EoL
#104=Cur_Col           // length of 1st line

while(! At_EoF){       // loop through file
  #103=#104
  Line(1, NOERR+ERRBREAK)  // next line
  EoL
  #104=Cur_Col             // length of this 2nd line
  
  if(#104 != #103) {       // if different line length
    continue           
  }
  
  if(#104==1){         // if both lines are empty
    Del_Line(1)        //   delete 2nd line
    if(At_EoF){
      break
    }
    Line(-1)           // again at the 1st line
                       //   (maybe there are more than 2 identical lines)
    continue
  }
  
  Line(-1)             // BoL of 1st of the two lines with same length
  
  //Reg_Copy(104,1)    // save in Reg  :: doesn't work for last lines without CR/LF ...
                       //   so we have to use:
  RCB(104,CP, EoL_Pos) // save in Reg
  
  Line(1)              // BoL of the 2nd line
  if(Match(@104)==0){  // if identical
    Del_Line(1)        //   delete 2nd line
    Line(-1)           // again on the 1st of the both lines
                       //   (maybe there are more than 2 identical lines)
  }
}
Update()               // bugfix, otherwise if the last linex are identical
                       //   the screen isn't updated correctly