function calc() {

xx = new Array;

xx[0]  = new Array(  0,  0);
xx[1]  = new Array( 72,  0);
xx[2]  = new Array(106, 98,  0);
xx[3]  = new Array(185,177, 79,  0);
xx[4]  = new Array(252,237,139, 67,  0);
xx[5]  = new Array(333,318,220,148, 81,  0);
xx[6]  = new Array(429,414,316,244,177, 96,  0);
xx[7]  = new Array(171,163, 65, 85,105,186,282,  0);
xx[8]  = new Array(227,219,121,170,103,169,265, 74,  0);
xx[9]  = new Array(250,242,144, 94, 27, 93,189,107, 76,  0);
xx[10] = new Array(250,242,144,133, 66,132,228, 98, 37, 39,  0);
xx[11] = new Array(305,297,199,139, 72,120,216,156, 98, 55, 61,  0);
xx[12] = new Array(377,369,271,238,171,211,307,231,157,150,127,131,  0);
xx[13] = new Array(364,356,258,216,149,154,250,212,151,130,114, 93, 57,  0);
xx[14] = new Array(444,436,338,305,238,276,252,298,224,217,194,198, 67,122,  0);
xx[15] = new Array(453,445,347,314,247,287,355,307,233,226,203,207, 76,133,103,  0);
xx[16] = new Array(378,370,272,244,177,230,326,225,151,157,134,138, 76,113,143,141,  0);
xx[17] = new Array(522,514,416,388,321,374,470,369,295,301,278,282,214,271,241,138,144,  0);
xx[18] = new Array(560,552,454,426,359,412,508,407,333,339,316,320,249,306,276,173,182, 45,  0);
xx[19] = new Array(583,575,477,449,382,435,531,430,356,362,339,343,249,286,276,173,205, 68, 31,  0);
xx[20] = new Array(516,508,410,377,310,348,344,370,296,289,266,270,139,194,112, 94,215,190,218,187,  0);
xx[21] = new Array(585,577,479,446,379,347,296,439,365,358,335,339,208,263,141,206,284,302,330,299,112,  0);
xx[22] = new Array(538,530,432,399,332,312,261,392,318,311,288,292,161,216, 94,205,237,413,329,298,111, 47,  0);
xx[23] = new Array(651,643,545,512,445,425,373,505,431,424,401,405,274,329,207,284,350,380,408,377,190, 78,113,  0);
xx[24] = new Array(683,675,577,521,454,409,357,537,463,456,433,420,306,361,239,316,382,412,440,409,222,110,145, 32,  0);
xx[25] = new Array(602,594,496,424,357,337,285,466,392,369,362,323,235,290,168,279,311,470,403,467,168, 61, 74, 85,129,  0);
xx[26] = new Array(547,539,441,369,302,282,230,467,393,314,321,268,236,218,169,268,304,364,392,361,174, 88, 67,143,152, 55,  0);
xx[27] = new Array(439,431,333,261,194,182,130,320,246,194,209,160,178,120,122,225,233,363,398,398,234,196,151,249,272,175,120,  0);
xx[28] = new Array(560,552,454,382,315,248,196,441,367,315,330,281,293,241,226,348,354,444,472,441,254,153,160,179,161, 91, 76,121,  0);
xx[29] = new Array(684,676,578,506,439,372,320,565,491,439,454,405,361,365,294,393,437,489,517,486,299,187,200,165,133,131,154,245,124,  0);


    f = parseInt(document.dform.from.value);
    t = parseInt(document.dform.to.value);


    if(f < t){
	tmp = f;
	f = t;
	t = tmp
    }

    if(xx[f][t]==0){	
    document.dform.km.value = "-";
    }else{
    document.dform.km.value = xx[f][t];
    }
}
    
document.write('<form name="dform" style="display:inline">');
document.write('<select name="from" onchange="calc()">');
document.write('<option value="0">函館<option value="1">江差<option value="2">長万部<option value="3">室蘭<option value="4">苫小牧<option value="5">静内<option value="6">襟裳岬<option value="7">ニセコ<option value="8">小樽<option value="9">千歳');
document.write('<option value="10" selected>札幌<option value="11">夕張<option value="12">旭川<option value="13">富良野<option value="14">層雲峡<option value="15">名寄<option value="16">留萌<option value="17">サロベツ<option value="18">稚内<option value="19">宗谷岬');
document.write('<option value="20">紋別<option value="21">網走<option value="22">北見<option value="23">ウトロ<option value="24">羅臼<option value="25">屈斜路湖<option value="26">阿寒湖<option value="27">帯広<option value="28">釧路<option value="29">根室');
document.write('</select><font size=-1>から</font>　　');
document.write('<select name="to" onchange="calc()">');
document.write('<option value="0">函館<option value="1">江差<option value="2">長万部<option value="3">室蘭<option value="4">苫小牧<option value="5">静内<option value="6">襟裳岬<option value="7">ニセコ<option value="8">小樽<option value="9">千歳');
document.write('<option value="10" selected>札幌<option value="11">夕張<option value="12">旭川<option value="13">富良野<option value="14">層雲峡<option value="15">名寄<option value="16">留萌<option value="17">サロベツ<option value="18">稚内<option value="19">宗谷岬');
document.write('<option value="20">紋別<option value="21">網走<option value="22">北見<option value="23">ウトロ<option value="24">羅臼<option value="25">屈斜路湖<option value="26">阿寒湖<option value="27">帯広<option value="28">釧路<option value="29">根室');
document.write('</select><font size=-1>まで</font>　　');
document.write('<input type="text" value="-" size=5 name="km" style="text-align:center;">km');

document.write('</form>');