%
% test of File.Dir commands
%
% stack: wildcard path ordering subdirs ident
%
"*.txt" conn "AscendF" false "Test" File.DirOpen
"2103" "Test" File.DirAfter
{
 "Test" File.DirNext isnull ?
"testdir" log)(
 pop
} loop
pop
"Test" File.DirClose