var fDesc=new Array();
fDesc[0] = "XLISP is a family of Lisp implementations written by David Betz. <br /> XLISP 3.0 is a superset of the Scheme dialect of Lisp with extensions to support object-oriented programming.<br /> Eventually, this page will contain information about XLISP and my other projects.";

function tShowHide(id, show)
{
	var s = document.getElementById("desc");

	if ((s.innerHTML.length<=212 || show==1) && show!=2)
	{
		s.innerHTML = fDesc[id];
		if (document.getElementById('m1'))
			document.getElementById('m1').style.display='none';
		if (document.getElementById('m2'))
			document.getElementById('m2').style.display='none';
		if (document.getElementById('more_txt'))
			document.getElementById('more_txt').style.display='inline';
	}
	else
	{
		s.innerHTML = '';
	}
}