REM _______LES INTRUS_______
REM ************************
REM * Contenu et solutions *
REM ************************
DATA "POMME","MARGUERITE","PECHE","BANANE",2
DATA "AUTOMOBILE","VELO","STYLO","PATINS A ROULETTES",3
DATA "TABLE","ARMOIRE","CHAISE","MARTEAU",4
DATA "BANDE DESSINEE","BALADEUR","LIVRE","TABLEAU",2
DATA "PIPEAU","PIANO","ARBRE","BATTERIE",3
DATA "FLORIAN","THOMAS","EVELYNE","FRANCIS",3
DATA "STYLO","REGLE","PINCEAU","FEUTRE",2
DATA "PARAPLUIE","IMPERMEABLE","CHAUSSETTES","GANTS",1
DATA "CARTABLE","TROUSSE","PORTE MONNAIE","NOUNOURS",4
DATA "MICKAEL JACKSON","STING","BEETHOVEN","MAD MAX",4
REM ************************
REM *    JEU DES INTRUS    *
REM ************************
N=0
FOR i=1 TO 10
 READ A$,B$,C$,D$,S
 PRINT "Un intru s'est cache dans cette liste"
 PRINT " "
 PRINT"1-",A$
 PRINT"2-",B$
 PRINT"3-",C$
 PRINT"4-",D$
 PRINT " "
 input"Quel est son numero?" R
 IF R=S THEN PRINT"Bravo!C'est juste"
  N=N+1
  GOTO suite
 endif
 PRINT"Ce n'est pas ca. L'intru est le No"+str$(S)
 label suite
 INPUT"Pressez return pour continuer" R$
 NEXT i
PRINT"Le jeu est fini.Vous avez "+ str$(N) +" bonnes reponses."
PRINT"A bientot"