100 REM *** E.A.O. GEOGRAPHIE ***
110 HOME : INVERSE : PRINT SPC(41);: NORMAL : PRINT SPC(38);: INVERSE : PRINT "  ";: NORMAL : PRINT "  E.A.O.   GEOGRAPHIE CM2   FLEUVES   ";: INVERSE : PRINT "  ";: NORMAL : PRINT SPC(38);: INVERSE : PRINT SPC(41): NORMAL : PRINT
120 CLAVIER = 49152:XBDSTB = 49168:TXTCLR = 49232:HISCR = 49237: VTAB 10: HTAB 1: PRINT " Voulez vous quelques explications ?": VTAB 12: HTAB 18: PRINT "< N >": VTAB 12: HTAB 20: GET W$
130 IF W$ < > "O" THEN 500
140 VTAB 9: HTAB 1: PRINT "Apprenez le nom des fleuves de FRANCE etde leurs affluents en vous amusant. "
150 PRINT SPC( 40): PRINT "Vous taperez au clavier le nom du cours d'eau qui clignote sur la carte."
160 PRINT : PRINT "Je vous demande 10 noms et je vous donneles 10 reponses.": PRINT
170 PRINT "Si vous repondez '?' je reviens en page HGR2 pour afficher la carte."
180 PRINT : PRINT "Tapez 'C' pour voir la carte complete.";: GOSUB 10000 : IF W$ = "C" THEN GOTO 1010
500 REM *** DEBUT ***
510 TEXT : HOME : VTAB 1: HTAB 4: INVERSE : PRINT " NOMS ": NORMAL : HGR2 : GOSUB 3000: GOSUB 5000: GOSUB 4000: FOR T = 1 TO 9: GOSUB 2000: GOSUB 10000: GOSUB 9000: GOSUB 5000: GOSUB 4000: NEXT
520 GOSUB 2000: GOSUB 10000: GOSUB 9000 : GOSUB 10000
530 TEXT : HOME : VTAB 2: HTAB 3: PRINT "Vous avez bien repondu ";EX;" fois sur 10": PRINT : PRINT : HTAB 5: PRINT "Voulez vous recommencer ? (O=OUI) ":: GET W$: IF W$ = "O" THEN CLEAR:TEXT:HOME:GOTO 100
540 VTAB 14: HTAB 15: PRINT "AU REVOIR !": PRINT : END
1000 REM *** TOUTE LA CARTE ***
1010 HGR2 : GOSUB 3000: FOR N = 1 TO 59 : GOSUB 8000: NEXT
1020 GET W$: RESTORE :N = 0:N2 = 0: FOR I = 0 TO 9:N(I) = 0: NEXT : GOTO 500
2000 REM *** CORRECTION **
2010 TEXT : VTAB T * 2 + 1: HTAB 1: PRINT T;: HTAB 3: PRINT " ?....";: HTAB 3: INPUT " ";R$
2011 IF R$ = "?" THEN GOSUB 9000: GOSUB 4000: GOTO 2010
2012 IF R$="" THEN 2010
2020 TEXT : VTAB T * 2 + 1: HTAB 1: PRINT T;: HTAB 4: PRINT A$; SPC(20);: IF R$ = A$ THEN VTAB T * 2 + 1: HTAB 19: INVERSE : PRINT " EXACT ";: NORMAL : PRINT SPC(10);: EX = EX + 1: GOTO 2040
2040 VTAB 1: HTAB 28: PRINT "Note : ";EX;"/";T;: RETURN
3000 REM *** TRACER LA CARTE ***
3010 GOSUB 9000: HCOLOR= 3:X0 = 40:Y0 = -5: 
3015 FOR I = 1 TO 9: READ X,Y: HPLOT X + X0,Y + Y0
3020 READ X,Y: IF X AND Y THEN HPLOT TO X + X0,Y + Y0: GOTO 3020
3030 NEXT : RETURN
4000 REM *** FAIRE CLIGNOTER ***
4010 GOSUB 8000: HCOLOR= 3: GOSUB 8000: IF PEEK (CL) > 127 THEN POKE KB,0: RETURN
4020 HCOLOR= 0: GOTO 4010
5000 REM *** TIRER AU SORT ***
5010 NQ = 59: REM Nbre Questions
5020 N = INT ( RND (1) * NQ) + 1:N(T) = N
5030 IF T = 0 THEN 5060
5040 FOR S = 0 TO T - 1: IF N = N(S) THEN S = T - 1: NEXT : GOTO 5020
5050 NEXT S
5060 VTAB 24: HTAB 10: PRINT SPC(22): RETURN
6000 REM *** QUESTIONS ***
6010 A$ = "SOMME":   HPLOT 165,24  TO 161,27 TO 160,22 TO 150,24 TO 142,18: RETURN
6020 A$ = "EURE":    HPLOT 129,53  TO 138,57 TO 140,53 TO 137,49 TO 138,46 TO 134,40 TO 135,37: RETURN
6030 A$ = "LOING":   HPLOT 164,74  TO 159,72 TO 157,67 TO 158,64 TO 156,61 TO 158,58: RETURN
6040 A$ = "YONNE":   HPLOT 175,85  TO 174,84 TO 172,84 TO 169,77 TO 171,74 TO 169,67 TO 165,65 TO 165,60 TO 163,57: RETURN
6050 A$ = "ARMANCON":HPLOT 184,82  TO 182,78 TO 183,77 TO 174,66 TO 169,67: RETURN
6060 A$ = "AUBE":    HPLOT 193,72  TO 183,61 TO 181,55 TO 174,52 TO 171,53: RETURN
6070 A$ = "MARNE":   HPLOT 196,68  TO 195,68 TO 195,64 TO 192,63 TO 191,52 TO 185,51 TO 179,43 TO 169,41 TO 163,45 TO 162,44 TO 154,49 TO 152,47: RETURN
6080 A$ = "OISE":    HPLOT 177,22  TO 168,24 TO 165,29 TO 161,31 TO 158,33 TO 147,42: RETURN
6090 A$ = "AISNE":   HPLOT 192,45  TO 190,45 TO 185,33 TO 178,31 TO 173,35 TO 164,35 TO 158,33: RETURN
6100 A$ = "ORNE":    HPLOT 120,51  TO 117,49 TO 113,49 TO 110,44 TO 114,37: RETURN
6110 A$ = "RANCE":   HPLOT 79,57   TO 83,58 TO 87,57 TO 88,52: RETURN
6120 A$ = "AULNE":   HPLOT 65,53   TO 62,58 TO 59,58 TO 54,56: RETURN
6130 A$ = "BLAVET":  HPLOT 68,55   TO 72,59 TO 72,63 TO 67,69: RETURN
6140 A$ = "VILAINE": HPLOT 103,60  TO 90,62 TO 88,71 TO 79,75: RETURN
6150 A$ = "MAINE":   HPLOT 108,75  TO 107,78: RETURN
6160 A$ = "MAYENNE": HPLOT 114,54  TO 113,55 TO 110,54 TO 107,56 TO 105,62 TO 106,70 TO 108,75: RETURN
6170 A$ = "SARTHE":  HPLOT 124,52  TO 122,54 TO 116,56 TO 116,60 TO 119,67 TO 111,69 TO 108,75: RETURN
6180 A$ = "LOIR":    HPLOT 133,58  TO 136,60 TO 134,68 TO 130,70 TO 122,72 TO 118,72 TO 108,75: RETURN
6190 A$ = "NIEVRE":  HPLOT 165,80  TO 162, 88: RETURN
6200 A$ = "ARROUX":  HPLOT 182,86  TO 178, 93 TO 176,100: RETURN
6210 A$ = "ALLIER":  HPLOT 171,135 TO 167,128 TO 165,115 TO 168,109 TO 166,97 TO 161,93 TO 162,88: RETURN
6220 A$ = "CHER":    HPLOT 153,112 TO 155,107 TO 155,97 TO 150,92 TO 149,86 TO 145,82 TO 125,79: RETURN
6230 A$ = "INDRE":   HPLOT 150,100 TO 146,99  TO 144,94 TO 142,92 TO 135,90 TO 129,83 TO 120,83 TO 119,81: RETURN
6240 A$ = "VIENNE":  HPLOT 147,117 TO 143,116 TO 136,112 TO 134,114 TO 126,112 TO 126,100 TO 124,96 TO 124,87 TO 118,84 TO 116,81: RETURN
6250 A$ = "CREUSE":  HPLOT 148,113 TO 148,109 TO 140,101 TO 140,99 TO 137, 97 TO 131,95 TO 127,88 TO 124,87: RETURN
6260 A$ = "SEVRE NANTAISE": HPLOT 103,96 TO 102,93 TO 94,84 TO 93,82: RETURN
6270 A$ = "CHARENTE":HPLOT 125,115 TO 119,106 TO 117,116 TO 114,118 TO 105,116 TO 104,112 TO 98,111: RETURN
6280 A$ = "DORDOGNE":HPLOT 159,119 TO 154,119 TO 153,122 TO 139,135 TO 128,135 TO 110,135 TO 105,130: RETURN
6290 A$ = "VEZERE":  HPLOT 147,120 TO 142,120 TO 137,124 TO 137,129 TO 134,129 TO 128,135 : RETURN
6300 A$ = "ISLE":    HPLOT 134,117 TO 130,120 TO 127,128 TO 124,128 TO 121,131 TO 111,131 TO 110,135: RETURN
6310 A$ = "LOT":     HPLOT 172,142 TO 163,145 TO 155,140 TO 142,144 TO 130,143 TO 128,145 TO 123,144 TO 119,147: RETURN
6320 A$ = "TRUYERE": HPLOT 170,137 TO 167,139 TO 165,134 TO 158,135 TO 155,140: RETURN
6330 A$ = "TARN":    HPLOT 173,145 TO 165,147 TO 162,152 TO 157,154 TO 145,156 TO 140,158 TO 135,152 TO 130,152: RETURN
6340 A$ = "AVEYRON": HPLOT 162,147 TO 158,145 TO 154,147 TO 146,146 TO 145,151 TO 135,152: RETURN
6350 A$ = "ARIEGE":  HPLOT 141,186 TO 143,185 TO 142,182 TO 139,180 TO 139,171 TO 136,169 TO 136,165: RETURN
6360 A$ = "SAVE":    HPLOT 122,173 TO 127,169 TO 134,159: RETURN
6370 A$ = "GERS":    HPLOT 120,172 TO 123,167 TO 124,158 TO 123,155 TO 125,150: RETURN
6380 A$ = "BAISE":   HPLOT 118,176 TO 117,172 TO 120,168 TO 119,148: RETURN
6390 A$ = "ADOUR":   HPLOT 115,178 TO 115,175 TO 114,172 TO 113,163 TO 108, 159 TO 95,160 TO 94,164 TO 90,165 TO 89,164: RETURN
6400 A$ = "AUDE":    HPLOT 147,185 TO 151,172 TO 165,173: RETURN
6410 A$ = "HERAULT": HPLOT 170,151 TO 173,156 TO 169,165 TO 169,170: RETURN
6420 A$ = "GARD":    HPLOT 173,148 TO 178,149 TO 181,155 TO 187,155 TO 188,157: RETURN
6430 A$ = "ARDECHE": HPLOT 179,139 TO 184,141 TO 182,145 TO 188,149: RETURN
6440 A$ = "SAONE":   HPLOT 207,62  TO 205,65  TO 205,72  TO 197,80 TO 196,85 TO 191,89 TO 189,92 TO 191,97 TO 188,110 TO 190,112 TO 190,114: RETURN
6450 A$ = "DOUBS":   HPLOT 210,91  TO 220,78  TO 218,78  TO 218,75 TO 205,84 TO 197,89 TO 191,89:RETURN
6460 A$ = "AIN":     HPLOT 208,92  TO 203,93  TO 196,113: RETURN
6470 A$ = "ISERE":   HPLOT 221,120 TO 218,117 TO 215,118 TO 214,115 TO 211,118 TO 207,122 TO 204,126 TO 202,124 TO 194,131 TO 191,131: RETURN
6480 A$ = "ARC":     HPLOT 223,122 TO 214,125 TO 212,123 TO 211,118: RETURN
6490 A$ = "DRAC":    HPLOT 213,136 TO 211,138 TO 203,133 TO 204,126: RETURN
6500 A$ = "DROME":   HPLOT 204,142 TO 200,140 TO 199,136 TO 195,138 TO 190, 137: RETURN
6510 A$ = "DURANCE": HPLOT 218,132 TO 217,134 TO 217,138 TO 213,143 TO 210,142 TO 208,145 TO 210,150 TO 207,159 TO 201,161 TO 190,155: RETURN
6520 A$ = "VERDON":  HPLOT 218,147 TO 218,156 TO 210,159 TO 207,159: RETURN
6530 A$ = "VAR":     HPLOT 221,147 TO 222,154 TO 228,154 TO 228,162: RETURN
6540 A$ = "RHIN":    HPLOT 240,72  TO 227,72  TO 227,60  TO 230,48 TO 235,40 TO 238,33 TO 237,22 TO 233,17 TO 228,19 TO 225,12 TO 222,10 TO 217,4 TO 216,0: RETURN
6550 A$ = "ILL":     HPLOT 225,73  TO 224,72  TO 225,58  TO 227,56 TO 228,50 TO 230,48: RETURN
6560 A$ = "MOSELLE": HPLOT 218,66  TO 216,67  TO 203,50  TO 206,47 TO 205,44 TO 206,34 TO 209,31 TO 215,24 TO 220,20 TO 225,12: RETURN
6570 A$ = "MEURTHE": HPLOT 218,59  TO 215,58  TO 207,50  TO 206,47: RETURN
6580 A$ = "MEUSE":   HPLOT 200,65  TO 199,64  TO 200,50  TO 192,35 TO 192,32 TO 189,27 TO 187,28 TO 184,23 TO 186,17 TO 187,12 TO 197,6 TO 199,0 : RETURN
6590 A$ = "ESCAUT":  HPLOT 165,22  TO 163,22  TO 165,15  TO 168,15 TO 168,12 TO 167,9 TO 165,6   TO 173,0: RETURN
7000 REM *** CARTE DE FRANCE ***
7010 DATA 115,5,100,10,100,20,102,23,99,22,98,25,93,28,86,29,80,33,78,37,83,38,74,42,61,40,59,36,60,34,59,32,54,34,50,32,51,39,54,43,54,54,57,56,51,57,51,54,49,54,48,57,46,55,41,54,37,57,33,50,26,50,24,53,18,52
7020 DATA 7,54,7,58,13,58,14,61,8,61,13,63,13,65,7,65,11,67,12,69,11,71,14,72,15,69,25,75,27,74,30,75,28,76,29,78,32,78,32,76,36,78,33,79,34,81,39,80,38,86,41,86,44,84,49,87,44,86,43,89,46,90,43,95,47,103,57,108
7030 DATA 58,116,55,122,60,124,63,128,65,135,61,128,57,124,54,143,57,141,58,144,56,145,55,144,53,146,49,169,46,172,44,172,51,180,63,185,69,185,71,187,82,187,82,184,100,190,100,193,105,195,117,195,120,193,125,195
7040 DATA 125,192,123,191,123,180,125,178,129,175,130,176,139,169,141,171,145,172,147,172,147,174,153,173,155,170,159,171,155,173,161,174,160,176,168,180,177,178,178,176,180,176,181,171,183,172,188,167,189,164
7050 DATA 191,165,195,162,195,154,185,153,182,147,184,140,179,134,185,130,185,125,180,118,182,115,180,104,175,104,169,109,0,0,180,104,176,101,171,104,169,109,169,101,180,88,182,83,181,80,185,80,187,77,188,75,192,55
7060 DATA 197,45,195,45,188,44,185,42,181,44,176,41,174,43,171,36,169,36,164,36,159,34,156,36,147,29,146,22,141,27,137,27,137,20,135,17,131,19,130,16,128,14,127,14,125,15,123,14,122,9,119,10,116,7,115,5,0,0
7070 DATA 147,82,144,72,137,67,135,60,131,58,123,62,118,63,111,56,112,52,107,48,102,49,95,42,83,38,0,0
7080 DATA 141,140,139,141,136,139,136,132,138,132,141,124,137,115,136,105,122,93,121,88,119,86,120,83,116,78,104,72,94,82,85,84,79,86,76,86,70,82,67,83,65,84,58,83,53,87,49,87,0,0
7090 DATA 89,188,86,189,83,180,86,179,92,176,96,170,94,164,90,157,85,155,79,153,79,152,79,150,74,146,70,146,65,135,0,0,200,101,194,106,191,106,183,110,180,104,0,0,169,109,167,110,163,122,154,118,156,118,150
7100 DATA 119,150,125,149,127,151,136,151,138,150,142,148,148,148,154,152,159,150,160,148,162,148,165,144,168,141,171,0,0,144,168,145,172,0,0,148,165,153,173,0,0
8000 REM *** AIGUILLAGE ***
8010 IF N > 40 THEN N2 = N - 40: GOTO 8040
8020 ON N GOSUB 6010,6020,6030,6040,6050,6060,6070,6080,6090,6100,6110,6120,6130,6140,6150,6160,6170,6180,6190,6200,6210,6220,6230,6240,6250,6260,6270,6280,6290,6300,6310,6320,6330,6340,6350,6360,6370,6380,6390,6400
8030 RETURN
8040 ON N2 GOSUB 6410,6420,6430,6440,6450,6460,6470,6480,6490,6500,6510,6520,6530,6540,6550,6560,6570,6580,6590
8100 RETURN
9000 REM * VOIR HGR2 SANS EFFACER *
9010 POKE TX,0: POKE HI,0: RETURN
10000 VTAB 24: HTAB 10: PRINT "Tapez une touche :";: GET W$: RETURN