$fNam = filename2;
#posX = x;
#posY = y;
#winX = windowposx;
#winY = windowposy;

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

if (result == 0) {
	endmacro;
}
else if (result == 1) {
	call ReOpen;
	openfile $fNam, sjis;
}
else if (result == 2) {
	call ReOpen;
	openfile $fNam, euc;
}
else if (result == 3) {
	call ReOpen;
	openfile $fNam, jis;
}
else if (result == 4) {
	call ReOpen;
	openfile $fNam, utf7;
}
else if (result == 5) {
	call ReOpen;
	openfile $fNam, utf8;
}
else {
	endmacro;
}

setwindowpos #winX, #winY;
moveto #posX, #posY;
endmacro;

ReOpen:
	newfile;
	closehidemaru findhidemaru($fNam);
	return;