var nr=0;
var pk="";
var pos=0;
var pos1=0;
var tpstr="";
var btmstr=""; 
var pos=0;
var aa=new Array(); // values in database
var ab=new Array(); // values in database
var at=new Array(); // titles in database
var ns="abcdefghijk";
var tt="";
var ftflg=0;
var dbl=new Array(8,9,8,8,9,9,9,8,9,9,8); // length of databases
var dbt=new Array(); // titles of databases
dbt[0]='Length';
dbt[1]='Acceleration';
dbt[2]='Metrology';
dbt[3]='U.S. Fluid or Liquid';
dbt[4]='Area';
dbt[5]='Volume/Capacity';
dbt[6]='Mass';
dbt[7]='Velocity';
dbt[8]='Pressure';
dbt[9]='Energy/Work';
dbt[10]='Power';
var dbu=new Array(); // database unit titles
dbu[0]='Centimeters~Inches~Feet~Yards~Meters~Chains~Kilometers~Miles~ ';
dbu[1]='cm/sec/sec~m/sec/sec~m/hr/sec~km/hr/sec~ft/hr/sec~ft/sec/sec~f'
+'t/min/min~mi/hr/sec~knots/sec~ ';
dbu[2]='Angstrom Units~Surface Microinch~Surface Microns~Light Bands~P'
+'recision tenths~Close Tol. thousandths~Metric Milimeters~U.S. Inches'
+'~ ';
dbu[3]='Minims~Drams~Ounces~Gills~Pints~Quarts~Gallons~Barrels~ ';
dbu[4]='Square Meters~Square Inches~Square Feet~Square Yards~Square Ro'
+'ds~Square Chains~Roods~Acres~Square Miles~ ';
dbu[5]='Cubic Inches~Cubic Feet~Cubic Yards~US Fluid Ounces~US Liquid '
+'Quarts~US Dry Quarts~US Gallons~US Bushels~Liters~ ';
dbu[6]='Kilograms~Grains~Troy Ounces~Avoirdupois Ounces~Troy Pounds~Av'
+'oirdupois Pounds~Short Tons~Long Tons~Metric Tons~ ';
dbu[7]='cm/sec~m/sec~m/min~km/hr~ft/sec~ft/min~mi/hr~Knots~ ';
dbu[8]='megadynes/ sq cm~kg/ sq cm~lb/ sq in~atmos- pheres'
+'~Hg Meters~Hg Inches~H2O Meters~H20 Inches~H20 Feet~ ';
dbu[9]='Joules~Kg-meters~Ft-lbs~Kw-hrs~Metric Hp-hrs~US Hp-hrs~Liter-at'
+'m~K-cal~Btu~ ';
dbu[10]='Hp~Metric hp~Kw~Poncelets~Kg-m/sec~Ft-lb/sec~Kcal/sec~Btu/sec~ ';
var db=new Array(); // numeric databases (8 x 8 or 9 x 9)
db[0]='~01~10.3937~20.03281~30.01094~40.01~50.0004971~60.00001~70.0000'
+'06214~8*~02.54001~11~20.08333~30.02778~40.0254~50.001263~60.0000254~'
+'70.00001578~8*~030.48~112~21~30.3333~40.3048~50.01515~60.0003048~70.'
+'0001894~8*~091.44~136~23~31~40.9144~50.04545~60.0009144~70.0005682~8'
+'*~0100~139.37~23.281~31.0936~41~50.04971~60.001~70.0006214~8*~02012~'
+'1792~266~322~420.12~51~60.0212~70.0125~8*~0100000~139370~23281~31093'
+'.6~41000~549.71~61~70.6214~8*~0160934~163360~25280~31760~41609~580~6'
+'1.609~71~8*';
db[1]='~01~10.01~236~30.036~4118.11~50.03281~6118.11~70.02237~80.01944'
+'~9*~0100~11~23600~33.6~411811~53.281~611811~72.237~81.944~9*~00.0277'
+'8~10.0002778~21~30.001~43.281~50.0009113~63.281~70.0006214~80.00054~'
+'9*~027.78~10.2778~21000~31~43281~50.9113~63281~70.6214~80.54~9*~00.0'
+'08467~10.00008467~20.3048~30.0003048~41~50.0002778~61~70.0001894~80.'
+'0001646~9*~030.48~10.3048~21097~31.097~43600~51~63600~70.6818~80.457'
+'2~9*~00.008467~10.00008467~20.3048~30.0003048~41~50.0002778~61~70.00'
+'01894~80.0001646~9*~044.7~10.447~21609~31.609~45280~51.467~65280~71~'
+'80.8690~9*~051.44~10.5144~21852~31.852~46076~51.688~66076~71.151~81~'
+'9*';
db[2]='~01~10.003937~20.0001~30.0003404~40.00003937~50.000003937~60.00'
+'00001~70.000000003937~8*~0254~11~20.0254~30.086~40.01~50.001~60.0000'
+'254~70.000001~8*~010~139.37~21~33.404~40.3937~50.03937~60.001~70.000'
+'03937~8*~02937.5~111.566~20.29375~31~40.11566~50.011566~60.00029375~'
+'70.000011566~8*~025400~1100~22.54~38.646~41~50.1~60.00254~70.0001~8*'
+'~0254000~11000~225.4~386.46~410~51~60.0254~70.001~8*~010000000~13937'
+'0~21000~33404~4393.7~539.37~61~70.03937~8*~0254000000~11000000~22540'
+'0~386460~410000~51000~625.4~71~8* ';
db[3]='~01~10.0166667~20.0020833~30.00052083~40.0001302~50.0000651~60.'
+'000016276~73.87e-7~8*~060~11~20.125~30.03125~40.0078125~50.00390625~'
+'60.000976562~72.3251e-5~8*~0480~18~21~30.25~40.0625~50.03125~60.0078'
+'125~70.0001860~8*~01920~132~24~31~40.25~50.125~60.03125~70.000744047'
+'~8*~07680~1128~216~34~41~50.5~60.125~70.00297619~8*~015360~1256~232~'
+'38~42~51~60.25~70.00595238~8*~061440~11024~2128~332~48~54~61~70.0238'
+'09523~8*~02580480~143008~25376~31344~4336~5168~642~71~8* ';
db[4]='~01~11550~210.76~31.196~40.0395~50.002471~60.0009884~70.0002471'
+'~80.0000003861~9*~00.0006452~11~20.006944~30.0007716~40.00002551~50.'
+'000001594~60.0000006377~70.0000001594~82.291e-10~9*~00.09290~1144~21'
+'~30.1111~40.003673~50.0002296~60.00009183~70.00002296~83.587e-8~9*~0'
+'0.8361~11296~29~31~40.03306~50.002066~60.0008264~70.0002066~83.228e-'
+'7~9*~025.29~139204~2272.25~330.25~41~50.0625~60.025~70.00625~89.766e'
+'-6~9*~0404.7~1627264~24356~3484~416~51~60.4~70.1~80.00015625~9*~0101'
+'2~11568160~210890~31210~440~52.5~61~70.25~80.000390625~9*~04047~1627'
+'2640~243560~34840~4160~510~64~71~80.0015625~9*~02589988~14013355318~'
+'227878400~33097600~4102400~56400~62560~7640~81~9* ';
db[5]='~01~10.0005787~20.00002143~30.5541~40.01732~50.01488~60.004329~'
+'70.000465~80.01639~9*~01728~11~20.03704~3957.5~429.92~525.71~67.481~'
+'70.8036~828.32~9*~046656~127~21~325853~4807.9~5694.3~6202.2~721.70~8'
+'764.6~9*~01.805~10.001044~20.00003868~31~40.03125~50.02686~60.007812'
+'~70.0008392~80.02957~9*~057.75~10.03342~20.001238~332~41~50.8594~60.'
+'25~70.02686~80.9464~9*~067.20~10.03889~20.001440~337.24~41.164~51~60'
+'.2909~70.03125~81.101~9*~0231~10.1337~20.004951~3128~44~53.437~61~70'
+'.1074~83.785~9*~02150~11.244~20.04609~31192~437.24~532~69.309~71~835'
+'.24~9*~061.02~10.03531~20.001308~333.81~41.057~50.9081~60.2642~70.02'
+'838~81~9* ';
db[6]='~01~115432~232.15~335.27~42.6792~52.205~60.001102~70.0009842~80'
+'.001~9*~06.48e-5~11~20.002083~30.002286~40.0001736~50.0001429~67.143'
+'e-8~76.378e-8~86.48e-8~9*~00.0311~1480~21~31.09714~40.083333~50.0685'
+'7~63.429e-5~73.061e-5~83.11e-5~9*~00.02835~1437.5~20.9115~31~40.0759'
+'5~50.0625~63.125e-5~72.79e-5~82.835e-5~9*~00.3732~15760~212~313.17~4'
+'1~50.8229~64.114e-4~73.673e-4~83.732e-4~9*~00.4536~17000~214.58~316~'
+'41.215~51~60.0005~74.464e-4~84.536e-4~9*~0907.2~114000000~229167~332'
+'000~42431~52000~61~70.8929~80.9072~9*~01016~115680000~232667~335840~'
+'42722~52240~61.12~71~81.016~9*~01000~115432356~232151~335274~42679~5'
+'2205~61.102~70.9842~81~9* ';
db[7]='~01~10.01~20.6~30.036~40.03281~51.9685~60.02237~70.01944~8*~010'
+'0~11~260~33.6~43.281~5196.85~62.237~71.944~8*~01.66667~10.016667~21~'
+'30.06~40.05468~53.281~60.03728~70.03240~8*~027.78~10.2778~216.6667~3'
+'1~40.9113~554.68~60.6214~70.53996~8*~030.48~10.3048~218.29~31.097~41'
+'~560~60.68181818~70.59248~8*~00.5080~10.00508~20.3048~30.01829~40.01'
+'6667~51~60.01136~70.00987~8*~044.7~10.447~226.82~31.609~41.467~588~6'
+'1~70.86898~8*~051.44~10.5144~230.87~31.852~41.688~5101.3~61.151~71~8'
+'* ';
db[8]='~01~11.0197~214.5~30.9869~40.7501~529.53~610.21~7401.8~833.49~9'
+'*~00.9807~11~214.22~30.9678~40.7356~528.96~610.01~7394.1~832.84~9*~0'
+'0.06895~10.07031~21~30.06805~40.05171~52.036~60.7037~727.7~82.309~9*'
+'~01.0133~11.0332~214.7~31~40.76~529.92~610.34~7407.1~833.93~9*~01.33'
+'32~11.3595~219.34~31.316~41~539.37~613.61~7535.7~844.64~9*~00.03386~'
+'10.03453~20.4912~30.03342~40.0254~51~60.3456~713.61~81.134~9*~00.097'
+'98~10.09991~21.421~30.0967~40.07349~52.893~61~739.37~83.281~9*~00.00'
+'2489~10.002538~20.03609~30.002456~40.001867~50.07349~60.02540~71~80.'
+'083333~9*~00.02986~10.03045~20.4331~30.02947~40.0224~50.8819~60.3048'
+'~712~81~9* ';
db[9]='~01~10.10197~20.7376~32.778e-7~43.777e-7~53.725e-7~60.009869~70'
+'.0002388~80.0009478~9*~09.80665~11~27.233~32.724e-6~43.7037e-6~53.653'
+'e-6~60.09678~70.002342~80.009295~9*~01.356~10.1383~21~33.766e-7~45.12'
+'06e-7~55.0505e-7~60.01338~70.0003238~80.001285~9*~03.6e6~13.671e5~22.'
+'655e6~31~41.3596~51.341~635528~7859.9~83412~9*~02.648e6~12.7e5~21.952'
+'9e6~30.7355~41~50.9863~626131~7632.4~82510~9*~02.6845e6~12.7375e5~21.'
+'98e6~30.7457~41.0139~51~626493~7641.2~82544~9*~0101.333~110.333~274.7'
+'4~32.815e-5~43.827e-5~53.775e-5~61~70.0242~80.09604~9*~04187~1426.9~2'
+'3088~30.001163~40.001581~50.001560~641.32~71~83.968~9*~01055~1107.6~2'
+'778.2~32.931e-4~43.985e-4~53.93e-4~610.41~70.252~81~9* ';
db[10]='~01~10.7457~21.014~30.7604~476.04~5550~60.1781~70.7068~8*~01.341'
+'0~11~21.360~31.020~4102.0~5737.6~60.2388~70.9478~8*~00.9863~10.7355~2'
+'1~30.75~475~5542.5~60.1757~70.6971~8*~01.315~10.9807~21.333~31~4100~5'
+'723.3~60.2342~70.9295~8*~00.01315~10.009807~20.01333~30.01~41~57.233~'
+'60.002342~70.009295~8*~00.00181818~10.001356~20.00184~30.00138~40.138'
+'3~51~60.0003238~70.001285~8*~05.615~14.187~25.692~34.269~4426.9~53088'
+'~61~73.968~8*~01.415~11.055~21.434~31.076~4107.6~5778.2~60.2520~71~8*'
+' ';
function splitTitles(){
 tt=dbu[j];
 for (var x=0;x<dbl[j];x++){
  pos=tt.indexOf('~');
  at[x]=tt.substring(0,pos);
  tt=tt.substring(pos+1,tt.length)
  }
 }

function netscapeRadios(){ 
 for (var i=0;i<dbl[flg];i++){
  if (document.b.document.c.document.forms[0].elements[i+1].checked){
   topck=i;
   i=dbl[flg]; // exit loop cleanly
   }
  }
 for (var i=0;i<dbl[flg];i++){
  if (document.b.document.c.document.forms[0].elements[i+1+dbl[flg]].checked){
   btmck=i;
   i=dbl[flg]; // exit loop cleanly
   }
  }
 }

function explorerRadios(){ 
 for (var i=0;i<dbl[flg];i++){
  if (document.forms[0].elements[i+1].checked){
   topck=i;
   i=dbl[flg]; // exit loop cleanly
   }
  }
 for (var i=0;i<dbl[flg];i++){
  if (document.forms[0].elements[i+1+dbl[flg]].checked){
   btmck=i;
   i=dbl[flg]; // exit loop cleanly
   }
  }
 }

function Convert(){
 j=flg;
 splitTitles();
 tt=db[flg]; // grab the right numeric database
 // get the checked radios
 if (document.getElementById){
  explorerRadios();
  sw=1;
  explorerPlay();
  }
 else{
  if (document.layers){
   netscapeRadios();
   document.embeds[1].play(false);
   }
  }
 // now grab the appropriate top and bottom db strings
 tt=db[flg];
 for (var i=0;i<topck+1;i++){
  pos=tt.indexOf('*');
  topstr=tt.substring(0,pos);
  tt=tt.substring(pos+1,tt.length);
  }
 // now parse the conversions
 pos=topstr.indexOf('~'+btmck);
 pos1=topstr.indexOf('~',pos+2)
 topstr=topstr.substring(pos+2,pos1);
 topval=eval(topstr);
 if (document.getElementById){
  tt=document.forms[0].elements[0].value;
  }
 else{
  if (document.layers){
   tt=document.b.document.c.document.forms[0].elements[0].value;
   }
  }
 useri=(tt=='0'||tt==''?1:eval(tt));
 if (useri==1){
  if (document.getElementById){
   document.forms[0].elements[0].value='1';
   }
  else{
   if (document.layers){
    document.b.document.c.document.forms[0].elements[0].value='1';
    }
   }
  }
 nr=useri*topval;
 tt=""+nr;
 pos=tt.indexOf('.');
 if (pos>-1){
  // Correct for binary floating point conversion error
  nr+=.00000001;
  tt=""+nr;
  pos=tt.indexOf('e');
  if (pos<0){
   tt=tt.substring(0,(pos+8));
   }
  if (pos==0||pos>0){
   pos1=tt.indexOf('0000000');
   if (pos1>0){
    tt=t.substring(0,pos+1)+tt.substring(pos1,picker.length);
    }
   }
  }
  if (document.getElementById){
   document.forms[0].elements[(2*dbl[j])+3].value=useri
   +' '+at[topck]+' = '+tt+' '+at[btmck];
   }
  else{
   if (document.layers){
   document.b.document.c.document.forms[0].elements[(2*dbl[flg])+3].value=useri
   +' '+at[topck]+' = '+tt+' '+at[btmck];
   }
  }
 }

function winOpen(){
  mw=window.open("","","height=250,width=520");
  mw.location.href="engine"+j+".html";
 }

function explorerPlay(){
  document.getElementById("d").innerHTML='<EMBED SRC=i/'
  +sw+'.au HIDDEN=TRUE AUTOSTART=TRUE '
  +'AUTOPLAY=TRUE LOOP=FALSE REPEAT=FALSE VOLUME=100>';
 }
function popIt(){
 if (document.layers){
  document.embeds[2].play(false);
  }
 else{
  sw=2;
  explorerPlay();
  }
 }

function chgIt1(){
 for (var i=0;i<11;i++){
  if (document.forms[0].elements[i].checked){
   j=i;
   i=11;
   }
  }
 if (document.getElementById){
  sw=0;
  explorerPlay()
  winOpen();
  }
 else{
  document.embeds[0].play(false);
  splitTitles();
  ls='<FORM><TABLE BORDER=1 WIDTH=500><TR><TH COLSPAN='+(dbl[j]+1)
  +' ALIGN=CENTER><H1>'+dbt[j]+' Equivalents</H1></TH></TR><TR><TH C'
  +'OLSPAN='+(dbl[j]+1)+' VALIGN=TOP ALIGN=CENTER><FONT COLOR=WHITE>'
  +'First, type the number you wish converted here: <INPUT TYPE=TEXT'
  +' SIZE=20 VALUE=""><BR>Then, click buttons for desired conversion'
  +':</TH></TR><TR><TH ALIGN=CENTER>From:</TH>';
  for (var i=0;i<dbl[j];i++){
   cond=(i==0?" CHECKED":"");
   ls+='<TD ALIGN=CENTER VALIGN=TOP>'+at[i]
   +'<BR><INPUT TYPE=RADIO NAME='+ns.charAt(j)
   +'t VALUE='+i+cond+' onClick="popIt();return true"></TD>';
   }
  ls+='</TR><TR><TH ALIGN=CENTER>To:</TH>';
  for (var i=0;i<dbl[j];i++){
   cond=(i==1?" CHECKED":"");
   ls+='<TD ALIGN=CENTER VALIGN=TOP>'+at[i]
   +'<BR><INPUT TYPE=RADIO NAME='+ns.charAt(j)
   +'b VALUE='+i+cond+' onClick="popIt();return true"></TD>';
   }
  ls+='</TR><TR><TD COLSPAN='+(dbl[j]+1)+' ALIGN=CENT'
  +'ER VALIGN=TOP><INPUT TYPE=BUTTON VALUE=" Click for Co'
  +'nversion " onClick="flg='+j+';Convert();return false;"><'
  +'INPUT TYPE=RESET VALUE=" Reset Values "></TD></TR><TR><T'
  +'H COLSPAN='+(dbl[j]+1)+'><INPUT TYPE='
  +'TEXT SIZE=60 VALUE=""><BR><BR><BR><BR></TH></TR></TABLE></FORM>';
  if (document.layers){
  document.b.document.c.document.write(ls);
  document.b.document.c.document.forms[0].elements[1].checked=true;
  document.b.document.c.document.forms[0].elements[2+dbl[j]].checked=true;
  document.b.document.c.document.close();
  }
 }
}