%
% is there a filespec
%
._MepSpec any?
{
%
% set current backup empty
%
 *crchcopy
%
% make a new backup file, using the insured ordinal
%
 *perstnum
 dup .!MepBak
 copyfile

} if