var typesnelheid
var starttijd
var t

var goedplaat=new Image(72,72)
var foutplaat=new Image(72,72)
goedplaat.src="typemachine.gif"
foutplaat.src="fout.gif"

function verandertekst()
{
	tekst=""
	si=document.getElementById("typeform").tekstkeuzevak.selectedIndex
	switch (document.getElementById("typeform").tekstkeuzevak.options[si].value)
	{
		case "leeg" : tekst="" ; break
		case "zeepeil" : tekst="Londen (UK) - Global warming zorgt ervoor dat het zeepeil stijgt. Niet door het smelten van ijsbergen en gletsjers, maar door uitzetting van water, aldus prof. Duncan Wingham van University College in London. Een satelliet stuurde radarsignalen naar de ijsbergen in Antarctica. De weerkaatsing van deze signalen gaf aanwijzingen over de grootte van de ijsmassa. De laatste vijf jaar kromp deze niet merkbaar. De laatste honderd jaar is het totale zeeniveau met gemiddeld achttien centimeter gestegen. Als smeltend ijs hiermee iets te maken heeft, zou het ijs in Antarctica met vijf centimeter per jaar krimpen. De oorzaak voor de stijging ligt dus ergens anders, waarschijnlijk bij thermische uitzetting. De schatting is dat deze factor het waterpeil de komende honderd jaar met veertig centimeter zal doen stijgen." ; break
		case "planeet" : tekst="La Silla (CH) - Een team Zwitserse astronomen van het ESO La Silla Observatory ontdekte een massieve planeet in een dubbelstersysteem. De astronomen namen de planeet waar met de nieuwe Zwitserse Leonard Euler telescope, genoemd naar de beroemde Zwitserse wiskundige (1707-1783). De planeet heeft een massa die minstens 4,9 maal zo groot is als die van Jupiter. Ze draait om de primaire component van het sterrenstelsel Gliese 86. Dat is een heldere, redelijk koele dwergster, die (slechts) 35 lichtjaren van de Aarde verwijderd is. De afstand tussen de planeet en de ster is iets meer dan een tiende van de afstand tussen de Zon en de Aarde. De afstand tussen de twee sterren in Gliese 86 is zo'n honderdmaal groter dan de afstand tussen de planeet en de ster waar deze omheen draait." ; break
		case "wallage" : tekst="Groningen - Burgemeester Jacques Wallage van Groningen deed zaterdagavond op de televisie de plechtige belofte voor 1 juni van dit jaar elf kilo af te vallen. In 'De show van je leven' van de Vara, waarin Wallage de hoofdpersoon was, verklapten twee voormalige medewerksters dat Wallage hen regelmatig lastig viel met verhalen over zijn (over)gewicht. Om het nu eens menens te laten zijn drongen ze hem in 'de doos' een weddenschap op. Voor elke kilo die Wallage niet haalt, moet hij voor straf een dag in een bonbonatelier in de stad Groningen werken. Een diëtiste zal de burgemeester in zijn gevecht tegen de kilo's begeleiden. Presentatrice Astrid Joosten had er kennelijk weinig vertrouwen in dat het lukt, want zij gaf Wallage alvast het boek 'Sjakie in de chocoladefabriek' mee." ; break
		case "trein" : tekst="Hengelo - Het gebeurt volgens een woordvoerder van de NS wel vaker. Een wissel die verkeerd staat. Foutje. Meestal ziet de machinist dan binnen een paar tellen dat de trein de verkeerde kant opgaat. De trein wordt gestopt en in het goede spoor gezet. Zo niet zondagavond. Toen belandde een trein, die van Deventer naar Enschede had moeten rijden, per ongeluk in Zutphen. De wissel stond fout omdat een medewerker van de verkeersleiding dacht dat de trein van Deventer naar Roosendaal naderde. De machinisten worden geacht 'wegbekendheid' te hebben met de routes die ze rijden, maar deze machinist merkte niet dat hij verkeerd reed. Intern is er bij de NS smalend gelachen om de vergissing, maar volgens de lezing van de NS had de machinist na de verkeerde wisselstand geen andere keus dan de hele foute route af te leggen." ; break
		case "bse" : tekst="Queniborough - De Britse regering is een spoedonderzoek begonnen naar de dood van vier mensen in de buurt van het dorp Queniborough bij Leicester. De vier zijn gestorven aan de ziekte van Creutzfeldt-Jakob (CJD), die het gevolg kan zijn van het eten van vlees van runderen met de gekkekoeienziekte. In heel Groot-Brittannië zijn slechts 75 gevallen van CJD geregistreerd. In Queniborough wonen 2300 mensen. Vier slachtoffers, waarvan er drie in 1998 binnen drie maanden overleden, kan geen toeval zijn, menen de autoriteiten. Bovendien is waarschijnlijk een vijfde inwoner door de ziekte getroffen. De gekkekoeienziekte BSE werd voor het eerst in 1986 in Groot-Brittannië vastgesteld. De EU kondigde in 1996 een uitvoerverbod van Britse runderen en rundvlees af. Een jaar geleden hief Brussel het exportverbod op." ; break
		case "vrijhandel" : tekst="Den Haag - Liberalisering van de handel zorgt ervoor dat specialistische kennis over de wereld wordt verspreid. Landen zijn dan in staat hun technologie te verbeteren waardoor de economie tot bloei kan komen. Tot die conclusie komen onderzoekers van het Centraal Planbureau (CPB). Het is de eerste keer dat kennisoverdracht door handelsliberalisering met cijfermateriaal is onderbouwd. Bovendien zijn de effecten van die kennisoverdracht in kaart gebracht. Uit het onderzoek van het CPB blijkt onder meer dat de kennisoverdracht tussen landen in de dienstensector - bijvoorbeeld bouw, overheid en gezondheidszorg - nog nauwelijks voorkomt. Landen die zich afzonderen van de wereldeconomie beperken de overdracht van nieuwe technologieën en mogelijk hun economische groei, aldus de onderzoekers." ; break
		case "ulysses" : tekst="Dublin - De film Ulysses, naar het boek van James Joyce, mag na 33 jaar voor het eerst worden vertoond in Ierland. De filmkeuring heeft de in 1967 verschenen film vorige week goedgekeurd voor kijkers vanaf vijftien jaar. Het gebeurde op verzoek van de regisseur Joseph Strick, die Ierland voor het eerst in 25 jaar bezocht. 'Ik merkte hoezeer Ierland na al die jaren was veranderd en besloot de filmkeuring te vragen het verbod op Ulysses opnieuw te overwegen,' aldus Strick. Ulysses kreeg in 1968 een Oscarnominatie voor het beste scenario. Geen andere film is zo lang uit de Ierse bioscopen geweerd. Vorig jaar werd de blokkade opgeheven op A Clockwork Orange van Stanley Kubrick, die 26 jaar verboden was geweest. Er worden momenteel voorbereidingen getroffen voor een nieuwe verfilming van Ulysses." ; break
                case "benzine" : tekst="Emmen - Net als vrijdag was het ook in het pinksterweekeinde ongekend druk bij het benzinestation van Frank Hoge aan de Ermerweg. Hoge biedt benzine vijftien cent onder de landelijke adviesprijs van Shell aan, op diesel geeft hij twaalf cent korting. Dat is in de smaak gevallen bij de Emmer automobilist. Zaterdagmiddag rond vieren tijd moest hij al 'nee' verkopen aan klanten die voor euro loodvrij kwamen. Waarop Hoge zich gedwongen zag veel vroeger dan anders te sluiten. \"Normaal blijf ik op zaterdag tot negen uur open. Maar ik heb er een hekel aan om klanten te moeten wegsturen en de meesten komen nu eenmaal voor euro loodvrij. Ik heb wel meteen een vrachtwagen besteld, maar die is er pas morgenochtend. Ze hebben beloofd dat ik als eerste aan de beurt ben,\" aldus de eigenaar van de witte pomp." ; break
		case "random" : tekst=randomtext()
	}
	document.getElementById("typeform").voorbeeldvak.value=tekst;
	document.getElementById("typeform").natypevak.value=""

}

function controleerteken()
{
	clearTimeout(t)
	if (document.getElementById("typeform").natypevak.value==document.getElementById("typeform").voorbeeldvak.value.substring(0,document.getElementById("typeform").natypevak.value.length))
	{
		tijd = new Date()
		stoptijd = tijd.getTime()
		duur = Math.floor((stoptijd - starttijd)/1000) / 60
		typesnelheid = Math.round(document.getElementById("typeform").natypevak.value.length / duur)
		if (document.getElementById("statusplaat").src!=goedplaat.src) document.getElementById("statusplaat").src=goedplaat.src
		setSpeedStatus(typesnelheid + " tekens per minuut")
		t=setTimeout("setSpeedStatus('')", 2000)
		if (document.getElementById("typeform").natypevak.value.length==document.getElementById("typeform").voorbeeldvak.value.length&&document.getElementById("typeform").voorbeeldvak.value.length>600)
			maakdiploma()
	}
	else
	{
		//window.status="Je hebt een FOUT gemaakt!"
		if (document.getElementById("statusplaat").src!=foutplaat.src) document.getElementById("statusplaat").src=foutplaat.src
	}
}

function setSpeedStatus(a)
{
  document.getElementById("speedstatus").value=a;
}

function randomtext()
{
	woordlengte=0
	uitvoer="a"
	for (i=0;i<800;i++)
	{
		if ((u=Math.random())>(a=.8) || woordlengte > 7)
			{
				if (uitvoer.charAt(uitvoer.length-1)!=' ')
				{
					uitvoer+=" "
					woordlengte=0}
				}
		else
		{
			uitvoer+=String.fromCharCode(Math.floor(97+u/.8*26))
			woordlengte++
		}
	}
	return uitvoer
}

function begin()
{
	if (document.getElementById("typeform").natypevak.value.length==0)
	{
		tijd = new Date()
		starttijd = tijd.getTime()
		//window.status="De tijd loopt!"
	}
}

function controleer()
{
	if (document.getElementById("typeform").natypevak.value.substring(0,document.getElementById("typeform").voorbeeldvak.value.length)==document.getElementById("typeform").voorbeeldvak.value)
		{ maakdiploma() }
	else
 		{ alert("Er zittten nog fouten in de tekst, haal die eruit en klik nog eens op Klaar") }
}

function maakLeeg()
{
	document.getElementById("typeform").voorbeeldvak.value=""
	document.getElementById("typeform").natypevak.value=""
	document.getElementById("typeform").tekstkeuzevak.selectedIndex=0
}

function maakdiploma()
{
	if (window.confirm("Wil je een typediploma?"))
		diploma=window.open("diploma.php?s="+typesnelheid,"dip","")
}

function geeftypesnelheid() {return typesnelheid}