copy;
#x = x;
#y = y;
#org_handle = hidemaruhandle(0);
$org_search_strings = searchbuffer;
#org_search_option = searchoption;

disabledraw;
searchup "^\\[[0-9:]*\\]",regular;
if (result) {
	beginsel;
	gokakko;
	getsearch;
	escape;
	$page = searchbuffer;
} else {
	#imestate = imestate;
	if (#imestate) imeswitch;
	$page = input("Please input page number.");
	if (#imestate) imeswitch;
	if ($page == "") endmacro;
}

if (rightstr(basename, 3) =="cit") {
	$label = "{" + leftstr(basename, strstr(basename, "."));
	openfile "/h /r " + getenv("DATA") + "booklist2.bib";
	#stelthbib = hidemaruhandle(0);
	disabledraw;
	gofiletop;
	searchdown $label + "=";
	if (result) {
		right;
		beginsel;
		searchdown "=";
		getsearch;
		escape;
		$label = searchbuffer;
	addclipboard "\\footnote{\\cite" + $page + "]{" + $label + "}.}\x0D\x0A";
	} else {
		play "c:\\file\\wav\\cannon.wav";
	}
}
setactivehidemaru #org_handle;
closehidemaruforced #stelthbib;
setsearch $org_search_strings, #org_search_option;
moveto #x, #y;
enabledraw;
endmacro;