// $dir = getenv("TMP") + "\\trash";
$dir = getenv("TMP");
if (basename=="") execmacro "newfile.mac";
$basename = leftstr( basename, strstr( basename, "." ) );
if ($basename=="") $basename = basename;
#i = 1;
while( #i != 999 ) {
	if( existfile( $dir + "\\" + $basename + "." + str( #i ) ) == true ) {
		#i = #i + 1;
	}else{
		$name = $basename + "." + str( #i );
		break;
	}
}
$name = $dir + "\\" + $name;
$orgname = filename;
title "History Saving...";
changename $name;
save;
changename $orgname;
title 0;
endmacro;