%
% stack: file-prefix normal-flag filespec
%
dirmost
isnull
{
%
% no file exists yet, start at 0
%
 pop2 0
}
{
%
% use the maximum message number
%
 fileroot exch length) fromleft
} ifelse

%
% stack: last-number
%