<!--

function SDAlc(form) {
a=eval(form.a.value)
b=eval(form.S.value)
c= 2 * (a - 1000) + 16

if (form.a.value=="")
form.S.value = b
else form.S.value= c
form.Alc.value = form.S.value/16,9
}

// -->