//
//  RPM-DIFF.VDM        CZ 08.11.2001
//

BS(1)   // alt
BoF

while(! AT_EOF){
  
  BS(1)  // alt
  
  Search_Block("-|D",CP,EoL_Pos,NOERR+ADVANCE)
  if(EM){
    EoL
  }
  Char(-1)
  RCB(11, BoL_Pos, CP)         // Paketname ohne Version
  RCB(12, BoL_Pos, EoL_Pos)    // Paketname mit Version
  
  BS(2)  // neu

  S("|<|@(11)", BEGIN+NOERR)
  if(EM){
    BS(3)   // Diff
    EoF
    IT("fehlt ganz    : ")
    RI(12)
    IN(1)
  }else{
    RCB(13, BoL_Pos, EoL_Pos)    // Paketname mit Version
    BS(3)   // Diff
    EoF
    IT("andere Version: ")
    RI(12)
    IT("  ")
    RI(13)
    IN(1)
  }
  BS(1)
  Line(1,NOERR)
}