var iFt,iIn,iMe,iCm,df,bn=0	// Globals
D=document

function clip(c,i)	{return (i<0)?0:(i>c)?c:i}

function update(i,c,s) {
	D.iArrow.src= s
	f= (i-(i%=12))/12
	m= (c-(c%=100))/100
	if(f!=iFt) df.nFt.value= iFt=f
	if(i!=iIn) df.nIn.value= (iIn=i)>9? i: '0'+i
	if(m!=iMe) df.nMe.value= iMe=m
	if(c!=iCm) df.nCm.value= (iCm=c)>9? c: '0'+c
}

ro="0.1+0.4*df.nRound.selectedIndex"
la=new Image();la.src="larrow.gif"
ra=new Image();ra.src="rarrow.gif"
function fromIn(i) {update(i,Math.floor(eval(ro)+i*2.54),ra.src)}
function fromCm(c) {update(Math.floor(eval(ro)+c*100/254),c,la.src)}


function doClick(inc,e) {
 df.nCm.focus()
 if (!e||!D.all) {
	if(e) x= e.pageX
	b= bn?bn: x<df.bIn.x?1: x<df.bMe.x?2: x<df.bCm.x?3: 4

	inc*= b<2?12: b==3?100: 1
	if(b<3)	fromIn(clip(100, 12*iFt+iIn+inc))
	else	fromCm(clip(254,100*iMe+iCm+inc))
 }
 return false
}

D.write(

"<MAP NAME=mapA>"+
" <AREA HREF=about:+	COORDS=1,01,13,11 onClick=return(doClick(+1,event)) onMouseup=doClick(+1)>"+
" <AREA HREF=about:-	COORDS=1,12,13,23 onClick=return(doClick(-1,event)) onMouseup=doClick(-1)>"+
"</MAP>"+

"<table border=2 cellspacing=0 bgcolor=yellow>"+"<tr>"+"<td>"+
 "<table border=0 cellpadding=0 cellspacing=1>"+
  "<tr valign=middle>"+
	"<td><FORM NAME=fCalc>&nbsp;</td>"+
	"<td><img src=button+-.gif USEMAP=#mapA onMouseover=bn=1 border=0></td>"+
	"<td><INPUT NAME=nFt	TYPE=TEXT SIZE=1 value=4 onFocus=blur()></td>"+
	"<td>ft&nbsp;</td>"+
	"<td><img src=button+-.gif NAME=bIn USEMAP=#mapA onMouseover=bn=2 border=0></td>"+
	"<td><INPUT NAME=nIn	TYPE=TEXT SIZE=2 value=02 onFocus=blur()></td>"+
	"<td>in&nbsp;</td>"+
	"<td><img src=rarrow.gif NAME=iArrow></td>"+
	"<td>&nbsp;</td>"+
	"<td><img src=button+-.gif NAME=bMe USEMAP=#mapA onMouseover=bn=3 border=0></td>"+
	"<td><INPUT NAME=nMe	TYPE=TEXT SIZE=1 value=1 onFocus=blur()></td>"+
	"<td>m&nbsp;</td>"+
	"<td><img src=button+-.gif NAME=bCm USEMAP=#mapA onMouseover=bn=4 border=0></td>"+
	"<td><INPUT NAME=nCm	TYPE=TEXT SIZE=2 value=27 onFocus=blur()></td>"+
	"<td>cm&nbsp;"+
  "<tr><th colspan=15><small>"+
	"<select name=nRound onChange=fromIn(12*iFt+iIn)>"+
	"<option selected>Official Conversion (round down)"+
	"<option	>Closest Conversion (round off)"+
	"</select>"+
 "</table>"+
"</table>"+
"</FORM>"
)

df=D.fCalc
fromIn(50)