0 !Shooter.Xact
  empty !Shooter.NewRef
  _Subj.Dir
  empty
  {
   _Shooter.Subject &"_????????_??????_Bnew_*.txt" File.PrevOf isnull ?
   dup !Shooter.NewRef
   dup noext term3 !Shooter.Xact
   true ?
  } loop
  filing)