10 REM *** POKER1 ***
20 MODE 1:INK 1,0:INK 2,6:INK 0,8:BORDER 9 30 DEF FN FE(je)=3*(je ^ alpha) 40 DEF FN G1(cap)=g11*(1-(EXP(-cap/g12))^g13)/cap 50 DEF FN G2(cap)=g21*(1+(EXP((-cap+584)/100)^0.8)/1200)-g22*cap 60 DEF FN G3(b)=(X2-X1)*b/12+(13*X1-X2)/12 70 DATA 20,2,18,4,20,4,22,4,20,6,18,9,20,9,22,9,18,11,20,11,22,11,18,13,20,13,22,13,18,15,20,15,22,15 80 DATA 2,19,2,25,3,19,3,20,3,21,3,22,3,23,3,24,3,25,4,19,4,22,4,25,8,21,8,22,8,23,11,21,11,22,11,23,13,19,13,25,14,19,14,20,14,21,14,22,14,23,14,24,14,25,15,19,15,25,17,19,17,25,18,19,18,25,20,19,20,25,21,19,21,20,21,21,21,22,21,23,21,24,21,25,22,19 90 DATA 22,22,22,25,23,19,23,21,23,22,23,23,23,25,24,19,24,25,26,19,26,25,27,19,27,20,27,21,27,22,27,23,27,24,27,25,28,19,28,22,28,25,30,25,31,25 100 DATA RIEN,UNE PAIRE,DEUX PAIRES,BRELAN,QUINTE,COULEUR,FULL,CARRE,FLUSH,FLUSH ROYAL 110 DATA 2,3,4,5,6,7,8,9,10,VALETS,DAMES,ROIS,AS 120 '============================================ 130 GOSUB 5550:CLS 140 INK 0,9:INK 1,6:INK 2,0:INK 3,26 150 KEY 138,"mode 2:ink 0,0:ink 1,18:pen 1:paper 0:border 0"+CHR$(13) 160 ENV 1,2,1,5,1,0,10,1,6,3,1,-6,2,2,-1,2:ENT 1,1,0,80 170 ENV 2,1,0,20,15,-1,3:ENT 2,65,10,1 180 ENV 3,1,0,70:ENT 3,7,-10,10 190 DIM ORD%(20),J%(2,5),c%(2,5),va%(2,5),cj%(2,5),A$(10),B$(13),NB(2,13) 200 WINDOW #6,12,40,1,20:PAPER #6,0 210 FOR i=1 TO 10:READ A$(i):NEXT i:FOR i=1 TO 13:READ B$(i):NEXT i 220 '============================= 230 GOSUB 990:'definition des caracteres 240 GOSUB 810:'tableau 250 GOSUB 900:GOSUB 940:'initialisation 260 GOSUB 1800:'melange des cartes 270 FOR f=1 TO 5:GOSUB 1870:NEXT f:'charge J%,c%,va% 280 GOSUB 1950:jo=2:FOR f=1 TO 5:GOSUB 1960:NEXT f:'dessin des cartes en haut 290 GOSUB 1940:jo=1:FOR f=1 TO 5:GOSUB 1970:NEXT f:'dessin des cartes en bas 300 ON V GOTO 310,320 310 GOSUB 380:GOSUB 330:GOTO 420 320 GOSUB 330:GOSUB 380:GOTO 420 330 jo=2:GOSUB 3550 340 PEN 2:GOSUB 2420:'recherche des cartes a jeter par l'ordinateur 350 GOSUB 3420:'ejection de ces cartes et remplacement 360 IF NJ(2)=0 THEN LOCATE 17,1:PRINT"Je ne rejette rien" 370 RETURN 380 jo=1:GOSUB 1940:GOSUB 2250:'lecture des cartes a jeter par le joueur (1) 390 GOSUB 3420:'ejection de ces cartes et remplacement 400 RETURN 410 '=============================== 420 jo=2:GOSUB 3550:a2=a:b21=b1:b22=b2:MI2=MI:MA2=MA:GOTO 450 430 i$=INKEY$:IF i$="" THEN 430 440 RETURN 450 IF cap(2)>=1000 THEN cap=1000 ELSE cap=cap(2) 460 ON a2 GOTO 470,480,500,500,530,590,530,600,600,640 470 MTM=1:GOTO 660 480 bx=b21:g11=3000:g12=110:g13=1.2:X1=FN G1(cap):g11=4000:X2=FN G1(cap) 490 GOTO 650 500 bx=b21:g11=15000:g12=520:g13=1.9:X1=FN G1(cap):g11=25000:X2=FN G1(cap) 510 IF a2=3 THEN X2=(X2+X1)/2 ELSE X1=(X2+X1)/2 520 GOTO 650 530 bx=b21 540 g21=75:g22=0.037:X1=FN G2(cap):g21=87.5:X2=FN G2(cap) 550 IF a2=5 THEN X2=X1+(X2-X1)/3:GOTO 650 560 IF a2=6 THEN xx=X1:X1=xx+(X2-xx)/3:X2=X2-(X2-xx)/3:GOTO 650 570 IF a2=7 THEN X1=X2-(X2-X1)/3 580 GOTO 650 590 IF MI2<>1 THEN bx=MA2-1 ELSE bx=13:GOTO 540 600 bx=b21 610 g21=90:g22=0.026:X1=FN G2(cap) 620 IF a=8 THEN X2=(100+X1)/2 ELSE X2=100 630 GOTO 650 640 bx=13:GOTO 610 650 PO=FN G3(bx):MTM=CINT(cap(2)*PO/100) 660 GOTO 4580:'encheres 670 GOSUB 430 680 IF cap(1)*cap(2)=0 THEN 740 690 CLS #6:LOCATE 1,23:PRINT" "; 700 LOCATE 1,25:PRINT" "; 710 FOR X=22 TO 25:LOCATE 25,X:PRINT" ";:NEXT X 720 LOCATE 1,6:PRINT" ";:LOCATE 1,16:PRINT" ";:LOCATE 3,14:PRINT" "; 730 MTM=0:GOTO 250 740 CLS 750 IF INKEY$<>"" THEN 750 760 LOCATE 2,10:PRINT"Voulez-vous rejouer ? (o/n): ";:GOSUB 430 770 PRINT i$ 780 IF i$="o" OR i$="O" THEN RUN 790 END 800 '=============================== 810 PEN 2:LOCATE 1,22:PRINT"Combinaison 2:":LOCATE 1,24:PRINT"Combinaison 1:" 820 LOCATE 1,1:PRINT"Capital 2";:LOCATE 1,19:PRINT"Capital 1"; 830 LOCATE 8,2:PRINT"$":LOCATE 8,20:PRINT"$" 840 PLOT 0,264,2:DRAWR 168,0 850 PLOT 0,232:DRAWR 168,0 860 PLOT 0,200:DRAWR 168,0 870 LOCATE 1,8:PRINT"ENCHERES"; 880 RETURN 890 ' 900 PEN 2:FOR jo=1 TO 2:FOR i=1 TO 5:cj%(jo,i)=1:NEXT i,jo:orr=0:q4=0:c4=0 910 M1=0:M2=0:MT(1)=0:MT(2)=0:je=0 920 RETURN 930 ' 940 PEN 2:LOCATE 1,10:PRINT" ";:LOCATE 1,12:PRINT" ";: 950 TAG:MOVE -16,254:PRINT MT(2);:MOVE 64,254:PRINT M2; 960 MOVE -16,222:PRINT MT(1);:MOVE 64,222:PRINT M1;:TAGOFF 970 PEN 1:LOCATE 1,2:PRINT" ";:LOCATE 1,2:PRINT cap(2):LOCATE 1,20:PRINT" ";:LOCATE 1,20:PRINT cap(1):PEN 3:RETURN 980 ' 990 'caracteres graphiques 1000 SYMBOL 160,0,6,31,255,127,63,63,31:'VALET 1010 SYMBOL 161,0,0,231,255,60,189,219,231 1020 SYMBOL 162,0,96,248,255,254,252,252,248 1030 SYMBOL 163,16,16,23,16,19,23,21,19 1040 SYMBOL 164,0,0,129,98,137,83,82,145 1050 SYMBOL 165,8,8,200,40,200,168,168,200 1060 SYMBOL 166,16,16,16,16,8,8,8,8 1070 SYMBOL 167,16,52,24,0,0,0,126,129 1080 SYMBOL 168,8,8,8,8,16,16,16,16 1090 SYMBOL 169,4,4,2,1,14,50,66,129 1100 SYMBOL 170,126,0,60,153,126,0,1,254 1110 SYMBOL 171,32,32,64,128,0,192,56,7 1120 SYMBOL 172,3,4,87,168,168,171,214,129 1130 SYMBOL 173,128,0,1,130,116,20,232,144 1140 SYMBOL 174,36,60,37,36,60,36,36,60 1150 SYMBOL 175,0,0,128,96,17,2,2,2 1160 SYMBOL 176,192,48,76,132,4,4,4,4 1170 SYMBOL 177,72,40,36,20,20,20,23,0 1180 SYMBOL 178,36,36,60,36,126,129,255,0 1190 SYMBOL 179,2,2,2,1,1,1,255,0 1200 SYMBOL 180,4,4,4,4,4,4,252,0 1210 SYMBOL 181,0,33,82,44,32,63,20,31:'DAME 1220 SYMBOL 182,24,36,153,126,0,255,153,255 1230 SYMBOL 183,0,132,74,52,4,252,40,248 1240 SYMBOL 184,13,10,21,8,16,43,21,39 1250 SYMBOL 185,90,165,74,0,0,145,82,83 1260 SYMBOL 186,168,80,168,20,16,204,170,180 1270 SYMBOL 187,19,40,24,40,88,36,92,170 1280 SYMBOL 188,145,16,36,0,0,40,124,130 1290 SYMBOL 189,202,20,10,21,10,21,10,21 1300 SYMBOL 190,0,0,1,2,3,5,2,5 1310 SYMBOL 191,86,170,93,171,84,168,92,106 1320 SYMBOL 192,124,56,0,0,129,126,0,0 1330 SYMBOL 193,26,53,74,181,90,21,58,85 1340 SYMBOL 194,0,0,0,0,128,64,160,160 1350 SYMBOL 195,10,19,46,17,17,16,16,32 1360 SYMBOL 196,133,4,2,2,2,130,129,193 1370 SYMBOL 197,170,41,32,32,64,64,128,128 1380 SYMBOL 198,80,40,16,16,48,80,144,144 1390 SYMBOL 199,32,32,32,32,32,33,63,0 1400 SYMBOL 200,32,32,144,136,132,194,255,0 1410 SYMBOL 201,129,70,40,16,0,0,255,0 1420 SYMBOL 202,1,2,4,8,48,64,255,0 1430 SYMBOL 204,16,16,16,16,16,16,240,0 1440 SYMBOL 205,33,33,82,45,32,31,20,31:'ROI 1450 SYMBOL 207,36,126,129,60,102,165,153,255 1460 SYMBOL 208,132,132,74,180,4,248,40,248 1470 SYMBOL 209,254,170,254,68,68,68,68,68 1480 SYMBOL 210,16,19,23,16,19,23,21,19 1490 SYMBOL 211,0,1,131,68,145,75,74,137 1500 SYMBOL 212,8,200,40,8,200,168,168,200 1510 SYMBOL 213,68,124,40,40,40,124,40,40 1520 SYMBOL 214,16,24,24,24,12,13,15,15 1530 SYMBOL 215,8,44,24,0,126,255,231,129 1540 SYMBOL 216,8,24,24,24,48,176,240,240 1550 SYMBOL 217,40,56,40,56,40,56,40,40 1560 SYMBOL 218,7,7,3,1,2,6,25,224 1570 SYMBOL 219,255,255,255,255,126,0,255,0 1580 SYMBOL 220,224,224,192,128,64,96,152,7 1590 SYMBOL 221,47,40,40,40,60,66,60,66 1600 SYMBOL 222,128,128,192,32,16,8,4,2 1610 SYMBOL 223,1,1,3,4,8,20,34,65 1620 SYMBOL 224,224,24,4,4,4,4,4,4 1630 SYMBOL 225,252,66,60,66,62,17,31,0 1640 SYMBOL 230,1,0,0,0,0,0,255,0 1650 SYMBOL 231,129,231,60,24,24,24,255,0 1660 SYMBOL 232,128,0,0,0,0,0,255,0 1670 SYMBOL 233,132,132,132,132,132,132,252,0 1680 SYMBOL 234,38,105,233,41,41,41,118,0:'dix 1690 SYMBOL 226,56,56,214,254,214,16,56,0:'trefle 1700 V1$=CHR$(160)+CHR$(161)+CHR$(162):V2$=CHR$(163)+CHR$(164)+CHR$(165) 1710 V3$=CHR$(166)+CHR$(167)+CHR$(168):V4$=CHR$(169)+CHR$(170)+CHR$(171) 1720 V5$=CHR$(172)+CHR$(173):V6$=CHR$(175)+CHR$(176):V7$=CHR$(179)+CHR$(180) 1730 D1$=CHR$(181)+CHR$(182)+CHR$(183):D2$=CHR$(184)+CHR$(185)+CHR$(186) 1740 D3$=CHR$(187)+CHR$(188)+CHR$(189):D4$=CHR$(190)+CHR$(191)+CHR$(192)+CHR$(193)+CHR$(194):D5$=CHR$(195)+CHR$(196):D6$=CHR$(197)+CHR$(198) 1750 D7$=CHR$(199)+CHR$(200)+CHR$(201)+CHR$(202)+CHR$(204) 1760 R1$=CHR$(205)+CHR$(207)+CHR$(208):R2$=CHR$(209)+CHR$(210)+CHR$(211)+CHR$(212):R3$=CHR$(213)+CHR$(214)+CHR$(215)+CHR$(216):R4$=CHR$(217)+CHR$(218)+CHR$(219)+CHR$(220) 1770 R5$=CHR$(221)+CHR$(222):R6$=CHR$(223)+CHR$(224):R7$=CHR$(225)+CHR$(230)+CHR$(231)+CHR$(232)+CHR$(233):d$=CHR$(234):DOS$=CHR$(206)+CHR$(203)+CHR$(203)+CHR$(203)+CHR$(206) 1780 RETURN 1790 '======================================= 1800 FOR i=1 TO 20:'melange des cartes 1810 RANDOMIZE TIME:ORD%(i)=INT(RND*52+1) 1820 FOR j=1 TO i-1 1830 IF ORD%(j)=ORD%(i) THEN 1810 1840 NEXT j 1850 SOUND 1,0,0,0,1,1,10:FOR pause=1 TO 100:NEXT pause 1860 NEXT i:FOR pause=1 TO 1000:NEXT pause:RETURN 1870 'distribution.commence par le perdant 1880 IF V=2 THEN J%(1,f)=ORD%((f-1)*2+1):J%(2,f)=ORD%(f*2):GOTO 1900 1890 J%(2,f)=ORD%((f-1)*2+1):J%(1,f)=ORD%(f*2) 1900 FOR jo=1 TO 2 1910 c%(jo,f)=CINT(J%(jo,f)/13+0.42308):va%(jo,f)=J%(jo,f)-(c%(jo,f)-1)*13 1920 NEXT jo 1930 RETURN 1940 PAPER #1,3:PAPER #2,3:PAPER #3,3:PAPER #4,3:PAPER #5,3:WINDOW #1,12,16,12,20:WINDOW #2,18,22,12,20:WINDOW #3,24,28,12,20:WINDOW #4,30,34,12,20:WINDOW #5,36,40,12,20:RETURN:'cartes en bas 1950 PAPER #1,3:PAPER #2,3:PAPER #3,3:PAPER #4,3:PAPER #5,3:WINDOW #1,12,16,2,10:WINDOW #2,18,22,2,10:WINDOW #3,24,28,2,10:WINDOW #4,30,34,2,10:WINDOW #5,36,40,2,10:RETURN: 'cartes en haut 1960 CLS #f:PEN #f,1:LOCATE #f,1,1:PRINT #f,CHR$(206);CHR$(206);CHR$(206);CHR$(206);CHR$(206);:FOR ii=2 TO 8:LOCATE #f,1,ii:PRINT#f,DOS$;:NEXT ii:LOCATE #f,1,9:PRINT #f,CHR$(206);CHR$(206);CHR$(206);CHR$(206);CHR$(206);:RETURN 1970 ON c%(jo,f) GOTO 1980,1990,2000,2010 1980 c=227:pe=1:GOTO 2020 1990 c=228:pe=1:GOTO 2020 2000 c=229:pe=2:GOTO 2020 2010 c=226:pe=2 2020 CLS #f 2030 h=va%(jo,f):PEN #f,pe 2040 ON h GOSUB 2080,2090,2100,2110,2120,2130,2140,2150,2160,2170,2180,2200,2220 2050 RETURN 2060 LOCATE #f,1,1:PRINT #f,CHR$(h+48):LOCATE #f,1,9:PRINT #f,CHR$(h+48):LOCATE #f,5,1:PRINT #f,CHR$(h+48);:LOCATE #f,5,9:PRINT #f,CHR$(h+48);:RETURN 2070 LOCATE #f,1,1:PRINT #f,d$:LOCATE #f,1,9:PRINT #f,d$:LOCATE #f,5,1:PRINT #f,d$;:LOCATE #f,5,9:PRINT #f,d$;:RETURN 2080 LOCATE #f,3,5:PRINT #f,CHR$(c):GOSUB 2060:RETURN 2090 LOCATE #f,3,2:PRINT #f,CHR$(c):LOCATE #f,3,8:PRINT #f,CHR$(c):GOSUB 2060:RETURN 2100 GOSUB 2080:GOSUB 2090:GOSUB 2060:RETURN 2110 LOCATE #f,2,2:PRINT #f,CHR$(c):LOCATE #f,4,2:PRINT #f,CHR$(c):LOCATE #f,2,8:PRINT #f,CHR$(c):LOCATE #f,4,8:PRINT #f,CHR$(c):GOSUB 2060:RETURN 2120 GOSUB 2110:GOSUB 2080:GOSUB 2060:RETURN 2130 LOCATE #f,2,5:PRINT #f,CHR$(c):LOCATE #f,4,5:PRINT #f,CHR$(c):GOSUB 2110:GOSUB 2060:RETURN 2140 LOCATE #f,3,4:PRINT #f,CHR$(c):GOSUB 2130:GOSUB 2060:RETURN 2150 LOCATE #f,3,4:PRINT #f,CHR$(c):LOCATE #f,3,6:PRINT #f,CHR$(c):GOSUB 2130:GOSUB 2060:RETURN 2160 GOSUB 2080:FOR ii=2 TO 8 STEP 2:LOCATE #f,2,ii:PRINT #f,CHR$(c):LOCATE #f,4,ii:PRINT #f,CHR$(c):NEXT ii:GOSUB 2060:RETURN 2170 LOCATE #f,3,3:PRINT #f,CHR$(c):LOCATE #f,3,7:PRINT #f,CHR$(c):FOR ii=2 TO 8 STEP 2:LOCATE #f,2,ii:PRINT #f,CHR$(c):LOCATE #f,4,ii:PRINT #f,CHR$(c):NEXT ii:GOSUB 2070:RETURN 2180 LOCATE #f,1,1:PEN #f,pe:PRINT #f,"V";CHR$(c):LOCATE #f,4,9:PRINT #f,CHR$(c);"V";:LOCATE #f,2,3:PRINT #f,V1$:PEN #f,2:LOCATE #f,2,4:PRINT #f,V2$:LOCATE #f,2,5:PRINT #f,V3$:LOCATE #f,2,6:PRINT #f,V4$ 2190 LOCATE #f,1,7:PRINT #f,V5$;" ";V6$;:LOCATE #f,2,8:PRINT #f,CHR$(177);" ";V7$:PEN #f,pe:LOCATE #f,3,7:PRINT #f,CHR$(174);:LOCATE #f,1,8:PRINT #f,CHR$(c);:LOCATE #f,3,8:PRINT #f,CHR$(178);:RETURN 2200 LOCATE #f,1,1:PEN #f,pe:PRINT #f,"D";CHR$(c):LOCATE #f,4,9:PRINT #f,CHR$(c);"D";:LOCATE #f,2,3:PRINT #f,D1$:PEN #f,2:LOCATE #f,2,4:PRINT #f,D2$:LOCATE #f,2,5:PRINT #f,D3$:LOCATE #f,1,6:PRINT #f,D4$;: 2210 LOCATE #f,1,7:PRINT #f,D5$;" ";D6$;:LOCATE #f,1,8:PRINT #f,D7$;:PEN #f,pe:LOCATE #f,3,7:PRINT #f,CHR$(c);:RETURN 2220 LOCATE #f,1,1:PEN #f,pe:PRINT #f,"R";CHR$(c):LOCATE #f,4,9:PRINT #f,CHR$(c);"R";:LOCATE #f,1,3:PRINT #f,CHR$(c);R1$:PEN #f,2:LOCATE #f,1,4:PRINT #f,R2$:LOCATE #f,1,5:PRINT #f,R3$:LOCATE #f,1,6:PRINT #f,R4$ 2230 LOCATE #f,1,7:PRINT #f,R5$;" ";R6$:LOCATE #f,1,8:PRINT #f,R7$;:PEN #f,pe:LOCATE #f,3,7:PRINT #f,CHR$(c);:RETURN 2240 '========================================== 2250 'lecture des cartes a jeter par le joueur (1) 2260 PEN 2:lx=14:jo=1 2270 LOCATE lx,21:PRINT"^" 2280 GOSUB 430 2290 IF INKEY(8)=0 THEN 2340 2300 IF INKEY(1)=0 THEN 2360 2310 IF INKEY(9)=0 THEN 2380 2320 IF INKEY(18)=0 OR INKEY(6)=0 THEN 2410 2330 GOTO 2280 2340 LOCATE lx,21:PRINT" ":lx=lx-6:IF lx<14 THEN lx=14 2350 GOTO 2270 2360 LOCATE lx,21:PRINT" ":lx=lx+6:IF lx>38 THEN lx=38 2370 GOTO 2270 2380 f=(lx-8)/6 2390 IF cj%(jo,f)=1 THEN GOSUB 1960:cj%(jo,f)=0:GOTO 2280 2400 GOSUB 1970:cj%(jo,f)=1:GOTO 2280 2410 LOCATE lx,21:PRINT" ":RETURN 2420 'determination des cartes a jeter 2430 jo=2 2440 ON a GOTO 2450,2980,3180,3260,3400,3400,3400,3260,3400,3400 2450 GOSUB 2510:'test d'une quinte avec 4 cartes 2460 GOSUB 2700:'test d'une couleur avec 4 cartes 2470 IF c4<>1 AND q4<>1 THEN 2860 2480 IF c4<>1 THEN GOSUB 2500:cj%(jo,fq)=0:GOTO 3400 2490 GOSUB 2500:cj%(jo,fc)=0:GOTO 3400 2500 FOR f=1 TO 5:cj%(jo,f)=1:NEXT f:RETURN 2510 'test d'une quinte avec 4 cartes 2520 MA%(1)=MAX(va%(jo,2),va%(jo,3),va%(jo,4),va%(jo,5)) 2530 MI%(1)=MIN(va%(jo,2),va%(jo,3),va%(jo,4),va%(jo,5)) 2540 MA%(2)=MAX(va%(jo,1),va%(jo,3),va%(jo,4),va%(jo,5)) 2550 MI%(2)=MIN(va%(jo,1),va%(jo,3),va%(jo,4),va%(jo,5)) 2560 MA%(3)=MAX(va%(jo,1),va%(jo,2),va%(jo,4),va%(jo,5)) 2570 MI%(3)=MIN(va%(jo,1),va%(jo,2),va%(jo,4),va%(jo,5)) 2580 MA%(4)=MAX(va%(jo,1),va%(jo,2),va%(jo,3),va%(jo,5)) 2590 MI%(4)=MIN(va%(jo,1),va%(jo,2),va%(jo,3),va%(jo,5)) 2600 MA%(5)=MAX(va%(jo,1),va%(jo,2),va%(jo,3),va%(jo,4)) 2610 MI%(5)=MIN(va%(jo,1),va%(jo,2),va%(jo,3),va%(jo,4)) 2620 FOR f=1 TO 5:GOSUB 2630:NEXT f:GOTO 2690 2630 IF MI%(f)=1 THEN 2660 2640 IF MA%(f)-MI%(f)=3 OR MA%(f)-MI%(f)=4 THEN 2680 2650 RETURN 2660 sva=va%(jo,1)+va%(jo,2)+va%(jo,3)+va%(jo,4)+va%(jo,5)-va%(jo,f) 2670 IF sva<>10 AND sva<>11 AND sva<>12 AND sva<>13 AND sva<>34 AND sva<>35 AND sva<>36 AND sva<>37 THEN 2650 2680 fq=f:q4=1:GOTO 2650 2690 RETURN 2700 'test d'une couleur avec 4 cartes 2710 MA%(1)=MAX(c%(jo,2),c%(jo,3),c%(jo,4),c%(jo,5)) 2720 MI%(1)=MIN(c%(jo,2),c%(jo,3),c%(jo,4),c%(jo,5)) 2730 MA%(2)=MAX(c%(jo,1),c%(jo,3),c%(jo,4),c%(jo,5)) 2740 MI%(2)=MIN(c%(jo,1),c%(jo,3),c%(jo,4),c%(jo,5)) 2750 MA%(3)=MAX(c%(jo,1),c%(jo,2),c%(jo,4),c%(jo,5)) 2760 MI%(3)=MIN(c%(jo,1),c%(jo,2),c%(jo,4),c%(jo,5)) 2770 MA%(4)=MAX(c%(jo,1),c%(jo,2),c%(jo,3),c%(jo,5)) 2780 MI%(4)=MIN(c%(jo,1),c%(jo,2),c%(jo,3),c%(jo,5)) 2790 MA%(5)=MAX(c%(jo,1),c%(jo,2),c%(jo,3),c%(jo,4)) 2800 MI%(5)=MIN(c%(jo,1),c%(jo,2),c%(jo,3),c%(jo,4)) 2810 FOR f=1 TO 5 2820 IF MA%(f)=MI%(f) THEN 2840 2830 NEXT f:GOTO 2850 2840 fc=f:c4=1 2850 RETURN 2860 FOR fj=1 TO 5 2870 IF va%(jo,fj)=1 THEN cj%(jo,fj)=1:GOTO 2900 2880 IF va%(jo,fj)=MA AND MI<>1 THEN cj%(jo,fj)=1:GOTO 2900 2890 cj%(jo,fj)=0 2900 NEXT fj 2910 IF RND<0.95 OR cap(2)*2<cap(1) THEN 3400 2920 nj=0:FOR fj=1 TO 5:IF cj%(jo,fj)=1 THEN 2960 2930 IF va%(jo,fj)<10 THEN 2960 2940 nj=nj+1:IF nj=3 THEN 2970 2950 cj%(jo,fj)=1 2960 NEXT fj 2970 GOTO 3400 2980 'paires.rejet d'une ou 3 cartes ou aucune(bluff) 2990 IF RND>0.95 THEN 3400 3000 FOR f=1 TO 5 3010 IF va%(jo,f)=1 THEN 3030 3020 IF NB(jo,va%(jo,f)-1)=2 THEN 3050 ELSE 3040 3030 IF NB(jo,va%(jo,f)+12)=2 THEN 3050 3040 NEXT f 3050 MA%(f)=MA:MI%(f)=MI 3060 GOSUB 2630 3070 GOSUB 2700 3080 IF cap(2)+200<cap(1) THEN 3130 3090 IF RND>0.4 THEN 3130 3100 IF q4<>1 AND c4<>1 THEN 3130 3110 IF c4<>1 THEN GOSUB 2500:cj%(jo,fq)=0:GOTO 3400 3120 GOSUB 2500:cj%(jo,fc)=0:GOTO 3400 3130 FOR fj=1 TO 5 3140 IF b1<>13 AND va%(jo,fj)-1=b1 THEN cj%(jo,fj)=1:GOTO 3170 3150 IF b1=13 AND va%(jo,fj)=1 THEN cj%(jo,fj)=1:GOTO 3170 3160 cj%(jo,fj)=0 3170 NEXT fj:GOTO 3400 3180 '2 paires,1 carte a jeter ou aucune 3190 IF RND>0.95 THEN 3400 3200 FOR fj=1 TO 5 3210 IF va%(jo,fj)=1 THEN 3240 3220 IF NB(2,va%(jo,fj)-1)=1 THEN cj%(jo,fj)=0 ELSE cj%(jo,fj)=1 3230 GOTO 3250 3240 IF NB(2,va%(jo,fj)+12)=1 THEN cj%(jo,fj)=0 ELSE cj%(jo,fj)=1 3250 NEXT fj:GOTO 3400 3260 'carre ou brelan:1 ou 2 cartes jetables 3270 FOR fj=1 TO 5 3280 IF va%(jo,fj)=1 THEN 3310 3290 IF NB(2,va%(jo,fj)-1)<3 THEN cj%(jo,fj)=0 ELSE cj%(jo,fj)=1 3300 GOTO 3320 3310 IF NB(2,va%(jo,fj)+12)<3 THEN cj%(jo,fj)=0 ELSE cj%(jo,fj)=1 3320 NEXT fj 3330 IF a2=8 THEN 3400 3340 'brelan :rejet de 1 ou 2 cartes 3350 IF RND>0.6 THEN 3400 3360 FOR fj=1 TO 5 3370 IF cj%(jo,fj)=1 THEN 3390 3380 cj%(jo,fj)=1:GOTO 3400 3390 NEXT fj 3400 RETURN 3410 '========================================= 3420 'ejection et remplacement des cartes choisies 3430 NJ(1)=0:NJ(2)=0 3440 FOR f=1 TO 5 3450 IF cj%(jo,f)=1 THEN 3520 3460 orr=orr+1:J%(jo,f)=ORD%(10+orr) 3470 c%(jo,f)=CINT(J%(jo,f)/13+0.42308):va%(jo,f)=J%(jo,f)-(c%(jo,f)-1)*13 3480 IF jo=1 THEN GOSUB 1970:NJ(1)=NJ(1)+1:GOTO 3520 3490 NJ(2)=NJ(2)+1 3500 IF NJ(2)>1 THEN LOCATE 17,1:PRINT"Je rejette ";NJ(2);" cartes.":GOTO 3520 3510 IF NJ(2)=1 THEN LOCATE 17,1:PRINT"Je rejette une carte." 3520 NEXT f 3530 RETURN 3540 '=================================== 3550 'valeur de la combinaison 3560 b1=0:b2=0:a=0:MA=0:MI=0:MAC=0:MIC=0:COUL=0:QUINT=0:MNB=0 3570 FOR i=1 TO 13:NB(jo,i)=0:NEXT i 3580 MA=MAX(va%(jo,1),va%(jo,2),va%(jo,3),va%(jo,4),va%(jo,5)) 3590 MI=MIN(va%(jo,1),va%(jo,2),va%(jo,3),va%(jo,4),va%(jo,5)) 3600 FOR i=1 TO 5 3610 IF va%(jo,i)<>1 THEN NB(jo,va%(jo,i)-1)=NB(jo,va%(jo,i)-1)+1:GOTO 3630 3620 NB(jo,va%(jo,i)+12)=NB(jo,va%(jo,i)+12)+1 3630 NEXT i 3640 MNB=MAX(NB(jo,1),NB(jo,2),NB(jo,3),NB(jo,4),NB(jo,5),NB(jo,6),NB(jo,7),NB(jo,8),NB(jo,9),NB(jo,10),NB(jo,11),NB(jo,12),NB(jo,13)) 3650 IF MNB=1 THEN 3830:'tous differents 3660 FOR i=1 TO 13:IF NB(jo,i)=MNB THEN 3680 3670 NEXT i 3680 ON MNB-1 GOTO 3690,3710,3730 3690 a=2:'paire 3700 GOTO 3740 3710 a=4:'brelan 3720 GOTO 3740 3730 a=8:'carre 3740 b1=i 3750 ON MNB-1 GOTO 3760,3760,3940 3760 FOR i=1 TO 13 3770 IF i=b1 THEN 3790 3780 IF NB(jo,i)=2 THEN 3800 3790 NEXT i:GOTO 3940 3800 IF a=2 THEN a=3:b2=i 3810 IF b2>b1 THEN bb=b1:b1=b2:b2=bb:GOTO 3940 3820 a=7:b2=i:GOTO 3940 3830 'combinaison sans valeurs semblables 3840 MAC=MAX(c%(jo,1),c%(jo,2),c%(jo,3),c%(jo,4),c%(jo,5)) 3850 MIC=MIN(c%(jo,1),c%(jo,2),c%(jo,3),c%(jo,4),c%(jo,5)) 3860 IF MAC=MIC THEN COUL=1:GOSUB 3950:'couleur numero MAC 3870 IF MA-MI=4 THEN QUINT=1:b1=MA-1:'quinte a b1 3880 IF MA=13 AND MI=1 AND va%(jo,1)+va%(jo,2)+va%(jo,3)+va%(jo,4)+va%(jo,5)=47 THEN b1=13:QUINT=1:'quinte a l'as 3890 IF QUINT<>1 AND COUL<>1 THEN a=1:GOTO 3940 3900 IF QUINT<>1 THEN a=6:GOTO 3940 3910 IF QUINT=1 AND COUL<>1 THEN a=5:GOTO 3940 3920 IF b1<>13 THEN a=9:GOTO 3940:'flush a b1 de MAC 3930 a=10:'flush royal de MAC 3940 RETURN 3950 ON MAC GOTO 3960,3970,3980,3990 3960 coul$="carreau":GOTO 4000 3970 coul$="coeur":GOTO 4000 3980 coul$="pique":GOTO 4000 3990 coul$="trefle" 4000 RETURN 4010 'affichage de la qualite de la combinaison 4020 LOCATE 1,(27-2*jo):PRINT A$(a); 4030 ON a GOTO 4190,4040,4060,4040,4090,4150,4160,4040,4170,4180 4040 IF b1<>13 THEN PRINT" de ";B$(b1):GOTO 4190 4050 PRINT" d'";B$(b1):GOTO 4190 4060 IF b1<>13 AND b2<>13 THEN PRINT" de ";B$(b1);" et de ";B$(b2):GOTO 4190 4070 IF b1=13 THEN PRINT" d'";B$(b1);" et de ";B$(b2):GOTO 4190 4080 PRINT" de ";B$(b1);" et d'";B$(b2):GOTO 4190 4090 IF b1<=9 THEN PRINT" au ";B$(b1):GOTO 4190 4100 ON b1-9 GOTO 4110,4120,4130,4140 4110 PRINT" au VALET":GOTO 4190 4120 PRINT" a la DAME":GOTO 4190 4130 PRINT" au ROI":GOTO 4190 4140 PRINT" a l'AS":GOTO 4190 4150 PRINT" a ";coul$:GOTO 4190 4160 PRINT" aux ";B$(b1);" par les ";B$(b2):GOTO 4190 4170 PRINT" de ";coul$;:GOTO 4100 4180 PRINT" de ";coul$;:GOTO 4190 4190 RETURN 4200 'test du vainqueur 4210 IF a1>a2 THEN 4520:'le joueur (1) gagne 4220 IF a2>a1 THEN 4540:'l'ordinateur gagne 4230 'cas ou la combinaison est du meme type 4240 ON a GOTO 4250,4290,4370,4290,4430,4250,4460,4250,4430,4510 4250 FOR n=13 TO -1 STEP -1 4260 IF NB(1,n)<>0 AND NB(2,n)=0 THEN 4520 4270 IF NB(2,n)<>0 AND NB(1,n)=0 THEN 4540 4280 NEXT n:GOTO 4510 4290 IF b11>b21 THEN 4520 4300 IF b21>b11 THEN 4540 4310 FOR n=13 TO 1 STEP -1 4320 IF NB(1,n)>=2 AND NB(2,n)>=2 THEN 4360 4330 IF NB(1,n)=1 AND NB(2,n)=1 THEN 4360 4340 IF NB(1,n)=1 AND NB(2,n)=0 THEN 4520 4350 IF NB(1,n)=0 AND NB(2,n)=1 THEN 4540 4360 NEXT n:GOTO 4510 4370 'test double paire 4380 IF b11>b21 THEN 4520 4390 IF b21>b11 THEN 4540 4400 IF b12>b22 THEN 4520 4410 IF b22>b12 THEN 4540 4420 GOTO 4310 4430 IF MI1>MI2 THEN 4520 4440 IF MI1<MI2 THEN 4540 4450 GOTO 4510 4460 IF b11>b21 THEN 4520 4470 IF b21>b11 THEN 4540 4480 IF b12>b22 THEN 4520 4490 IF b22>b12 THEN 4540 4500 GOTO 4510 4510 LOCATE 34,23:PRINT"EGALITE";:cap(1)=cap(1)+MT(1):cap(2)=cap(2)+MT(2):GOTO 4560 4520 LOCATE 26,24:PRINT"VOUS GAGNEZ":V=1:cap(1)=cap(1)+MT(1)+MT(2) 4530 SOUND 1,100,0,12,3,3:GOTO 4560 4540 LOCATE 31,22:PRINT"JE GAGNE":V=2:cap(2)=cap(2)+MT(1)+MT(2) 4550 SOUND 1,1000,60,15,2,2 4560 RETURN 4570 '============================== 4580 PEN 3:je=0:'E N C H E R E S 4590 IF V=1 THEN jo=2 ELSE jo=1 4600 IF jo=1 THEN jo=2 ELSE jo=1 4610 IF jo=2 THEN LOCATE 3,14:PRINT" ";:GOTO 5140:'encheres de l'ordinateur 4620 LOCATE 3,14:PEN 1:PRINT"A VOUS";:PEN 3 4630 LOCATE 1,16:PRINT" "; 4640 GOSUB 430 4650 IF INKEY(5)=0 THEN 5020:'abandon 4660 IF INKEY(4)=0 THEN 4860:'pour voir 4670 IF INKEY(3)=0 THEN 4690:'surenchere 4680 GOTO 4640 4690 LOCATE 1,16:PRINT"Surenchere";:M1=0 4700 IF cap(1)<2 OR MT(2)-MT(1)+1>cap(1) THEN LOCATE 1,17:PRINT"impossible";:GOSUB 4780:LOCATE 1,17:PRINT" ";:GOTO 4630 4710 GOSUB 430 4720 IF INKEY(13)=0 THEN M1=M1+1:MT(1)=MT(1)+1:GOTO 4760 4730 IF INKEY(20)=0 THEN M1=M1+5:MT(1)=MT(1)+5:GOTO 4760 4740 IF INKEY(10)=0 THEN M1=M1+10:MT(1)=MT(1)+10:GOTO 4760 4750 IF INKEY(18)=0 OR INKEY(6)=0 THEN 4790 4760 PEN 2:TAG:MOVE -16,222:PRINT MT(1);:MOVE 64,222:PRINT M1;:TAGOFF:PEN 3 4770 GOTO 4710 4780 FOR pause=1 TO 400:NEXT pause:RETURN 4790 IF cap(1)-M1>=0 THEN 4800 ELSE 4820 4800 IF MT(1)=1 AND MT(2)=0 THEN 4830 4810 IF MT(1)>MT(2) THEN 4840 ELSE 4830 4820 LOCATE 1,17:PRINT"trop forte";:GOSUB 4780:LOCATE 1,17:PRINT" ";:MT(1)=MT(1)-M1:M1=0:GOSUB 940:GOTO 4710 4830 LOCATE 1,17:PRINT"trop faible";:GOSUB 4780:LOCATE 1,17:PRINT" ";:MT(1)=MT(1)-M1:M1=0:GOSUB 940:GOTO 4710 4840 cap(1)=cap(1)-M1:LOCATE 1,20:PEN 1:PRINT cap(1);:PEN 3 4850 GOTO 4600 4860 IF V=2 THEN 4880 4870 IF MT(1)=0 THEN LOCATE 3,16:PRINT"MISEZ";:LOCATE 1,17:PRINT"D'ABORD";:GOSUB 4780:LOCATE 1,17:PRINT" ";:GOTO 4630 4880 LOCATE 1,16:PRINT"Pour voir";:M1=MT(2)-MT(1) 4890 IF cap(1)>=M1 THEN 4930 4900 M1=cap(1):cap(1)=0:MT(1)=MT(1)+M1 4910 MT(2)=MT(2)-M2:cap(2)=cap(2)+M2 4920 M2=MT(1)-MT(2):MT(2)=MT(1):cap(2)=cap(2)-M2:GOTO 4950 4930 cap(1)=cap(1)-M1 4940 MT(1)=MT(1)+M1 4950 GOSUB 940 4960 jo=1:GOSUB 3550:a1=a:b11=b1:b12=b2:MI1=MI:GOSUB 4010 4970 jo=2:a=a2:b1=b21:b2=b22:MI=MI2 4980 GOSUB 1950:FOR f=1 TO 5:GOSUB 1970:NEXT f:GOSUB 4010 4990 GOSUB 4200 5000 PEN 1:LOCATE 1,2:PRINT cap(2);:LOCATE 1,20:PRINT cap(1);:PEN 3 5010 PEN 2:GOTO 670:'battre les cartes et rejouer 5020 LOCATE 1,16:PRINT"Abandon";:SOUND 1,1000,60,15,2,2 5030 IF MT(1)<>0 THEN 5050 5040 MT(1)=1:M1=1:cap(1)=cap(1)-1 5050 cap(2)=cap(2)+MT(2)+MT(1) 5060 V=2:GOSUB 940:GOSUB 430 5070 IF i$<>"V" AND i$<>"v" THEN 680 5080 jo=2:a=a2:b1=b21:b2=b22:MI=MI2 5090 GOSUB 1950:FOR f=1 TO 5:GOSUB 1970:NEXT f:GOSUB 4010 5100 GOSUB 430 5110 GOTO 680 5120 '============================== 5130 'encheres de l'ordinateur 5140 M2=0:je=je+1:LOCATE 1,6:PRINT" ";: 5150 IF a2=1 AND V=2 AND RND<0.8 THEN 5360 5160 IF a2=1 AND V=2 AND RND>=0.8 THEN MTM=CINT(cap(2)*(0.1+(0.1*RND))):GOTO 5280 5170 IF a2=1 AND MT(1)=1 THEN 5420 5180 IF a2=1 THEN 5360 5190 IF cap(2)<=10 AND NJ(1)>=4 AND a2>=3 AND MT(1)<>0 THEN 5420 5200 IF cap(2)<=5 AND NJ(1)>0 AND a2>=2 AND MT(1)<>0 THEN 5420 5210 IF MT(1)>=0.8*MTM AND MT(1)<=MTM*1.25 THEN 5420 5220 IF MT(1)<MTM THEN 5280 5230 IF NJ(1)>0 THEN 5260 5240 IF a2>3 THEN 5420 5250 IF cap(2)>=3*MT(2) THEN 5360 ELSE 5420 5260 IF a2>2 THEN 5420 5270 IF MT(2)<=0.05*cap(2) THEN 5360 ELSE 5420 5280 M2M=MT(1)-MT(2)+1 5290 alpha=1.5+RND:M2=CINT(FN FE(je)) 5300 IF je=1 THEN M2=CINT(5*RND) 5310 IF M2<M2M THEN M2=M2M 5320 IF MT(2)+M2>1.1*MTM THEN 5420 5330 IF MT(1)=0 AND M2<2 THEN M2=2 5340 LOCATE 1,6:PRINT"Surenchere"; 5350 cap(2)=cap(2)-M2:MT(2)=MT(2)+M2:GOSUB 940:GOTO 4600 5360 LOCATE 1,6:PRINT" ";:LOCATE 1,6:PRINT"Abandon"; 5370 IF MT(2)<>0 THEN 5390 5380 MT(2)=1:M2=1:cap(2)=cap(2)-1 5390 cap(1)=cap(1)+MT(1)+MT(2):V=1:SOUND 1,100,0,12,3,3 5400 GOSUB 940:GOSUB 430 5410 GOTO 5070 5420 IF V=1 OR MT(2)<>0 THEN 5450 5430 IF cap(2)>=2 THEN M2=2:GOTO 5340 5440 GOTO 5360 5450 LOCATE 1,6:PRINT" ";:LOCATE 1,6:PRINT"Pour voir"; 5460 M2=MT(1)-MT(2) 5470 IF cap(2)>=M2 THEN 5510 5480 M2=cap(2):cap(2)=0:MT(2)=MT(2)+M2 5490 MT(1)=MT(1)-M1:cap(1)=cap(1)+M1 5500 M1=MT(2)-MT(1):MT(1)=MT(2):cap(1)=cap(1)-M1:GOTO 5530 5510 cap(2)=cap(2)-M2 5520 MT(2)=MT(2)+M2 5530 GOSUB 940:GOTO 4960 5540 '=================================== 5550 PEN 1:PAPER 0 5560 SYMBOL AFTER 160 5570 SYMBOL 160,64,90,103,101,101,103,90,64:SYMBOL 161,2,214,182,214,138,138,138,2:SYMBOL 162,64,123,109,123,107,107,123,64:SYMBOL 163,2,250,86,122,86,86,118,2:SYMBOL 164,0,0,1,3,7,15,31,63:SYMBOL 165,31,127,255,255,255,255,255,255 5580 SYMBOL 166,63,127,127,255,255,255,255,255:SYMBOL 167,252,240,224,192,128,128,0,0:SYMBOL 168,248,254,255,255,255,255,255,255:SYMBOL 169,0,0,128,192,224,240,248,252:SYMBOL 170,63,15,7,3,1,1,0,0:SYMBOL 171,252,254,254,255,255,255,255,255 5590 SYMBOL 172,255,255,255,255,255,127,127,63:SYMBOL 173,0,0,128,128,192,224,240,252:SYMBOL 174,63,31,15,7,3,1,0,0:SYMBOL 175,255,255,255,255,255,255,127,31 5600 SYMBOL 176,0,0,1,1,3,7,15,63:SYMBOL 177,255,255,255,255,255,254,254,252:SYMBOL 178,255,255,255,255,255,255,254,248:SYMBOL 179,252,248,240,224,192,128,0,0 5610 SYMBOL 180,255,254,252,248,248,252,254,255 5620 c1$=CHR$(164)+CHR$(165):c2$=CHR$(166)+CHR$(167):d1$=CHR$(168)+CHR$(169):d2$=CHR$(170)+CHR$(171) 5630 e1$=CHR$(172)+CHR$(173):e2$=CHR$(174)+CHR$(175):f1$=CHR$(176)+CHR$(177):f2$=CHR$(178)+CHR$(179) 5640 a$=CHR$(160)+CHR$(161):b$=CHR$(162)+CHR$(163) 5650 FOR i=1 TO 17:READ x,y:GOSUB 6030:NEXT i 5660 TAG 5670 MOVE 313,374:PRINT"";:MOVE 281,342:PRINT"";:MOVE 305,342:PRINT a$;: 5680 MOVE 345,342:PRINT" ";:MOVE 313,310:PRINT" ";:MOVE 281,262:PRINT"7";: 5690 MOVE 313,262:PRINT"8";:MOVE 345,262:PRINT"9";:MOVE 281,230:PRINT"4";: 5700 MOVE 313,230:PRINT"5";:MOVE 345,230:PRINT"6";:MOVE 281,198:PRINT"1";: 5710 MOVE 313,198:PRINT"2";:MOVE 345,198:PRINT"3";:MOVE 281,166:PRINT"0";: 5720 MOVE 313,166:PRINT".";:MOVE 337,166:PRINT b$;:TAGOFF 5730 PLOT 240,304:DRAWR 48,0:DRAWR 0,16 5740 LOCATE 5,6:PRINT"Deplacement";:LOCATE 5,7:PRINT"a gauche"; 5750 PLOT 400,304:DRAWR -48,0:DRAWR 0,16 5760 LOCATE 26,6:PRINT"Deplacement";:LOCATE 26,7:PRINT"a droite"; 5770 PLOT 334,350:DRAWR 18,18:DRAWR 48,0 5780 LOCATE 26,2:PRINT"Effacement ou";:LOCATE 26,3:PRINT"affichage de la";:LOCATE 26,4:PRINT"carte choisie"; 5790 FOR i=192 TO 256 STEP 32:PLOT 240,i:DRAWR 32,0:PLOT 366,i:DRAWR 32,0:NEXT i 5800 PLOT 366,160:DRAWR 32,0:LOCATE 12,9:PRINT"10 $";:LOCATE 13,11:PRINT"5 $";:LOCATE 13,13:PRINT"1 $"; 5810 LOCATE 26,9:PRINT"Surenchere";:LOCATE 26,11:PRINT"Pour voir";:LOCATE 26,13:PRINT"Abandon";:LOCATE 26,15:PRINT"Validation de";:LOCATE 26,16:PRINT"la mise ou des";:LOCATE 26,17:PRINT"cartes a jeter"; 5820 PEN 2:FOR i=1 TO 12:READ x,y:LOCATE x,y:PRINT CHR$(143);:NEXT i 5830 LOCATE 5,19:PRINT d1$;:LOCATE 5,20:PRINT d2$;:LOCATE 5,21:PRINT f1$;:LOCATE 5,22:PRINT f2$; 5840 LOCATE 8,19:PRINT c1$;:LOCATE 8,20:PRINT c2$;: 5850 FOR i=1 TO 3:READ x,y:LOCATE x,y:PRINT CHR$(143);:NEXT i 5860 LOCATE 8,24:PRINT e1$;:LOCATE 8,25:PRINT e2$;:LOCATE 10,19:PRINT d1$;:LOCATE 10,20:PRINT d2$; 5870 FOR i=1 TO 3:READ x,y:LOCATE x,y:PRINT CHR$(143);:NEXT i 5880 LOCATE 10,24:PRINT f1$;:LOCATE 10,25:PRINT f2$;: 5890 FOR i=1 TO 10:READ x,y:LOCATE x,y:PRINT CHR$(143);:NEXT i 5900 LOCATE 15,21:PRINT CHR$(214);:LOCATE 15,22:PRINT CHR$(180);:LOCATE 15,23:PRINT CHR$(213);:READ x,y:LOCATE x,y:PRINT CHR$(143);:LOCATE 16,20:PRINT CHR$(214);:LOCATE 16,21:PRINT CHR$(212);:LOCATE 16,23:PRINT CHR$(215);:LOCATE 16,24:PRINT CHR$(213); 5910 READ x,y:LOCATE x,y:PRINT CHR$(143);:LOCATE 17,20:PRINT CHR$(212);: 5920 LOCATE 17,24:PRINT CHR$(215);:FOR i=1 TO 33:READ x,y:LOCATE x,y:PRINT CHR$(143);:NEXT i 5930 LOCATE 28,23:PRINT CHR$(213);:READ x,y:LOCATE x,y:PRINT CHR$(143); 5940 LOCATE 29,19:PRINT d1$;:LOCATE 29,20:PRINT d2$;:LOCATE 29,21:PRINT f1$;:LOCATE 29,22:PRINT f2$;: 5950 LOCATE 29,23:PRINT CHR$(215);:LOCATE 29,24:PRINT CHR$(213);:LOCATE 30,24:PRINT CHR$(215);: 5960 FOR i=1 TO 2:READ x,y:LOCATE x,y:PRINT CHR$(143);:NEXT i:PEN 1 5970 LOCATE 1,1:PRINT"Pour jouer,appuyer";:LOCATE 1,2:PRINT"sur une touche..."; 5980 GOSUB 430:PEN 1 5990 CLS:PRINT "CAPITAL INITIAL:250,500 ou 1000 $";:PRINT"Tapez 1,2 ou 3:"; 6000 INPUT ca:IF ca>3 OR ca<1 THEN CLS:GOTO 5990 6010 ca=CINT(ca):cap(1)=250*(2^(ca-1)):cap(2)=cap(1):V=1 6020 CLS 6030 PLOT (x-1)*16+2,(26-y)*16-4,1 6040 DRAWR 26,0:DRAWR 0,-26:DRAWR -26,0:DRAWR 0,26 6050 RETURN:'fin de programme |