7' 10 REM STRATEGIE DU PILOU 20 REM AUTEUR P. L. GEDO 30 REM 40 REM 1/ INITIATIVE A LA MACHINE 50 CLEAR:GOSUB 450 60 CLS:P$="":0$="":R$="" 70 X=1 80 GOSUB 490:IF RAN>.5 THEN P$="A" ELSE P$="Z" 90 PRINT"1/ J'AI CHOISI UNE LETTRE (A OU Z)":REM P 100 INPUT"2/ DEVINEZ. C'EST UN ";0$ 110 IF 0$<>"A" AND 0$<>"Z" THEN 60 120 IF P$<>0$ THEN 140 130 GOSUB 490:IF RAN>1/3 THEN PRINT"3/ VOUS AVEZ RAISON":GOTO 360 140 INPUT"3/ C'EST FAUX. CONTROLEZ-VOUS (O OU N) " :R$ 150 IF R$<>"O" AND R$<>"N" THEN 60 160 IF R$="N" THEN 370 170 IF P.$.0$ THEN PRINT"4/ J'AI BLUFFE":GOTO 380 180 PRINT"4/ J'AVAIS UN ";P$:GOTO 390 190 REM 200 REM 2/ INITIATIVE A L'HUMAIN 210 CLS:Pt="":0$="":R$="" 220 X=2 230 GOSUB 490:IF RAN>.5 THEN P$="A" ELSE P$="Z" 240 PRINT"1/ PENSEZ A UNE LETTRE (A OU Z)" 250 A$=INPUT$(1):REM Attend la frappe d'une touche 260 PRINT"2/ EST-CE UN ";P$;" (O OU N) ";:INPUT R $ 270 IF R$<>"O" AND R$<>"N" THEN 210 280 IF R$="O" THEN PRINT"3/ J'AI DEVINE":GOTO 370 290 GOSUB 500: IF RAN<1/3 THEN PRINT"3/ JE VOUS CRO IS":GOTO 360 300 PRINT"3/ JE CONTROLE. C'EST UN ".:INPUT 0$ 310 IF QS<>"A" AND 0$<>"Z" THEN 210 320 IF P$=0$ THEN FRINT"4/ VOUS AVEZ BLUFFE":GOTO 390 330 PRINT"4/ JE ME SUIS TROMPE":GOTO 380 340 REM 350 REM AFFICHAGE 360 M=M-1:H=H+1:PRINT:PRINT"JE PERDS 1 POINT":GOTO 400 370 M=M+1:H=H-1:PRINT:PRINT"JE GAGNE 1 POINT":GOTO 400 380 M=M-2:H=H+2:PRINT:PRINT"JE PERDS 2 POINTS":GOTO 400 390 M=M+2:H=H-2:PRINT:PRINT"JE GAGNE 2 POINTS" 400 T=T+1 410 IF T=1 THEN S$="COUP" ELSE S$="COUPS" 420 PRINT"SCORE MACHINE ";M;" HUMAIN ";H;"/".T;S $ 430 A$=INPUT$(1):REM Attend la frappe dune touche 440 ON X GOTO 210,60 450 REM 460 REM GENERATEUR ALEATOIRE 470 RANDOMIZE 480 C=RND(1) 490 D=223*C+49259281#:REM # indicateur de nombre en double precision 500 C=D-(1E+10+1)*INT(D/(1E+10+1)) 510 RAN=C/1E+10 520 RETURN