timeID = 0;
timeID1 = 10;
m=0;
dt1a="";
dt1b="";
dt2="";
dt3="";
cmnt="";

function main_frame () {
sel1 = location.search;
len1 = sel1.length;
if ( len1 < 2 ) { sel1 = "" }
else { sel1 = sel1.substring( 1 , len1 ) }
switch ( sel1 ) {
  case  "shinkansen":   sel2 = "TR_M01.HTM";   break;
  case  "jr_hokkaido":  sel2 = "TR_INFO.HTM";  break;  //TR_M02_1.HTM
  case  "jr_east":      sel2 = "TR_M02_2.HTM"; break;
  case  "jr_tokai":     sel2 = "TR_M02_3.HTM"; break;
  case  "jr_west":      sel2 = "TR_M02_4.HTM"; break;
  case  "jr_shikoku":   sel2 = "TR_INFO.HTM";  break;  //TR_M02_5.HTM
  case  "jr_kyushu":    sel2 = "TR_INFO.HTM";  break;  //TR_M02_6.HTM
  case  "freight":      sel2 = "TR_M03.HTM";   break;
  case  "pri_hokkaido": sel2 = "TR_INFO.HTM";  break;   //TR_M04_1.HTM
  case  "pri_tohoku":   sel2 = "TR_INFO.HTM";  break;   //TR_M04_2.HTM
  case  "pri_kanto":    sel2 = "TR_M04_3.HTM"; break;
  case  "pri_chubu":    sel2 = "TR_INFO.HTM";  break;   //TR_M04_4.HTM
  case  "pri_kinki":    sel2 = "TR_M04_5.HTM"; break;
  case  "pri_chugoku":  sel2 = "TR_INFO.HTM";  break;   //TR_M04_6.HTM
  case  "pri_shikoku":  sel2 = "TR_INFO.HTM";  break;   //TR_M04_7.HTM
  case  "pri_kyushu":   sel2 = "TR_INFO.HTM";  break;   //TR_M04_8.HTM
  case  "subway":       sel2 = "TR_M05.HTM";             break;
  case  "monorail":     sel2 = "TR_M06.HTM";             break;
  case  "new-transit":  sel2 = "TR_M06.HTM#new-transit"; break;
  case  "romen":        sel2 = "TR_M06.HTM#romen";       break;
  case  "linear":       sel2 = "TR_M06.HTM#linear";      break;
  case  "truck":        sel2 = "TR_M06.HTM#truck";       break;
  case  "haishi":       sel2 = "TR_M11.HTM";             break;
  case  "name_a":       sel2 = "TR_N01.HTM";   break;
  case  "name_k":       sel2 = "TR_N02.HTM";   break;
  case  "name_s":       sel2 = "TR_N03.HTM";   break;
  case  "name_t":       sel2 = "TR_N04.HTM";   break;
  case  "name_n":       sel2 = "TR_N05.HTM";   break;
  case  "name_h":       sel2 = "TR_N06.HTM";   break;
  case  "name_m":       sel2 = "TR_N07.HTM";   break;
  case  "name_y":       sel2 = "TR_N08.HTM";   break;
  case  "name_r":       sel2 = "TR_N09.HTM";   break;
  case  "name_w":       sel2 = "TR_N09.HTM";   break;
  default:              sel2 = "TR_INFO.HTM";
}

document.write("<frameset cols='300,*'>");

// rows=150 - 元の数値 [配線図Top]
document.write("<frameset rows='280,*'>");

document.write("<frame src='TR_TITLE.HTM' scrolling='no'>");
document.write("<frame src='TR_SEL.HTM'>");
document.write("</frameset>");
document.write("<frame src='",sel2,"' noresize name='main'>");
document.write("</frameset>");
}

// Message to Status
function ret( m ) {
chk = 0;
switch ( m ) {
  case  1: cmnt = "全区間へ"; chk=1; break;
  case  6: cmnt = "停車駅案内へ"; chk=1; break;
  case  7: cmnt = "踏切情報へ"; chk=1; break;
  case 11: cmnt = "JR Hokkaido"; chk=2; break;
  case 12: cmnt = "JR East"; chk=2; break;
  case 13: cmnt = "JR Tokai"; chk=2; break;
  case 14: cmnt = "JR West"; chk=2; break;
  case 15: cmnt = "JR Shikoku"; chk=2; break;
  case 16: cmnt = "JR Kyushu"; chk=2; break;
  case 21: cmnt = "Private Line"; chk=2; break;
  case 31: cmnt = "Freight"; chk=2; break;
  case 41: cmnt = "Subway"; chk=2; break;
  case 42: cmnt = "Mono Rail"; chk=2; break;
  case 43: cmnt = "New Transit"; chk=2; break;
  case 44: cmnt = "Linear"; chk=2; break;
  case 51: cmnt = "Shinkansen"; chk=2; break;
  case 61: cmnt = "Truck"; chk=2; break;
  case 81: cmnt = "廃止線へ"; chk=2; break;
  case 90: cmnt = "あ"; chk=3; break;
  case 91: cmnt = "か"; chk=3; break;
  case 92: cmnt = "さ"; chk=3; break;
  case 93: cmnt = "た"; chk=3; break;
  case 94: cmnt = "な"; chk=3; break;
  case 95: cmnt = "は"; chk=3; break;
  case 96: cmnt = "ま"; chk=3; break;
  case 97: cmnt = "や"; chk=3; break;
  case 98: cmnt = "ら"; chk=3; break;
  case 99: cmnt = "わ"; chk=3; break;
  }
if ( chk == 2 ) { cmnt = "Return to Menu ( " + cmnt + " )"; }
if ( chk == 3 ) { cmnt = "メニュー（名前　" + cmnt + "行）へ戻る"; }

if ( chk != 0 ) { disp ( cmnt ); }
}

// for FRAME.HTM
function rail_frame (dt1a,dt1b,dt2,dt3) {
if ( dt1b != "" ) { dt1b = "?" + dt1b; }
stn = location.search;
if ( stn.length < 2 ) { stn = "" }
else { stn  = stn.replace ( "?" , "#" ); }

document.write("<frameset cols='340,*'>");

// rows=150 - 元の数値 [各線区の配線図]
document.write("<frameset rows='240,*'>");

document.write("<frame src='TITLE"+dt1a+".HTM"+dt1b+"' scrolling='no'>");
document.write("<frame src='MAP"+dt2+".HTM'>");
document.write("</frameset>");
document.write("<frame src='LINE"+dt3+".HTM",stn,"' name='main' noresize>");
document.write("</frameset>");
}