10 REM  Initialisation
20 CLS:CLEAR
30 ON ERROR GOTO 110
40 GOSUB 130
50 REM  Proposition 1
60 E=1122.GOSUB 250:ON M GOSUB 730,870,870,1000,1130,1270,1400,1410,1510,1520,1530,0,1540,1550
70 IF E=0 THEN 110
80 GOSUB 250:GOSUB 480
90 GOSUB 250:GOSUB 480
100 GOSUB 250
110 PRINT"Erreur de cotation. Verifiez":END
120 REM- Variables aleatoires
130 S=VAL(RIGHT$(TIMES,2))
140 FOR K=1 TO S:A=RND(1):NEXT K
150 FOR I=1 TO 6
160 B(I)=1+INT(6*RND(1)):R=3+INT(3*RND(1))
170 FOR J=0 TO I-1
180 IF B(I)=B(J) THEN B(I)=0:GOTO 160
190 NEXT J
200 READ L$(8(1))
210 NEXT I
220 DATA A,B,C,D,E,F
230 RETURN
240 REM Affichage
250 U=U+1:E(U)=E:GOSUB 340
260 PRINT U;"/ Essai=";A$;
270 IF U<5 THEN INPUT" N=";N:N(U)=N ELSE PRINT "FIN"
280 IF U=1 THEN P$="Coup" ELSE P$="Coups"
290 IF N=4 OR U=5 THEN PRINT"Gain en ":11.P$:END
300 M=-(N=0)-2.(N=.1)-3*(N=1)-4*(N=.2)-5*(N=1.1)-6*(N=2)-7*(N=.3)-8*(N=1.2)-9*(N=2.1)-10*(N=3)-11*(N =.4)-12*(N=1.3)-13*(N=2.2)
310 IF E=0 OR M=0 THEN 110
320 RETURN
330 REM Variables alphanum6riques
340 ES=STR$(E):AS=""
350 FOR I=2 TO 5
360 F(I)=VAL(MID$(E$0,1))
370 IF N(1)=1 THEN IF F(I)=2 THEN F(I)=1 ELSE IF F(I)=1 THEN F(1)=2
380 T$(I)=L$(F(I))
390 NEXT I
400 W$=T$(R):T$(R)=T$(2).T$(2)=W$
410 FOR J=2 TO 5:A$=A$+T$(J):NEXT J
420 RETURN
430 REM Propositions incompatibles
440 IF E=0 THEN 480
450 E(4)=E
460 RETURN
470 REM Pilotage proposition 4 at 5
480 I=1
490 READ C
500 IF C=0 THEN 110
510 IF Z=0 THEN 530
520 E=E(2):GOSUB 590:IF N<>N(2) THEN I=I+1:IF I<>46 THEN 490
530 E=E(3):GOSUB 590:IF N<>N(3) THEN 1=1+1:IF I<>46 THEN 490
540 IF Z=1 THEN 560
550 E=E(4):GOSUB 590:IF N<>N(4) THEN I=I+1:IF I<>46 THEN 490
560 E=C
570 RETURN
580 REM Cotation
590 ES=STR$(E):C$=STR$(C)
600 X=0:Y=0
610 FOR K=2 TO 5
620 ES(K)=MID$(ES,K,1)
630 C$(K)=MID$(C$,K,1)
640 IF E$(K)=C$(K) THEN X=X+1
650 NEXT K
660 FOR I=2 TO 5:FOR J=2 TO 5
670 IF E$(I)=C$(J) THEN C$(J)="":Y=Y+1:GOTO 690
680 NEXT J
690 NEXT I
700 N=X+(Y-X)/10
710 RETURN
720 REM Propositions 2 at 3
730 E=3345:GOSUB 250:ON M GOTO 740,750,760,770,780,790,800,810,820,830,840,850,860
740 E=6666:RESTORE 1570:RETURN
750 E=4666:RESTORE 1580:RETURN
760 E=4646:RESTORE 1590:RETURN
770 E=4556:RESTORE 1600:RETURN 
780 E=4465:RESTORE 1610:RETURN
790 E=.3646: RESTORE 1620:GOSUB 250:E=-4546*(N=1):GOTO 440
800 E=4653:RESTORE 1630:RETURN
810 E=5354:RESTORE 1640:GOSUB 250:E=-4336*(N=.2):GOTO 440
820 E=3465:RESTORE 1650:RETURN dzo E=3464:RESTORE 1660:RETURN
840 E=4533:RESTORE 1670:RETURN
850 E=3453:RESTORE 1680:RETURN
860 E=3435:RESTORE 1690:RETURN
870 E=2344:GOSUB 250:ON M GOTO 880,890,900,910,920,930,940,950,960,970,0,980,990
880 E=5615:RESTORE 1700:RETURN
890 E=3516:RESTORE 1710:GOSUB 250:E=-4566*(N=1.2)-Z315*(N=3)-4561*(N=2.2):GOTO 440
900 E=3315:RESTORE 1720:RETURN
910 E=5236:RESTORE 1730:GOSUB 250:E=-3255*(N=2.2)-6243*(N=1.2):GOTO 440
920 E=4415:RESTORE 1740:GOSUB 250:E=-4256*(N=1.1): GOTO 440
930 E=2546:RESTORE 1750:RETURN
940 E=3235:RESTORE 1760:RETURN
950 E=6243:RESTORE 1770:RETURN
960 E=2445:RESTORE 1780:RETURN
970 E=2345:RESTORE 1790:RETURN
980 E=4234:RESTORE 1800:RETURN
990 E=2434:RESTORE 1810:RETURN
1000 E=2324:GOSUB 250:ON M GOTO 1010,1020,1030,1040,1050,1060,1070,1080,1090,1100,0,1110,1120
1010 E=5616:RESTORE 1820:GOSUB 250:E=-5616*(N=0):GOTO 440
1020 E=5215:RESTORE 1830:RETURN
1030 E=2515:RESTORE 1840:RETURN
1040 E=3215:RESTORE 1850:RETURN
1050 E=2451:RESTORE 1860:RETURN
1060 E=2351:RESTORE 1870:RETURN
1070 E=3241:RESTORE 1880:RETURN
1080 E=2235:RESTORE 1890:RETURN
1090 E=256:RESTORE 1900:RETURN
1100 E=2314:RESTORE 1910:RETURN
1110 E=2243:RESTORE 1920:RETURN
1120 E=2234:RESTORE 1930:RETURN
1130 E=1314:GOSUB 250: ON M GOTO 1140,1150,1160,1170,1180,1190,1200,1210,1220,1230,1240,1250,1260
1140 E=6262:RESTORE 1940:RETURN
1150 E=2462:RESTORE 1950:RETURN
1160 E=6251:RESTORE 1960:RETURN
1170 E=2153:RESTORE 1970:RETURN
1180 E=1246:RESTORE 1980.GOSUB 250:E=-6361*(N=1.1):GOTO 440
1190 E=5611:RESTORE 1990:RETURN
1200 E=4151:RESTORE 2000:RETURN
1210 E=1541:RESTORE 2010:RETURN
1220 E=1351:RESTORE 2020:RETURN
1230 E=4641:RESTORE 2030:RETURN
1240 E=3141:RESTORE 2040:RETURN
1250 E=1431:RESTORE 2050:RETURN
1260 E=1341:RESTORE 2060:RETURN
1270 E=1234:GOSUB 250:ON M GOTO 0,1280,1290,1300,1310,1320,1330,1340,1350,1360,1370,1380,1390
1280 E=6522:RESTORE 2070:RETURN
1290 E=2151:RESTORE 2080:RETURN
1300 E=3582:RESTORE 2090:RETURN
1310 E=1526:RESTORE 2100:RETURN
1320 E=6531:RESTORE 2110:RETURN
1330 E=4125:RESTORE 2120:RETURN
1340 E=1352:RESTORE 2130:RETURN
1350 E=5624:RESTORE 2140:RETURN
1360 E=1134:RESTORE 2150:RETURN
1370 E=3142:RESTORE 2160:RETURN
1380 E=1342:RESTORE 2170:RETURN
1390 E=1324:RESTORE 2180.RETURN
1400 E=2624:RESTORE 2190:Z=1:RETURN
1410 E=1213:GOSUB 250:ON M GOTO 0,0,0,1420,1430,1440,1450,1460,1470,1480,1490,0,1500
1420 E=4521:RESTORE 2200:RETURN
1430 E=4521:RESTORE 2210:RETURN
1440 E=4531:RESTORE 2220:RETURN
1450 E=2145:RESTORE 2230:RETURN
1460 E=2145:RESTORE 2240:RETURN
1470 E=1245:RESTORE 2250:RETURN
1480 E=1245:RESTORE 2260:RETURN
1490 E=2131:RESTORE 2270:RETURN
1500 E=1231:RESTORE 2280:RETURN
1510 E=1223:RESTORE 2290:Z=1:GOSUB 250:E=-4512*((N =.2).(N=1.1)+(N=2))-2145.((N=.3)+(N=1.2))-1245*((N =2.1)+(N=3)>:GOTO 440
1520 E=2526:RESTORE 2300:Z=1:GOSUB 250:E=-4112.(N= .1)-4121.(N=1)-1224.(N=1.1):GOTO 440
1530 E-2211:RESTORE 2310:Z=1:RETURN
1540 E=1312:RESTORE 2320:Z=1:GOSUB 250:E=-2121*(N= .3)-1221.(N=1.2)-2112*(N=2.1)-1212*(N=3):GOTO 440
1550 E=1122:RESTORE 2330:RETURN
1560 REM DATA 
1570 DATA 6666,0
1580 DATA 6636,4464,4466,4664,4666,5556,5566,5656,
5666,6464,6466,6556,6566,6656,6663,6664,0
1590 DATA 3666,4444,4446,4644,4646,5555,5565,5655,
5665,6366,6444,6446,6555,6565,6644,6646,6655,6665,0
1600 DATA 4566,4636,4654,6564,4434,4436,4454,4456,
4463,4554,4556,4564,4634,4656,4663,5454,5456,5464,
5466,5536,5553,5554,5563,5564,5636,5653,5654,5663,
5664,6434,6436,6454,6456,6463,6536,6553,6554,6563,
6633,6634,6653,6654,0
1610 DATA 4665,5635,5646,3464,3466,3556,3566,3633,
3636,3656,3663,3664,4364,4366,4443,4455,4465,4544,
4546,4555,4565,4643,4655,5356,5366,5444,5446,5455,
5465,5535,5544,5546,5644,6333,6336,6356,6363,6364,
6443,6455,6465,6535,6544,6546,6635,6643,0
1620 DATA 3565,3655,3333,3336,3363,3366,3444,3446,
3555,3644,3646,3665,4344,4346,4445,4545,4646,5355,
5365,5445,5545,5645,6344,6346,6355,6365,6445,6545,
6645,0
1630 DATA 4433,4453,4534,4536,4553,4563,4633,4653,
5434,5436,5453,5463,5533,5534,5633,5634,6433,6453,
6533,6534,0
1640 DATA 3634,4543,5336,3433,3434,3436,3454,3456,
3463,3533,3536,3553,3554,3563,3564,3653,3654,4333,
4334,4336,4354,4356,4363,4435,4535,4635,5333,5353,
5354,5363,5364,5435,5443,5543,5643,6334,6353,6354,
6435,6543,0
1650 DATA 3334,3353,3356,3364,3443,3455,3465,3535,
3544,3546,3635,3643,4343,4355,4365,5335,5344,5346,
6335,6343,0
1660 DATA 3335,3343,3344,3346,3355,3365,3445,3545,
3645,4345,5345,6345,0
1670 DATA 4535,5433,0
1680 DATA 3453,3534,4353,5334,0
1690 DATA 3475,3354,3543,4375,5343,0
1700 DATA 5616,5515,5516,5551,5561,5615,5651,5661,
6515,6516,6551,6561,6615,6616,6651,6661,0
1710 DATA 3551,5613,6255,3513,3515,3516,3531,3561,
3613,3615,3616,7631,7651,7661,4515,4516,4551,4561,
4615,4616,4651,4661,5255,5256,5265,5266,5415,5416,
5451,5461,5513,5531,5631,6256,6265,6266,6415,6416,
6451,6461,6513,6531,6613,6631,0
1720 DATA 2566,3316,5361,5614,5641,6614,2555,2556,
2565,2655,2656,2665,2666,3313,3315,3331,3351,3361,
5313,5315,5316,5331,5351,5514,5541,6313,6315,6316,
6331,6351,6361,6514,6541,6641,0
1730 DATA 3451,4266,4415,3233,3235,3236,3253,3255,
3256,3263,3265,3266,3413,3415,3416,3431,3461,4255,
4256,4265,4416•0451,4461,4513,4531,4613,4631,5233,
5235,5236,5253,5263,5413,5471,6233,6235,6236,6253,
6263,6413,6431,0
1740 DATA 2465,2536,2636,4351,4614,5246,2455,2456,
2466,2533,2535,2553,2563,2633,2635,2653,2663,3514,
3541,3614,3641,4313,4315,4316,4371,4361,4414,4441,
4514,4541,4641,5245,5254,5264,5414,5441,6245,6246,
6254,6264,6414,6441,0
1750 DATA 2333,2735,2336,2353,2355,2356,2363,2365,
2366,2545,2546,2554,2564,2645,2646,2654,2664,3314,
3341,5314,5341,6314,6341,0
1760 DATA 4233,4235,4236,4253,4263,4413,4431,0
1770 DATA 2453,2433,2435,2436,2463,3234,3243,3245,
3246,3254,3264,3414,3441,4245,4246,4254,4264,5234,
5243,6234,6243,0
1780 DATA 4244,2445,2446,2454,2464,2534,2543,2634,
2643,4314,4341,5244,6244,0
1790 DATA 2334,2343,2345,2346,2354,2364,2444,2544,
2644,0
1800 DATA 4234,4243,0
1810 DATA 2434,2443,3244,0
1820 DATA 5511,5611,6511,6611,0
1830 DATA 3511,3611,4411,4511,4611,5215,5216,5251,
5261,5411,6215,6216,6251,6261,6411,0
1840 DATA 2515,2516,2551,2561,2615,2616,2651,2661,
3311,5311,6311,0
1850 DATA 4261,3213,3215,3216,3231,3251,3261,3411,
4215,4216,4241,4251,5213,5231,5241,6213,6231,6241, 
0
1860 DATA 2255,2256,2265,2266,2415,2416,2441,2451,
2461,2513,2531,2541,2613,2631,2641,4214,4311,5214,
6214,0
1870 DATA 2313,2315,2316,2331,2351,2361,2414,2514,
2614,0
1880 DATA 3241,4213,4231,0
1890 DATA 2233,2235,2236,2245,2246,2253,2263,2413,
2431,3214,0
1900 DATA 2244,2254,2264,2341,0
1910 DATA 2314,0
1920 DATA 2243,0
1930 DATA 2234,0
1940 DATA 2225,2226,2252,2262,2525,2526,2552,2562,
2625,2626,2652,2662,5225,5226,5252,5262,6225,6226,
6252,6262,0
1950 DATA 2425,3252,4252,5223,2155,2156,2165,2166,
2223,2232,2242,2426,2442,2452,2462,2523,2532,2542,
2623,2632,2642,3223,3225,3226,3232,3262,4225,4226,
4242,4262,5232,5242,5521,5621,6223,6232,6242,6521,
6621,0
1960 DATA 2326,1255,1256,1265,1266,2224,2323,2325,
2332,2352,2362,2424,2524,2624,4224,5224,5512,5612,
6224,6512,6612,0
1970 DATA 4521,4621,5151,2133,2135,2136,2145,2146,
2153,2163,2423,2432,3242,3521,3621,4223,4232,4421,
5161,5421,6151,6161,6421,0
1980 DATA 1235,4512,4612,1233,1236,1245,1246,1253,
1263,1551,1561,1651,1661,2144,2154,2164,2342,3224,
3321,3512,3612,4412,5111,5115,5116,5321,5412,6111,
6115,6116,6321,6412,0
1990 DATA 1244,1254,1264,1511,1515,1516,1611,1615,
1616,2324,3312,5312,6312,0
2000 DATA 3161,4141,2143,3131,3151,3421,4151,4161,
5131,5141,6131,6141,0
2010 DATA 3116,1243,1441,1451,1461,1531,1541,1631,
1641,2134,3111,3113,3115,3412,4111,4115,4116,4321,
5113,6113,0
2020 DATA 1234,1331,1351,1361,1411,1415,1416,1513,
1613,4114,4312,5114,6114,0
2030 DATA 1311,1313,1315,1316,1414,1514,1614,0
2040 DATA 3141,4131,0
2050 DATA 1431,4113,0
2060 DATA 1341,1413,3114,0
2070 DATA 6522,2522,2622,5522,5622,6622,0
2080 DATA 1111,1115,1116,1151,1155,1156,1161,1165,
1166,2222,5222,6222,0
2090 DATA 4622,2322,2422,3322,3522,3622,4422,4522,
5125,5126,5152,5162,5322,5422,6125,6126,6152,6162,
6322,6422,0
2100 DATA 1113,1141,1145,1146,1153,1163,1525,1526,
1552,1562,1625,1626,1652,1662,3222,4222,0
2110 DATA 1114,1131,1133,1135,1136,1144,1154,1164,0
2120 DATA 3126,3123,3125,3152,3162,3422,4125,4126,
4142,4152,4162,4322,5123,5142,6123,6142,0
2130 DATA 1462,3132,1143,1323,1325,1326,1352,1362,
1425,1426,1442,1452,1523,1542,1623,1642,4124,5124,
5132,6124,6132,0
2140 DATA 1332,1424,1524,1532,1624,1632,0
2150 DATA 1134,0
2160 DATA 3142,4123,0
2170 DATA 1342,1423,3124,4132,0
2180 DATA 1324,1432,0
2190 DATA 2213,2214,2215,2216,2231,2241,2251,2261,
2311,2411,2511,2611,3211,4211,5211,6211,0
2200 DATA 2421,2521,2621,0
2210 DATA 2221,2412,2512,2612,4221,5221,6221,0
2220 DATA 2212,4212,5212,6212,0
2230 DATA 2141,2151,2161,2321,0
2240 DATA 2111,2114,2115,2116,2312,3221,0
2250 DATA 1241,1251,1261,3212,0
2260 DATA 1211,1214,1215,1216,0
2270 DATA 2131,0
2280 DATA 2113,0
2290 DATA 1223,1224,1225,1226,1232,1242,1252,1262,
1312,1321,1412,1421,1512,1521,1612,1621,2123,2124,
2125,2126,2132,2142,2152,2162,3112,3121,4112,4121,
5112,5121,6112,6121,0
2300 DATA 1112,1121,1123,1124,1125,1126,1132,1142,
1152,1162,1222,1322,1422,1522,1622,2122,3122,4122,
5122,6122,0
2310 DATA 2211,0
2320 DATA 2121,1221,2112,1212,0
2330 DATA 1122,0