//
//  LISTDIFF.VDM                 C.Z. 22.11.2001
//

Buf_Switch(2)    // gesperrte User
Begin_of_File

while(! At_Eof){
  Buf_Switch(2)
  Reg_Copy_Block(11, Bol_Pos, Eol_Pos)
  Buf_Switch(1)   // alle User
  Search("|<|@(11)|N", BEGIN+NOERR)
  if(! Error_Match){
    Begin_Of_Line
    Del_Line(1)
  }
  Buf_Switch(2)
  Line(1, NOERR)
}
Buf_Switch(1)