window.onload=appendix;
function appendix(){
	if (document.all) {sw=document.body.clientWidth;sh=document.body.clientHeight;}
		else {sw=window.innerWidth; sh=window.innerHeight;}
	qs="<hr><div style='position:absolute; top:"+(sh-50)+"; left:"+(sw-150)+"'>"
	qs+="<form name='fq'>"
	qs+="<select name='s' onmouseup='s.blur();FunctionDisplay(s.selectedIndex);' "
	qs+="onchange='FunctionDisplay(s.selectedIndex)'>"
	qs+="</select><br><font size='-2'> Display function source code</font>"
	qs+="</div></form>"
	qs+="<div align=left id='xtx' onclick=\"document.getElementById('xtx').style.visibility='hidden';\""
	qs+="style=\"background-color:#AADDAA;visibility:hidden; width:"+(sw-70)+"; border:'solid red 1px'\">"
	qs+="</div></div>"
	document.body.insertAdjacentHTML("BeforeEnd",qs);
	BM();
}
function BM(){
	scriptstring=document.all[5].text;
	fs="f"+"unction";
	Farray=scriptstring.split(fs);
	Farray.shift();
	option=new Array();
	for (i in Farray) {
		name=Farray[i].split("\n")[0];
		option[i]=document.createElement("Option");
		document.fq.s.options.add(option[i]);
		option[i].innerHTML=name;
	}
}
function FunctionDisplay(a){
	sq="<table><tr><td rowspan=2>"
	sq+="<textarea rows=10 cols=75>"+fs+Farray[a]+"</textarea></td>"
	sq+="<td width=100% height=20 align=right>&curren;</td></tr>"
	sq+="<tr><td>&nbsp;</td></tr></table>"
	document.getElementById("xtx").innerHTML=sq;
	document.getElementById("xtx").style.backgroundColor="lightyellow";
	document.getElementById("xtx").style.visibility="visible";
}