%
% stack: dir-name logic-seed
%
 second "." atleft or
 second "_" atleft or
 second "_" found)? not or
 second "." found)? not or
 second "-" found)? or
 second 1 left numeric or
 second fileroot "_" right$ numeric or
 second "_" left$ "ui" eq$ or
 second "_" left$ "BOD" eq$ or
 second "_" left$ length) 12 gt or
 second fileroot "_" right$ length) 4 lt or
 second fileroot "_" right$ "sprite" eq$ or
 second "_" exch Str.Found 1 gt or
 second 4 left "aaaa" eq$ or

%
% stack: dir-name hold-flag
%