File_Open("File_with_filenames_to_search")

      #103=Buf_Num      // remember the number of it's buffer

      

      File_Open("Masterfile_with_filenames")

      #104=Buf_Num      // remember the number of it's buffer

      

      

      Buf_Switch(#103)  // search list

      Begin_Of_File

      File_Save_As("Resulting_list_with_found_files")

      

      while (! At_EoF) {                     // loop through the search list

      Reg_Copy_Block(103, Cur_Pos, EoL_Pos)// get one line (filename)

      Buf_Switch(#104)                     // switch to masterlist

      Search("|@(103)", BEGIN+NOERR)       // search the filename here

      if (Error_Match) {                   // if not found here

      Buf_Switch(#103)                   // delete item from search list

      Del_Line(1)

      } else {                             // if found:

      Buf_Switch(#103)                   // leave item in search list

      Line(1, NOERR)                     // next item in search list

      }

      }

      

      File_Save(OK)                          // save result

      

      

      

      File_Open("c:\test\List.txt")

      Begin_Of_File  // to be safe (if file was already open)

      #103=Buf_Num

      

      File_Open("c:\test\Search.txt")

      Begin_Of_File  // to be safe (if file was already open)

      #104=Buf_Num

      

      File_Open("c:\test\Output.txt")

      Begin_Of_File  // to be safe (if file was already open)

      #105=Buf_Num

      

      

      Buf_Switch(#103) // switch to list.txt

      

      While (! At_EOF) // While Not at EOF of list.txt

      {

      Reg_Copy_Block(103, Cur_Pos, EoL_Pos) // read curr. line (w/o CR/LF)

      

      Buf_Switch(#104) // switch to Search.txt

      Begin_Of_File

      

      While (! At_EOF) // While not at EOF of Search.txt

      {

      Goto_Col(1)     // column with text to find (only in testfile = 1)

      if (Match("|@(103)") == 0 ) // if matching the text from List.txt

      {

      Line(1, NOERR+ERRBREAK)   // goto next line

      Search("|<X|A:\", NOERR)  // search for the next filename

      // (with leading X here in testfile)

      // See online help for pattern matching codes!

      

      if (!Error_Match) {   // if found

      Begin_Of_Line

      Reg_Copy(104, 1) // get complete line

      Buf_Switch(#105) // switch to output.txt

      Reg_Ins(104)     // insert line there

      Buf_Switch(#104) // switch back to search.txt

      }

      }

      Line(1, NOERR)

      }

      Buf_Switch(#103) // switch back to List.txt

      Line(1, NOERR) // next line

      }