<!-- Author: Brian Mackenzie -->
<!-- Date: 11th March 2004 -->
<!-- Version: 1.0 -->

<!-- Function:  Calculate the results from the  Blind Stork Test -->

<!-- Required by: bstorktst.htm -->

<!-- Copyright Brian Mackenzie 2004 -->


function pcalculate4()
{
mtime = new Array(60,55,50,45,40,35,30,25,20,15,10);

mscore = new Array(20,18,16,14,12,10,8,6,4,3,2);

ftime = new Array (35,30,25,20,15,10,5);

fscore = new Array (20,17,14,11,8,4,2);

var time = document.stork.time.value;
var gender = document.stork.gender4.options[document.stork.gender4.selectedIndex].value;

age =  0;

if (gender=="Male")
  {
   if (time<10) time=10;
   while (mtime[age]>time)
   {age = age+1};

   document.stork.score.value = mscore[age];
  }

if (gender=="Female")
  {
   if (time<5) time=5;  
   while (ftime[age]>time)
   {age = age+1};
   document.stork.score.value = fscore[age];
  }

}

function pclear4()
{
   document.stork.score.value = "";
}