if (charset >= 128) {
	$rc = "cr";
}
else if (charset >= 64) {
	$rc = "lf";
}

$fNam = filename2;

mousemenu "&Shift-JIS", "&EUC", "&JIS", "&Unicode", "UTF-&7", "UTF-&8";

if (result == 1) {
	if ($rc == "lf") {
		saveas $fNam, sjis, lf;
	}
	else if ($rc == "cr") {
		saveas $fNam, sjis, cr;
	}
	else {
		saveas $fNam, sjis;
	}
}
else if (result == 2) {
	if ($rc == "lf") {
		saveas $fNam, euc, lf;
	}
	else if ($rc == "cr") {
		saveas $fNam, euc, cr;
	}
	else {
		saveas $fNam, euc;
	}
}
else if (result == 3) {
	if ($rc == "lf") {
		saveas $fNam, jis, lf;
	}
	else if ($rc == "cr") {
		saveas $fNam, jis, cr;
	}
	else {
		saveas $fNam, jis;
	}
}
else if (result == 4) {
	if ($rc == "lf") {
		saveas $fNam, unicode, lf;
	}
	else if ($rc == "cr") {
		saveas $fNam, unicode, cr;
	}
	else {
		saveas $fNam, unicode;
	}
}
else if (result == 5) {
	if ($rc == "lf") {
		saveas $fNam, utf7, lf;
	}
	else if ($rc == "cr") {
		saveas $fNam, utf7, cr;
	}
	else {
		saveas $fNam, utf7;
	}
}
else if (result == 6) {
	if ($rc == "lf") {
		saveas $fNam, utf8, lf;
	}
	else if ($rc == "cr") {
		saveas $fNam, utf8, cr;
	}
	else {
		saveas $fNam, utf8;
	}
}

endmacro;