ステータスバーに一文字ずつ文字を流す

下のバーを見て下さい。

サンプル
<HEAD>
<TITLE>ステータスバーに一文字ずつ文字を流す</TITLE>
<SCRIPT language="JAVASCRIPT">

<!--
TE1="こういう風になります"
TE2="ホームを押せば戻りますよ。"
TE3="・・・・・分かりましたか?"

M=TE1;
cnt=0;
TID=0;
function TYPE(){
status=M.substring(0,cnt++)
if(cnt-10==M.length && M==TE1){cnt=0;M=TE2;}
if(cnt-10==M.length && M==TE2){cnt=0;M=TE3;}
if(cnt-10==M.length && M==TE3){cnt=0;M=TE1;}
clearTimeout(TID);
TID=setTimeout("TYPE()",150);
}
TYPE();
// -->
</SCRIPT></HEAD>
TE1="こういう風になります"
TE2="ホームを押せば戻りますよ。"
TE3="・・・・・分かりましたか?"
を好きに変えて下さい。

ソースを利用したら、http://www.act2cool.com/html/へリンクの協力を御願い致します。