ステタスバーに文字を流す（２）

サンプル
<HEAD>
<TITLE></TITLE>
<SCRIPT language="JavaScript">
<!--
var stmrID = null;
var spos = 80;
function ScrollStatus(msg, delay)
{
if (typeof delay == "undefined") delay = 100;

window.clearTimeout(stmrID);

var statmsg = "";
if (spos >= 0)
{
for (s = 0; s < spos; s++)
{
statmsg += " ";
}

statmsg += msg;
}
else
{
statmsg = msg.substring(-spos, msg.length);
}

window.status = statmsg;

spos = (-spos > msg.length) ? 80 : spos - 1;

fname = "ScrollStatus('" + msg + "')";
stmrID = window.setTimeout(fname, delay);
}

//-->
</SCRIPT></HEAD>
<BODY>
<SCRIPT language="JavaScript">
ScrollStatus('１より少々スムーズに流れますね');
</SCRIPT>
</BODY>
コピー・ペーストで使って下さい。