void
debug_pause(string msg)
{
	string arg;
	get_parm(1, arg, msg + " [enter] ");
	message("");
}

	// .... //

	else
	{
		term = getenv("BTERM");
		debug_pause("BTerm = " + term);
		if (term == "")
			term = lower(getenv("TERM"));
		if (term == "")
		{
			load_macro("tty/tty");
			debug_pause("tty/tty used");
		}
		else
		{
			debug_pause("Term = " + term);
			suf_list = split(term, "-");
			debug_pause("suf_list[0] = " + suf_list[0]);
			debug_pause("attempting to use tty/" + suf_list[0]);
			if (!load_macro("tty/" + suf_list[0]))
			{
				debug_pause("failed: using tty/tty");
				load_macro("tty/tty");
			}
		}
		len = length_of_list(suf_list);
	}

