function status=UpdateOldFiles(fmt,id,prerev,base,fn,action);
  found=zeros(size(prerev));
  for n=1:length(prerev)
    ofn=sprintf(fmt,id,prerev(n),base);
    found(n)=exist(ofn);
  end
  mxofn=max(find(found));
  if(mxofn)
    ofn=sprintf(fmt,id,prerev(mxofn),base);
    fprintf(1,'Coverting old file for %s...',id);
    copyfile(ofn,fn);
    status=1;
  else
    status=0;
  end
