/*
《《《《《《《　　　ネットスケープ３を使っている方は、このファイルが全部表示されるのを待ち　　　》》》》》》》
《《《《《《《　　　　　ブラウザの再表示（リロード）ボタンを押してくださいしてください　　　　　》》》》》》》
*/
var VER=Version = "たてがき君";
/*
・IE6.0/5.5SP1/5.5/5.01(+IE4互換モード)/3.0, N6e/6.1j/6.2j, NC4.01e/4.05j/4.51j/4.6j/4.7j, NN3.03e の各win版で縦書き基本表示の動作確認。
・IE6/N6のstrct DTD対応。
・IE3/NC4.05以下では「半角->全角」機能を強制的にonとしている（length対策）。
・本スクリプトはフリー、且つ自由改変可。但し、著作権を留保するとともに、本スクリプトによる如何なる障害も免責とさせていただきます。
・再配布は、無改造、且つ出典を明らかにする場合のみ許可いたします。
  by 縦の会（Ojisam）ご感想は e-mail:<ojisam@hotmail.com>
*/
var KINSOKU_BEG="。．、，」』）｝】〕］＞》≫";//行頭禁則処理-ぶら下がり
var KINSOKU_END="「『（｛【〔［＜《≪";//行末禁則処理-次行送り
var URL="";
var h2z_on = 1; // 「半角->全角」変換機能の 1:on、0:off
var KANSU=0;//漢数字変換
var HZ12=1;//半角2字数字無変換on/off
var _isOLD=isOLD=0;//Win版IE2、NN3以前の旧ブラウザ対応 on/off 初期値
var _FCOL=FCOL="#000000";//字色
var _BGC=BGC = "#DCDCDC";//背景色
var _BGP=BGP="";//背景画像
var _FONT=FONT="'ＭＳ 明朝'"; //等幅フォント指定。
var _MacIE=MacIE=",monospace";//MAC
var TAB = "　　";//タブ置換
var _JKAN=JKAN=1;//字間隔初期値
var WAKU=0;//縦書枠
var BOLD=0;//太字
var K_TATE=0;//完縦
var PAGE=1;//頁番
var _HR_=_HR="<HR>",HR=0;//水平
var BGCOL=0;//背景色バー 分身の術のみ
var CONV=0;
var FSTLie=FSTLnc=FSTLtp="";
var FSZ = " size=3"; // NN3以下に有効 2/3/4で小/中/大程度かな（ブラウザでの設定に依存）
var FSZ_n,FSZ_i;
var ORIG,HTML;
var DEBUG=0;
var _GYO_KAN=GYO_KAN="  "; //半角スペース2つ 改変不可
var INI_ = 1;//iniGlobal()
var PG=new Array();//for each page
var PGlast=0;//ttl page
var PLUGIN=0;//Plug-in方式（ページめくり）
var SPEED=0;//speed up（縦書計算skip）
var CR="\n"
var uAgent = navigator.userAgent;
if(uAgent.indexOf("Win")>-1){CR="\r\n";}
var BETU=0;//別画面表示
var isIE3=0;
if(navigator.appVersion.charAt(0)==2&&navigator.appName.substring(0,3)=='Mic'){isIE3=1;}
var MUSUN=0;//無寸
var isIE4=isIE5=isIE55=0;//for IE4/5.0/5.5
var isN6=0;
var style_IE55="";//for IE4/5.5
var PlugPG;//page for Plug-in
var RETURN="";//戻るリンク
var BgcShow=HelpShow=KanseiShow=0;
var TMidKakko=window.setTimeout("",0);
var isFSO=0,FILE="";
var LINK=0;//リンク君
var LINK_URL=SPOT_FCOL='';//リンク君URL/字色
var KPG=_KPG=2;//改ページ認識
var TITLE='たてがき君〜変身の術';
function iniGlobal () {
 _h2z_auto=h2z_auto=400*100; // h2z_onを無効化する元文書文字数
 MOJI = 20;  // Default文字数
 GYOO = 20;  // Default行数/頁
 opt1N = 4;  // Min文字数
 opt1X = 50; // Max文字数
 opt2N = 5;  // Min行数/頁
 opt2X = 40; // Max行数/頁
 if ("あ".length == 1) {BAR = "―\?".substring(0,1); }
 else { BAR = "―\?".substring(0,2); }
 if(document.frm){
  ORIG=take_CR(document.frm.str.value);
  if(navigator.appVersion.charAt(0)>=5){document.frm.str.value;}// for N6
  else{window.setTimeout("document.frm.str.value=ORIG",0);}
 }
 HTMLnew="";
}
function seikei(txt,opt1,opt2,opt3,opt4,opt5,opt6,opt7){
 var str=_seikei(txt,opt1,opt2,opt3,opt4,opt5,opt6,opt7);
 if(isIE4){TMidKakko=window.setTimeout("kakko_move()",0);}
 return "<span><\/span>"+str;//span for old version
}
function _seikei(txt,opt1,opt2,opt3,opt4,opt5,opt6,opt7){
 var ie1=uAgent.indexOf('MSIE');
 var ieV=(ie1>-1)?(uAgent.substring(ie1+5,ie1+8)):'';
 if(ie1>-1&&ieV>=6){isIE4=isIE55=1}
 else if(uAgent.indexOf("MSIE 5.5")>-1){isIE4=isIE55=1}
 else if(uAgent.indexOf("MSIE 5")>-1){isIE4=isIE5=1}
 else if(uAgent.indexOf("MSIE 4")>-1){isIE4=1}
 else if(uAgent.indexOf("Gecko")>-1){isN6=isIE4=isIE5=1;if(BOLD==1){BOLD=0}}
 var spc="          ";
 _chg_hr(HR);
 if(INI_){iniGlobal();INI_ = 0;}
 if (opt4!=null&&opt4!=""){JKAN=opt4;}
 if (opt5!=null&&opt5!=""){GYO_KAN+=spc.substring(0,opt5);}
 if (opt7!=null&&opt7!=""){WAKU=1;}
 if(BOLD==1&&!isIE4&&!isIE55){if(K_TATE==0){K_TATE=1;}}
 if(BGCOL==0){return tatecon(txt,opt1,opt2,opt3,opt6,1);}
 else{return put_bgCol()+tatecon(txt,opt1,opt2,opt3,opt6,1);}
}
function take_CR(str){
 var beg=str.substring(0,2);
 var end=str.substring(str.length-2,str.length);
 if(beg=="\r\n"){str=str.substring(2,str.length);}
 else if((beg=str.substring(0,1))=="\r"||beg=="\n"){str=str.substring(1,str.length);}
 if(end=="\r\n"){str=str.substring(0,str.length-2);}
 else if((end=str.substring(str.length-1,str.length))=="\r"||end=="\n"){str=str.substring(0,str.length-1);}
 return str;
}
function tate (text_in,opt1,opt2,last_block) {
 CONV=0;//変換中
 now0 = new Date(); // for Debug
 now0 = now0.getTime();
 opt1-=0;opt2-=0;// safety for number
 if (INI_) { iniGlobal(); INI_ = 0; }
 if ("あ".length==2){h2z_on=1;}
 else if (text_in.length > h2z_auto) { h2z_on = 0; }
 var text = "";
 var charX = "";
 var charP = "";
 var space = "";
 var mojisuu;
 var i,j;
 var markR = 0;
 var RN = "я";// 改行コード用 dummy 0x8491
 var NextPage="ы";
 var bz = "あ".length;
 var txtlen=0;
 var cCode;
 if(opt1>=opt1N&&opt1<=opt1X){opt1=opt1}
 else{opt1=MOJI}
 mojisuu=opt1;
 text_in=H2Z(text_in);
 text_in=subs(text_in,"\r\n",RN,-1);// use only RN
 text_in=subs(text_in,"\n",RN,-1);// use only RN
 text_in=subs(text_in,"\r",RN,-1);// use only RN
 text_in=nxtPage(text_in,KPG,RN,NextPage);
 if(K_TATE>0){text_in=go_kan_tate(text_in)}
 for (i=0;i<(text_in.length/bz);i++) {
  charX=text_in.substring(bz*i,bz*(i+1));
  charP=text_in.substring(bz*(i-1),bz*i);
  if(bz==1){
   if(isIE3==0&&0<(cCode=charX.charCodeAt(0))&&cCode<127){i++;charX+=text_in.substring(bz*i,bz*(i+1));}
  }
  if(charX==NextPage){
   var add_kuu=opt2*(1+mojisuu)-txtlen%(opt2*(1+mojisuu));
   if(add_kuu!=opt2*(1+mojisuu)){
    space="";
    for(j=0;j<add_kuu;j++){space+="　";}
   }
    text += space;txtlen+=space.length/bz;
  }
  else if(charX==RN) {
   space = "";
   if(((txtlen % (mojisuu+1)!=0)||(charP==RN))&&i!=markR+1){
    for(j=0;j<=mojisuu-txtlen % (mojisuu+1);j++){space+="　"}
   }
   text+=space;txtlen+=space.length/bz;
  }
  else if(((txtlen % (mojisuu+1))==mojisuu)&&txtlen!=0){//行頭禁則処理-ぶら下がり
   if(KINSOKU_BEG.indexOf(charX)>-1){
    text+=charX;txtlen++;
    markR=i;//「行末時の改行無視」のためのマーク
   }
   else if(charX=="々"){text+="　"+text.substring(text.length-1,text.length);txtlen+=2;}//各々⇒各各
   else{text+="　"+charX;txtlen+=2;}
  }
  else if((txtlen % (mojisuu+1))==mojisuu-1){//行末禁則処理-次行送り
   if(KINSOKU_END.indexOf(charX)>-1){
    text+="　　"+charX;
    txtlen+=3;
   }
   else{text+=charX;txtlen++;}
  }
  else{text+=charX;txtlen++;}
 }
 space="";
 if(txtlen % (mojisuu+1)!=0){for(j=0;j<=mojisuu-txtlen%(mojisuu+1);j++){space+="　"}}
 text += space; txtlen+=space.length/bz;
 if(last_block){//最後のブロックの大きさ揃え用空行付加
   var add_kuu=opt2*(1+mojisuu)-txtlen%(opt2*(1+mojisuu));
  if(add_kuu!=opt2*(1+mojisuu)&&txtlen>(mojisuu+1)*opt2){
   space="";
   for(i=0;i<add_kuu;i++){space+="　";}
   text += space;
  }
 }
 return tategaki(text,1+mojisuu,opt2);
}
function nxtPage(txt,num,rn,key){
 var j,k,tgt;
 if(num>0){
  for(j=num+5;j>=num;j--){
   tgt=rn;
   for(k=0;k<j;k++){tgt+=rn}
   txt=subs(txt,tgt,key,-1);
  }
 }
 return txt;
}
function tategaki(text_in,opt1,opt2) {
 var text="";
 var mojisuu;
 var gyo_ini,gyo;
 var q=new Array()
 var i,nn,mm;
 var xxx="";
 var bz="あ".length;
 var txt_out="";
 var gyoX=mojX=block=0;
 var dum="";
 if(opt1>=opt1N&&opt1<=opt1X){mojisuu=opt1}
 else{mojisuu=MOJI}
 if(opt2>=opt2N&&opt2<=opt2X){gyo=opt2}
 else{gyo=GYOO}
 for(i=0;i<mojisuu;i++){q[i]=""}
 for(i=0;i<text_in.length;i++){
  dum=text_in.charAt(i);
  if(bz==2){q[gyoX]=text_in.substring(i,i+bz)+GYO_KAN+q[gyoX];i+=bz-1;}
  else if(isIE3==0&&dum.charCodeAt(0)<127){q[gyoX]=text_in.substring(i,i+2)+GYO_KAN+q[gyoX];i++;}
  else{q[gyoX]=dum+GYO_KAN+q[gyoX];}
  mojX++;gyoX++;
  if(gyoX==mojisuu){
   gyoX=0;
   if(mojX>0&&mojX%(gyo*mojisuu)==0||i==text_in.length-1){
    for (nn=0;nn<mojisuu;nn++) {
     if(DEBUG){if(nn<10){xxx="　0"+nn;}else{xxx="　"+(nn+1)}}
     else{xxx="  ";}
     text+="　  "+q[nn]+xxx+CR;// nn for debug
     q[nn]="";//初期化
    }
    if(isIE55==1){PG[block]=chikan_IE55(text);PGlast=block+1;}//for IE5.5
    else{PG[block]=chikan(text);PGlast=block+1;}
    block++;
    text="";//初期化
   }
  }
 }
 //(FONT-SIZE,LINE-HEIGHT) → 最小()、小(14,14)、中()、大()、最大
 txt_out = _HR+CR+style_IE55+put_html(PG,PGlast-1,"main",mojisuu,gyo,gyo_ini);
 CONV=1;
 return  txt_out;
}
function put_html(ary,num,opt,mojisuu,gyo,gyo_ini){
 var i;
 var txt="";
 var TitleTop="";
 var TitleBot="";
 var f_face="";
 if(FONT!=""){f_face=" face="+FONT;}
 var bdr="";
 if(WAKU==1){bdr=" border=\"1\"";}
 var bold_b="",bold_e="";
 if(BOLD==1){var bold_b="<B>";bold_e="<\/B>";}
 var _bgcol="";
 if(BGC!=""){_bgcol=" bgColor='"+BGC+"'";}
 var _bground=""
 if(BGP!=""){_bground=" backGround='"+BGP+"'";}
 var _fcol="";
 if(FCOL!=""){_fcol=" color=\""+FCOL+"\"";}
 var TT_beg_1 = "<CENTER>"+"<TABLE"+_bgcol+_bground+bdr;
 var TT_beg_2 = "><TR><TD align='cneter'>"+"<PRE"+FSTLnc+"><FONT"+FSZ+_fcol+f_face+ FSTLie +">"+bold_b+"　"+CR;
 var TT_beg0 =
  "<CENTER>"+
  "<TABLE"+_bgcol+"><TR><TD align='center'>" +
  "<FONT" + FSZ+_fcol + f_face + FSTLtp + ">";
 var TT_end = bold_e+"<\/FONT><\/PRE><TATE><\/TATE><\/TD><\/TR><\/TABLE><\/CENTER>";
 var TT_endE = bold_e+"<\/FONT><\/PRE><TATE><\/TATE><\!-- "+Version+URL+" --\><\/TD><\/TR><\/TABLE><\/CENTER>";
 var TT_end0 = "<\/FONT><\/TD><\/TR><\/TABLE><\/CENTER>"+CR;
 var _ver="";
 if(VER!=""){_ver=VER+"<BR>";}
 TitleTop =TT_beg0 + _ver +"<A href=\"#a1\">START<\/A>"+ TT_end0;
 
 if(opt=="plug"){for(i=0;i<=num;i++){ary[i]=TT_beg_1+TT_beg_2 + ary[i] + TT_end;}return ary;}
 if(opt=="main"){
  for(i=0;i<=num;i++){
   if(i==num){TT_end=TT_endE}
   txt+="<A name=\"a" + (i+1) + "\"><\/A>" +TT_beg_1+" onClick=\"location.replace('#a"+(i+2)+"')\""+TT_beg_2 + ary[i] + TT_end;
   if(PAGE==1){
    txt += CR+TT_beg0 + 
     "<A href=\"#a" + PGlast + "\">END<\/A> " +
     "<A href=\"#a1\">TOP<\/A> " +
     " (P." + (i+1) + ") " +
     "<A href=\"#a" + (i) + "\">BACK<\/A> " +
     "<A href=\"#a" + (i+2) + "\">NEXT<\/A>"+
     TT_end0 +_HR+CR;
   }
   else{txt+=_HR+CR;}
  } 
  if(PAGE){txt=TitleTop+_HR+txt;}
  if(DEBUG){
   var now1 = new Date();
   now1 = now1.getTime();
   now1 -= now0;
   now1 = Math.round(now1/100)/10;
   var ji_kan="字間："+JKAN;//【標準】→【幅広1】→【幅広2】→【幅広3】→【幅狭】
   if(JKAN==0){ji_kan+="【幅狭】";}else if(JKAN==1){ji_kan+="【標準】";}else{ji_kan+="【幅広"+(JKAN-1)+"】";}
   ji_kan+="　行間："+(GYO_KAN.length-2)+"<br>";
   if(KANSU!=0){ji_kan+="　漢数字：on "+KANSU;}else{ji_kan+="　漢数字：off";}
   var kantate="";
   if(K_TATE){kantate="　完縦:"+K_TATE+" on";}else{kantate="　完縦：off";}
   TitleBot = TT_beg0 + now1 + "秒　" + "半→全 " + h2z_on + "(0:off 1:on)<BR>"+ji_kan+kantate+"<BR>"+
    (mojisuu -1) + "(+1)字　" + gyo +" 行/段（合計" + gyo_ini + "行）<BR>"+
    Version + "<BR>"+"<I>縦の会 All rights reserved. 2000<\/I>" + TT_end0 + _HR+CR;
   txt+=TitleBot;
  }
 }
  SPEED=0;
  return txt;
}
function chikan (txt) {
 txt = subs(txt,"≪","《",-1);
 txt = subs(txt,"≫","》",-1);
 txt = subs(txt,"─",BAR,-1);
 if(isIE4&&navigator.userAgent.indexOf(' compat')==-1&&!isN6){
  var spaIE4="<\/span>　";
  if(!isIE5){spaIE4="<\/span><pre style=\"font-family:"+FONT+"\">　";}
  txt = subs(txt,"ぁ","<span class=small>ぁ"+spaIE4,-1);
  txt = subs(txt,"ぃ","<span class=small>ぃ"+spaIE4,-1);
  txt = subs(txt,"ぅ","<span class=small>ぅ"+spaIE4,-1);
  txt = subs(txt,"ぇ","<span class=small>ぇ"+spaIE4,-1);
  txt = subs(txt,"ぉ","<span class=small>ぉ"+spaIE4,-1);
  txt = subs(txt,"っ","<span class=small>っ"+spaIE4,-1);
  txt = subs(txt,"ゃ","<span class=small>ゃ"+spaIE4,-1);
  txt = subs(txt,"ゅ","<span class=small>ゅ"+spaIE4,-1);
  txt = subs(txt,"ょ","<span class=small>ょ"+spaIE4,-1);
  txt = subs(txt,"ゎ","<span class=small>ゎ"+spaIE4,-1);
  txt = subs(txt,"ァ","<span class=small>ァ"+spaIE4,-1);
  txt = subs(txt,"ィ","<span class=small>ィ"+spaIE4,-1);
  txt = subs(txt,"ゥ","<span class=small>ゥ"+spaIE4,-1);
  txt = subs(txt,"ェ","<span class=small>ェ"+spaIE4,-1);
  txt = subs(txt,"ォ","<span class=small>ォ"+spaIE4,-1);
  txt = subs(txt,"ッ","<span class=small>ッ"+spaIE4,-1);
  txt = subs(txt,"ャ","<span class=small>ャ"+spaIE4,-1);
  txt = subs(txt,"ュ","<span class=small>ュ"+spaIE4,-1);
  txt = subs(txt,"ョ","<span class=small>ョ"+spaIE4,-1);
  txt = subs(txt,"ヮ","<span class=small>ヮ"+spaIE4,-1);
  txt = subs(txt,"“","<span class=kag>“"+spaIE4,-1);
  txt = subs(txt,"。 "," <span class=ten1>゜"+spaIE4,-1);
  txt = subs(txt,"、 "," <span class=ten2>｀"+spaIE4,-1);
  txt = subs(txt,"， "," <span class=ten2>｀"+spaIE4,-1);
  txt = subs(txt,"（","<span class=t0>⌒"+spaIE4,-1);
  txt = subs(txt,"）","<span class=t1>⌒"+spaIE4,-1);
  txt = subs(txt,"〔","<span class=t0>⌒"+spaIE4,-1);
  txt = subs(txt,"〕","<span class=t1>⌒"+spaIE4,-1);
  txt = subs(txt,"［","<span class=t0>⌒"+spaIE4,-1);
  txt = subs(txt,"］","<span class=t1>⌒"+spaIE4,-1);
  txt = subs(txt,"【","<span class=tt0>⌒"+spaIE4,-1);
  txt = subs(txt,"】","<span class=tt1>⌒"+spaIE4,-1);
  txt = subs(txt,"《","<span class=tt0>⌒"+spaIE4,-1);
  txt = subs(txt,"》","<span class=tt1>⌒"+spaIE4,-1);
 }
 else{
  if(isN6){
   txt = chikan_N6(txt);
   spaIE4="<\/span>";
   var posi=" style='position:relative'";
   txt = subs(txt,"ぁ","<span class=small"+posi+">ぁ"+spaIE4,-1);
   txt = subs(txt,"ぃ","<span class=small"+posi+">ぃ"+spaIE4,-1);
   txt = subs(txt,"ぅ","<span class=small"+posi+">ぅ"+spaIE4,-1);
   txt = subs(txt,"ぇ","<span class=small"+posi+">ぇ"+spaIE4,-1);
   txt = subs(txt,"ぉ","<span class=small"+posi+">ぉ"+spaIE4,-1);
   txt = subs(txt,"っ","<span class=small"+posi+">っ"+spaIE4,-1);
   txt = subs(txt,"ゃ","<span class=small"+posi+">ゃ"+spaIE4,-1);
   txt = subs(txt,"ゅ","<span class=small"+posi+">ゅ"+spaIE4,-1);
   txt = subs(txt,"ょ","<span class=small"+posi+">ょ"+spaIE4,-1);
   txt = subs(txt,"ゎ","<span class=small"+posi+">ゎ"+spaIE4,-1);
   txt = subs(txt,"ァ","<span class=small"+posi+">ァ"+spaIE4,-1);
   txt = subs(txt,"ィ","<span class=small"+posi+">ィ"+spaIE4,-1);
   txt = subs(txt,"ゥ","<span class=small"+posi+">ゥ"+spaIE4,-1);
   txt = subs(txt,"ェ","<span class=small"+posi+">ェ"+spaIE4,-1);
   txt = subs(txt,"ォ","<span class=small"+posi+">ォ"+spaIE4,-1);
   txt = subs(txt,"ッ","<span class=small"+posi+">ッ"+spaIE4,-1);
   txt = subs(txt,"ャ","<span class=small"+posi+">ャ"+spaIE4,-1);
   txt = subs(txt,"ュ","<span class=small"+posi+">ュ"+spaIE4,-1);
   txt = subs(txt,"ョ","<span class=small"+posi+">ョ"+spaIE4,-1);
   txt = subs(txt,"ヮ","<span class=small"+posi+">ヮ"+spaIE4,-1);
   txt = subs(txt,"“","<span class=kag"+posi+">“"+spaIE4,-1);
   txt = subs(txt,"。 "," <span class=ten1"+posi+">゜"+spaIE4,-1);
   txt = subs(txt,"、 "," <span class=ten2"+posi+">｀"+spaIE4,-1);
   txt = subs(txt,"， "," <span class=ten2"+posi+">｀"+spaIE4,-1);
  }
  else{
   txt = subs(txt,"。 "," ゜",-1);
   txt = subs(txt,"、 "," ｀",-1);
   txt = subs(txt,"， "," ｀",-1);
  }
  txt = subs(txt," （ ","┌┐",-1);
  txt = subs(txt," ） ","└┘",-1);
  txt = subs(txt," 〔 ","┌┐",-1);
  txt = subs(txt," 〕 ","└┘",-1);
  txt = subs(txt," ［ ","┌┐",-1);
  txt = subs(txt," ］ ","└┘",-1);
  txt = subs(txt," 【 ","┏┓",-1);
  txt = subs(txt," 】 ","┗┛",-1);
  txt = subs(txt," 《 ","┏┓",-1);
  txt = subs(txt," 》 ","┗┛",-1);
 }
 txt = subs(txt,"． "," ・",-1);
 txt = subs(txt,"「 "," ┐",-1);
 txt = subs(txt," 」","└ ",-1);
 txt = subs(txt,"『 "," ┓",-1);
 txt = subs(txt," 』","┗ ",-1);
 txt = subs(txt,"ー","−",-1);//順序注意
 txt = subs(txt,"‐","−",-1);//順序注意
 txt = subs(txt,BAR, "−",-1); //順序注意 escape for NC2/3/4.05,IE3
 txt = subs(txt,"｜",BAR,-1);//順序注意 escape for NC2/3/4.05,IE3
 txt = subs(txt,"−","｜",-1);//順序注意
 txt = subs(txt,"〜","∫",-1);//順序注意
 txt = subs(txt,"⇒","→",-1);//重要
 txt = subs(txt,"→","⇒",-1);//順序注意
 txt = subs(txt,"↓","я",-1);//順序注意
 txt = subs(txt,"↑","→",-1);//順序注意
 txt = subs(txt,"←","↑",-1);//順序注意
 txt = subs(txt,"⇒","↓",-1);//順序注意
 txt = subs(txt,"я","←",-1);//順序注意
 txt = subs(txt,"⊂","⇒",-1);//順序注意
 txt = subs(txt,"∩","я",-1);//順序注意
 txt = subs(txt,"⊃","∪",-1);//順序注意
 txt = subs(txt,"∪","⊂",-1);//順序注意
 txt = subs(txt,"⇒","∩",-1);//順序注意
 txt = subs(txt,"я","⊃",-1);//順序注意
 txt = subs(txt,"‥","…",-1);//順序注意
 txt = subs(txt,"：","‥",-1);//順序注意
 txt = subs(txt,"；","‥",-1);//順序注意
 txt = subs(txt,"…","：",-1);//順序注意
 txt = subs(txt,"＝","⇒",-1);//順序注意
 txt = subs(txt,"‖","＝",-1);//順序注意
 txt = subs(txt,"⇒","‖",-1);//順序注意
 txt = subs(txt,"＜","⇒",-1);//順序注意
 txt = subs(txt,"〈","⇒",-1);//順序注意
 txt = subs(txt,"｛","⇒",-1);//順序注意
 txt = subs(txt,"＞","я",-1);//順序注意
 txt = subs(txt,"〉","я",-1);//順序注意
 txt = subs(txt,"｝","я",-1);//順序注意
 txt = subs(txt,"∧","＞",-1);//順序注意
 txt = subs(txt,"∨","＜",-1);//順序注意
 txt = subs(txt,"⇒","∧",-1);//順序注意
 txt = subs(txt,"я","∨",-1);//順序注意
 return txt;
}
function chikan_N6(txt){
 if(navigator.userAgent.indexOf("Win")>-1){
  txt = subs(txt,"（","&#xfe35;",-1);
  txt = subs(txt,"）","&#xfe36;",-1);
  txt = subs(txt,"｛","&#xfe37;",-1);
  txt = subs(txt,"｝","&#xfe38;",-1);
  txt = subs(txt,"〔","&#xfe39;",-1);
  txt = subs(txt,"［","&#xfe39;",-1);
  txt = subs(txt,"〕","&#xfe3a;",-1);
  txt = subs(txt,"］","&#xfe3a;",-1);
  txt = subs(txt,"【","&#xfe3b;",-1);
  txt = subs(txt,"】","&#xfe3c;",-1);
  txt = subs(txt,"《","&#xfe3d;",-1);
  txt = subs(txt,"》","&#xfe3e;",-1);
  txt = subs(txt,"〈","&#xfe3f;",-1);
  txt = subs(txt,"〉","&#xfe40;",-1);
  txt = subs(txt,"「","&#xfe41;",-1);
  txt = subs(txt,"」","&#xfe42;",-1);
  txt = subs(txt,"『","&#xfe43;",-1);
  txt = subs(txt,"』","&#xfe44;",-1);
 }
 return txt;
}
function chikan_IE55(txt){
 txt = subs(txt,"─",BAR,-1);
 txt = subs(txt,"“","<span class=kag>“<\/span>　",-1);
 txt = _chikan_IE55(txt,"。",1);
 txt = _chikan_IE55(txt,"、",1);
 txt = _chikan_IE55(txt,"，",1);
 txt = _chikan_IE55(txt,"．",1);
 txt = _chikan_IE55(txt,"「");
 txt = _chikan_IE55(txt,"」",1);
 txt = _chikan_IE55(txt,"『");
 txt = _chikan_IE55(txt,"』",1);
 txt = _chikan_IE55(txt,"ー");//順序注意
 txt = _chikan_IE55(txt,"‐");//順序注意
 txt = _chikan_IE55(txt,BAR); //順序注意 escape for NC2/3/4.05,IE3
 txt = _chikan_IE55(txt,"｜");//順序注意 escape for NC2/3/4.05,IE3
 txt = subs(txt,"−","｜",-1);
 txt = _chikan_IE55(txt,"〜");
 txt = _chikan_IE55(txt,"〔");
 txt = _chikan_IE55(txt,"〕",1);
 txt = _chikan_IE55(txt,"［");
 txt = _chikan_IE55(txt,"］",1);
 txt = _chikan_IE55(txt,"（");
 txt = _chikan_IE55(txt,"）",1);
 txt = _chikan_IE55(txt,"【");
 txt = _chikan_IE55(txt,"】",1);
 txt = _chikan_IE55(txt,"《");
 txt = _chikan_IE55(txt,"》",1);
 txt = subs(txt,"⇒","→",-1);//重要
 txt = _chikan_IE55(txt,"→");
 txt = _chikan_IE55(txt,"↓");
 txt = _chikan_IE55(txt,"↑");
 txt = _chikan_IE55(txt,"←");
 txt = subs(txt,"⊂","⇒",-1);//順序注意
 txt = subs(txt,"∩","я",-1);//順序注意
 txt = subs(txt,"⊃","∪",-1);//順序注意
 txt = subs(txt,"∪","⊂",-1);//順序注意
 txt = subs(txt,"⇒","∩",-1);//順序注意
 txt = subs(txt,"я","⊃",-1);//順序注意
 txt = _chikan_IE55(txt,"‥");//順序注意
 txt = subs(txt,"：","‥",-1);//順序注意
 txt = subs(txt,"；","‥",-1);//順序注意
 txt = _chikan_IE55(txt,"…");
 txt = _chikan_IE55(txt,"＝");
 txt = _chikan_IE55(txt,"‖");
 txt = _chikan_IE55(txt,"〈");
 txt = _chikan_IE55(txt,"｛");
 txt = _chikan_IE55(txt,"〉",1);
 txt = _chikan_IE55(txt,"｝",1);
 txt = subs(txt,"＜","⇒",-1);//順序注意
 txt = subs(txt,"＞","я",-1);//順序注意
 txt = subs(txt,"∧","＞",-1);//順序注意
 txt = subs(txt,"∨","＜",-1);//順序注意
 txt = subs(txt,"⇒","∧",-1);//順序注意
 txt = subs(txt,"я","∨",-1);//順序注意
 txt = _chikan_IE55(txt,"っ");
 txt = _chikan_IE55(txt,"ッ");
 txt = _chikan_IE55(txt,"ゃ");
 txt = _chikan_IE55(txt,"ャ");
 txt = _chikan_IE55(txt,"ゅ");
 txt = _chikan_IE55(txt,"ュ");
 txt = _chikan_IE55(txt,"ょ");
 txt = _chikan_IE55(txt,"ョ");
 txt = _chikan_IE55(txt,"ぁ");
 txt = _chikan_IE55(txt,"ァ");
 txt = _chikan_IE55(txt,"ぃ");
 txt = _chikan_IE55(txt,"ィ");
 txt = _chikan_IE55(txt,"ぅ");
 txt = _chikan_IE55(txt,"ゥ");
 txt = _chikan_IE55(txt,"ぇ");
 txt = _chikan_IE55(txt,"ェ");
 txt = _chikan_IE55(txt,"ぉ");
 txt = _chikan_IE55(txt,"ォ");
 return txt;
}
function _chikan_IE55(txt,chg,opt){
 var b="<span class=tate style=\"position:absolute\">";
 if(opt){b="<span class=tate1 style=\"position:absolute\">"}
 var e="<\/span>　";
 return subs(txt,chg,b+chg+e,-1);
}
function NumToKan(str,opt){
// if(opt==null||opt==""){opt=3;}
 var i=j=1;
 var len=str.length;
 var pst=num=num0="";
 for(i=0;i<len;i++){
  while(_isnum(num=str.substring(i,i+j))==true&&i+j<=len){
   num0=num;
   j++;
  }
  if(j>1&&len){pst+=_kansuuji(num0,opt);i=i+j-2;}
  else{pst+=num;i=i+j-1;}
  j=1;
 }
 return pst;
}
function _isnum(str){
 var fig="0123456789";
 str+="";
 var i,tar,bug;
 for(i=0;i<str.length;i++){
  tar=str.substring(i,i+1);
  if((bug=fig.indexOf(tar))==-1){return false;}
 }
 return true;
}
function _kansuuji(str,opt){
 var len=str.length;
 var keta=new Array();
 var A="あ".length;
 keta[0]="";keta[1]="十\1".substring(0,A);keta[2]="百";keta[3]="千";
 var ketb=new Array();
 ketb[0]="";ketb[1]="万";ketb[2]="億";ketb[3]="兆";ketb[4]="京";ketb[5]="垓";ketb[6]="杼";
 ketb[7]="穰";ketb[8]="溝";ketb[9]="澗";ketb[10]="正";ketb[11]="載";ketb[12]="極";
 ketb[13]="恒河沙";ketb[14]="阿僧祇";ketb[15]="那由他";ketb[16]="不可思議";ketb[17]="無量大数";
 if(len>ketb.length*4){opt=ketb.length;}
 var num=new Array();
 num[0]="〇";num[1]="一";num[2]="二";num[3]="三";num[4]="四";num[5]="五";num[6]="六";num[7]="七";num[8]="八";num[9]="九";
 var txt="";
 var fig=0;
 var i;
 var j=0
 if((len<=opt||opt<0)&&str.substring(0,1)!="0"){
  for(i=0;i<len;i++){
   ka=(len-i-1)%4;
   kb=Math.floor((len-i-1)/4);
   fig=str.substring(i,i+1);
   fig-=0;//become num.
   if((fig==1&&ka!=0&&kb==0)||(fig==1&&kb>0&&(ka==1||ka==2))){txt+=keta[ka];j++;}
   else if(fig!=0){txt+=num[fig]+keta[ka];j++;}
   if(ka==0&&j>0){txt+=ketb[kb];j=0;}
  }
 }else{
  for(i=0;i<len;i++){
   fig=str.substring(i,i+1);
   txt+=num[fig];
  }
 }
 return txt;
}
function H2Z (txt) {
 txt = subs(txt," \r","\r",-1);//改行直前のspace取り
 txt = subs(txt," \n","\n",-1);//改行直前のspace取り
 txt = subs(txt,"  ","　",-1);
 txt = subs(txt," ","　",-1);
 txt = subs(txt,"--",BAR,-1); // escape for NC2/3/4.05,IE3
 txt = subs(txt,"==","＝",-1);
 txt = subs(txt,"**","＊",-1);
 txt = subs(txt,"++","＋",-1);
 txt = subs(txt,"\t",TAB,-1);
 if(KANSU){txt=NumToKan(txt,KANSU);}
 if (h2z_on == 1) { txt = h2z(txt,HZ12); }
 return txt;
}
function  h2z(str,opt){
 // by P,H,M '00/01/27版
 // modified by Ojisam '00/01/30 for speed up（ちょっと）など
 // opt=1 で「2桁数字」「!?二文字組」のみ変換せず by Ojisam '00/4/21
 if(K_TATE>0||isIE3==1){opt=0;}
 var pt,j,res,bz,chr;
 var Han;  // １バイト文字リスト
 var Zen;  // ２バイト文字リスト
 var bz;   // ブラウザが日本語対応？
 var K1S = "　".charAt(0); // 8140
 var K1E = "滌".charAt(0); // 9FFC
 var K2S = "漾".charAt(0); // E040
 var K2E = "�K".charAt(0); // FCFC（FC4Bを入れたら正常動作(^o^)丿by Ojisam）
 var CHK = "ｱ"; //この"ｱ"は半角。掲示板投稿時の自動全角変換機能チェック
 var num2=qst="";
 var tmp=tmpZ="";
 Han  = " !\"#$%&'()*+,-./0123456789:;<=>?";
 Zen  = "　！”＃＄％＆’（）＊＋，−．／０１２３４５６７８９：；＜＝＞？";
 Han += "@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_";
 Zen += "＠ＡＢＣＤＥＦＧＨＩＪＫＬＭＮＯＰＱＲＳＴＵＶＷＸＹＺ［￥］＾＿";
 Han += "`abcdefghijklmnopqrstuvwxyz{|}~";
 Zen += "‘ａｂｃｄｅｆｇｈｉｊｋｌｍｎｏｐｑｒｓｔｕｖｗｘｙｚ｛｜｝〜";
 Zen += "。「」、・ヲァィゥェォャュョッーアイウエオカキクケコサシスセソ\タ";
 Zen += "チツテトナニヌネノハヒフヘホマミムメモヤユヨラリルレロワン゛゜";
 if (CHK != "ア") {//この"ア"は全角
  Han += "｡｢｣､･ｦｧｨｩｪｫｬｭｮｯｰｱｲｳｴｵｶｷｸｹｺｻｼｽｾｿﾀ";   // ←※１すべて半角
  Han += "ﾁﾂﾃﾄﾅﾆﾇﾈﾉﾊﾋﾌﾍﾎﾏﾐﾑﾒﾓﾔﾕﾖﾗﾘﾙﾚﾛﾜﾝﾞﾟ";    // ←※１すべて半角
 }
 res = "";
 if( str != "" ){
  bz = "あ".length;
  for(j=0;j<str.length;j++){
   chr = str.charAt(j); 
   if( (pt = Han.indexOf(chr)) >= 0 ){
    pt *= bz;
    tmpZ=Zen.substring(pt,pt+bz);
    tmp+=tmpZ;
    if(opt==1){
     if(16<=pt/bz&&pt/bz<=25){
      num2+=""+chr;
     }
     else if(pt/bz==1||pt/bz==31){
      qst+=""+chr;
     }
     else{
      if((num2+qst).length!=2){res+=tmp;}
      else if(num2.length==2){res+=num2+tmpZ;}//半角二桁数字
      else if(qst.length==2){res+=qst+tmpZ;}//半角!?、?!、!!、??
      else{res+=tmp;}
      num2=qst=tmp=tmpZ="";
     }
    }
    else{res+=tmp;tmp=tmpZ="";}
   }
   else{
    if(opt){
     if((num2+qst).length!=2){res+=tmp;}
     else if(num2.length==2){res+=num2;}//半角二桁数字
     else if(qst.length==2){res+=qst;}//半角!?、?!、!!、??
     else{res+=tmp;}
     num2=qst=tmp=tmpZ="";
    }
    if(((chr>=K1S)&&(K1E>=chr))||((chr>=K2S)&&(K2E>=chr))){
     if( bz==2 ) {res += chr + str.charAt(++j);} // 日本語未対応ブラウザ→２バイト文字==２文字
     else {res += chr;} // 日本語　対応ブラウザ→２バイト文字==１文字
     continue;
    }
    else{res += chr;} // そのまま使う。
   }
  }
 }
 if((num2+qst).length!=2){res+=tmp;}
 else if(num2.length==2){res+=num2;}//半角二桁数字
 else if(qst.length==2){res+=qst;}//半角!?、?!、!!、??
 else{res+=tmp;}
 return  res;
}
function  subs(str,org,dist,num){
 var j,pt,bef;
 var res = "";
 if(org!="++"&&org!="**"&&navigator.appVersion.charAt(0)>4){
  var re=new RegExp(org,"g");
  return str.replace(re,dist);
 }
 for(j=0;(num>j)||(0>num);j++){
  if(str=="")break;// for NN2 重要!!
  if(0>(pt=str.indexOf(org)))break;
  bef=str.substring(0,pt);
  str=str.substring(pt+org.length,str.length);
  res+=bef+dist;
 }
 return res+str;
}
function tatecon (a,b,c,d,e,last_block) {
 b-=0;c-=0;d-=0;
 var nc=14.8,ie=14,n3=3,nc_lh=ie_lh=14+JKAN;
 MUSUN=0;
 if(d==0){MUSUN=1;if(K_TATE==0){K_TATE=1;SPEED=0;}}
 else if(d==-1){nc=10.8;ie=10;n3=2;nc_lh=ie_lh=10+JKAN;}
 else if(d==1){nc=12;ie=12;n3=3;nc_lh=ie_lh=12+JKAN;}
 else if(d==3){nc=16;ie=16;n3=4;nc_lh=ie_lh=17+JKAN;}
 else if(d==4){nc=18.8;ie=18;n3=4;nc_lh=ie_lh=20+JKAN;}
 else if(d==5){nc=20;ie=20;n3=5;nc_lh=ie_lh=22+JKAN;}
 if(e!=null){BGC=e;}else{BGC=_BGC;}
 if(last_block==null||last_block==""){last_block=0;};last_block-=0;
 FSZ=" size="+n3;
 FSZ_n=nc;
 FSZ_i=ie;
 FSTLie=" style=\"font-size:"+ie+"px;line-height:"+ie_lh+"px;font-family:"+FONT+MacIE+";\"";
 FSTLnc=" style=\"font-size:"+nc+"px"+";line-height:"+nc_lh+"px;margin-top:0\"";
 FSTLtp=" style=\"font-size:"+ie+"px;\"";
 if(MUSUN==1&&d==0){FSZ=FSTLie=FSZ_i=FSZ_n="";FSTLnc=" style=\"font-family:'ダミー';font-size:1em\""}
 if(_isOLD>=2){isOLD=_isOLD=0}
 if(isOLD){FSTLie=FSTLnc=" style=\"font-size:10pt\"";BGP="";}
 if(_isOLD>0){_isOLD+=1}
 if(isIE55){style_IE55="<STYLE>SPAN.kag{position:absolute;width:"+(ie)+"px;}SPAN.tate,SPAN.tate1{writing-mode:tb-rl;line-height:"+(ie)+"px;}<\/STYLE>\n";}
 else if(isIE4){style_IE55="<STYLE>SPAN.kag,SPAN.small,SPAN.ten1,SPAN.ten2,SPAN.t0{position:absolute;width:"+(ie)+"px;}SPAN.t1{position:absolute;filter:FlipV();width:"+(ie)+"px;}SPAN.tt0{position:absolute;filter:Blur(Add=0, Direction=0, Strength=5);width:"+(ie)+"px;}SPAN.tt1{position:absolute;filter:FlipV() Blur(Add=0, Direction=180, Strength=5);width:"+(ie)+"px;}<\/STYLE>\n";}
 if(SPEED){return _HR+CR+style_IE55+put_html(PG,PGlast-1,"main",b,c,"skip");}
 return tate(a,b,c,last_block);
}
function kakko_move(){
 window.clearTimeout(TMidKakko);
 var span;
 if(!isN6){span=document.all.tags("SPAN")}else{span=document.getElementsByTagName("SPAN")}
 if((document.readyState=="complete"||isN6)&&span.length>0&&span[span.length-1].offsetTop>0){
  var n;
  for(n=0;n<span.length;n++){
   if(isN6){//strict DTDでpx必須
/*    if(span[n].className=="small"){
     span[n].style.top=(-Math.round(span[n].offsetHeight*1/12))+'px';
     span[n].style.left=(Math.round(span[n].offsetWidth*1/8))+'px';
    }
    else if(span[n].className=="ten1"){
     span[n].style.left=(Math.round(span[n].offsetWidth*1/5))+'px';
    }
    else if(span[n].className=="ten2"){
     span[n].style.top=(Math.round(span[n].offsetHeight*1/12))+'px';
    }
    else*/ if(span[n].className=="kag"){
     span[n].style.top=(Math.round(span[n].offsetHeight*3/5))+'px';
    }
   }
   else{
    if(span[n].className=="t1"||span[n].className=="tt1"){span[n].style.top=span[n].offsetTop-Math.round(span[n].offsetHeight*2/3);}
    else if(span[n].className=="t0"||span[n].className=="tt0"){span[n].style.top=span[n].offsetTop+Math.round(span[n].offsetHeight*1/2);}
    else if(span[n].className=="ten1"){span[n].style.top=span[n].offsetTop;span[n].style.left=span[n].offsetLeft+Math.round(span[n].offsetWidth*1/5);}
    else if(span[n].className=="ten2"){span[n].style.top=span[n].offsetTop+Math.round(span[n].offsetHeight*1/12);span[n].style.left=span[n].offsetLeft;}
    else if(span[n].className=="small"){span[n].style.top=span[n].offsetTop-Math.round(span[n].offsetHeight*1/12);span[n].style.left=span[n].offsetLeft+Math.round(span[n].offsetWidth*1/8);}
    else if(span[n].className=="kag"){span[n].style.top=span[n].offsetTop+Math.round(span[n].offsetHeight*3/5);}
    else if(span[n].className=="tate1"){span[n].style.top=span[n].offsetTop+Math.floor((6-JKAN)/2);}
   }
  }
  V4_BGC();
 }
 else{
  if(!isIE5){TMidKakko=window.setTimeout("kakko_move()",1000);}//1000 for IE4
  else{TMidKakko=window.setTimeout("kakko_move()",10);}//10 for IE5
 }
}
function V4_BGC(){
 if(document.getElementById&&document.getElementById("pg")){document.getElementById("pg").style.background=BGC}
 else if(document.all&&document.all.pg){document.all.pg.style.background=BGC}
}
function go0(){
 var msg="<H2><CENTER>別画面表\示に切り替わりました。<\/CENTER><\/H2>";
 if(INI_){iniGlobal();INI_=0;}
 if(CONV){
  if(BETU==1){
   document.getElementById('show').innerHTML=msg;//for N6/IE5
   go3();
  }
  else{
   document.getElementById('show').innerHTML=HTML;
   if(isIE4){TMidKakko=window.setTimeout("kakko_move()",0);}//for PlugV4
  }
 }
 else{window.alert("初めに変換してください");}
}
function go1(){
 var msg="<H2><CENTER>別画面表\示に切り替わりました。<\/CENTER><\/H2>";
 if(INI_){iniGlobal();INI_=0;}
 if(CONV){
  if(BETU==1){
   document.all.show.innerHTML='';//for IE4
   document.all.show.innerHTML=msg;
   go3();
  }
  else{
   document.all.show.innerHTML = HTML;
   if(isIE4){TMidKakko=window.setTimeout("kakko_move()",0);}//for PlugV4
  }
 }
 else{window.alert("初めに変換してください");}
}
function go2(){
 var msg="<H2><CENTER>別画面表\示に切り替わりました。<\/CENTER><\/H2>";
 if(INI_){iniGlobal();INI_=0;}
 if(CONV&&HTML){
  if(navigator.appVersion.charAt(0)<4){go3()}
  else if(navigator.appVersion.charAt(0)>4){go0()}
  else if(BETU==1){
   document.layer1.document.write("<META http-equiv=\"Content-Type\" content=\"text/html; charset=x-sjis\">");//for NC4.01e
   document.layer1.document.write(msg);
   document.layer1.document.close();
   go3();
  }
  else{
   if(navigator.appName.substring(0,3)=='Net'&& navigator.appVersion.charAt(0)>3) {
    document.layer1.document.write("<META http-equiv=\"Content-Type\" content=\"text/html; charset=x-sjis\">");//for NC4.01e
    document.layer1.document.write("<DIV>"+HTML+"<\/DIV>");
    document.layer1.document.close();
   }
  }
 }
 else{
  if(!isIE5){TMidKakko=window.setTimeout("kakko_move()",1000);}//1000 for IE4
  else{TMidKakko=window.setTimeout("kakko_move()",10);}//10 for IE5
 }
}
function go3(){
 var style="<STYLE><!\--\n TR,TD,FONT{font-size:medium;line-height:100%;} \n//--\><\/STYLE>";
 TateShow=window.open('','show','status=yes,toolbar=no,menubar=yes,location=no,scrollbars=yes');
 TateShow.document.clear();
 if(navigator.appVersion.charAt(0)>2){TateShow.focus();}//NN2.02で使えない
 TateShow.document.open('text/html');
 TateShow.document.write(style+"\n<BODY bgColor=\""+document.bgColor+"\">");
 TateShow.document.write(HTML);
 TateShow.document.close();
}
function showSelect(){if(navigator.appName.substring(0,3)=='Net'||navigator.appVersion.charAt(0)<4){go2();}else{go1();}}
function put_bgCol() {
 if(navigator.appVersion.charAt(0)==2){return "そなたのブラウザ古いでござる<br>"}
 else{
  var bg_doc="\"document.bgColor='#";
  var n,txt='';
  var myA = new Array(
  "CCCC99","CDAA77","CC9900","CC6666","CC9999","BBAABB","AA8899","888888","666666",
  "99CCCC","66CCCC","33CCCC","339999","99DDCC","00CC99","A5CE8C","AAAA77","FFFFFF");
  for (n=0;n<myA.length;n++) {
    txt += "<TD bgColor=\"#" + myA[n] + "\" nowrap><A HREF='#' title=\"#"+ myA[n] +"\" onClick=" + bg_doc + myA[n] +
      "'; return false\"><TT style='font-size:13px'>＿＿<\/TT><\/A><\/TD>\n";
  }
  var a="<CENTER><TABLE border='1' cellspacing='0' cellpadding='1' align=center><TR><TD nowrap><TT style='font-size:13px'>画面色変更<\/TT><\/TD>\n";
  var b=txt;
  var c="<\/TR><\/TABLE><\/CENTER>";
  return (a+b+c);
 }
}
function go_kan_tate(str){
 str=subs(str,"〔","＜",-1);
 str=subs(str,"［","＜",-1);
 str=subs(str,"（","＜",-1);
 str=subs(str,"【","＜",-1);
 str=subs(str,"《","＜",-1);
 str=subs(str,"≪","＜",-1);
 str=subs(str,"〕","＞",-1);
 str=subs(str,"］","＞",-1);
 str=subs(str,"）","＞",-1);
 str=subs(str,"】","＞",-1);
 str=subs(str,"》","＞",-1);
 str=subs(str,"≫","＞",-1);
 if(K_TATE==2){
  str=subs(str,"＜","−",-1);
  str=subs(str,"＞","−",-1);
 }
 return str;
}
function _chg_hr(n){
 n-=0;
 var P="<BR>";
 var j;
 _HR="";
 if(n>=1){for(j=0;j<n;j++){_HR+=P;HR=n;}}
 else if(n==-1){_HR="<HR width='80%' align='center'>";HR=n;}
 else if(n==-2){_HR="<HR width='60%' align='center'>";HR=n;}
 else if(n==-3){_HR="<HR width='40%' align='center'>";HR=n;}
 else{_HR=_HR_;HR=0;}
}
function seikei1(opt1,opt2,opt3,opt4,opt5,opt6,opt7){
 var str=seikeiX(opt1,opt2,opt3,opt4,opt5,opt6,opt7);
 if(isIE4){TMidKakko=window.setTimeout("kakko_move()",isN6*10);}//for plugV4
 return str;
}
function seikeiX(opt1,opt2,opt3,opt4,opt5,opt6,opt7){
 var txt;
 if(document.layX){txt=document.layX.document.frm.str.value;}
 else{txt=document.frm.str.value;}
 return _seikei(txt,opt1,opt2,opt3,opt4,opt5,opt6,opt7);
}
function plugV4(a,b,c,d,e,f,g){
 HTML=seikeiX(a,b,c,d,e,f,g);
 window.setTimeout("plugin(0);_plug2()",200);//trap for NN4.01e 重要 2000/5/22
}
function _plug2(){window.setTimeout("move()",200);}// 重要 2000/4/16
function plugin(p){
 window.clearTimeout(TMidKakko);
 p-=0;
 var page=p;
 _chg_hr(HR);
 HTML="<DIV id=div><FORM name='botum'>"+style_IE55;
 if(PLUGIN==0){PG=put_html(PG,PGlast,"plug");PLUGIN=1;}
 if(page==0){page=Math.abs(page);HTML+=PG[0]+_plugin(1);showSelect();}
 else if(page>0&&page<PGlast){HTML+=PG[page]+_plugin(1+page);showSelect();}
 else if(page<-1&&page>=-PGlast){page=Math.abs(page);HTML+=PG[page-2]+_plugin(page-1);showSelect();}
 NN4layer();
}
function _plugin(n){
 PlugPG=n;
 var title=" title='背景が赤の時、頁めくり操作はできません'";
 var col="";
 if(FCOL){col=" color='"+FCOL+"'"}
 var bot="<CENTER><TABLE style=\"font-family:'ＭＳ 明朝'\" cols=3 WIDTH='100%'><TR><TD id=tb1 align=right style='font-size:12px;visibility:hidden;text-align:right'>";
 bot+="<ILAYER id=IL1 visibility=hidden>キー操作→ Ｎ:次項、Ｂ:前項、Ｅ:最後、Ｔ:最初<\/ILAYER>";
 if(document.layers){bot+="<\/TD><TD id=pg nowrap width='5%' bgColor='"+BGC+"' align=center  style=\"font-size:12px\"><FONT face='ＭＳ 明朝'"+col+">第 "+PlugPG+"/"+PGlast+" 頁<\/FONT><\/TD><TD id=tb2 style='font-size:12px;visibility:hidden;text-align:left'>"}
 else{bot+="<\/TD><TD id=pg "+title+"nowrap width='5%' bgColor='#FFB6C1' align=center  style=\"font-size:12px\"><FONT face='ＭＳ 明朝'"+col+">第 "+PlugPG+"/"+PGlast+" 頁<\/FONT><\/TD><TD id=tb2 style='font-size:12px;visibility:hidden;text-align:left'>"}
 bot+="<ILAYER id=IL2 visibility=hidden>マウスクリック→ 下半分:次項、上半分:前項<\/ILAYER>";
 bot+="<\/TD><\/TR><TR><TD id=tb3 colspan='3' style=\"font-size:12px\" style=\"FONT-FAMILY:'ＭＳ 明朝';visibility:hidden;\"><ILAYER id=IL3 visibility=hidden><CENTER>"+VER+"<\/CENTER>";
 bot+="<\/ILAYER><\/TD><\/TR><\/TABLE><\/CENTER><\/FORM><\/DIV>";
 return bot;
}
function NN4layer(){
 var str="<FORM><FONT size=3>";
 str+="<INPUT type=button value=\"<<\" onClick=\"NN4layer_move(0)\">";//style付けるとおかしくなる
 str+="<INPUT type=button value=\">>\" onClick=\"NN4layer_move(1)\">";//style付けるとおかしくなる
 str+="<FONT><\/FORM>";
 if(navigator.appName.substring(0,3)=='Net'&&parseInt(navigator.appVersion.charAt(0))==4){// only NC4
  var cnrT=document.layer1.pageX;
  var cnrR=cnrT+document.layer1.clip.width;//right corner position
  if(cnrR>800){
   document.layer11.document.write(str);
   document.layer11.document.close();
   document.layer11.moveToAbsolute(700,document.layer1.top+document.layer1.document.height-55);
  }
  clickN4();
  self.scrollTo(0,document.layer1.top);
 }
 else if(navigator.appName.substring(0,3)=='Net'&&navigator.appVersion.charAt(0)>4){// for N6
  clickN6();
  self.scrollTo(0,document.getElementById('div').offsetTop);
  window.focus();
 }
 else if(navigator.appName.substring(0,3)=='Mic'&&navigator.appVersion.charAt(0)>3){
  clickI4();
  document.all.div.scrollIntoView();
  window.focus();
 }
 else{window.alert('不明なエラーです')}
}
function NN4layer_move(n){
 var cnrT=document.layer1.pageX;
 var cnrR=cnrT+document.layer1.clip.width;//right corner position
 var MV=600,MGN=0;
 var bot=document.layer11.left+document.layer11.clip.width;
 if(n>0){
  if(cnrR<bot){return false;}
  else if(cnrR-bot<MV){document.layer1.moveBy(bot-cnrR,0);}
  else{document.layer1.moveBy(-MV,-0);}
 }
 else{
  if(cnrT-MV<=0){document.layer1.moveBy(-cnrT+MGN,0);}
  else{document.layer1.moveBy(MV,0);}
 }
 return false;
}
function move(){
 if(navigator.appName.substring(0,3)=='Net'&&parseInt(navigator.appVersion.charAt(0))==4){
  document.layer2.moveToAbsolute(0,document.layer1.top+document.layer1.document.height);
 }
}
function clickN4(){
 document.captureEvents(Event.KEYDOWN);
 document.onkeydown = KeyNC;
 document.layer1.captureEvents(Event.MOUSEDOWN|Event.MOUSEOVER|Event.MOUSEOUT);
 document.layer1.onmousedown=evntNC;
 document.layer1.onmouseout=evntNC2;
 document.layer1.onmouseover=evntNC1;
}
function evntNC(evnt){
 var eY=evnt.layerY,dH=document.layer1.document.height-65;
 if ((eY>0)&&(eY<dH)){//'65' to be modified
  if(eY>dH/2){plugin(PlugPG);}
  else{plugin(-(PlugPG));}
 }
 return false;
}
function evntNC1(){
 var obj=document.layer1.document;
 obj.IL1.visibility='show';
 obj.IL2.visibility='show';
 obj.IL3.visibility='show';
 return false;
}
function evntNC2(){
 var obj=document.layer1.document;
 obj.IL1.visibility='hide';
 obj.IL2.visibility='hide';
 obj.IL3.visibility='hide';
 return false;
}
function KeyNC(evnt){
 var k=evnt.which;
 _key(k);
}
function clickN6(){
 document.getElementById('div').onmousedown=evntN6;
 document.onkeydown = KeyNC;//onkeypress ok
 document.getElementById('div').onmouseout=evntN62;
 document.getElementById('div').onmouseover=evntN61;
}
function evntN6(evnt){
 if(evnt.layerY-document.getElementById('div').offsetTop>document.getElementById('div').offsetHeight/2){plugin(PlugPG);}
 else{plugin(-(PlugPG));}
}
function evntN61(){
 document.getElementById('tb1').style.visibility='visible';
 document.getElementById('tb2').style.visibility='visible';
 document.getElementById('tb3').style.visibility='visible';
 return false;
}
function evntN62(){
 document.getElementById('tb1').style.visibility='hidden';
 document.getElementById('tb2').style.visibility='hidden';
 document.getElementById('tb3').style.visibility='hidden';
 return false;
}
function clickI4(){
 document.all.div.onmousedown=evntIE;
 document.onkeypress=KeyIE;
 document.all.div.onmouseout=evntIE2;
 window.setTimeout("document.all.div.onmouseover=evntIE1",200);//重要 2000/5/15
 return false;
}
function evntIE(){
 if(event.offsetY>document.all.div.offsetHeight/2){plugin(PlugPG);}
 else{plugin(-(PlugPG));}
 return false;
}
function evntIE1(){
 document.all.tb1.style.visibility='visible';
 document.all.tb2.style.visibility='visible';
 document.all.tb3.style.visibility='visible';
 return false;
}
function evntIE2(){
 document.all.tb1.style.visibility='hidden';
 document.all.tb2.style.visibility='hidden';
 document.all.tb3.style.visibility='hidden';
 return false;
}

function KeyIE(){
 var k=event.keyCode;
 _key(k);
}
function _key(k){
 if(k==101||k==69){// E e
  if(PlugPG!=PGlast){plugin(PGlast-1)}
 }
 else if(k==98||k==66){// B b
  plugin(-(PlugPG));
 }
 else if(k==116||k==84){// T t
  if(PlugPG!=1){plugin(0)}
 }
 else if(k==110||k==78){plugin(PlugPG);}// N n
}
function skp(n){location.replace(n)}

/*
《《《《《《《　　　　　　　　　　ジャバスクリプトファイルを全部読み込めました　　　　　　　　　》》》》》》》
《《《《《《《　　　　　ブラウザの再表示（リロード）ボタンを押してくださいしてください　　　　　》》》》》》》
*/