//
//   LINEDIFFER.VDM                   Ch. Ziemski  18.02.2003
//

if(Buf_Total != 2){
  Dialog_Input_1(1,"`Error`, `There have to be exactly two buffers open!`", WORKAREA+CENTER,0,0) 
  return
}


for(#103=0; #103<=1 ;#103++){
  Buf_Switch(1+#103)
  BoF

  while(! At_EoF){
    Reg_Copy_Block(103, Cur_Pos, EoL_Pos)
    Buf_Switch(2-#103)
    Search("|@(103)", BEGIN+NOERR)
    if(! EM){
      while(! EM){
        BoL
        Del_Line(1)
        Search("|@(103)", BEGIN+NOERR)
      }
      Buf_Switch(1+#103)
      BoL
      Del_Line(1)
    }else{
      Line(1, NOERR)
      Buf_Switch(1+#103)
      Line(1, NOERR)
    }
  }
}