$question=1
$erreur=0

$1="der Wecker"
$2="der Park"
$3="der Koffer"
$4="der Platz"
$5="der Laden"
$6="der Mann"
$7="der Fluss"
$8="der Hahn"
$9="der Fuss"
$10="der Zug"
$11="der Wagen"
$12="der Käse"
$13="der Schlips"
$14="der Arm"
$15="der Rock"
$16="der See"
$17="der Frühling"
$18="der Mai"
$19="der Schuh"
$20="der Monat"
$21="der Bahnhof"
$22="der Durst"
$23="der Affe"
$24="der Kamm"
$25="der Topf"
$26="der Vater"
$27="der Finger"
$28="der Sohn"
$29="der Stuhl"
$30="der Arzt"
$31="der Tisch"
$32="der Löffel"
$33="der Hund"
$34="der Wind"
$35="der Tag"
$36="der Nagel"
$37="der Brief"
$38="der Regen"
$39="der Hut"
$40="der Regenhut"
$41="die Schokolade"
$42="die Sonne"
$43="die Nacht"
$44="die Hand"
$45="die Insel"
$46="die Wurst"
$47="die Geburt"
$48="die Blume"
$49="die Spitze"
$50="die Lampe"
$51="die Tankstelle"
$52="die Torte"
$53="die Liebe"
$54="die Tante"
$55="die Post"
$56="die Ruine"
$57="die Farbe"
$58="die Uhr"
$59="die Gitarre"
$60="die Übung"
$61="die Kuh"
$62="die Schulter"
$63="die Frau"
$64="die Hose"
$65="die Spinne"
$66="die Kassette"
$67="die Butter"
$68="die Nase"
$69="die Kasse"
$70="die Stadt"
$71="die Erde"
$72="die Brille"
$73="die Katze"
$74="die Ente"
$75="die Sau"
$76="die Decke"
$77="das Knie"
$78="das Messer"
$79="das Obst"
$80="das Telephon"
$81="das Hänhchen"
$82="das Fahrrad"
$83="das Baby"
$84="das Plakat"
$85="das Spiel"
$86="das Kleid"
$87="das Glas"
$88="das Theater"
$89="das Auge"
$90="das Zelt"
$91="das Benzin"
$92="das Ende"
$93="das Frühstück"
$94="das Lineal"
$95="das Gras"
$96="das Tal"
$97="das Öl"
$98="das Herz"
$99="das Moped"
$100="das Geld"
$101="das Feuer"
$102="das Tier"
$103="das Fenster"
$104="das Haar"
$105="das Netz"
$106="das Kind"
$107="das Ei"
$108="das Fernsehen"
$109="das Klavier"
$110="das Mädchen"
$111="das Zimmer"

$1_="Réveil"
$2_="Parc"
$3_="Valise"
$4_="Place"
$5_="Boutique"
$6_="Homme"
$7_="Fleuve"
$8_="Coq"
$9_="Pied"
$10_="Train"
$11_="Voiture"
$12_="Fromage"
$13_="Cravatte"
$14_="Bras"
$15_="Jupe"
$16_="Lac"
$17_="Printemps"
$18_="Mai"
$19_="Chaussure"
$20_="Mois"
$21_="Gare"
$22_="Soif"
$23_="Singe"
$24_="Peigne"
$25_="Casserole"
$26_="Père"
$27_="Doigt"
$28_="Fils"
$29_="Chaise"
$30_="Médecin"
$31_="Table"
$32_="Cuillère"
$33_="Chien"
$34_="Vent"
$35_="Jour"
$36_="Clou"
$36__="Ongle"
$37_="Lettre"
$38_="Pluie"
$39_="Chapeau"
$40_="Chapeau de pluie"
$41_="Chocolat"
$42_="Soleil"
$43_="Nuit"
$44_="Main"
$45_="Île"
$46_="Saucisse"
$47_="Naissance"
$48_="Fleur"
$49_="Pointe"
$50_="Lampe"
$51_="Station service"
$52_="Tarte"
$53_="Amour"
$54_="Tante"
$55_="La Poste"
$55__="Courrier"
$56_="Ruine"
$57_="Couleur"
$58_="Heure"
$58__="Montre"
$59_="Guitarre"
$60_="Exercice"
$61_="Vache"
$62_="Epaule"
$63_="Femme"
$64_="Pantalon"
$65_="Arraignée"
$66_="Cassette"
$67_="Beurre"
$68_="Nez"
$69_="Caisse"
$70_="Ville"
$71_="Terre"
$72_="Lunettes"
$73_="Chat"
$74_="Canard"
$75_="Truie"
$76_="Couverture"
$77_="Genoux"
$78_="Couteau"
$79_="Fruits"
$80_="Téléphone"
$81_="Poulet"
$82_="Vélo"
$83_="Bébé"
$84_="Affiche"
$85_="Jeu"
$85__="Match"
$86_="Robe"
$87_="Verre"
$88_="Théâtre"
$89_="Oeil"
$90_="Tente"
$91_="Essence"
$92_="Fin"
$93_="Petit Déjeuner"
$94_="Règle (matériel)"
$95_="Herbe"
$96_="Vallée"
$97_="Huile"
$98_="Coeur"
$99_="Mobylette"
$100_="Argent"
$101_="Feu"
$102_="Animal"
$103_="Fenêtre"
$104_="Cheveux / Chevelure"
$105_="Filet"
$106_="Enfant"
$107_="Oeuf"
$108_="Télévision"
$109_="Piano"
$110_="Fille"
$111_="Pièce / Chambre"

msgbox(0,"Démarrage","Commencer le Test")

While 1
	$mot = random(1, 115, 1)
	
	If $mot=1 Then
		$mot1=IniRead("allemand.ini", "---1---", "Mot 1", 0)
		If $mot1=0 Then
			IniWrite("allemand.ini", "---1---", "Mot 1", "1")
			$rep1=InputBox("Question "&$question&"", ""&$1_&" ?")
			If $rep1=$1 Then
				;rien
			Else
				IniWrite("erreur.ini", "---1---", "Faute ", ""&$rep1&" --> Corrigé : "&$1&"")
				$erreur=$erreur+1
			EndIf
		EndIf
	EndIf
	
	If $mot=2 Then
		$mot2=IniRead("allemand.ini", "---2---", "Mot 2", 0)
		If $mot2=0 Then
			IniWrite("allemand.ini", "---2---", "Mot 2", "2")
			$rep2=InputBox("Question "&$question&"", ""&$2_&" ?")
			If $rep2=$2 Then
				;rien
			Else
				IniWrite("erreur.ini", "---2---", "Faute ", ""&$rep2&" --> Corrigé : "&$2&"")
				$erreur=$erreur+1
			EndIf
		EndIf
	EndIf
	
	If $mot=3 Then
		$mot3=IniRead("allemand.ini", "---3---", "Mot 3", 0)
		If $mot3=0 Then
			IniWrite("allemand.ini", "---3---", "Mot 3", "3")
			$rep3=InputBox("Question "&$question&"", ""&$3_&" ?")
			If $rep3=$3 Then
				;rien
			Else
				IniWrite("erreur.ini", "---3---", "Faute ", ""&$rep3&" --> Corrigé : "&$3&"")
				$erreur=$erreur+1
			EndIf
		EndIf
	EndIf
	
	If $mot=4 Then
		$mot4=IniRead("allemand.ini", "---4---", "Mot 4", 0)
		If $mot4=0 Then
			IniWrite("allemand.ini", "---4---", "Mot 4", "4")
			$rep4=InputBox("Question "&$question&"", ""&$4_&" ?")
			If $rep4=$4 Then
				;rien
			Else
				IniWrite("erreur.ini", "---4---", "Faute ", ""&$rep4&" --> Corrigé : "&$4&"")
				$erreur=$erreur+1
			EndIf
		EndIf
	EndIf
	
	If $mot=5 Then
		$mot5=IniRead("allemand.ini", "---5---", "Mot 5", 0)
		If $mot5=0 Then
			IniWrite("allemand.ini", "---5---", "Mot 5", "5")
			$rep5=InputBox("Question "&$question&"", ""&$5_&" ?")
			If $rep5=$5 Then
				;rien
			Else
				IniWrite("erreur.ini", "---5---", "Faute ", ""&$rep5&" --> Corrigé : "&$5&"")
				$erreur=$erreur+1
			EndIf
		EndIf
	EndIf
	
	If $mot=6 Then
		$mot6=IniRead("allemand.ini", "---6---", "Mot 6", 0)
		If $mot6=0 Then
			IniWrite("allemand.ini", "---6---", "Mot 6", "6")
			$rep6=InputBox("Question "&$question&"", ""&$6_&" ?")
			If $rep6=$6 Then
				;rien
			Else
				IniWrite("erreur.ini", "---6---", "Faute ", ""&$rep6&" --> Corrigé : "&$6&"")
				$erreur=$erreur+1
			EndIf
		EndIf
	EndIf
	
	If $mot=7 Then
		$mot7=IniRead("allemand.ini", "---7---", "Mot 7", 0)
		If $mot7=0 Then
			IniWrite("allemand.ini", "---7---", "Mot 7", "7")
			$rep7=InputBox("Question "&$question&"", ""&$7_&" ?")
			If $rep7=$7 Then
				;rien
			Else
				IniWrite("erreur.ini", "---7---", "Faute ", ""&$rep7&" --> Corrigé : "&$7&"")
				$erreur=$erreur+1
			EndIf
		EndIf
	EndIf
	
	If $mot=8 Then
		$mot8=IniRead("allemand.ini", "---8---", "Mot 8", 0)
		If $mot8=0 Then
			IniWrite("allemand.ini", "---8---", "Mot 8", "8")
			$rep8=InputBox("Question "&$question&"", ""&$8_&" ?")
			If $rep8=$8 Then
				;rien
			Else
				IniWrite("erreur.ini", "---8---", "Faute ", ""&$rep8&" --> Corrigé : "&$8&"")
				$erreur=$erreur+1
			EndIf
		EndIf
	EndIf
	
	If $mot=9 Then
		$mot9=IniRead("allemand.ini", "---9---", "Mot 9", 0)
		If $mot9=0 Then
			IniWrite("allemand.ini", "---9---", "Mot 9", "9")
			$rep9=InputBox("Question "&$question&"", ""&$9_&" ?")
			If $rep9=$9 Then
				;rien
			Else
				IniWrite("erreur.ini", "---9---", "Faute ", ""&$rep9&" --> Corrigé : "&$9&"")
				$erreur=$erreur+1
			EndIf
		EndIf
	EndIf
	
	If $mot=10 Then
		$mot10=IniRead("allemand.ini", "---10---", "Mot 10", 0)
		If $mot10=0 Then
			IniWrite("allemand.ini", "---10---", "Mot 10", "10")
			$rep10=InputBox("Question "&$question&"", ""&$10_&" ?")
			If $rep10=$10 Then
				;rien
			Else
				IniWrite("erreur.ini", "---10---", "Faute ", ""&$rep10&" --> Corrigé : "&$10&"")
				$erreur=$erreur+1
			EndIf
		EndIf
	EndIf
	
	If $mot=11 Then
		$mot11=IniRead("allemand.ini", "---11---", "Mot 11", 0)
		If $mot11=0 Then
			IniWrite("allemand.ini", "---11---", "Mot 11", "11")
			$rep11=InputBox("Question "&$question&"", ""&$11_&" ?")
			If $rep11=$11 Then
				;rien
			Else
				IniWrite("erreur.ini", "---11---", "Faute ", ""&$rep11&" --> Corrigé : "&$11&"")
				$erreur=$erreur+1
			EndIf
		EndIf
	EndIf
	
	If $mot=12 Then
		$mot12=IniRead("allemand.ini", "---12---", "Mot 12", 0)
		If $mot12=0 Then
			IniWrite("allemand.ini", "---12---", "Mot 12", "12")
			$rep12=InputBox("Question "&$question&"", ""&$12_&" ?")
			If $rep12=$12 Then
				;rien
			Else
				IniWrite("erreur.ini", "---12---", "Faute ", ""&$rep12&" --> Corrigé : "&$12&"")
				$erreur=$erreur+1
			EndIf
		EndIf
	EndIf
	
	If $mot=13 Then
		$mot13=IniRead("allemand.ini", "---13---", "Mot 13", 0)
		If $mot13=0 Then
			IniWrite("allemand.ini", "---13---", "Mot 13", "13")
			$rep13=InputBox("Question "&$question&"", ""&$13_&" ?")
			If $rep13=$13 Then
				;rien
			Else
				IniWrite("erreur.ini", "---13---", "Faute ", ""&$rep13&" --> Corrigé : "&$13&"")
				$erreur=$erreur+1
			EndIf
		EndIf
	EndIf
	
	If $mot=14 Then
		$mot14=IniRead("allemand.ini", "---14---", "Mot 14", 0)
		If $mot14=0 Then
			IniWrite("allemand.ini", "---14---", "Mot 14", "14")
			$rep14=InputBox("Question "&$question&"", ""&$14_&" ?")
			If $rep14=$14 Then
				;rien
			Else
				IniWrite("erreur.ini", "---14---", "Faute ", ""&$rep14&" --> Corrigé : "&$14&"")
				$erreur=$erreur+1
			EndIf
		EndIf
	EndIf
	
	If $mot=15 Then
		$mot15=IniRead("allemand.ini", "---15---", "Mot 15", 0)
		If $mot15=0 Then
			IniWrite("allemand.ini", "---15---", "Mot 15", "15")
			$rep15=InputBox("Question "&$question&"", ""&$15_&" ?")
			If $rep15=$15 Then
				;rien
			Else
				IniWrite("erreur.ini", "---15---", "Faute ", ""&$rep15&" --> Corrigé : "&$15&"")
				$erreur=$erreur+1
			EndIf
		EndIf
	EndIf
	
	If $mot=16 Then
		$mot16=IniRead("allemand.ini", "---16---", "Mot 16", 0)
		If $mot16=0 Then
			IniWrite("allemand.ini", "---16---", "Mot 16", "16")
			$rep16=InputBox("Question "&$question&"", ""&$16_&" ?")
			If $rep16=$16 Then
				;rien
			Else
				IniWrite("erreur.ini", "---16---", "Faute ", ""&$rep16&" --> Corrigé : "&$16&"")
				$erreur=$erreur+1
			EndIf
		EndIf
	EndIf
	
	If $mot=17 Then
		$mot17=IniRead("allemand.ini", "---17---", "Mot 17", 0)
		If $mot17=0 Then
			IniWrite("allemand.ini", "---17---", "Mot 17", "17")
			$rep17=InputBox("Question "&$question&"", ""&$17_&" ?")
			If $rep17=$17 Then
				;rien
			Else
				IniWrite("erreur.ini", "---17---", "Faute ", ""&$rep17&" --> Corrigé : "&$17&"")
				$erreur=$erreur+1
			EndIf
		EndIf
	EndIf
	
	If $mot=18 Then
		$mot18=IniRead("allemand.ini", "---18---", "Mot 18", 0)
		If $mot18=0 Then
			IniWrite("allemand.ini", "---18---", "Mot 18", "18")
			$rep18=InputBox("Question "&$question&"", ""&$18_&" ?")
			If $rep18=$18 Then
				;rien
			Else
				IniWrite("erreur.ini", "---18---", "Faute ", ""&$rep18&" --> Corrigé : "&$18&"")
				$erreur=$erreur+1
			EndIf
		EndIf
	EndIf
	
	If $mot=19 Then
		$mot19=IniRead("allemand.ini", "---19---", "Mot 19", 0)
		If $mot19=0 Then
			IniWrite("allemand.ini", "---19---", "Mot 19", "19")
			$rep19=InputBox("Question "&$question&"", ""&$19_&" ?")
			If $rep19=$19 Then
				;rien
			Else
				IniWrite("erreur.ini", "---19---", "Faute ", ""&$rep19&" --> Corrigé : "&$19&"")
				$erreur=$erreur+1
			EndIf
		EndIf
	EndIf
	
	If $mot=20 Then
		$mot20=IniRead("allemand.ini", "---20---", "Mot 20", 0)
		If $mot20=0 Then
			IniWrite("allemand.ini", "---20---", "Mot 20", "20")
			$rep20=InputBox("Question "&$question&"", ""&$20_&" ?")
			If $rep20=$20 Then
				;rien
			Else
				IniWrite("erreur.ini", "---20---", "Faute ", ""&$rep20&" --> Corrigé : "&$20&"")
				$erreur=$erreur+1
			EndIf
		EndIf
	EndIf
	
	If $mot=21 Then
		$mot21=IniRead("allemand.ini", "---21---", "Mot 21", 0)
		If $mot21=0 Then
			IniWrite("allemand.ini", "---21---", "Mot 21", "21")
			$rep21=InputBox("Question "&$question&"", ""&$21_&" ?")
			If $rep21=$21 Then
				;rien
			Else
				IniWrite("erreur.ini", "---21---", "Faute ", ""&$rep21&" --> Corrigé : "&$21&"")
				$erreur=$erreur+1
			EndIf
		EndIf
	EndIf
	
	If $mot=22 Then
		$mot22=IniRead("allemand.ini", "---22---", "Mot 22", 0)
		If $mot22=0 Then
			IniWrite("allemand.ini", "---22---", "Mot 22", "22")
			$rep22=InputBox("Question "&$question&"", ""&$22_&" ?")
			If $rep22=$22 Then
				;rien
			Else
				IniWrite("erreur.ini", "---22---", "Faute ", ""&$rep22&" --> Corrigé : "&$22&"")
				$erreur=$erreur+1
			EndIf
		EndIf
	EndIf
	
	If $mot=23 Then
		$mot23=IniRead("allemand.ini", "---23---", "Mot 23", 0)
		If $mot23=0 Then
			IniWrite("allemand.ini", "---23---", "Mot 23", "23")
			$rep23=InputBox("Question "&$question&"", ""&$23_&" ?")
			If $rep23=$23 Then
				;rien
			Else
				IniWrite("erreur.ini", "---23---", "Faute ", ""&$rep23&" --> Corrigé : "&$23&"")
				$erreur=$erreur+1
			EndIf
		EndIf
	EndIf
	
	If $mot=24 Then
		$mot24=IniRead("allemand.ini", "---24---", "Mot 24", 0)
		If $mot24=0 Then
			IniWrite("allemand.ini", "---24---", "Mot 24", "24")
			$rep24=InputBox("Question "&$question&"", ""&$24_&" ?")
			If $rep24=$24 Then
				;rien
			Else
				IniWrite("erreur.ini", "---24---", "Faute ", ""&$rep24&" --> Corrigé : "&$24&"")
				$erreur=$erreur+1
			EndIf
		EndIf
	EndIf
	
	If $mot=25 Then
		$mot25=IniRead("allemand.ini", "---25---", "Mot 25", 0)
		If $mot25=0 Then
			IniWrite("allemand.ini", "---25---", "Mot 25", "25")
			$rep25=InputBox("Question "&$question&"", ""&$25_&" ?")
			If $rep25=$25 Then
				;rien
			Else
				IniWrite("erreur.ini", "---25---", "Faute ", ""&$rep25&" --> Corrigé : "&$25&"")
				$erreur=$erreur+1
			EndIf
		EndIf
	EndIf
	
	If $mot=26 Then
		$mot26=IniRead("allemand.ini", "---26---", "Mot 26", 0)
		If $mot26=0 Then
			IniWrite("allemand.ini", "---26---", "Mot 26", "26")
			$rep26=InputBox("Question "&$question&"", ""&$26_&" ?")
			If $rep26=$26 Then
				;rien
			Else
				IniWrite("erreur.ini", "---26---", "Faute ", ""&$rep26&" --> Corrigé : "&$26&"")
				$erreur=$erreur+1
			EndIf
		EndIf
	EndIf
	
	If $mot=27 Then
		$mot27=IniRead("allemand.ini", "---27---", "Mot 27", 0)
		If $mot27=0 Then
			IniWrite("allemand.ini", "---27---", "Mot 27", "27")
			$rep27=InputBox("Question "&$question&"", ""&$27_&" ?")
			If $rep27=$27 Then
				;rien
			Else
				IniWrite("erreur.ini", "---27---", "Faute ", ""&$rep27&" --> Corrigé : "&$27&"")
				$erreur=$erreur+1
			EndIf
		EndIf
	EndIf
	
	If $mot=28 Then
		$mot28=IniRead("allemand.ini", "---28---", "Mot 28", 0)
		If $mot28=0 Then
			IniWrite("allemand.ini", "---28---", "Mot 28", "28")
			$rep28=InputBox("Question "&$question&"", ""&$28_&" ?")
			If $rep28=$28 Then
				;rien
			Else
				IniWrite("erreur.ini", "---28---", "Faute ", ""&$rep28&" --> Corrigé : "&$28&"")
				$erreur=$erreur+1
			EndIf
		EndIf
	EndIf
	
	If $mot=29 Then
		$mot29=IniRead("allemand.ini", "---29---", "Mot 29", 0)
		If $mot29=0 Then
			IniWrite("allemand.ini", "---29---", "Mot 29", "29")
			$rep29=InputBox("Question "&$question&"", ""&$29_&" ?")
			If $rep29=$29 Then
				;rien
			Else
				IniWrite("erreur.ini", "---29---", "Faute ", ""&$rep29&" --> Corrigé : "&$29&"")
				$erreur=$erreur+1
			EndIf
		EndIf
	EndIf
	
	If $mot=30 Then
		$mot30=IniRead("allemand.ini", "---30---", "Mot 30", 0)
		If $mot30=0 Then
			IniWrite("allemand.ini", "---30---", "Mot 30", "30")
			$rep30=InputBox("Question "&$question&"", ""&$30_&" ?")
			If $rep30=$30 Then
				;rien
			Else
				IniWrite("erreur.ini", "---30---", "Faute ", ""&$rep30&" --> Corrigé : "&$30&"")
				$erreur=$erreur+1
			EndIf
		EndIf
	EndIf
	
	If $mot=31 Then
		$mot31=IniRead("allemand.ini", "---31---", "Mot 31", 0)
		If $mot31=0 Then
			IniWrite("allemand.ini", "---31---", "Mot 31", "31")
			$rep31=InputBox("Question "&$question&"", ""&$31_&" ?")
			If $rep31=$31 Then
				;rien
			Else
				IniWrite("erreur.ini", "---31---", "Faute ", ""&$rep31&" --> Corrigé : "&$31&"")
				$erreur=$erreur+1
			EndIf
		EndIf
	EndIf
	
	If $mot=32 Then
		$mot32=IniRead("allemand.ini", "---32---", "Mot 32", 0)
		If $mot32=0 Then
			IniWrite("allemand.ini", "---32---", "Mot 32", "32")
			$rep32=InputBox("Question "&$question&"", ""&$32_&" ?")
			If $rep32=$32 Then
				;rien
			Else
				IniWrite("erreur.ini", "---32---", "Faute ", ""&$rep32&" --> Corrigé : "&$32&"")
				$erreur=$erreur+1
			EndIf
		EndIf
	EndIf
	
	If $mot=33 Then
		$mot33=IniRead("allemand.ini", "---33---", "Mot 33", 0)
		If $mot33=0 Then
			IniWrite("allemand.ini", "---33---", "Mot 33", "33")
			$rep33=InputBox("Question "&$question&"", ""&$33_&" ?")
			If $rep33=$33 Then
				;rien
			Else
				IniWrite("erreur.ini", "---33---", "Faute ", ""&$rep33&" --> Corrigé : "&$33&"")
				$erreur=$erreur+1
			EndIf
		EndIf
	EndIf
	
	If $mot=34 Then
		$mot34=IniRead("allemand.ini", "---34---", "Mot 34", 0)
		If $mot34=0 Then
			IniWrite("allemand.ini", "---34---", "Mot 34", "34")
			$rep34=InputBox("Question "&$question&"", ""&$34_&" ?")
			If $rep34=$34 Then
				;rien
			Else
				IniWrite("erreur.ini", "---34---", "Faute ", ""&$rep34&" --> Corrigé : "&$34&"")
				$erreur=$erreur+1
			EndIf
		EndIf
	EndIf
	
	If $mot=35 Then
		$mot35=IniRead("allemand.ini", "---35---", "Mot 35", 0)
		If $mot35=0 Then
			IniWrite("allemand.ini", "---35---", "Mot 35", "35")
			$rep35=InputBox("Question "&$question&"", ""&$35_&" ?")
			If $rep35=$35 Then
				;rien
			Else
				IniWrite("erreur.ini", "---35---", "Faute ", ""&$rep35&" --> Corrigé : "&$35&"")
				$erreur=$erreur+1
			EndIf
		EndIf
	EndIf
	
	If $mot=36 Then
		$mot36=IniRead("allemand.ini", "---36---", "Mot 36", 0)
		If $mot36=0 Then
			IniWrite("allemand.ini", "---36---", "Mot 36", "36")
			$rep36=InputBox("Question "&$question&"", ""&$36_&" ?")
			If $rep36=$36 Then
				;rien
			Else
				IniWrite("erreur.ini", "---36---", "Faute ", ""&$rep36&" --> Corrigé : "&$36&"")
				$erreur=$erreur+1
			EndIf
		EndIf
	EndIf
	
	If $mot=37 Then
		$mot37=IniRead("allemand.ini", "---37---", "Mot 37", 0)
		If $mot37=0 Then
			IniWrite("allemand.ini", "---37---", "Mot 37", "37")
			$rep37=InputBox("Question "&$question&"", ""&$37_&" ?")
			If $rep37=$37 Then
				;rien
			Else
				IniWrite("erreur.ini", "---37---", "Faute ", ""&$rep37&" --> Corrigé : "&$37&"")
				$erreur=$erreur+1
			EndIf
		EndIf
	EndIf
	
	If $mot=38 Then
		$mot38=IniRead("allemand.ini", "---38---", "Mot 38", 0)
		If $mot38=0 Then
			IniWrite("allemand.ini", "---38---", "Mot 38", "38")
			$rep38=InputBox("Question "&$question&"", ""&$38_&" ?")
			If $rep38=$38 Then
				;rien
			Else
				IniWrite("erreur.ini", "---38---", "Faute ", ""&$rep38&" --> Corrigé : "&$38&"")
				$erreur=$erreur+1
			EndIf
		EndIf
	EndIf
	
	If $mot=39 Then
		$mot39=IniRead("allemand.ini", "---39---", "Mot 39", 0)
		If $mot39=0 Then
			IniWrite("allemand.ini", "---39---", "Mot 39", "39")
			$rep39=InputBox("Question "&$question&"", ""&$39_&" ?")
			If $rep39=$39 Then
				;rien
			Else
				IniWrite("erreur.ini", "---39---", "Faute ", ""&$rep39&" --> Corrigé : "&$39&"")
				$erreur=$erreur+1
			EndIf
		EndIf
	EndIf
	
	If $mot=40 Then
		$mot40=IniRead("allemand.ini", "---40---", "Mot 40", 0)
		If $mot40=0 Then
			IniWrite("allemand.ini", "---40---", "Mot 40", "40")
			$rep40=InputBox("Question "&$question&"", ""&$40_&" ?")
			If $rep40=$40 Then
				;rien
			Else
				IniWrite("erreur.ini", "---40---", "Faute ", ""&$rep40&" --> Corrigé : "&$40&"")
				$erreur=$erreur+1
			EndIf
		EndIf
	EndIf
	
	If $mot=41 Then
		$mot41=IniRead("allemand.ini", "---41---", "Mot 41", 0)
		If $mot41=0 Then
			IniWrite("allemand.ini", "---41---", "Mot 41", "41")
			$rep41=InputBox("Question "&$question&"", ""&$41_&" ?")
			If $rep41=$41 Then
				;rien
			Else
				IniWrite("erreur.ini", "---41---", "Faute ", ""&$rep41&" --> Corrigé : "&$41&"")
				$erreur=$erreur+1
			EndIf
		EndIf
	EndIf
	
	If $mot=42 Then
		$mot42=IniRead("allemand.ini", "---42---", "Mot 42", 0)
		If $mot42=0 Then
			IniWrite("allemand.ini", "---42---", "Mot 42", "42")
			$rep42=InputBox("Question "&$question&"", ""&$42_&" ?")
			If $rep42=$42 Then
				;rien
			Else
				IniWrite("erreur.ini", "---42---", "Faute ", ""&$rep42&" --> Corrigé : "&$42&"")
				$erreur=$erreur+1
			EndIf
		EndIf
	EndIf
	
	If $mot=43 Then
		$mot43=IniRead("allemand.ini", "---43---", "Mot 43", 0)
		If $mot43=0 Then
			IniWrite("allemand.ini", "---43---", "Mot 43", "43")
			$rep43=InputBox("Question "&$question&"", ""&$43_&" ?")
			If $rep43=$43 Then
				;rien
			Else
				IniWrite("erreur.ini", "---43---", "Faute ", ""&$rep43&" --> Corrigé : "&$43&"")
				$erreur=$erreur+1
			EndIf
		EndIf
	EndIf
	
	If $mot=44 Then
		$mot44=IniRead("allemand.ini", "---44---", "Mot 44", 0)
		If $mot44=0 Then
			IniWrite("allemand.ini", "---44---", "Mot 44", "44")
			$rep44=InputBox("Question "&$question&"", ""&$44_&" ?")
			If $rep44=$44 Then
				;rien
			Else
				IniWrite("erreur.ini", "---44---", "Faute ", ""&$rep44&" --> Corrigé : "&$44&"")
				$erreur=$erreur+1
			EndIf
		EndIf
	EndIf
	
	If $mot=45 Then
		$mot45=IniRead("allemand.ini", "---45---", "Mot 45", 0)
		If $mot45=0 Then
			IniWrite("allemand.ini", "---45---", "Mot 45", "45")
			$rep45=InputBox("Question "&$question&"", ""&$45_&" ?")
			If $rep45=$45 Then
				;rien
			Else
				IniWrite("erreur.ini", "---45---", "Faute ", ""&$rep45&" --> Corrigé : "&$45&"")
				$erreur=$erreur+1
			EndIf
		EndIf
	EndIf
	
	If $mot=46 Then
		$mot46=IniRead("allemand.ini", "---46---", "Mot 46", 0)
		If $mot46=0 Then
			IniWrite("allemand.ini", "---46---", "Mot 46", "46")
			$rep46=InputBox("Question "&$question&"", ""&$46_&" ?")
			If $rep46=$46 Then
				;rien
			Else
				IniWrite("erreur.ini", "---46---", "Faute ", ""&$rep46&" --> Corrigé : "&$46&"")
				$erreur=$erreur+1
			EndIf
		EndIf
	EndIf
	
	If $mot=47 Then
		$mot47=IniRead("allemand.ini", "---47---", "Mot 47", 0)
		If $mot47=0 Then
			IniWrite("allemand.ini", "---47---", "Mot 47", "47")
			$rep47=InputBox("Question "&$question&"", ""&$47_&" ?")
			If $rep47=$47 Then
				;rien
			Else
				IniWrite("erreur.ini", "---47---", "Faute ", ""&$rep47&" --> Corrigé : "&$47&"")
				$erreur=$erreur+1
			EndIf
		EndIf
	EndIf
	
	If $mot=48 Then
		$mot48=IniRead("allemand.ini", "---48---", "Mot 48", 0)
		If $mot48=0 Then
			IniWrite("allemand.ini", "---48---", "Mot 48", "48")
			$rep48=InputBox("Question "&$question&"", ""&$48_&" ?")
			If $rep48=$48 Then
				;rien
			Else
				IniWrite("erreur.ini", "---48---", "Faute ", ""&$rep48&" --> Corrigé : "&$48&"")
				$erreur=$erreur+1
			EndIf
		EndIf
	EndIf
	
	If $mot=49 Then
		$mot49=IniRead("allemand.ini", "---49---", "Mot 49", 0)
		If $mot49=0 Then
			IniWrite("allemand.ini", "---49---", "Mot 49", "49")
			$rep49=InputBox("Question "&$question&"", ""&$49_&" ?")
			If $rep49=$49 Then
				;rien
			Else
				IniWrite("erreur.ini", "---49---", "Faute ", ""&$rep49&" --> Corrigé : "&$49&"")
				$erreur=$erreur+1
			EndIf
		EndIf
	EndIf
	
	If $mot=50 Then
		$mot50=IniRead("allemand.ini", "---50---", "Mot 50", 0)
		If $mot50=0 Then
			IniWrite("allemand.ini", "---50---", "Mot 50", "50")
			$rep50=InputBox("Question "&$question&"", ""&$50_&" ?")
			If $rep50=$50 Then
				;rien
			Else
				IniWrite("erreur.ini", "---50---", "Faute ", ""&$rep50&" --> Corrigé : "&$50&"")
				$erreur=$erreur+1
			EndIf
		EndIf
	EndIf
	
	If $mot=51 Then
		$mot51=IniRead("allemand.ini", "---51---", "Mot 51", 0)
		If $mot51=0 Then
			IniWrite("allemand.ini", "---51---", "Mot 51", "51")
			$rep51=InputBox("Question "&$question&"", ""&$51_&" ?")
			If $rep51=$51 Then
				;rien
			Else
				IniWrite("erreur.ini", "---51---", "Faute ", ""&$rep51&" --> Corrigé : "&$51&"")
				$erreur=$erreur+1
			EndIf
		EndIf
	EndIf
	
	If $mot=52 Then
		$mot52=IniRead("allemand.ini", "---52---", "Mot 52", 0)
		If $mot52=0 Then
			IniWrite("allemand.ini", "---52---", "Mot 52", "52")
			$rep52=InputBox("Question "&$question&"", ""&$52_&" ?")
			If $rep52=$52 Then
				;rien
			Else
				IniWrite("erreur.ini", "---52---", "Faute ", ""&$rep52&" --> Corrigé : "&$52&"")
				$erreur=$erreur+1
			EndIf
		EndIf
	EndIf
	
	If $mot=53 Then
		$mot53=IniRead("allemand.ini", "---53---", "Mot 53", 0)
		If $mot53=0 Then
			IniWrite("allemand.ini", "---53---", "Mot 53", "53")
			$rep53=InputBox("Question "&$question&"", ""&$53_&" ?")
			If $rep53=$53 Then
				;rien
			Else
				IniWrite("erreur.ini", "---53---", "Faute ", ""&$rep53&" --> Corrigé : "&$53&"")
				$erreur=$erreur+1
			EndIf
		EndIf
	EndIf
	
	If $mot=54 Then
		$mot54=IniRead("allemand.ini", "---54---", "Mot 54", 0)
		If $mot54=0 Then
			IniWrite("allemand.ini", "---54---", "Mot 54", "54")
			$rep54=InputBox("Question "&$question&"", ""&$54_&" ?")
			If $rep54=$54 Then
				;rien
			Else
				IniWrite("erreur.ini", "---54---", "Faute ", ""&$rep54&" --> Corrigé : "&$54&"")
				$erreur=$erreur+1
			EndIf
		EndIf
	EndIf
	
	If $mot=55 Then
		$mot55=IniRead("allemand.ini", "---55---", "Mot 55", 0)
		If $mot55=0 Then
			IniWrite("allemand.ini", "---55---", "Mot 55", "55")
			$rep55=InputBox("Question "&$question&"", ""&$55_&" ?")
			If $rep55=$55 Then
				;rien
			Else
				IniWrite("erreur.ini", "---55---", "Faute ", ""&$rep55&" --> Corrigé : "&$55&"")
				$erreur=$erreur+1
			EndIf
		EndIf
	EndIf
	
	If $mot=56 Then
		$mot56=IniRead("allemand.ini", "---56---", "Mot 56", 0)
		If $mot56=0 Then
			IniWrite("allemand.ini", "---56---", "Mot 56", "56")
			$rep56=InputBox("Question "&$question&"", ""&$56_&" ?")
			If $rep56=$56 Then
				;rien
			Else
				IniWrite("erreur.ini", "---56---", "Faute ", ""&$rep56&" --> Corrigé : "&$56&"")
				$erreur=$erreur+1
			EndIf
		EndIf
	EndIf
	
	If $mot=57 Then
		$mot57=IniRead("allemand.ini", "---57---", "Mot 57", 0)
		If $mot57=0 Then
			IniWrite("allemand.ini", "---57---", "Mot 57", "57")
			$rep57=InputBox("Question "&$question&"", ""&$57_&" ?")
			If $rep57=$57 Then
				;rien
			Else
				IniWrite("erreur.ini", "---57---", "Faute ", ""&$rep57&" --> Corrigé : "&$57&"")
				$erreur=$erreur+1
			EndIf
		EndIf
	EndIf
	
	If $mot=58 Then
		$mot58=IniRead("allemand.ini", "---58---", "Mot 58", 0)
		If $mot58=0 Then
			IniWrite("allemand.ini", "---58---", "Mot 58", "58")
			$rep58=InputBox("Question "&$question&"", ""&$58_&" ?")
			If $rep58=$58 Then
				;rien
			Else
				IniWrite("erreur.ini", "---58---", "Faute ", ""&$rep58&" --> Corrigé : "&$58&"")
				$erreur=$erreur+1
			EndIf
		EndIf
	EndIf
	
	If $mot=59 Then
		$mot59=IniRead("allemand.ini", "---59---", "Mot 59", 0)
		If $mot59=0 Then
			IniWrite("allemand.ini", "---59---", "Mot 59", "59")
			$rep59=InputBox("Question "&$question&"", ""&$59_&" ?")
			If $rep59=$59 Then
				;rien
			Else
				IniWrite("erreur.ini", "---59---", "Faute ", ""&$rep59&" --> Corrigé : "&$59&"")
				$erreur=$erreur+1
			EndIf
		EndIf
	EndIf
	
	If $mot=60 Then
		$mot60=IniRead("allemand.ini", "---60---", "Mot 60", 0)
		If $mot60=0 Then
			IniWrite("allemand.ini", "---60---", "Mot 60", "60")
			$rep60=InputBox("Question "&$question&"", ""&$60_&" ?")
			If $rep60=$60 Then
				;rien
			Else
				IniWrite("erreur.ini", "---60---", "Faute ", ""&$rep60&" --> Corrigé : "&$60&"")
				$erreur=$erreur+1
			EndIf
		EndIf
	EndIf
	
	If $mot=61 Then
		$mot61=IniRead("allemand.ini", "---61---", "Mot 61", 0)
		If $mot61=0 Then
			IniWrite("allemand.ini", "---61---", "Mot 61", "61")
			$rep61=InputBox("Question "&$question&"", ""&$61_&" ?")
			If $rep61=$61 Then
				;rien
			Else
				IniWrite("erreur.ini", "---61---", "Faute ", ""&$rep61&" --> Corrigé : "&$61&"")
				$erreur=$erreur+1
			EndIf
		EndIf
	EndIf
	
	If $mot=62 Then
		$mot62=IniRead("allemand.ini", "---62---", "Mot 62", 0)
		If $mot62=0 Then
			IniWrite("allemand.ini", "---62---", "Mot 62", "62")
			$rep62=InputBox("Question "&$question&"", ""&$62_&" ?")
			If $rep62=$62 Then
				;rien
			Else
				IniWrite("erreur.ini", "---62---", "Faute ", ""&$rep62&" --> Corrigé : "&$62&"")
				$erreur=$erreur+1
			EndIf
		EndIf
	EndIf
	
	If $mot=63 Then
		$mot63=IniRead("allemand.ini", "---63---", "Mot 63", 0)
		If $mot63=0 Then
			IniWrite("allemand.ini", "---63---", "Mot 63", "63")
			$rep63=InputBox("Question "&$question&"", ""&$63_&" ?")
			If $rep63=$63 Then
				;rien
			Else
				IniWrite("erreur.ini", "---63---", "Faute ", ""&$rep63&" --> Corrigé : "&$63&"")
				$erreur=$erreur+1
			EndIf
		EndIf
	EndIf
	
	If $mot=64 Then
		$mot64=IniRead("allemand.ini", "---64---", "Mot 64", 0)
		If $mot64=0 Then
			IniWrite("allemand.ini", "---64---", "Mot 64", "64")
			$rep64=InputBox("Question "&$question&"", ""&$64_&" ?")
			If $rep64=$64 Then
				;rien
			Else
				IniWrite("erreur.ini", "---64---", "Faute ", ""&$rep64&" --> Corrigé : "&$64&"")
				$erreur=$erreur+1
			EndIf
		EndIf
	EndIf
	
	If $mot=65 Then
		$mot65=IniRead("allemand.ini", "---65---", "Mot 65", 0)
		If $mot65=0 Then
			IniWrite("allemand.ini", "---65---", "Mot 65", "65")
			$rep65=InputBox("Question "&$question&"", ""&$65_&" ?")
			If $rep65=$65 Then
				;rien
			Else
				IniWrite("erreur.ini", "---65---", "Faute ", ""&$rep65&" --> Corrigé : "&$65&"")
				$erreur=$erreur+1
			EndIf
		EndIf
	EndIf
	
	If $mot=66 Then
		$mot66=IniRead("allemand.ini", "---66---", "Mot 66", 0)
		If $mot66=0 Then
			IniWrite("allemand.ini", "---66---", "Mot 66", "66")
			$rep66=InputBox("Question "&$question&"", ""&$66_&" ?")
			If $rep66=$66 Then
				;rien
			Else
				IniWrite("erreur.ini", "---66---", "Faute ", ""&$rep66&" --> Corrigé : "&$66&"")
				$erreur=$erreur+1
			EndIf
		EndIf
	EndIf
	
	If $mot=67 Then
		$mot67=IniRead("allemand.ini", "---67---", "Mot 67", 0)
		If $mot67=0 Then
			IniWrite("allemand.ini", "---67---", "Mot 67", "67")
			$rep67=InputBox("Question "&$question&"", ""&$67_&" ?")
			If $rep67=$67 Then
				;rien
			Else
				IniWrite("erreur.ini", "---67---", "Faute ", ""&$rep67&" --> Corrigé : "&$67&"")
				$erreur=$erreur+1
			EndIf
		EndIf
	EndIf
	
	If $mot=68 Then
		$mot68=IniRead("allemand.ini", "---68---", "Mot 68", 0)
		If $mot68=0 Then
			IniWrite("allemand.ini", "---68---", "Mot 68", "68")
			$rep68=InputBox("Question "&$question&"", ""&$68_&" ?")
			If $rep68=$68 Then
				;rien
			Else
				IniWrite("erreur.ini", "---68---", "Faute ", ""&$rep68&" --> Corrigé : "&$68&"")
				$erreur=$erreur+1
			EndIf
		EndIf
	EndIf
	
	If $mot=69 Then
		$mot69=IniRead("allemand.ini", "---69---", "Mot 69", 0)
		If $mot69=0 Then
			IniWrite("allemand.ini", "---69---", "Mot 69", "69")
			$rep69=InputBox("Question "&$question&"", ""&$69_&" ?")
			If $rep69=$69 Then
				;rien
			Else
				IniWrite("erreur.ini", "---69---", "Faute ", ""&$rep69&" --> Corrigé : "&$69&"")
				$erreur=$erreur+1
			EndIf
		EndIf
	EndIf
	
	If $mot=70 Then
		$mot70=IniRead("allemand.ini", "---70---", "Mot 70", 0)
		If $mot70=0 Then
			IniWrite("allemand.ini", "---70---", "Mot 70", "70")
			$rep70=InputBox("Question "&$question&"", ""&$70_&" ?")
			If $rep70=$70 Then
				;rien
			Else
				IniWrite("erreur.ini", "---70---", "Faute ", ""&$rep70&" --> Corrigé : "&$70&"")
				$erreur=$erreur+1
			EndIf
		EndIf
	EndIf
	
	If $mot=71 Then
		$mot71=IniRead("allemand.ini", "---71---", "Mot 71", 0)
		If $mot71=0 Then
			IniWrite("allemand.ini", "---71---", "Mot 71", "71")
			$rep71=InputBox("Question "&$question&"", ""&$71_&" ?")
			If $rep71=$71 Then
				;rien
			Else
				IniWrite("erreur.ini", "---71---", "Faute ", ""&$rep71&" --> Corrigé : "&$71&"")
				$erreur=$erreur+1
			EndIf
		EndIf
	EndIf
	
	If $mot=72 Then
		$mot72=IniRead("allemand.ini", "---72---", "Mot 72", 0)
		If $mot72=0 Then
			IniWrite("allemand.ini", "---72---", "Mot 72", "72")
			$rep72=InputBox("Question "&$question&"", ""&$72_&" ?")
			If $rep72=$72 Then
				;rien
			Else
				IniWrite("erreur.ini", "---72---", "Faute ", ""&$rep72&" --> Corrigé : "&$72&"")
				$erreur=$erreur+1
			EndIf
		EndIf
	EndIf
	
	If $mot=73 Then
		$mot73=IniRead("allemand.ini", "---73---", "Mot 73", 0)
		If $mot73=0 Then
			IniWrite("allemand.ini", "---73---", "Mot 73", "73")
			$rep73=InputBox("Question "&$question&"", ""&$73_&" ?")
			If $rep73=$73 Then
				;rien
			Else
				IniWrite("erreur.ini", "---73---", "Faute ", ""&$rep73&" --> Corrigé : "&$73&"")
				$erreur=$erreur+1
			EndIf
		EndIf
	EndIf
	
	If $mot=74 Then
		$mot74=IniRead("allemand.ini", "---74---", "Mot 74", 0)
		If $mot74=0 Then
			IniWrite("allemand.ini", "---74---", "Mot 74", "74")
			$rep74=InputBox("Question "&$question&"", ""&$74_&" ?")
			If $rep74=$74 Then
				;rien
			Else
				IniWrite("erreur.ini", "---74---", "Faute ", ""&$rep74&" --> Corrigé : "&$74&"")
				$erreur=$erreur+1
			EndIf
		EndIf
	EndIf
	
	If $mot=75 Then
		$mot75=IniRead("allemand.ini", "---75---", "Mot 75", 0)
		If $mot75=0 Then
			IniWrite("allemand.ini", "---75---", "Mot 75", "75")
			$rep75=InputBox("Question "&$question&"", ""&$75_&" ?")
			If $rep75=$75 Then
				;rien
			Else
				IniWrite("erreur.ini", "---75---", "Faute ", ""&$rep75&" --> Corrigé : "&$75&"")
				$erreur=$erreur+1
			EndIf
		EndIf
	EndIf
	
	If $mot=76 Then
		$mot76=IniRead("allemand.ini", "---76---", "Mot 76", 0)
		If $mot76=0 Then
			IniWrite("allemand.ini", "---76---", "Mot 76", "76")
			$rep76=InputBox("Question "&$question&"", ""&$76_&" ?")
			If $rep76=$76 Then
				;rien
			Else
				IniWrite("erreur.ini", "---76---", "Faute ", ""&$rep76&" --> Corrigé : "&$76&"")
				$erreur=$erreur+1
			EndIf
		EndIf
	EndIf
	
	If $mot=77 Then
		$mot77=IniRead("allemand.ini", "---77---", "Mot 77", 0)
		If $mot77=0 Then
			IniWrite("allemand.ini", "---77---", "Mot 77", "77")
			$rep77=InputBox("Question "&$question&"", ""&$77_&" ?")
			If $rep77=$77 Then
				;rien
			Else
				IniWrite("erreur.ini", "---77---", "Faute ", ""&$rep77&" --> Corrigé : "&$77&"")
				$erreur=$erreur+1
			EndIf
		EndIf
	EndIf
	
	If $mot=78 Then
		$mot78=IniRead("allemand.ini", "---78---", "Mot 78", 0)
		If $mot78=0 Then
			IniWrite("allemand.ini", "---78---", "Mot 78", "78")
			$rep78=InputBox("Question "&$question&"", ""&$78_&" ?")
			If $rep78=$78 Then
				;rien
			Else
				IniWrite("erreur.ini", "---78---", "Faute ", ""&$rep78&" --> Corrigé : "&$78&"")
				$erreur=$erreur+1
			EndIf
		EndIf
	EndIf
	
	If $mot=79 Then
		$mot79=IniRead("allemand.ini", "---79---", "Mot 79", 0)
		If $mot79=0 Then
			IniWrite("allemand.ini", "---79---", "Mot 79", "79")
			$rep79=InputBox("Question "&$question&"", ""&$79_&" ?")
			If $rep79=$79 Then
				;rien
			Else
				IniWrite("erreur.ini", "---79---", "Faute ", ""&$rep79&" --> Corrigé : "&$79&"")
				$erreur=$erreur+1
			EndIf
		EndIf
	EndIf
	
	If $mot=80 Then
		$mot80=IniRead("allemand.ini", "---80---", "Mot 80", 0)
		If $mot80=0 Then
			IniWrite("allemand.ini", "---80---", "Mot 80", "80")
			$rep80=InputBox("Question "&$question&"", ""&$80_&" ?")
			If $rep80=$80 Then
				;rien
			Else
				IniWrite("erreur.ini", "---80---", "Faute ", ""&$rep80&" --> Corrigé : "&$80&"")
				$erreur=$erreur+1
			EndIf
		EndIf
	EndIf
	
	If $mot=81 Then
		$mot81=IniRead("allemand.ini", "---81---", "Mot 81", 0)
		If $mot81=0 Then
			IniWrite("allemand.ini", "---81---", "Mot 81", "81")
			$rep81=InputBox("Question "&$question&"", ""&$81_&" ?")
			If $rep81=$81 Then
				;rien
			Else
				IniWrite("erreur.ini", "---81---", "Faute ", ""&$rep81&" --> Corrigé : "&$81&"")
				$erreur=$erreur+1
			EndIf
		EndIf
	EndIf
	
	If $mot=83 Then
		$mot83=IniRead("allemand.ini", "---83---", "Mot 83", 0)
		If $mot83=0 Then
			IniWrite("allemand.ini", "---83---", "Mot 83", "83")
			$rep83=InputBox("Question "&$question&"", ""&$83_&" ?")
			If $rep83=$83 Then
				;rien
			Else
				IniWrite("erreur.ini", "---83---", "Faute ", ""&$rep83&" --> Corrigé : "&$83&"")
				$erreur=$erreur+1
			EndIf
		EndIf
	EndIf
	
	If $mot=84 Then
		$mot84=IniRead("allemand.ini", "---84---", "Mot 84", 0)
		If $mot84=0 Then
			IniWrite("allemand.ini", "---84---", "Mot 84", "84")
			$rep84=InputBox("Question "&$question&"", ""&$84_&" ?")
			If $rep84=$84 Then
				;rien
			Else
				IniWrite("erreur.ini", "---84---", "Faute ", ""&$rep84&" --> Corrigé : "&$84&"")
				$erreur=$erreur+1
			EndIf
		EndIf
	EndIf
	
	If $mot=85 Then
		$mot85=IniRead("allemand.ini", "---85---", "Mot 85", 0)
		If $mot85=0 Then
			IniWrite("allemand.ini", "---85---", "Mot 85", "85")
			$rep85=InputBox("Question "&$question&"", ""&$85_&" ?")
			If $rep85=$85 Then
				;rien
			Else
				IniWrite("erreur.ini", "---85---", "Faute ", ""&$rep85&" --> Corrigé : "&$85&"")
				$erreur=$erreur+1
			EndIf
		EndIf
	EndIf
	
	If $mot=86 Then
		$mot86=IniRead("allemand.ini", "---86---", "Mot 86", 0)
		If $mot86=0 Then
			IniWrite("allemand.ini", "---86---", "Mot 86", "86")
			$rep86=InputBox("Question "&$question&"", ""&$86_&" ?")
			If $rep86=$86 Then
				;rien
			Else
				IniWrite("erreur.ini", "---86---", "Faute ", ""&$rep86&" --> Corrigé : "&$86&"")
				$erreur=$erreur+1
			EndIf
		EndIf
	EndIf
	
	If $mot=87 Then
		$mot87=IniRead("allemand.ini", "---87---", "Mot 87", 0)
		If $mot87=0 Then
			IniWrite("allemand.ini", "---87---", "Mot 87", "87")
			$rep87=InputBox("Question "&$question&"", ""&$87_&" ?")
			If $rep87=$87 Then
				;rien
			Else
				IniWrite("erreur.ini", "---87---", "Faute ", ""&$rep87&" --> Corrigé : "&$87&"")
				$erreur=$erreur+1
			EndIf
		EndIf
	EndIf
	
	If $mot=88 Then
		$mot88=IniRead("allemand.ini", "---88---", "Mot 88", 0)
		If $mot88=0 Then
			IniWrite("allemand.ini", "---88---", "Mot 88", "88")
			$rep88=InputBox("Question "&$question&"", ""&$88_&" ?")
			If $rep88=$88 Then
				;rien
			Else
				IniWrite("erreur.ini", "---88---", "Faute ", ""&$rep88&" --> Corrigé : "&$88&"")
				$erreur=$erreur+1
			EndIf
		EndIf
	EndIf
	
	If $mot=89 Then
		$mot89=IniRead("allemand.ini", "---89---", "Mot 89", 0)
		If $mot89=0 Then
			IniWrite("allemand.ini", "---89---", "Mot 89", "89")
			$rep89=InputBox("Question "&$question&"", ""&$89_&" ?")
			If $rep89=$89 Then
				;rien
			Else
				IniWrite("erreur.ini", "---89---", "Faute ", ""&$rep89&" --> Corrigé : "&$89&"")
				$erreur=$erreur+1
			EndIf
		EndIf
	EndIf
	
	If $mot=90 Then
		$mot90=IniRead("allemand.ini", "---90---", "Mot 90", 0)
		If $mot90=0 Then
			IniWrite("allemand.ini", "---90---", "Mot 90", "90")
			$rep90=InputBox("Question "&$question&"", ""&$90_&" ?")
			If $rep90=$90 Then
				;rien
			Else
				IniWrite("erreur.ini", "---90---", "Faute ", ""&$rep90&" --> Corrigé : "&$90&"")
				$erreur=$erreur+1
			EndIf
		EndIf
	EndIf
	
	If $mot=91 Then
		$mot91=IniRead("allemand.ini", "---91---", "Mot 91", 0)
		If $mot91=0 Then
			IniWrite("allemand.ini", "---91---", "Mot 91", "91")
			$rep91=InputBox("Question "&$question&"", ""&$91_&" ?")
			If $rep91=$91 Then
				;rien
			Else
				IniWrite("erreur.ini", "---91---", "Faute ", ""&$rep91&" --> Corrigé : "&$91&"")
				$erreur=$erreur+1
			EndIf
		EndIf
	EndIf
	
	If $mot=92 Then
		$mot92=IniRead("allemand.ini", "---92---", "Mot 92", 0)
		If $mot92=0 Then
			IniWrite("allemand.ini", "---92---", "Mot 92", "92")
			$rep92=InputBox("Question "&$question&"", ""&$92_&" ?")
			If $rep92=$92 Then
				;rien
			Else
				IniWrite("erreur.ini", "---92---", "Faute ", ""&$rep92&" --> Corrigé : "&$92&"")
				$erreur=$erreur+1
			EndIf
		EndIf
	EndIf
	
	If $mot=93 Then
		$mot93=IniRead("allemand.ini", "---93---", "Mot 93", 0)
		If $mot93=0 Then
			IniWrite("allemand.ini", "---93---", "Mot 93", "93")
			$rep93=InputBox("Question "&$question&"", ""&$93_&" ?")
			If $rep93=$93 Then
				;rien
			Else
				IniWrite("erreur.ini", "---93---", "Faute ", ""&$rep93&" --> Corrigé : "&$93&"")
				$erreur=$erreur+1
			EndIf
		EndIf
	EndIf
	
	If $mot=94 Then
		$mot94=IniRead("allemand.ini", "---94---", "Mot 94", 0)
		If $mot94=0 Then
			IniWrite("allemand.ini", "---94---", "Mot 94", "94")
			$rep94=InputBox("Question "&$question&"", ""&$94_&" ?")
			If $rep94=$94 Then
				;rien
			Else
				IniWrite("erreur.ini", "---94---", "Faute ", ""&$rep94&" --> Corrigé : "&$94&"")
				$erreur=$erreur+1
			EndIf
		EndIf
	EndIf
	
	If $mot=95 Then
		$mot95=IniRead("allemand.ini", "---95---", "Mot 95", 0)
		If $mot95=0 Then
			IniWrite("allemand.ini", "---95---", "Mot 95", "95")
			$rep95=InputBox("Question "&$question&"", ""&$95_&" ?")
			If $rep95=$95 Then
				;rien
			Else
				IniWrite("erreur.ini", "---95---", "Faute ", ""&$rep95&" --> Corrigé : "&$95&"")
				$erreur=$erreur+1
			EndIf
		EndIf
	EndIf
	
	If $mot=96 Then
		$mot96=IniRead("allemand.ini", "---96---", "Mot 96", 0)
		If $mot96=0 Then
			IniWrite("allemand.ini", "---96---", "Mot 96", "96")
			$rep96=InputBox("Question "&$question&"", ""&$96_&" ?")
			If $rep96=$96 Then
				;rien
			Else
				IniWrite("erreur.ini", "---96---", "Faute ", ""&$rep96&" --> Corrigé : "&$96&"")
				$erreur=$erreur+1
			EndIf
		EndIf
	EndIf
	
	If $mot=97 Then
		$mot97=IniRead("allemand.ini", "---97---", "Mot 97", 0)
		If $mot97=0 Then
			IniWrite("allemand.ini", "---97---", "Mot 97", "97")
			$rep97=InputBox("Question "&$question&"", ""&$97_&" ?")
			If $rep97=$97 Then
				;rien
			Else
				IniWrite("erreur.ini", "---97---", "Faute ", ""&$rep97&" --> Corrigé : "&$97&"")
				$erreur=$erreur+1
			EndIf
		EndIf
	EndIf
	
	If $mot=98 Then
		$mot98=IniRead("allemand.ini", "---98---", "Mot 98", 0)
		If $mot98=0 Then
			IniWrite("allemand.ini", "---98---", "Mot 98", "98")
			$rep98=InputBox("Question "&$question&"", ""&$98_&" ?")
			If $rep98=$98 Then
				;rien
			Else
				IniWrite("erreur.ini", "---98---", "Faute ", ""&$rep98&" --> Corrigé : "&$98&"")
				$erreur=$erreur+1
			EndIf
		EndIf
	EndIf
	
	If $mot=99 Then
		$mot99=IniRead("allemand.ini", "---99---", "Mot 99", 0)
		If $mot99=0 Then
			IniWrite("allemand.ini", "---99---", "Mot 99", "99")
			$rep99=InputBox("Question "&$question&"", ""&$99_&" ?")
			If $rep99=$99 Then
				;rien
			Else
				IniWrite("erreur.ini", "---99---", "Faute ", ""&$rep99&" --> Corrigé : "&$99&"")
				$erreur=$erreur+1
			EndIf
		EndIf
	EndIf
	
	If $mot=100 Then
		$mot100=IniRead("allemand.ini", "---100---", "Mot 100", 0)
		If $mot100=0 Then
			IniWrite("allemand.ini", "---100---", "Mot 100", "100")
			$rep100=InputBox("Question "&$question&"", ""&$100_&" ?")
			If $rep100=$100 Then
				;rien
			Else
				IniWrite("erreur.ini", "---100---", "Faute ", ""&$rep100&" --> Corrigé : "&$100&"")
				$erreur=$erreur+1
			EndIf
		EndIf
	EndIf
	
	If $mot=101 Then
		$mot101=IniRead("allemand.ini", "---101---", "Mot 101", 0)
		If $mot101=0 Then
			IniWrite("allemand.ini", "---101---", "Mot 101", "101")
			$rep101=InputBox("Question "&$question&"", ""&$101_&" ?")
			If $rep101=$101 Then
				;rien
			Else
				IniWrite("erreur.ini", "---101---", "Faute ", ""&$rep101&" --> Corrigé : "&$101&"")
				$erreur=$erreur+1
			EndIf
		EndIf
	EndIf
	
	If $mot=102 Then
		$mot102=IniRead("allemand.ini", "---102---", "Mot 102", 0)
		If $mot102=0 Then
			IniWrite("allemand.ini", "---102---", "Mot 102", "102")
			$rep102=InputBox("Question "&$question&"", ""&$102_&" ?")
			If $rep102=$102 Then
				;rien
			Else
				IniWrite("erreur.ini", "---102---", "Faute ", ""&$rep102&" --> Corrigé : "&$102&"")
				$erreur=$erreur+1
			EndIf
		EndIf
	EndIf
	
	If $mot=103 Then
		$mot103=IniRead("allemand.ini", "---103---", "Mot 103", 0)
		If $mot103=0 Then
			IniWrite("allemand.ini", "---103---", "Mot 103", "103")
			$rep103=InputBox("Question "&$question&"", ""&$103_&" ?")
			If $rep103=$103 Then
				;rien
			Else
				IniWrite("erreur.ini", "---103---", "Faute ", ""&$rep103&" --> Corrigé : "&$103&"")
				$erreur=$erreur+1
			EndIf
		EndIf
	EndIf
	
	If $mot=104 Then
		$mot104=IniRead("allemand.ini", "---104---", "Mot 104", 0)
		If $mot104=0 Then
			IniWrite("allemand.ini", "---104---", "Mot 104", "104")
			$rep104=InputBox("Question "&$question&"", ""&$104_&" ?")
			If $rep104=$104 Then
				;rien
			Else
				IniWrite("erreur.ini", "---104---", "Faute ", ""&$rep104&" --> Corrigé : "&$104&"")
				$erreur=$erreur+1
			EndIf
		EndIf
	EndIf
	
	If $mot=105 Then
		$mot105=IniRead("allemand.ini", "---105---", "Mot 105", 0)
		If $mot105=0 Then
			IniWrite("allemand.ini", "---105---", "Mot 105", "105")
			$rep105=InputBox("Question "&$question&"", ""&$105_&" ?")
			If $rep105=$105 Then
				;rien
			Else
				IniWrite("erreur.ini", "---105---", "Faute ", ""&$rep105&" --> Corrigé : "&$105&"")
				$erreur=$erreur+1
			EndIf
		EndIf
	EndIf
	
	If $mot=106 Then
		$mot106=IniRead("allemand.ini", "---106---", "Mot 106", 0)
		If $mot106=0 Then
			IniWrite("allemand.ini", "---106---", "Mot 106", "106")
			$rep106=InputBox("Question "&$question&"", ""&$106_&" ?")
			If $rep106=$106 Then
				;rien
			Else
				IniWrite("erreur.ini", "---106---", "Faute ", ""&$rep106&" --> Corrigé : "&$106&"")
				$erreur=$erreur+1
			EndIf
		EndIf
	EndIf
	
	If $mot=107 Then
		$mot107=IniRead("allemand.ini", "---107---", "Mot 107", 0)
		If $mot107=0 Then
			IniWrite("allemand.ini", "---107---", "Mot 107", "107")
			$rep107=InputBox("Question "&$question&"", ""&$107_&" ?")
			If $rep107=$107 Then
				;rien
			Else
				IniWrite("erreur.ini", "---107---", "Faute ", ""&$rep107&" --> Corrigé : "&$107&"")
				$erreur=$erreur+1
			EndIf
		EndIf
	EndIf
	
	If $mot=108 Then
		$mot108=IniRead("allemand.ini", "---108---", "Mot 108", 0)
		If $mot108=0 Then
			IniWrite("allemand.ini", "---108---", "Mot 108", "108")
			$rep108=InputBox("Question "&$question&"", ""&$108_&" ?")
			If $rep108=$108 Then
				;rien
			Else
				IniWrite("erreur.ini", "---108---", "Faute ", ""&$rep108&" --> Corrigé : "&$108&"")
				$erreur=$erreur+1
			EndIf
		EndIf
	EndIf
	
	If $mot=109 Then
		$mot109=IniRead("allemand.ini", "---109---", "Mot 109", 0)
		If $mot109=0 Then
			IniWrite("allemand.ini", "---109---", "Mot 109", "109")
			$rep109=InputBox("Question "&$question&"", ""&$109_&" ?")
			If $rep109=$109 Then
				;rien
			Else
				IniWrite("erreur.ini", "---109---", "Faute ", ""&$rep109&" --> Corrigé : "&$109&"")
				$erreur=$erreur+1
			EndIf
		EndIf
	EndIf
	
	If $mot=111 Then
		$mot111=IniRead("allemand.ini", "---111---", "Mot 111", 0)
		If $mot111=0 Then
			IniWrite("allemand.ini", "---111---", "Mot 111", "111")
			$rep111=InputBox("Question "&$question&"", ""&$111_&" ?")
			If $rep111=$111 Then
				;rien
			Else
				IniWrite("erreur.ini", "---111---", "Faute ", ""&$rep111&" --> Corrigé : "&$111&"")
				$erreur=$erreur+1
			EndIf
		EndIf
	EndIf
	
	If $mot=112 Then
		$mot36_=IniRead("allemand.ini", "---36_---", "Mot 36_", 0)
		If $mot36_=0 Then
			IniWrite("allemand.ini", "---36_---", "Mot 36_", "36_")
			$rep36_=InputBox("Question "&$question&"", ""&$36__&" ?")
			If $rep36_=$36_ Then
				;rien
			Else
				IniWrite("erreur.ini", "---36_---", "Faute ", ""&$rep36_&" --> Corrigé : "&$36_&"")
				$erreur=$erreur+1
			EndIf
		EndIf
	EndIf
	
	If $mot=113 Then
		$mot55_=IniRead("allemand.ini", "---55_---", "Mot 55_", 0)
		If $mot55_=0 Then
			IniWrite("allemand.ini", "---55_---", "Mot 55_", "55_")
			$rep55_=InputBox("Question "&$question&"", ""&$55__&" ?")
			If $rep55_=$55_ Then
				;rien
			Else
				IniWrite("erreur.ini", "---55_---", "Faute ", ""&$rep55_&" --> Corrigé : "&$55_&"")
				$erreur=$erreur+1
			EndIf
		EndIf
	EndIf
	
	If $mot=114 Then
		$mot58_=IniRead("allemand.ini", "---58_---", "Mot 58_", 0)
		If $mot58_=0 Then
			IniWrite("allemand.ini", "---58_---", "Mot 58_", "58_")
			$rep58_=InputBox("Question "&$question&"", ""&$58__&" ?")
			If $rep58_=$58_ Then
				;rien
			Else
				IniWrite("erreur.ini", "---58_---", "Faute ", ""&$rep58_&" --> Corrigé : "&$58_&"")
				$erreur=$erreur+1
			EndIf
		EndIf
	EndIf
	
	If $mot=115 Then
		$mot85_=IniRead("allemand.ini", "---85_---", "Mot 85_", 0)
		If $mot85_=0 Then
			IniWrite("allemand.ini", "---85_---", "Mot 85_", "85_")
			$rep85_=InputBox("Question "&$question&"", ""&$85__&" ?")
			If $rep85_=$85_ Then
				;rien
			Else
				IniWrite("erreur.ini", "---85_---", "Faute ", ""&$rep85_&" --> Corrigé : "&$85_&"")
				$erreur=$erreur+1
			EndIf
		EndIf
	EndIf
	
	$question=$question+1
	If $question=116 Then
		MsgBox(0, "Fin du Test", "Tu as eu "&$erreur&" fautes.")
		ExitLoop
	EndIf
	
WEnd