  <!--
  // Scrolling message settings
  var MessageText = "*　Netscape4.7以下のブラウザをお使いの方は御覧になれません(^^;　*"
  var DisplayLength = 1030
  var pos = 1 - DisplayLength;
  function ScrollInStatusBar(){
  var scroll = "";
  pos++;
  if (pos == MessageText.length) pos = 1 - DisplayLength;
  if (pos<0) {
  	for (var i=1; i<=Math.abs(pos); i++)
  	scroll = scroll + "";
  	    scroll = scroll + MessageText.substring(0, DisplayLength - i + 1);
  }
  else
      scroll = scroll + MessageText.substring(pos, pos + DisplayLength);
  window.status = scroll;
  //Scrolling speed
  setTimeout("ScrollInStatusBar()",0);
  }
  ScrollInStatusBar()
  //-->

<!--
<!--
document.write("<img src='http://www.morimoriworld.com/cgi/access/report.cgi?");
document.write(screen.width);
document.write("x");
document.write(screen.height);
document.write("&amp;");
document.write(parent.document.referrer);
document.write("' width='1' height='1' alt='' />");
// -->

function MM_swapImgRestore() { //v3.0
  var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;
}

function MM_findObj(n, d) { //v3.0
  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document); return x;
}

function MM_swapImage() { //v3.0
  var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)
   if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
}

function MM_showHideLayers() { //v3.0
  var i,p,v,obj,args=MM_showHideLayers.arguments;
  for (i=0; i<(args.length-2); i+=3) if ((obj=MM_findObj(args[i]))!=null) { v=args[i+2];
    if (obj.style) { obj=obj.style; v=(v=='show')?'visible':(v='hide')?'hidden':v; }
    obj.visibility=v; }
}

function MM_changeProp(objName,x,theProp,theValue) { //v3.0
  var obj = MM_findObj(objName);
  if (obj && (theProp.indexOf("style.")==-1 || obj.style)) eval("obj."+theProp+"='"+theValue+"'");
}
//-->