Module CheckIt {
      Dos "cd "+quote$(Dir$) +" & cmd /U /C  dir *.txt >txt.out";
      Document txt$
      Repeat {
            Wait 100
            Try  {
                  load.doc txt$, "txt.out"
            }
      } Until doc.len(txt$)<>0
      Report txt$
}
Checkit