+ if (lc $f eq '<es>') {
+ dbg("sh/dx <es>") if isdbg('sh/dx');
+ push @flist, "info {<ES>}";
+ next;
+ }
+ if (lc $f eq '<tr>') {
+ dbg("sh/dx <es>") if isdbg('sh/dx');
+ push @flist, "info {<TR>}";
+ next;
+ }
+ if (lc $f eq '<ms>') {
+ dbg("sh/dx <ms>") if isdbg('sh/dx');
+ push @flist, "info {<ms>}";
+ next;
+ }
+