function coreaddr(miname,micite,xt,inname) {
			// inname is not currently used
			str = String.fromCharCode((30 * 2) + 4);

			switch (xt) //equivalent translations in _emblock.inc
			{ 
			   case 1 : pd = ".c"; miend =  "om"; break; 
			   case 2 : pd = ".n"; miend =  "et"; break; 
			   case 3 : pd = ".o"; miend =  "rg"; break;
			   case 4 : pd = ".b"; miend =  "iz"; break;
			   case 5 : pd = ".u"; miend =  "s"; break;
			   case 6 : pd = ".i"; miend =  "nfo"; break;
			   case 7 : pd = ".e"; miend =  "du"; break;
			   case 8 : pd = ".m"; miend =  "il"; break;
			   case 9 : pd = ".c"; miend =  "a"; break;
			   default : alert("Missing e-mail extension (e.g., '.com')");
			}
			return miname+str+micite+pd+miend;
		}

		function misend(miname,micite,xt,inname) { //also see showadd() function below
			window.open ('ma'+'ilt'+'o:'+coreaddr(miname,micite,xt,inname),"_self");
		}

		function showadd(miname,micite,xt,inname) { // also see misend() function above
			alert(coreaddr(miname,micite,xt,inname));
		}

		function nospam() {
			miname= "ayresv" ;
			micite= "egr.msu" ;
			str = "@"; pd = ".e";
			window.open ('ma'+'ilt'+'o:'+miname+str+micite+pd+'du',"_self");
		}