$ext = rightstr(filename, 3);
if ($ext=="lst" && (!imestate)) imeswitch;
if ($ext=="bib" && imestate) imeswitch;
START:
gofiletop;
$KEY = input("input search word");
if ($KEY != "") {
	searchdown $KEY;
	if (result==no) {
		question "New entry?";
		if (result==yes) {
		beginclipboardread;
		setclipboard "texset:" + $KEY;
		execmacro "texset.mac";
		} else {
		goto START;
		}
	} else {
		endmacro;
	}
}