10 REM -----Le mot secret----- 20 REM 30 REM *********************** 40 REM * liste des mots * 50 REM *********************** 60 DATA VERRE,TABLE,DINOSAURE,CHAT,CLEF,PROFESSEUR,BATEAU,VELO 70 DATA ORDINATEUR,TABLEAU,DISQUE,MAISON,FLEUR,RUE,LIVRE,ETAGERE 80 DATA FENETRE,LAMPE,BOITE,IMPRIMANTE,PLANCHER,AUTOMOBILE,MANTEAU,POIGNEE 90 DATA ROBINET,TELEPHONE,MOULIN,TOURNEVIS,CHEVAL,BALLON,SKI,CAMERA 100 DATA TELEVISION,ETIQUETTE,AQUARELLE,MUR,TOUR,BRIQUET,PANTOGRAPHE,COMPAS 110 DATA * 120 REM ********************** 130 REM * regles du jeu * 140 REM ********************** 150 CLS 160 PRINT"Bonjour!Je vais vous proposer un mot" 170 PRINT"que je connais, mais dont je ne vous" 180 PRINT"donnerai que la premiere lettre." 190 PRINT"Le reste sera figuré par des points." 200 PRINT"A vous de m'indiquer quelles lettres" 210 PRINT"figurent dans le mot secret." 220 PRINT"Si votre reponse est bonne, je remplace" 230 PRINT"les points correspondants par la lettre." 240 PRINT"Si vous pensez avoir trouve, il suffit" 250 PRINT"d'entrer le mot." 260 PRINT"Si vous donnez votre langue au chat," 270 PRINT"pressez simplement RETURN" 280 PRINT"Attention, n'oubliez pas d'utiliser des" 290 PRINT"capitales." 300 PRINT"Etes-vous pret? Pressez RETURN ." 310 INPUT C$ 320 REM **************************** 330 REM * jeu du mot secret * 340 REM **************************** 350 READ M$ :SECRET$=LEFT$(M$,1)+STRING$(LEN(M$)-1,46):R$="":IF M$="*" THEN END 360 CLS: PRINT"-----Le mot secret. Decouvrez-le.----- 370 PRINT SECRET$ 380 INPUT"Entrez une lettre ou le mot:",RI$ 390 IF RI$="" THEN GOTO 640 400 IF RI$=M$ THEN GOTO 560 410 R$=R$+RI$ 420 GOSUB 460 430 IF SECRET$=M$ THEN GOTO 560 440 GOTO 370 450 REM ******************************* 460 REM recherches des correspondances 470 REM ******************************* 480 IF R$="" THEN RETURN 490 FOR i=1 TO LEN(R$) 500 FOR y=2 TO LEN(M$) 510 IF MID$(M$,y,1)=MID$(R$,i,1) THEN SECRET$=LEFT$(SECRET$,y-1)+MID$(R$,i,1)+RIGHT$(SECRET$,LEN(SECRET$)-y) 520 NEXT 530 NEXT 540 RETURN 550 REM ************************ 560 REM * Vous avez trouve!!! * 570 REM ************************ 580 PRINT:PRINT" Eh oui c'etait ";M$;"!!":PRINT 590 PRINT "Bravo! Ce n'etait pas si facile!" 600 INPUT"Voulez-vous continuer a jouer? (O/N)",R$ 610 IF R$="o" OR R$="O" THEN GOTO 350 620 END 630 REM *********************** 640 REM * La langue au chat * 650 REM *********************** 660 PRINT"Vous avez donne votre langue au chat" 670 PRINT"Le mot secret est :" 680 PRINT M$