var fp=0;
 var fend=N.length-1;
 var myval=""
 var myregname="Blank"
 var myparam="Blank"
 myregname=window.name.substr(0)


function Starter (enter) {
document.getElementById("loading").style.visibility="hidden"
Showmap ()
fp=0
  Changevals()
     //now build display
       myc=0
       for (ty=0;ty<fend+1;ty++) {
        myt=N[myc]
        //myt="test"
        document.forms.F8.Lister.options[ty].value=myc
        document.forms.F8.Lister.options[ty].text= myt
        myc=myc+1
                }
      // now highlight winery from name
         mytest= myregname
         mytest=mytest.toLowerCase()
         mytest=mytest+'zzz'
         myc=0
         for (tx=0;tx<fend+1;tx++) {
            mytext= N[tx]
            mytext=mytext.toLowerCase()
            mytext=mytext+'zzz'
			getit = mytext.indexOf(mytest);
            document.forms.F9.Lister.options[0].selected="true"
			if (getit>-1) {
                document.forms.F9.Lister.options[tx].selected="true"
            break;
            }
           	myc=myc+1
            }
}

function Showmess() {
document.getElementById("mess").style.visibility="visible"
t = setTimeout("Hidemess()",3000)
}

function Hidemess(){
document.getElementById("mess").style.visibility="hidden"
clearTimeout(t)
}

function Showmap () {
document.getElementById("map").style.visibility="visible"
document.getElementById("wine1").style.visibility="visible"
document.getElementById("wine1a").style.visibility="visible"
document.getElementById("wine2").style.visibility="visible"
document.getElementById("wine2a").style.visibility="visible"
document.getElementById("wine3").style.visibility="visible"
document.getElementById("wine3a").style.visibility="visible"
document.getElementById("aust").style.visibility="visible"
document.getElementById("state").style.visibility="visible"
document.getElementById("temp").style.visibility="visible"
document.getElementById("rain").style.visibility="visible"
document.getElementById("heading").style.visibility="hidden"
document.getElementById("address").style.visibility="hidden"
document.getElementById("tele").style.visibility="hidden"
document.getElementById("fax").style.visibility="hidden"
document.getElementById("email").style.visibility="hidden"
document.getElementById("webpage").style.visibility="hidden"
document.getElementById("descript").style.visibility="hidden"
document.getElementById("varieties").style.visibility="hidden"
document.getElementById("labels").style.visibility="hidden"
document.getElementById("hinfo").style.visibility="hidden"
document.getElementById("hvariety").style.visibility="hidden"
document.getElementById("hlabels").style.visibility="hidden"
document.getElementById("grapes").style.visibility="hidden"
document.getElementById("hph").style.visibility="hidden"
document.getElementById("hfax").style.visibility="hidden"
document.getElementById("hemail").style.visibility="hidden"
document.getElementById("hweb").style.visibility="hidden"
document.getElementById("soilhead").style.visibility="visible"
document.getElementById("history").style.visibility="visible"
document.getElementById("regnotes").style.visibility="visible"
document.getElementById("Soil").style.visibility="hidden"
document.getElementById("Climate").style.visibility="hidden"
document.getElementById("Rsumm").style.visibility="hidden"
document.getElementById("Hist").style.visibility="hidden"
document.getElementById("spot").style.visibility="visible"
document.getElementById("townname").style.visibility="visible"
document.getElementById("towns").style.visibility="visible"
document.getElementById("Soil").style.visibility="hidden"
document.getElementById("Climate").style.visibility="hidden"
}

function Showinfo () {
document.getElementById("map").style.visibility="hidden"
document.getElementById("wine1").style.visibility="hidden"
document.getElementById("wine1a").style.visibility="hidden"
document.getElementById("wine2").style.visibility="hidden"
document.getElementById("wine2a").style.visibility="hidden"
document.getElementById("wine3").style.visibility="hidden"
document.getElementById("wine3a").style.visibility="hidden"
document.getElementById("aust").style.visibility="hidden"
document.getElementById("state").style.visibility="hidden"
document.getElementById("temp").style.visibility="hidden"
document.getElementById("rain").style.visibility="hidden"
document.getElementById("heading").style.visibility="visible"
document.getElementById("address").style.visibility="visible"
document.getElementById("tele").style.visibility="visible"
document.getElementById("fax").style.visibility="visible"
document.getElementById("email").style.visibility="visible"
document.getElementById("webpage").style.visibility="visible"
document.getElementById("descript").style.visibility="visible"
document.getElementById("varieties").style.visibility="visible"
document.getElementById("labels").style.visibility="visible"
document.getElementById("hinfo").style.visibility="visible"
document.getElementById("hlabels").style.visibility="visible"
document.getElementById("hvariety").style.visibility="visible"
document.getElementById("grapes").style.visibility="visible"
document.getElementById("hph").style.visibility="visible"
document.getElementById("hfax").style.visibility="visible"
document.getElementById("hemail").style.visibility="visible"
document.getElementById("hweb").style.visibility="visible"
document.getElementById("soilhead").style.visibility="hidden"
document.getElementById("history").style.visibility="hidden"
document.getElementById("regnotes").style.visibility="hidden"
document.getElementById("Soil").style.visibility="hidden"
document.getElementById("Climate").style.visibility="hidden"
document.getElementById("Rsumm").style.visibility="hidden"
document.getElementById("Hist").style.visibility="hidden"
document.getElementById("spot").style.visibility="hidden"
document.getElementById("townname").style.visibility="visible"
document.getElementById("towns").style.visibility="visible"
document.getElementById("Soil").style.visibility="hidden"
document.getElementById("Climate").style.visibility="hidden"
}

function Tour () {
document.getElementById("map").style.visibility="hidden"
document.getElementById("wine1").style.visibility="visible"
document.getElementById("wine1a").style.visibility="visible"
document.getElementById("wine2").style.visibility="visible"
document.getElementById("wine2a").style.visibility="visible"
document.getElementById("wine3").style.visibility="visible"
document.getElementById("wine3a").style.visibility="visible"
document.getElementById("aust").style.visibility="visible"
document.getElementById("state").style.visibility="visible"
document.getElementById("temp").style.visibility="visible"
document.getElementById("rain").style.visibility="visible"
document.getElementById("heading").style.visibility="hidden"
document.getElementById("address").style.visibility="hidden"
document.getElementById("tele").style.visibility="hidden"
document.getElementById("fax").style.visibility="hidden"
document.getElementById("email").style.visibility="hidden"
document.getElementById("webpage").style.visibility="hidden"
document.getElementById("descript").style.visibility="hidden"
document.getElementById("varieties").style.visibility="hidden"
document.getElementById("labels").style.visibility="hidden"
document.getElementById("hinfo").style.visibility="hidden"
document.getElementById("hvariety").style.visibility="hidden"
document.getElementById("hlabels").style.visibility="hidden"
document.getElementById("grapes").style.visibility="hidden"
document.getElementById("hph").style.visibility="hidden"
document.getElementById("hfax").style.visibility="hidden"
document.getElementById("hemail").style.visibility="hidden"
document.getElementById("hweb").style.visibility="hidden"
document.getElementById("soilhead").style.visibility="visible"
document.getElementById("history").style.visibility="visible"
document.getElementById("regnotes").style.visibility="visible"
document.getElementById("Soil").style.visibility="visible"
document.getElementById("Climate").style.visibility="visible"
document.getElementById("Rsumm").style.visibility="hidden"
document.getElementById("Hist").style.visibility="hidden"
document.getElementById("spot").style.visibility="visible"
document.getElementById("townname").style.visibility="hidden"
document.getElementById("towns").style.visibility="hidden"
document.getElementById("Soil").style.visibility="visible"
document.getElementById("Climate").style.visibility="hidden"
}

function Climate () {
document.getElementById("map").style.visibility="hidden"
document.getElementById("wine1").style.visibility="visible"
document.getElementById("wine1a").style.visibility="visible"
document.getElementById("wine2").style.visibility="visible"
document.getElementById("wine2a").style.visibility="visible"
document.getElementById("wine3").style.visibility="visible"
document.getElementById("wine3a").style.visibility="visible"
document.getElementById("aust").style.visibility="visible"
document.getElementById("state").style.visibility="visible"
document.getElementById("temp").style.visibility="visible"
document.getElementById("rain").style.visibility="visible"
document.getElementById("heading").style.visibility="hidden"
document.getElementById("address").style.visibility="hidden"
document.getElementById("tele").style.visibility="hidden"
document.getElementById("fax").style.visibility="hidden"
document.getElementById("email").style.visibility="hidden"
document.getElementById("webpage").style.visibility="hidden"
document.getElementById("descript").style.visibility="hidden"
document.getElementById("varieties").style.visibility="hidden"
document.getElementById("labels").style.visibility="hidden"
document.getElementById("hinfo").style.visibility="hidden"
document.getElementById("hvariety").style.visibility="hidden"
document.getElementById("hlabels").style.visibility="hidden"
document.getElementById("grapes").style.visibility="hidden"
document.getElementById("hph").style.visibility="hidden"
document.getElementById("hfax").style.visibility="hidden"
document.getElementById("hemail").style.visibility="hidden"
document.getElementById("hweb").style.visibility="hidden"
document.getElementById("soilhead").style.visibility="visible"
document.getElementById("history").style.visibility="visible"
document.getElementById("regnotes").style.visibility="visible"
document.getElementById("Soil").style.visibility="visible"
document.getElementById("Rsumm").style.visibility="hidden"
document.getElementById("Hist").style.visibility="hidden"
document.getElementById("spot").style.visibility="visible"
document.getElementById("townname").style.visibility="hidden"
document.getElementById("towns").style.visibility="hidden"
document.getElementById("Soil").style.visibility="hidden"
document.getElementById("Climate").style.visibility="visible"
}


function Regsumm () {
document.getElementById("map").style.visibility="visible"
document.getElementById("wine1").style.visibility="visible"
document.getElementById("wine1a").style.visibility="visible"
document.getElementById("wine2").style.visibility="visible"
document.getElementById("wine2a").style.visibility="visible"
document.getElementById("wine3").style.visibility="visible"
document.getElementById("wine3a").style.visibility="visible"
document.getElementById("temp").style.visibility="hidden"
document.getElementById("rain").style.visibility="hidden"
document.getElementById("aust").style.visibility="visible"
document.getElementById("state").style.visibility="visible"
document.getElementById("heading").style.visibility="hidden"
document.getElementById("address").style.visibility="hidden"
document.getElementById("tele").style.visibility="hidden"
document.getElementById("fax").style.visibility="hidden"
document.getElementById("email").style.visibility="hidden"
document.getElementById("webpage").style.visibility="hidden"
document.getElementById("descript").style.visibility="hidden"
document.getElementById("varieties").style.visibility="hidden"
document.getElementById("labels").style.visibility="hidden"
document.getElementById("hinfo").style.visibility="hidden"
document.getElementById("hvariety").style.visibility="hidden"
document.getElementById("hlabels").style.visibility="hidden"
document.getElementById("grapes").style.visibility="hidden"
document.getElementById("hph").style.visibility="hidden"
document.getElementById("hfax").style.visibility="hidden"
document.getElementById("hemail").style.visibility="hidden"
document.getElementById("hweb").style.visibility="hidden"
document.getElementById("soilhead").style.visibility="visible"
document.getElementById("history").style.visibility="visible"
document.getElementById("regnotes").style.visibility="visible"
document.getElementById("Soil").style.visibility="hidden"
document.getElementById("Climate").style.visibility="hidden"
document.getElementById("Rsumm").style.visibility="visible"
document.getElementById("Hist").style.visibility="hidden"
document.getElementById("spot").style.visibility="visible"
document.getElementById("townname").style.visibility="visible"
document.getElementById("towns").style.visibility="visible"
}

function History () {
document.getElementById("map").style.visibility="visible"
document.getElementById("wine1").style.visibility="visible"
document.getElementById("wine2").style.visibility="visible"
document.getElementById("aust").style.visibility="visible"
document.getElementById("state").style.visibility="visible"
document.getElementById("temp").style.visibility="hidden"
document.getElementById("rain").style.visibility="hidden"
document.getElementById("heading").style.visibility="hidden"
document.getElementById("address").style.visibility="hidden"
document.getElementById("tele").style.visibility="hidden"
document.getElementById("fax").style.visibility="hidden"
document.getElementById("email").style.visibility="hidden"
document.getElementById("webpage").style.visibility="hidden"
document.getElementById("descript").style.visibility="hidden"
document.getElementById("varieties").style.visibility="hidden"
document.getElementById("labels").style.visibility="hidden"
document.getElementById("hinfo").style.visibility="hidden"
document.getElementById("hvariety").style.visibility="hidden"
document.getElementById("hlabels").style.visibility="hidden"
document.getElementById("grapes").style.visibility="hidden"
document.getElementById("hph").style.visibility="hidden"
document.getElementById("hfax").style.visibility="hidden"
document.getElementById("hemail").style.visibility="hidden"
document.getElementById("hweb").style.visibility="hidden"
document.getElementById("soilhead").style.visibility="visible"
document.getElementById("history").style.visibility="visible"
document.getElementById("regnotes").style.visibility="visible"
document.getElementById("Soil").style.visibility="hidden"
document.getElementById("Climate").style.visibility="hidden"
document.getElementById("Rsumm").style.visibility="hidden"
document.getElementById("Hist").style.visibility="visible"
document.getElementById("spot").style.visibility="visible"
document.getElementById("townname").style.visibility="visible"
document.getElementById("towns").style.visibility="visible"
}

function Photos () {
document.getElementById("map").style.visibility="hidden"
document.getElementById("wine1").style.visibility="visible"
document.getElementById("wine2").style.visibility="visible"
document.getElementById("aust").style.visibility="visible"
document.getElementById("state").style.visibility="visible"
document.getElementById("temp").style.visibility="hidden"
document.getElementById("rain").style.visibility="hidden"
document.getElementById("heading").style.visibility="hidden"
document.getElementById("address").style.visibility="hidden"
document.getElementById("tele").style.visibility="hidden"
document.getElementById("fax").style.visibility="hidden"
document.getElementById("email").style.visibility="hidden"
document.getElementById("webpage").style.visibility="hidden"
document.getElementById("descript").style.visibility="hidden"
document.getElementById("varieties").style.visibility="hidden"
document.getElementById("labels").style.visibility="hidden"
document.getElementById("hinfo").style.visibility="hidden"
document.getElementById("hvariety").style.visibility="hidden"
document.getElementById("hlabels").style.visibility="hidden"
document.getElementById("grapes").style.visibility="hidden"
document.getElementById("hph").style.visibility="hidden"
document.getElementById("hfax").style.visibility="hidden"
document.getElementById("hemail").style.visibility="hidden"
document.getElementById("hweb").style.visibility="hidden"
document.getElementById("soilhead").style.visibility="visible"
document.getElementById("history").style.visibility="visible"
document.getElementById("regnotes").style.visibility="visible"
document.getElementById("Soil").style.visibility="hidden"
document.getElementById("Climate").style.visibility="hidden"
document.getElementById("Rsumm").style.visibility="hidden"
document.getElementById("Hist").style.visibility="hidden"
document.getElementById("spot").style.visibility="visible"
document.getElementById("townname").style.visibility="visible"
document.getElementById("towns").style.visibility="visible"
}

function Formatit () {
    mytemp="  " + myval;
    var re = /[.][ ]/g
    mytemp= mytemp.replace(re,".\n   ");
    myval=mytemp;
    }

function Changevals () {
  document.forms.F1.Fhead.value= N[fp];
  document.forms.F2.Faddr.value= A[fp];
  document.forms.F3.Ftele.value= T[fp];
  document.forms.F4.Ffax.value= F[fp];
  document.forms.F5.Femail.value= E[fp];
  document.forms.F6.Fweb.value= W[fp];
  document.forms.F12.Ftowns.value= NA;
  myval=""+ D1[fp]+D2[fp]+D3[fp]+D4[fp]+D5[fp]+D6[fp]+D7[fp]+D8[fp]+D9[fp]
  Formatit();
  document.forms.F7.Regname.value= myval;
  myval="" + V1[fp]+V2[fp]+V3[fp]
  document.forms.F11.Fvari.value= myval;
  myval= ""+L1[fp]+L2[fp]+L3[fp]+L4[fp]+L5[fp]
  document.forms.F10.Flabels.value= myval;
   myval= ""+FE1[0]+FE2[0]+FE3[0]+FE4[0]+FE5[0]+FE6[0]+FE7[0]+FE8[0]+FE9[0]
   Formatit();
  document.forms.RS.Regdes.value= myval;
   myval= ""+LA1[0]+LA2[0]+LA3[0]+LA4[0]+LA5[0]+LA6[0]+LA7[0]+LA8[0]+LA9[0]
   Formatit();
  document.forms.T1.Soildes.value= myval;
   myval= ""+CL1[0]+CL2[0]+CL3[0]+CL4[0]+CL5[0]+CL6[0]+CL7[0]+CL8[0]+CL9[0]
   Formatit();
  document.forms.T2.Climdes.value= myval;
  myval= ""+HI1[0]+HI2[0]+HI3[0]+HI4[0]+HI5[0]+HI6[0]+HI7[0]+HI8[0]+HI9[0]
  Formatit();
  document.forms.Hist1.Histdes.value= myval;
  document.forms.F8.Lister.options[fp].text= N[fp];
}

 function Top(now) {
       fp=0
  Showinfo()
  Changevals()
  Displayit(fp)
    }

 function Next(now) {
       fp=Math.min(fp+1,fend)
  Showinfo()
  Changevals()
  Displayit(fp)
    }

        function Prev(now) {
       fp=Math.max(fp-1,0)
  Showinfo()
  Changevals()
  Displayit(fp)
    }

   function Last(test) {
  fp=fend
  Showinfo()
  Changevals()
  Displayit(fp)
 }
  function Displayit (entry) {
    curin=entry
    mys=0
       //now build display
       myc=0
       for (ty=0;ty<fend;ty++) {
        myt=N[mys+myc]
        //myt="test"
        document.forms.F8.Lister.options[ty].value=mys+myc
        document.forms.F8.Lister.options[ty].text= myt
       // document.forms.F8.Lister.options[ty].selected="false"
        myc=myc+1
                }
       document.forms.F8.Lister.options[curin].selected="true"
       document.forms.F9.Lister.options[curin].selected="true"
    }


 function Findme (input) {
    if (input==0) { //ie input from display
         mysel= document.forms.F8.Lister.selectedIndex
         mytest= document.forms.F8.Lister.options[mysel].text
         for (tx=0;tx<fend+1;tx++) {
            mytext= N[tx]
			getit = mytext.indexOf(mytest);
            if (getit>-1) {
              document.forms.F1.Fhead.value= mytest;
              fp=tx
            Changevals()
            }
            }
     } else{
         mytest= document.forms.Tryit.Trytext.value
         mytest=mytest.toLowerCase()
    for (tx=0;tx<fend+1;tx++) {
            mytext= N[tx]
            mytext= mytext.toLowerCase()
			getit = mytext.indexOf(mytest);
            if (getit>-1) {
              document.forms.F1.Fhead.value= mytest;
              fp=tx

            document.forms.F1.Fphead.value= N[fp];
            Changevals()
            // also build list to correspond with found at centre of 9 els
             break;
            }
            // not found so enter error
            if (tx==fend) {
             document.forms.Tryit.Trytext.value="Not Found"
             }
           }
        }
        // for explorer set up navigation using style
         Showinfo ()
         Displayit(fp)

    }