var Font = "Verdana, Arial, sans-serif";

Quiz = new Object();

Quiz.Title = "Valco-visa";
Quiz.Questions = new Array();

Quiz.Questions[0] = new Object();
Quiz.Questions[0].Question = "Mikä seuraavista ei ollut kotimainen televisiomerkki 1970-luvulla?"
Quiz.Questions[0].Answers = new Array();
Quiz.Questions[0].Answers[0] = "Finlux"
Quiz.Questions[0].Answers[1] = "Dux"
Quiz.Questions[0].Answers[2] = "Asa"
Quiz.Questions[0].Answers[3] = "Salora"
Quiz.Questions[0].Answers[4] = "Suomi-TV"
Quiz.Questions[0].Correct = 1;

Quiz.Questions[1] = new Object();
Quiz.Questions[1].Question = "Valtion kuvaputkitehdas Valco vihittiin käyttöön 24.8.1978 Imatralla. Kuka suoritti virallisen vihkimisen?"
Quiz.Questions[1].Answers = new Array();
Quiz.Questions[1].Answers[0] = "Eduskunnan puhemies Ahti Pekkala"
Quiz.Questions[1].Answers[1] = "Pääministeri Kalevi Sorsa"
Quiz.Questions[1].Answers[2] = "Kauppa- ja teollisuusministeriön kansliapäällikkö Bror Wahlroos"
Quiz.Questions[1].Correct = 0;

Quiz.Questions[2] = new Object();
Quiz.Questions[2].Question = "Valcon ulkomainen teknologiakumppani oli..."
Quiz.Questions[2].Answers = new Array();
Quiz.Questions[2].Answers[0] = "Amerikkalainen RCA"
Quiz.Questions[2].Answers[1] = "Hollantilainen Phillips"
Quiz.Questions[2].Answers[2] = "Japanilainen Hitachi"
Quiz.Questions[2].Answers[3] = "Länsisaksalainen Siemens"
Quiz.Questions[2].Correct = 2;

Quiz.Questions[3] = new Object();

Quiz.Questions[3].Question = "Valtion kuvaputkitehtaan perustaminen Suomeen herätti kiivasta keskustelua eduskunnassa. Hankkeen kannattavuuden sijaan kädenvääntö keskittyi tehtaan tulevaan sijaintiin. Edustajat ehdottivat mm. Ilomantsia, Sotkamoa, Haminaa ja voittanutta Imatraa. Kuinka monta paikkakuntaehdotusta eduskunnassa oli esillä?"
Quiz.Questions[3].Answers = new Array();
Quiz.Questions[3].Answers[0] = "14"
Quiz.Questions[3].Answers[1] = "72"
Quiz.Questions[3].Answers[2] = "26"
Quiz.Questions[3].Correct = 1;

Quiz.Questions[4] = new Object();
Quiz.Questions[4].Question = "Kuvaputkihankkeen alullepanija Salora oli jouluna 1974 hövelillä päällä. Kuka päättäjä ei saanut tuolloin joululahjaksi Saloran 2001-mallista stereolaitetta (arvo 2000mk vuonna 1974, arvo vuonna 2004: 9500mk)?"
Quiz.Questions[4].Answers = new Array();
Quiz.Questions[4].Answers[0] = "Pääministeri Kalevi Sorsa"
Quiz.Questions[4].Answers[1] = "Valtiovarainministeri Johannes Virolainen"
Quiz.Questions[4].Answers[2] = "Liikenneministeri Pekka Tarjanne"
Quiz.Questions[4].Answers[3] = "Sisäministeri Heikki Tuominen"
Quiz.Questions[4].Answers[4] = "Kauppa- ja teollisuusministeri Kristian Gestrin"
Quiz.Questions[4].Answers[5] = "Kauppa- ja teollisuusministeriön kansliapäällikkö Bror Wahlroos"
Quiz.Questions[4].Answers[6] = "Ulkomaankauppaministeri Jermu Laine"

Quiz.Questions[4].Correct = 6;

Quiz.Questions[5] = new Object();
Quiz.Questions[5].Question = "Valcoon liittyvissä Salora-oikeudenkäynneissä tutkittiin myös vuonna 1975 perustetun Saloran komponenttitehtaan Salcompin sijoittaumista Kemijärvelle. Kuka lahjonnan vastaanotosta epäilty oli?"
Quiz.Questions[5].Answers = new Array();
Quiz.Questions[5].Answers[0] = "Kansanedustaja Paavo Väyrynen (kesk)"
Quiz.Questions[5].Answers[1] = "Maaherra Asko Oinas (kesk)"
Quiz.Questions[5].Answers[2] = "Maa- ja metsätalousministeri Heimo Linna (kesk)"
Quiz.Questions[5].Correct = 1;

Quiz.Questions[6] = new Object();
Quiz.Questions[6].Question = "Salora-oikeudenkäynneissä vankeustuomion sai jopa pimeästi televisiokauppaa käyneen TV-Nurmi Oy:n kassaneiti. Kansliapäällikkö Wahlroos joutui syytetyksi vastaanotettuaan lahjaksi täsmälleen samanlaiset laitteet (stereot ja 26 tuuman neliväritelevision) kuin oikeuskanslerin vapautettama pääministeri Sorsa. Kuka lausui tuolloin sanat: 'Suomalainen oikeuskäytäntö toisin sanoen näissä lahjus-asioissa kuurnitsee hyttysiä, mutta nielee kameleita'?"
Quiz.Questions[6].Answers = new Array();
Quiz.Questions[6].Answers[0] = "Juuso Häikiö (kok)"
Quiz.Questions[6].Answers[1] = "Veikko Vennamo (SMP)"
Quiz.Questions[6].Answers[2] = "Tuure Junnila (kok)"
Quiz.Questions[6].Correct = 2;

Quiz.Questions[7] = new Object();
Quiz.Questions[7].Question = "Mitä tapahtui Salora-oikeudenkäynteihin johtaneen rikostutkinnan käynnistäneelle ilmiantajalle, televisiomyyjä Matti Laaksolle, kun hän kertoi poliisille laajasta televisioiden pimeästä kaupasta?"
Quiz.Questions[7].Answers = new Array();
Quiz.Questions[7].Answers[0] = "Hänet toimitettiin Turusta verohallituksen erityiskuulusteluihin Helsinkiin"
Quiz.Questions[7].Answers[1] = "Hänet vietiin Kakolan keskusvankilaan tutkintavankeuteen"
Quiz.Questions[7].Answers[2] = "Hänet passitettiin kolmeen otteeseen Kupittaan mielisairaalaan"
Quiz.Questions[7].Correct = 2;

Quiz.Questions[8] = new Object();
Quiz.Questions[8].Question = "Valcon hallintoneuvoston puheenjohtajuudesta aiemmin kesällä 1978 väistynyt Kalevi Sorsa piti puheen elokuussa Valcon tehtaan vihkimistilaisuudessa. Hänen puheeseensa sisältyi lausahdus..."
Quiz.Questions[8].Answers = new Array();
Quiz.Questions[8].Answers[0] = "Tuossa kivenheittämän päässä sijaitsee Svetogorsk, johon suuntaan aukeaa Valcon valoisa tulevaisuus..."
Quiz.Questions[8].Answers[1] = "Värikuvaputkien markkinakuva näyttää nyt kirkkaammalta kuin pari vuotta sitten, Valcon perustamispäätöstä tehtäessä..."
Quiz.Questions[8].Answers[2] = "Olen erityisen iloinen siitä, että tämä tehdas saatiin tänne Imatralle, neuvostokaasuputken varrelle..."
Quiz.Questions[8].Correct = 1;

Quiz.Questions[9] = new Object();
Quiz.Questions[9].Question = "Valcon tehdas vihittiin käyttöön elokuun lopussa 1978. Yhtiö irtisanoi 14.9.1979 koko henkilökuntansa. Myöhemmin toimintaa jatkaneen Finnvalco Oy:n kuvaputkitehtaan toiminta pysähtyi lopullisesti 19.12.1980. Tehtaan oli määrä tuottaa vuoden 1978 neljänä viimeisenä kuukautena 2000 kuvaputkea päivässä. Kuinka monta putkea tehdas toimitti asiakkailleen vuoden loppuun mennessä?"
Quiz.Questions[9].Answers = new Array();
Quiz.Questions[9].Answers[0] = "250 000 kuvaputkea"
Quiz.Questions[9].Answers[1] = "95 000 kuvaputkea"
Quiz.Questions[9].Answers[2] = "1000 kuvaputkea"
Quiz.Questions[9].Correct = 2;


function AddQuiz() {
	document.writeln("<H1>" + Quiz.Title + "</H1>");
	document.writeln("<form name=\"quiz_form\">");
	for (x = 0; x < Quiz.Questions.length; x++) {
		document.writeln("<p><font face=\"" + Font + "\" size=\"-1\">" + (x + 1) + ") " + Quiz.Questions[x].Question + "</font></p>");
		//document.writeln("<p><select name=\"question_" + x +"\">");
		//document.writeln("<option>Select One ");
		for (y = 0; y < Quiz.Questions[x].Answers.length; y++) {

		// Lisätyt rivit
			document.writeln('<input type="radio" name="question_'+x+'" value="'+y+'">'+Quiz.Questions[x].Answers[y]);
			document.writeln('<br>');
		// tähän asti
		//	document.writeln("<option>" + Quiz.Questions[x].Answers[y]);
		}
		//document.writeln("</select></p>");
	}
	document.writeln("<p>");
	document.writeln("<input type=\"button\" value=\"Tarkista kekkoslaisuutesi\" onclick=\"SubmitQuiz();\">");
	document.writeln("<input type=\"reset\" value=\"Tyhjenn&auml;\">");
	document.writeln("</p>");
	document.writeln("</form>");

}

function SubmitQuiz() {
	Quiz.Score = 0;
	for (x = 0; x < Quiz.Questions.length; x++) {

	// Lisätyt rivit
		var rbName = 'question_'+x;
		var rbArray = document.quiz_form.elements[rbName];
		z = -1;
		for (y = 0; y < rbArray.length; y++) {
			if (rbArray[y].checked) z = y;
		}
 	// tähän asti
		//eval("var z = document.quiz_form.question_" + x + ".selectedIndex - 1;");
		if (z == Quiz.Questions[x].Correct) Quiz.Score++;
	}
	ScoreWindow = window.open("","score","height=400, width=350, scrollbars=no, resizable=no, status=no");
	ScoreWindow.document.writeln("<html><head><title>Itsekritiikki</title></head><body>");
	ScoreWindow.document.writeln("<p><font face=\"" + Font + "\" size=\"+3\">Itsekritiikin tulokset</font></p>");
	ScoreWindow.document.writeln("<p><font face=\"" + Font + "\" size=\"-1\">Pisteesi: <b>" + Quiz.Score + " / " + Quiz.Questions.length + "</b></p>");
	var sRank = Quiz.Score / Quiz.Questions.length;
	if (sRank >= 0.8) var Rank = "Uusitalolainen";
	if (sRank < 0.8) var Rank = "Repolainen";
	if (sRank < 0.6) var Rank = "Kanervalainen";
	if (sRank < 0.4) var Rank = "Leskisläinen";
	if (sRank < 0.2) var Rank = "Vennamolainen";
	if (sRank == 0) var Rank = "Honkalainen";
	ScoreWindow.document.writeln("<p>Kekkoslaisuutesi: <b>" + Rank + "</b></p>");


//vastaukset
//	for (x = 0; x < Quiz.Questions.length; x++) {
//	ScoreWindow.document.writeln("<font face=\"" + Font + "\" size=\"-2\">" + (x + 1) + ") </font><br>");}


	ScoreWindow.document.writeln("Oikeamieliset vastaukset: <br><br>")
	ScoreWindow.document.writeln("1) <b>Dux</b><br>")
	ScoreWindow.document.writeln("2) <b>Eduskunnan puhemies Ahti Pekkala</b><br>")
	ScoreWindow.document.writeln("3) <b>Japanilainen Hitachi</b><br>")
	ScoreWindow.document.writeln("4) <b>72</b><br>")
	ScoreWindow.document.writeln("5) <b>Jermu Laine, joka kävi 1974 vaimoineen Saloran yksityiskonneella Nigeriassa ja Mallorcalla.</b><br>")
	ScoreWindow.document.writeln("6) <b>Maaherra Asko Oinas (kesk)</b><br>")
	ScoreWindow.document.writeln("7) <b>Tuure Junnila (kok)</b><br>")
	ScoreWindow.document.writeln("8) <b>Hänet suljettiin mielisairaalaan</b><br>")
	ScoreWindow.document.writeln("9) <b>Värikuvaputkien markkinakuva näyttää...</b><br>")
	ScoreWindow.document.writeln("10) <b>1000 kuvaputkea</b><br>")


	ScoreWindow.document.writeln("<p><a href=\"javascript:window.close();\">Sulje ikkuna</a></p>");

}