TOP /すぐに使えるJavaScript スライドメニュー(IE5〜 NN6〜)

<style type=text/css><!--
/*メニューのスタイル*/
#menu table{
color:#ffffff;
background-color:#6688ff;
font: bold 12pt Times New Roman;
border-collapse:collapse;
}
/*OPENボタンのスタイル*/
#point{
color:#ffffff;
background-color:#0000ff;
font: bold 10pt Times New Roman;
cursor:pointer;
}
/*リンクのスタイル*/
#menu A{
color:#ffffff;
text-decoration:none;
}
#menu{position:absolute;top:0px;left:0px;z-index:1;}
--></style>
<script language="JavaScript"><!--
linkset=new Array();
linkset[0]=["BBS","http://himajin.moo.jp/cool/favorite.cgi","何でも書いてね"];
linkset[1]=["Q&A","http://himajin.moo.jp/forum/wforum.cgi","Scriptの質問はこちらで"];
linkset[2]=["Mail","mailto:メールアドレス","HIMAJIN"];
     //増やす時は linkset[連番]=["表示文字","アドレス","チップテキスト"];

linkw=100;           //メニュー1つの横幅
modif=1;             //修正値(表示位置)
//--------------------------------------------------------
document.write("<div id='menu'style='width:"+(linkset.length*linkw)+"'><table><tr>");
document.write("<td width=10></td>");
for(i in linkset){
tiptext=(linkset[i][2])?"title="+linkset[i][2]:"";
document.write("<td width="+linkw+">□ <a href='"+linkset[i][1]+"'"+tiptext+">"+linkset[i][0]+"</td>");
}
document.write("<td id='point'width=50 onclick='mflag=!mflag;Menuopen();'>CLOSE</td></tr></table></div>");

mflag=0;
pointL=-document.getElementById("point").offsetLeft;
posL=pointL+modif;
Mobj=(document.all)?document.all("menu"):document.getElementById("menu");
Pobj=(document.all)?document.all("point"):document.getElementById("point");
function Menuopen(){
Mobj.style.left=posL+"px";
if(!mflag){posL+=10;Pobj.innerHTML="CLOSE";}
else{posL-=10;Pobj.innerHTML="OPEN";}
if((posL<0 && !mflag)||(posL>pointL && mflag))
setTimeout("Menuopen()", 30)
}
function Menu(){
if(document.all){
Mobj.style.top=document.body.scrollTop;
}else{
Mobj.style.top=pageYOffset+"px";
}}
onscroll = Menu;
onload=Menuopen;/*himajin.moo.jp*/
// --></script>