5 ' ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
6 ' ^^^^ PRESENTATION ^^^^ 7 ' ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 10 CLS 15 PAPER 0:PEN 1 20 ENV 1,50,15,10 30 SOUND 1,80,100,15,1:SOUND 1,84,100,15,1:SOUND 1,89,100,15,1 40 FOR x=1 TO 2500:NEXT 50 MODE 1 60 FOR x=1 TO 4 65 READ d,g,h,b,cl 70 WINDOW #x,d,g,h,b:PAPER #x,2:CLS #x:PEN #x,cl: LOCATE #x ,3,4:PRINT #x,CHR$(225+x):SOUND 1,95,50,15,1:SOUND 1,100,50,15,1:FOR t=1 TO 800:NEXT 75 NEXT 80 DATA 1,5,1,7,0,36,40,1,7,3,1,5,19,25,3,36,40,19,25,0 90 WINDOW #5,16,24,10,14:PAPER #5,2:CLS #5:PEN #5,3 100 LOCATE 20,12:PRINT "K":SOUND 1,95,50,15,1:SOUND 1,119,50,15,1:FOR x=1 TO 1600:NEXT 110 PAPER #1,0: CLS #1 120 i=2 130 FOR j=6 TO 16 140 LOCATE j,i: PRINT "P" 150 LOCATE j-1,i-1: PRINT CHR$(128) 160 SOUND 1,159,5,15,1 170 i=i+1 180 NEXT j 190 PAPER #3,0: CLS #3 200 i=24 210 FOR j=6 TO 18 220 LOCATE j,i: PRINT "O" 230 LOCATE j-1,i+1: PRINT CHR$(128) 240 i=i-1 250 SOUND 1,119,5,15,1 260 NEXT j 265 LOCATE #5,1,5:PEN #5,2:PRINT #5, CHR$(143):LOCATE #5,2,4:PRINT #5, CHR$(143) 270 PAPER #2,0: CLS #2 280 i=2 290 FOR j=32 TO 22 STEP-1 300 LOCATE j,i: PRINT "E" 310 LOCATE j+1,i-1: PRINT CHR$(128) 320 i=i+1 330 SOUND 1,95,5,15,1 340 NEXT j 350 PAPER #4,0: CLS #4 355 LOCATE 24,10:PEN 2:PRINT CHR$(143):LOCATE 23,11:PRINT CHR$(143) 360 i=24:PEN 1 370 FOR j=36 TO 24 STEP-1 380 LOCATE j,i: PRINT "R" 390 LOCATE j+1,i+1: PRINT CHR$(128) 400 i=i-1 410 SOUND 1,80,5,15,1 420 NEXT j 430 LOCATE 17,7: PRINT "O.LABBE":LOCATE 16,8 : PRINT "presente:" 440 FOR x=1 TO 3 450 INK 0,6:INK 1,20:BORDER 1 :SOUND 1,80,50,15,1:FOR a=1 TO 400:NEXT 460 INK 0,20:INK 1,6:BORDER 24:SOUND 1,84,50,15,1:FOR a=1 TO 400:NEXT 470 NEXT 480 INK 0,1:INK 1,24:BORDER 1 :SOUND 1,80,50,15,1:MODE 0 490 SOUND 1,95,100,15,1 500 GOSUB 2460:GOSUB 1730 510 FOR a=1 TO 5:IF a=3 GOTO 540 520 READ n,c 530 m=8:GOSUB 1970 540 NEXT 545 DATA 1,5,2,3,3,3,4,5 550 FOR x=1 TO 1000:NEXT:CLS #1:LOCATE #1,2,4:PRINT #1,"P":SOUND 1,71,50,15,1 560 FOR x=1 TO 400:NEXT:CLS #2:LOCATE #2,2,4:PRINT #2,"O":SOUND 1,71,100,15,1 570 FOR x=1 TO 800:NEXT:CLS #4:LOCATE #4,2,4:PRINT #4,"E":SOUND 1,80,50,15,1 580 FOR x=1 TO 400:NEXT:CLS #5:LOCATE #5,2,4:PRINT #5,"R":SOUND 1,89,100,15,1 590 FOR x=1 TO 800:NEXT:CLS #3:LOCATE #3,2,4:PRINT #3,"K":SOUND 1,71,100,15,1 600 FOR x=1 TO 1000:NEXT :LOCATE #1,2,6:PRINT #1,"D":SOUND 1,80,50,15,1 610 FOR x=1 TO 400:NEXT :LOCATE #2,2,6:PRINT #2,"'":SOUND 1,80,100,15,1 620 FOR x=1 TO 800:NEXT :LOCATE #4,2,6:PRINT #4,"M":SOUND 1,89,50,15,1 630 FOR x=1 TO 400:NEXT :LOCATE #5,2,6:PRINT #5,"S":SOUND 1,95,100,15,1 640 FOR x=1 TO 800:NEXT :LOCATE #3,2,6:PRINT #3,"A":SOUND 1,80,100,15,1 641 FOR x=1 TO 800:NEXT 644 a=3:n=3 645 FOR x=1 TO 12 647 a=a+1:IF a=6 THEN a=1 650 READ note,duree,m 655 SOUND 1,note,duree,15,1:GOSUB 1970 656 FOR z= 1 TO 200:NEXT 660 NEXT 670 DATA 89,50,5,95,50,4,106,50,1,119,50,2,127,50,3,142,50,5,159,50,7,159,50,8,89,50,7,95,50,6,106,50,5,119,100,4 690 DIM sc(4,8) 700 ' ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 710 ' ^^^^ DEROULEMENT DU JEU ^^^^ 720 ' ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 725 PAPER 0:PEN 1 730 dol=20 750 FOR n=1 TO 4 760 FOR m=1 TO 8 770 LET sc(n,m)=0 780 NEXT m: NEXT n 785 pa=0: score=0:ams=0:ppa=0:quinte=0:quams=0 790 MODE 0 800 GOSUB 2460 810 PRINT #7," VOUS AVEZ";TAB(12);dol;" $" 820 CLS #6:PRINT #6,STRING$(dol,"$") 830 FOR x=1 TO 1000:NEXT 840 CLS #7 850 PRINT #7,"MISE INITIALE :"; 860 GOSUB 2560 870 IF mise=0 THEN GOTO 860 880 IF dol>79 THEN CLS #6:PRINT #6,"vous avez fait sauter la banque" 890 x(1)=0:x(2)=0:x(3)=0:x(4)=0:x(5)=0:x(6)=0:x(7)=0:x(8)=0:x(9)=0:x(10)=0 900 GOSUB 2300 910 ' ^^^^^^^^^^^^^^^^^^^^^^^^^ 920 ' enjeu 930 ' ^^^^^^^^^^^^^^^^^^^^^^^^ 940 CLS #7:PRINT #7,"votre enjeu" 950 s=0 960 GOSUB 2560 970 IF s=0 THEN CLS #7:GOTO 1160 980 ' ^^^^^^^^^^^^^^^^^^^^^^^^^^^ 990 ' ^^^^ REJET DES CARTES ^^^^ 1000 ' ^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1001 h=0:CLS #7:PEN #7,9:PRINT #7,"Deplacement : [";CHR$(242);"][";CHR$(243);"]" 1002 PRINT #7,"Rejet carte : [COPY]" 1003 PRINT #7,"Continuer : [ ^ ]" 1004 PEN #7,4 1010 LOCATE 1,20:PRINT "^":dep=2 1015 IF h=4 THEN GOTO 1140 1020 IF INKEY (1)=0 THEN dep=dep+1:IF dep=21 THEN dep=20 1030 LOCATE dep-1,20:PRINT CHR$(128):LOCATE dep,20:PRINT "^":FOR x=1 TO 50:NEXT 1040 IF INKEY (8)=0 THEN dep=dep-1:IF dep=1 THEN dep=2 1050 LOCATE dep+1,20:PRINT CHR$(128):LOCATE dep,20:PRINT "^":FOR x=1 TO 50:NEXT 1060 IF INKEY(9)=0 THEN GOTO 1090 1070 IF INKEY(0)=0 THEN GOTO 1140 1080 GOTO 1015 1090 IF dep>1 AND dep<4 THEN IF x(1)=0 THEN GOTO 1015 ELSE h=h+1:PAPER #1,0:CLS #1:x(1)=0:m=m(1):n=n(1):sc(n,m)=3:GOTO 1015 1100 IF dep>4 AND dep<8 THEN IF x(2)=0 THEN GOTO 1015 ELSE h=h+1:PAPER #2,0:CLS #2:x(2)=0:m=m(2):n=n(2):sc(n,m)=3:GOTO 1015 1110 IF dep>8 AND dep<12 THEN IF x(3)=0 THEN GOTO 1015 ELSE h=h+1:PAPER #3,0:CLS #3:x(3)=0:m=m(3):n=n(3):sc(n,m)=3:GOTO 1015 1120 IF dep>12 AND dep<16 THEN IF x(4)=0 THEN GOTO 1015 ELSE h=h+1:PAPER #4,0:CLS #4:x(4)=0:m=m(4):n=n(4):sc(n,m)=3:GOTO 1015 1130 IF dep>16 AND dep<20 THEN IF x(5)=0 THEN GOTO 1015 ELSE h=h+1:PAPER #5,0:CLS #5:x(5)=0:m=m(5):n=n(5):sc(n,m)=3:GOTO 1015 1140 CLS #7 1150 GOSUB 2300 1151 '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1152 '^^^ calcul des scores ^^^ 1153 '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1155 qu=0:qua=0 1160 FOR m=1 TO 8 1165 score(m)=0 1170 FOR n=1 TO 4 1180 IF sc(n,m)=1 THEN po=po+1 1190 IF sc(n,m)=2 THEN p=p+1 1200 NEXT n 1201 IF po=0 THEN score(m)=0 1202 IF po=1 THEN score(m)=0:qu=qu+1 ELSE qu=0 1210 IF po=2 THEN score(m)=1 1220 IF po=3 THEN score(m)=3 1230 IF po=4 THEN score(m)=7 1231 IF p=0 THEN ams(m)=0 1232 IF p=1 THEN ams(m)=0:qua=qua+1 ELSE qua=0 1240 IF p=2 THEN ams(m)=1 1250 IF p=3 THEN ams(m)=3 1260 IF p=4 THEN ams(m)=7 1261 IF qu=5 THEN quinte=1 1262 IF qua=5 THEN quams=1 1270 po=0:p=0 1280 NEXT m 1281 score=score(1)+score(2)+score(3)+score(4)+score(5)+score(6)+score(7)+score(8) 1282 ams=ams(1)+ams(2)+ams(3)+ams(4)+ams(5)+ams(6)+ams(7)+ams(8) 1285 LOCATE #7,1,3 1290 IF score=7 THEN PRINT #7," POKER" 1300 IF score=4 THEN PRINT #7," FULL":score=6 1310 IF score=3 THEN PRINT #7," BRELAN" 1320 IF score=2 THEN PRINT #7," DOUBLE PAIRE" 1330 IF score=1 THEN PRINT #7," PAIRE" 1331 IF ams=7 THEN A$="* POKER" 1332 IF ams=4 THEN A$="* FULL":ams=6 1333 IF ams=3 THEN A$="* BRELAN" 1334 IF ams=2 THEN A$="* DOUBLE PAIRE" 1335 IF ams=1 THEN A$="* PAIRE" 1336 IF ams=0 THEN A$="* " 1350 FOR n= 1 TO 4 1360 FOR m= 1 TO 8 1370 IF sc(n,m)=2 THEN ca=ca+1 1380 IF sc(n,m)=1 THEN co=co+1 1390 IF ca=5 THEN amstrad=4 1400 IF co=5 THEN joueur=4 1410 NEXT 1420 co=0 :ca=0:NEXT 1510 IF quinte=1 AND joueur=4 THEN PRINT #7," QUINTE FLUSH":score=8 1520 IF quinte=1 AND score=0 THEN PRINT #7," QUINTE":score=5 1530 IF joueur=4 AND score=0 THEN PRINT #7," COULEUR":score=4 1590 IF quams=1 AND amstrad=4 THEN ams=8:A$="* QUINTE FLUSH" 1600 IF quams=1 AND ams=0 THEN ams=5 :A$="* QUINTE" 1610 IF amstrad=4 AND ams=0 THEN ams=4 :A$="* COULEUR" 1615 PRINT #7,score;:PRINT #7,ams 1620 IF score>ams THEN PRINT #7," BRAVO":dol=dol+mise*score:mise =0 1630 IF score=ams THEN PRINT #7," EGALITE" 1640 IF score<ams THEN PRINT #7," PERDU":mise=0 1660 PAPER #6,4:CLS #6:PEN #6,5 1670 PRINT #6," jeu adverse":PRINT #6 1680 GOSUB 2670:PRINT #6:PRINT #6 1690 PRINT #6,LEFT$(A$,15) 1710 FOR x=1 TO 5000:NEXT 1715 qu=0:qua=0 1725 IF dol=0 AND score<ams THEN GOTO 4010 1726 IF dol>80 THEN GOTO 4500 1727 GOTO 750 1730 ' ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1740 ' redefinition des caracteres 1750 ' ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1760 SYMBOL AFTER 32 1770 SYMBOL 201,0,0,0,85,127,85,127,127 1780 SYMBOL 202,127,127,85,127,85,0,0,0 1790 SYMBOL 203,62,127,73,127,127,93,99,62 1800 SYMBOL 219,62,99,93,127,127,73,127,62 1810 SYMBOL 205,28,127,67,109,109,109,67,127 1820 SYMBOL 206,127,67,109,109,109,67,127,28 1830 SYMBOL 207,0,0,8,28,73,93,127,127 1840 SYMBOL 208,127,127,93,73,28,8,0,0 1850 SYMBOL 209,62,127,73,127,127,99,127,127 1860 SYMBOL 210,127,127,99,127,127,73,127,62 1870 SYMBOL 211,28,127,97,109,97,109,110,127 1880 SYMBOL 212,127,110,109,97,109,97,127,28 1890 SYMBOL 213,0,0,0,0,0,28,62,127 1900 SYMBOL 214,127,62,28 1910 SYMBOL 215,62,127,73,127,127,93,99,62 1920 SYMBOL 216,62,99,93,127,127,73,127,62 1930 SYMBOL 217,28,127,127,107,107,107,119,127 1940 SYMBOL 218,127,119,107,107,107,127,127,28 1950 SYMBOL 220,0,110,170,42,42,42,46,0 1960 RETURN 1970 '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1980 '^^^ edition des cartes ^^^ 1990 '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 2000 IF n=2 OR n=3 THEN c=3 ELSE c=5 2010 IF a>5 THEN RETURN 2020 PAPER #a,4:CLS #a 2030 ' 2040 '^^^^^^^^^^ ROI ^^^^^^^^^^^^^^^^^^^^^^^^^^ 2050 IF m=7 THEN note=63:PEN #a,c: PRINT #a,CHR$(225+n)+" R "+CHR$(207)+" "+CHR$(209)+" "+CHR$(204)+CHR$(211)+CHR$(204)+CHR$(212)+CHR$(204)+" "+CHR$(210)+" "+CHR$(208)+"R "+CHR$(225+n) 2060 ' 2070 '^^^^^^^^^^ DAME ^^^^^^^^^^^^^^^^^^^^^^^^^ 2080 IF m=6 THEN note=71:PEN #a,c: PRINT #a,CHR$(225+n)+" D "+CHR$(201)+" "+CHR$(203)+" "+CHR$(204)+CHR$(205)+CHR$(204)+CHR$(206)+CHR$(204)+" "+CHR$(219)+" "+CHR$(202)+"D "+CHR$(225+n) 2090 ' 2100 '^^^^^^^^^^ VALET ^^^^^^^^^^^^^^^^^^^^^^^^^ 2110 IF m=5 THEN note=80:PEN #a,c: PRINT #a,CHR$(225+n)+" V "+CHR$(213)+" "+CHR$(215)+" "+CHR$(204)+CHR$(217)+CHR$(204)+CHR$(218)+CHR$(204)+" "+CHR$(216)+" "+CHR$(214)+"V "+CHR$(225+n) 2120 ' 2130 '^^^^^^^^^^ AS ^^^^^^^^^^^^^^^^^^^^^^^^^ 2140 IF m=8 THEN note=60:PEN #a,c:PRINT #a," "+CHR$(225+n) 2150 ' 2160 '^^^^^^^^^^ 10 ^^^^^^^^^^^^^^^^^^^^^^^^^ 2170 IF m=4 THEN note=89:PEN #a,c:PRINT #a," "+CHR$(220)+CHR$(225+n)+" "+CHR$(225+n)+" "+CHR$(225+n)+" "+CHR$(225+n)+" "+CHR$(225+n)+" "+CHR$(225+n)+" "+CHR$(225+n)+" "+CHR$(225+n)+" "+CHR$(225+n)+" "+CHR$(225+n)+CHR$(220) 2180 ' 2190 '^^^^^^^^^^ 9 ^^^^^^^^^^^^^^^^^^^^^^^^^ 2200 IF m=3 THEN note=95:PEN #a,c:PRINT #a," 9"+CHR$(225+n)+" "+CHR$(225+n)+" "+CHR$(225+n)+" "+CHR$(225+n)+" "+CHR$(225+n)+" "+CHR$(225+n)+" "+CHR$(225+n)+" "+CHR$(225+n)+" "+CHR$(225+n)+"9" 2210 ' 2220 '^^^^^^^^^^ 8 ^^^^^^^^^^^^^^^^^^^^^^^^^ 2230 IF m=2 THEN note=106: PEN #a,c:PRINT #a," 8"+CHR$(225+n)+" "+CHR$(225+n)+" "+CHR$(225+n)+" "+CHR$(225+n)+" "+CHR$(225+n)+" "+CHR$(225+n)+" "+CHR$(225+n)+" "+CHR$(225+n)+"8" 2240 ' 2250 '^^^^^^^^^^ 7 ^^^^^^^^^^^^^^^^^^^^^^^^^ 2260 IF m=1 THEN note=119:PEN #a,c:PRINT #a," 7"+CHR$(225+n)+" "+CHR$(225+n)+" "+CHR$(225+n)+" "+CHR$(225+n)+" "+CHR$(225+n)+" "+CHR$(225+n)+" "+CHR$(225+n)+"7" 2270 RETURN 2280 '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 2290 '^ ^^^^^^^ TIRAGE ^^^^^^^^^^^^^^^^^^^^^^^^ 2300 '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 2310 FOR a=1 TO 10 2320 IF x(a)=1 THEN GOTO 2430 2330 m(a)=INT(RND(1)*8)+1 2340 n(a)=INT(RND(1)*4)+1 2350 m=m(a):n=n(a) 2360 IF sc(n,m)=1 OR sc(n,m)=2 OR sc(n,m)=3 THEN GOTO 2330 2370 IF n=3 OR n=2 THEN c=3 ELSE c=5 2380 GOSUB 1970 2390 SOUND 1,note,10,15,1 2400 IF a<6 THEN sc(n,m)=1 2410 IF a>5 THEN sc(n,m)=2 2420 x(a)=1 2430 NEXT a 2440 RETURN 2450 ' ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 2460 ' ^^^^^^^^^^^^ FENETRES ^^^^^^^^^^^^^^^^^ 2470 ' ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 2480 WINDOW #1,1,3,11,19:PAPER #1,4:CLS #1 2490 WINDOW #2,5,7,11,19:PAPER #2,4:CLS #2 2500 WINDOW #3,9,11,11,19:PAPER #3,4:CLS #3 2510 WINDOW #4,13,15,11,19:PAPER #4,4:CLS #4 2520 WINDOW #5,17,19,11,19:PAPER #5,4:CLS #5 2530 WINDOW #6,1,20,21,25:PAPER #6,12:PEN #6,5:CLS #6 2540 WINDOW #7,1,20,1,9:PAPER #7,6:PEN #7,4:CLS #7 2550 RETURN 2560 '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 2570 '^^^ mise et enjeu ^^^^^^^ 2580 '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 2590 PEN #7,9 2600 LOCATE #7,1,7:PRINT #7,"Pour miser : [COPY]" 2610 LOCATE #7,1,8:PRINT #7,"Continuer : [";CHR$(241);"]" 2620 PEN #7,4 2630 IF INKEY (9)=0 THEN GOSUB 2890 2640 IF dol=0 THEN CLS #6:PRINT #6 ," vous n'avez plus un rond":RETURN 2650 IF INKEY (2)=-1 THEN 2630 2660 RETURN 2670 '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 2680 '^^^ EDITION DU JEU ADVERSE ^^^^^^ 2690 '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 2700 FOR a= 6 TO 10 2710 n=n(a):m=m(a) 2720 IF n=3 OR n=2 THEN c=3 ELSE c=5 2730 PEN #6,c 2740 IF m<4 THEN PRINT #6,m+6; 2750 IF m=4 THEN PRINT #6,CHR$(220); 2760 IF m=5 THEN PRINT #6," V"; 2770 IF m=6 THEN PRINT #6," D"; 2780 IF m=7 THEN PRINT #6," R"; 2790 IF m=8 THEN PRINT #6,"AS"; 2800 IF n=1 THEN PRINT #6,CHR$(226); 2810 IF n=2 THEN PRINT #6,CHR$(227); 2820 IF n=3 THEN PRINT #6,CHR$(228); 2830 IF n=4 THEN PRINT #6,CHR$(229); 2840 NEXT 2850 RETURN 2860 '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 2870 '^^^^ CALCUL DES POINTS ^^^^^ 2880 '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 2890 mise=mise+1:s=s+1:LOCATE #7,17,1:PRINT #7,mise 2900 note=INT(RND(3)*478)+60 2910 SOUND 1,note,10,15,1 2920 point=dol:ligne=1 2930 IF dol>20 THEN point=dol-20:ligne=2 2940 IF dol>40 THEN point=dol-40:ligne=3 2950 IF dol>60 THEN point=dol-60:ligne=4 2960 IF dol>80 THEN CLS#6:PRINT #6,"vous avez fait sauter la banque" 2970 LOCATE #6,point,ligne:PRINT #6," ":dol=dol-1 2980 FOR x=1 TO 200:NEXT 2990 RETURN 4000 NOTE=32 4010 FOR x=1 TO 440 4015 SOUND 1,NOTE,5,15:NOTE=NOTE+4 4020 PAPER 5:PEN 5 :PRINT CHR$(143); 4030 IF x=40 THEN PEN 4:PRINT " VOUS AVEZ PERDU "; 4040 IF X=240 THEN PEN 4:PRINT "VOULEZ-VOUS REJOUER?"; 4050 IF X=280 THEN PEN 4:PRINT "OUI=[O] NON=[N]"; 4060 NEXT 4070 GOTO 5000 4500 NOTE =232 4510 FOR X=1 TO 400 4520 SOUND 1,NOTE,5,15:NOTE=NOTE-4:IF NOTE=68 THEN NOTE=232 4530 PAPER 15:PEN 15 :PRINT CHR$(143); 4540 IF x=140 THEN PEN 14:PRINT " BRAVO "; 4550 IF x=180 THEN PEN 14:PRINT " VOUS AVEZ GAGNE "; 4560 IF x=220 THEN PEN 14:PRINT " LA BANQUE A SAUTE "; 4570 IF x=260 THEN PEN 14:PRINT "VOULEZ-VOUS REJOUER?"; 4580 IF x=300 THEN PEN 14:PRINT "OUI=[O] NON=[N]"; 4590 NEXT 5000 a$=INKEY$ 5010 IF a$="o" OR a$="O" THEN GOTO 700 5020 IF a$="n" OR a$="N" THEN GOTO 5995 5030 GOTO 5000 5995 k=15:MODE 1 6000 CLS:FOR X=1 TO 20 6005 WINDOW #1,10,30-X,1,26-X:PAPER #1,2:CLS #1:PEN #1,3 6010 IF X>11 THEN GOTO 6014 6011 IF X=1 THEN FOR Y=1 TO 10:PRINT #1:NEXT:PRINT #1,TAB(7)"C'ETAIT":PRINT #1:PRINT #1,TAB(8)"POKER":PRINT #1:PRINT #1,TAB(10)"D":PRINT #1:PRINT #1,TAB(9)"AMS":GOTO 6014 6012 FOR Y=1 TO 12:PRINT #1:NEXT:PRINT #1,TAB(CINT((((31-X)-10)/2)-4))"AU REVOIR" 6014 READ n 6015 SOUND 1,n,CINT(100/X),K,1 6016 IF X>5 THEN K=K-1 6020 FOR Z=1 TO CINT(1000/X):NEXT 6030 MODE 1 6040 NEXT 6050 DATA 89,95,106,119,127,142,159,159,89,95,106,119,89,95,106,119,127,142,159,159 6060 END |