10 REM _______LES INTRUS_______
20 REM ************************
30 REM * Contenu et solutions *
40 REM ************************
50 DATA POMME,MARGUERITE,PECHE,BANANE,2
60 DATA AUTOMOBILE,VELO,STYLO,PATINS A ROULETTES,3
70 DATA TABLE,ARMOIRE,CHAISE,MARTEAU,4
80 DATA BANDE DESSINEE,BALADEUR,LIVRE,TABLEAU,2
90 DATA PIPEAU,PIANO,ARBRE,BATTERIE,3
100 DATA FLORIAN,THOMAS,EVELYNE,FRANCIS,3
110 DATA STYLO,REGLE,PINCEAU,FEUTRE,2
120 DATA PARAPLUIE,IMPERMEABLE,CHAUSSETTES,GANTS,1
130 DATA CARTABLE,TROUSSE,PORTE MONNAIE,NOUNOURS,4
140 DATA MICKAEL JACKSON,STING,BEETHOVEN,MAD MAX,4
150 REM ************************
160 REM *    JEU DES INTRUS    *
170 REM ************************
180 N=0
185 FOR i=1 TO 10
190 CLS:READ A$,B$,C$,D$,S
200 PRINT "Un intru s'est cache dans cette liste"
210 PRINT
220 PRINT"1-",A$
230 PRINT"2-",B$
240 PRINT"3-",C$
250 PRINT"4-",D$
260 PRINT:PRINT"Quel est son numero?":INPUT R
270 IF R=S THEN PRINT"Bravo!C'est juste":N=N+1:GOTO 290
280 PRINT"Ce n'est pas ça.L'intru est le No";S
290 INPUT"Pressez return pour continuer",R$
300 NEXT
310 CLS:PRINT"Le jeu est fini.Vous avez ";N
320 PRINT"bonnes reponses."
330 PRINT:PRINT"A bientot"