            var del_str1;
            var del_str2;
            var write_str1;
            var write_str2;
            var work_str;
            var timercnt;
            var timerid;
            var prev_msgno = 0;
            var env_sw = 0;
            var chr_cnt;
            var msg_spd = 5;
            var msg = new Array();
            msg[0] = "";
            msg[1] = "初めて来訪された方は必見！";
            msg[2] = "詳細はここで調べてみよう！KARAT Home Pageへ";
            msg[3] = "過去の更新情報。たまに構文ミスがある。";
            msg[4] = "主催者のプロフィール。別になくてもよし。";
            msg[5] = "135タイトル掲載中 最終更新:2004/11/26";
            msg[6] = "183タイトル掲載中 最終更新:2004/12/26";
            msg[7] = "10タイトル掲載中 最終更新:2003/04/12";
            msg[8] = "1タイトル掲載中 最終更新:2003/10/31";
            msg[9] = "11タイトル掲載中 最終更新:2004/04/27";
            msg[10] = "23タイトル掲載中 最終更新:2004/07/03";
            msg[11] = "改造コードのサーチ技法など 最終更新:2000/10/30";
            msg[12] = "PSのアセンブル言語について少々 最終更新:2001/01/05";
            msg[13] = "PS2-PAR・GBA-PARのコード暗号化等 最終更新:2002/12/05";
            msg[14] = "ゲームのシステム解析メモ 最終更新:2000/08/21";
            msg[15] = "諸事情により現在運用停止中m(_ _)m";
            msg[16] = "疑問点があったら調べる価値あり。ただし駄文に注意。";
            msg[17] = "複数のサイトで共同設置されているため、ローカルネタ禁止。";
            msg[18] = "参加者多し。初心者にも優しいシステム。";
            msg[19] = "やり応え十分、毎月24日は要チェック。";
            msg[20] = "目的のコードが見つからない場合はこちらで探そう。";
            msg[21] = "ゲーム関連の総合情報ならこちらが便利。";
            msg[22] = "登録サイト数:27 最終更新:2004/05/17";
            msg[23] = "登録サイト数:6 最終更新:2004/05/17";
            msg[24] = "登録サイト数:4 最終更新:2003/08/01";
            msg[25] = "当サイトのバナー 最終更新:2002/07/21";
            msg[26] = "返答が遅くなる場合多し。コードに関することは質問掲示板まで。";
            msg[27] = "当サイトでは主にゲーム改造コードの公開を行っております。";
            function setmsg(idx){
                if(idx >= 0 && idx <= 27 && idx != prev_msgno){
                    del_str1 = msg[prev_msgno];
                    del_str2 = get_emptystr(msg[prev_msgno]);
                    write_str1 = get_emptystr(msg[idx]);
                    write_str2 = msg[idx];
                    work_str = del_str1;
                    env_sw = 1;
                    chr_cnt = del_str1.length;
                    prev_msgno = idx;
                        if(document.all){
                            document.all("msgbox1").style.color="#88c";
                            document.all("msgbox1").style.background="#000";
                        }else if(document.getElementById){
                            document.getElementById("msgbox1").style.color="#88c";
                            document.getElementById("msgbox1").style.background="#000";
                        }
                    if(timerid){window.clearTimeout(timerid);}
                    timerid = window.setTimeout("prtmsg()", 50);
                }

            }

            function get_emptystr(instr){

                var i;
                var n;
                var ch;
                var outstr = "";

                n = instr.length;
                for(i=0;i<n;i++){
                    ch = instr.charAt(i);
                    if(ch >= " " && ch <= "|"){
                        outstr += " ";
                    }else{
                        outstr += "　";
                    }
                }
                return outstr;
            }

            function prtmsg(){

                var i;
                var n;
                var ch;
                var f = 0;
                var outstr = "";

                if(env_sw == 1){
                    n = del_str1.length;
                    for(i=0;i<n;i++){
                        ch = work_str.charAt(i);
                        if(ch == " " || ch == "　" || Math.random() < n / msg_spd / (chr_cnt + 1)){
                            outstr += del_str2.charAt(i);
                            f++;
                        }else{
                            outstr += del_str1.charAt(i);
                        }
                    }
                    work_str = outstr;
                    chr_cnt = n - f;
                }else{
                    n = write_str2.length;
                    for(i=0;i<n;i++){
                        ch = work_str.charAt(i);
                        if((ch != " " && ch != "　") || Math.random() < n / msg_spd / (chr_cnt + 1)){
                            outstr += write_str2.charAt(i);
                            f++;
                        }else{
                            outstr += write_str1.charAt(i);
                        }
                    }
                    work_str = outstr;
                    chr_cnt = n - f;
                }
                document.form1.msgbox1.value = outstr;
                timerid = window.setTimeout("prtmsg()", 50);

                if(chr_cnt <= 0){
                    if(env_sw == 2){
                        document.form1.msgbox1.value = outstr;
                        if(document.all){
                            document.all("msgbox1").style.color="#ee6";
                        }else if(document.getElementById){
                            document.getElementById("msgbox1").style.color="#ee6";
                        }
                        window.clearTimeout(timerid);
                        env_sw = 0;
                    }else{
                        env_sw = 2;
                        chr_cnt = write_str1.length;
                        work_str = write_str1;
                    }
                }

            }

