//
// DelDoubles.vdm            Christian Ziemski  08.03.2004
// 
// delete double lines in a sorted file
//

RCB(103, BoL_Pos, EoL_Pos)
Line(1, NOERR)

while (! At_EOF) {
  if(Reg_Size(103)==0) { 
    if (At_EoL) {
      Del_Line(1)
    } else {
      RCB(103, BoL_Pos, EoL_Pos)
      Line(1, NOERR+ERRBREAK)
    }
  } else {
    if (Match(@103)==0) {
      Del_Line(1)
    } else {
      RCB(103, BoL_Pos, EoL_Pos)
      Line(1, NOERR+ERRBREAK)
    }
  }
}