1 ' ################
2 ' # # 3 ' # CASSE-TETE # 4 ' # __________ # 5 ' # # 6 ' # PAR # 7 ' # # 8 ' # DIDIER # 9 ' # # 10 ' # DRUGMANNE # 11 ' # # 12 ' ################ 13 ' 14 ' 19 MODE 1 20 CLEAR 30 INK 1,24:INK 2,14:INK 3,6 40 PEN 2:LOCATE 14,1:PRINT "*** MENU ***":LOCATE 14,2:PRINT "____________" 50 PEN 1:LOCATE 3,10:PRINT "1) MEMOIRE VISUELLE":LOCATE 3,13:PRINT "2) TOURS DE HANOI":LOCATE 3,16:PRINT "3) EMBOUTEILLAGE" 60 PEN 3:LOCATE 11,23:PRINT "FAITES VOTRE CHOIX":LOCATE 11,24:PRINT "------------------" 70 V$=INKEY$:IF V$="" THEN 70 80 IF V$="1" THEN 1960 90 IF V$="2" THEN 120 100 IF V$="3" THEN 1230 110 GOTO 70 120 CLS:PEN 3:LOCATE 9,1:PRINT "*** TOURS DE HANOI ***":LOCATE 9,2:PRINT "______________________" 130 PEN 1:LOCATE 11,12:PRINT "NOMBRE DE DISQUES ?":LOCATE 17,14:PRINT "(3 a 7)" 140 D$=INKEY$:IF D$="" THEN 140 150 IF D$="3" OR D$="4" OR D$="5" OR D$="6" OR D$="7" THEN N=VAL(D$):GOTO 170 160 GOTO 140 170 CLS 180 COM=0 190 A$=CHR$(143):B$=CHR$(138):C$=CHR$(133) 200 DIM T1$(7),T2$(7),T3$(7),T1(7),T2(7),T3(7) 210 FOR I=1 TO 7 220 T2$(I)=" ":T3$(I)=" " 230 NEXT I 240 D1$=" "+A$+A$+A$ 250 D2$=" "+B$+A$+A$+A$+C$ 260 D3$=" "+A$+A$+A$+A$+A$ 270 D4$=" "+B$+A$+A$+A$+A$+A$+C$ 280 D5$=" "+A$+A$+A$+A$+A$+A$+A$ 290 D6$=B$+A$+A$+A$+A$+A$+A$+A$+C$ 300 D7$=A$+A$+A$+A$+A$+A$+A$+A$+A$ 310 T1$(1)=D1$:T1$(2)=D2$:T1$(3)=D3$:T1$(4)=D4$:T1$(5)=D5$:T1$(6)=D6$:T1$(7)=D7$ 320 FOR I=1 TO 7:T1(I)=I:NEXT I 330 IF N<7 THEN T1$(1)=" ":T1(1)=0 340 IF N<6 THEN T1$(2)=" ":T1(2)=0 350 IF N<5 THEN T1$(3)=" ":T1(3)=0 360 IF N<4 THEN T1$(4)=" ":T1(4)=0 370 Y=20 380 PEN 3 390 FOR I=4 TO 18 400 LOCATE 7,I:PRINT A$; 410 LOCATE 20,I:PRINT A$;:LOCATE 33,I:PRINT A$;:NEXT I 420 LOCATE 6,19:PRINT B$;A$;C$:LOCATE 19,19:PRINT B$;A$;C$:LOCATE 32,19:PRINT B$;A$;C$ 430 PEN 1:FOR I=7 TO 1 STEP -1 440 Y=Y-2 450 LOCATE 3,Y:PRINT T1$(I); 460 NEXT I 470 LOCATE 7,1:PRINT "A":LOCATE 20,1:PRINT "B":LOCATE 33,1:PRINT "C" 480 PEN 2:LOCATE 1,23:PRINT "AUTRE JEU: < 0 >" 490 LOCATE 29,24:PRINT "ESSAIS:" 500 LOCATE 1,24:PRINT " " 510 LOCATE 1,25:PRINT " " 520 PEN 1:LOCATE 1,24:INPUT "TOUR DE DEPART ";TD$ 530 TD$=UPPER$(TD$) 540 IF TD$="0" THEN RUN 550 IF LEN(TD$)>1 THEN 500 560 IF TD$<"A" OR TD$>"C" THEN 500 570 FF=1:GOSUB 650 580 PEN 1:LOCATE 1,25:INPUT "TOUR D'ARRIVEE ";TA$ 590 IF TA$="0" THEN RUN 600 TA$=UPPER$(TA$) 610 IF LEN(TA$)>1 THEN 500 620 IF TA$<"A" OR TA$>"C" THEN LOCATE 1,25:PRINT " ":GOTO 580 630 IF TA$=TD$ THEN 500 640 L=0:L1=0 650 IF TD$="A" AND T1$(7)=" " THEN 500 660 IF TD$="B" AND T2$(7)=" " THEN 500 670 IF TD$="C" AND T3$(7)=" " THEN 500 680 IF FF=1 THEN FF=0:RETURN 690 FOR I=1 TO 7 700 IF TD$="A" AND T1$(I)<>" " THEN L=T1(I):GOTO 740 710 IF TD$="B" AND T2$(I)<>" " THEN L=T2(I):GOTO 740 720 IF TD$="C" AND T3$(I)<>" " THEN L=T3(I):GOTO 740 730 NEXT I 740 FOR I=1 TO 7 750 IF TA$="A" AND T1$(I)<>" " THEN L1=T1(I):GOTO 790 760 IF TA$="B" AND T2$(I)<>" " THEN L1=T2(I):GOTO 790 770 IF TA$="C" AND T3$(I)<>" " THEN L1=T3(I):GOTO 790 780 NEXT I 790 IF L1=0 THEN 810 800 IF L>L1 THEN 500 810 FOR I=1 TO 7 820 IF TD$="A" AND T1$(I)<>" " THEN F$=T1$(I):T1$(I)=" ":Q=T1(I):T1(I)=0:GOTO 860 830 IF TD$="B" AND T2$(I)<>" " THEN F$=T2$(I):T2$(I)=" ":Q=T2(I):T2(I)=0:GOTO 860 840 IF TD$="C" AND T3$(I)<>" " THEN F$=T3$(I):T3$(I)=" ":Q=T3(I):T3(I)=0:GOTO 860 850 NEXT I 860 FOR J=7 TO 1 STEP -1 870 IF TA$="A" AND T1$(J)=" " THEN T1$(J)=F$:T1(J)=Q:GOTO 910 880 IF TA$="B" AND T2$(J)=" " THEN T2$(J)=F$:T2(J)=Q:GOTO 910 890 IF TA$="C" AND T3$(J)=" " THEN T3$(J)=F$:T3(J)=Q:GOTO 910 900 NEXT J 910 IF TD$="A" THEN R=1:R1=3:R2=1 920 IF TD$="B" AND TA$="A" THEN R=2:R1=1:R2=-1 930 IF TD$="B" AND TA$="C" THEN R=2:R1=3:R2=1 940 IF TD$="C" THEN R=3:R1=1:R2=-1 950 FOR G=R TO R1 STEP R2 960 IF G=1 THEN X=3 970 IF G=2 THEN X=16 980 IF G=3 THEN X=29 990 Y=20 1000 FOR I=7 TO 1 STEP -1 1010 Y=Y-2 1020 IF G=1 AND T1$(I)=" " AND TD$="A" THEN LOCATE X,Y:PRINT " ":LOCATE X+4,Y:PEN 3:PRINT A$:GOTO 1090 1030 IF G=2 AND T2$(I)=" " AND TD$="B" THEN LOCATE X,Y:PRINT " ":LOCATE X+4,Y:PEN 3:PRINT A$:GOTO 1090 1040 IF G=3 AND T3$(I)=" " AND TD$="C" THEN LOCATE X,Y:PRINT " ":LOCATE X+4,Y:PEN 3:PRINT A$:GOTO 1090 1050 PEN 1:IF G=1 THEN LOCATE X,Y:PRINT T1$(I) 1060 IF G=2 THEN LOCATE X,Y:PRINT T2$(I) 1070 IF G=3 THEN LOCATE X,Y:PRINT T3$(I) 1080 NEXT I 1090 PEN 1:NEXT G 1100 PEN 1:COM=COM+1:LOCATE 36,24:PRINT COM 1110 FOR CO=7 TO (8-N) STEP -1 1120 IF T3(CO)<>CO THEN 500 1130 NEXT CO 1140 LOCATE 1,23:PRINT SPACE$(30) 1150 LOCATE 1,24:PRINT SPACE$(27) 1160 LOCATE 1,25:PRINT SPACE$(30) 1170 SOUND 1,60,50,7:LOCATE 8,22:PRINT "*** VOUS AVEZ TROUVE ***" 1180 LOCATE 14,24:PRINT "UNE AUTRE ?":LOCATE 17,25:PRINT "(O/N)" 1190 D$=UPPER$(INKEY$):IF D$="" THEN 1190 1200 IF D$="O" THEN CLEAR:RUN 120 1210 IF D$="N" THEN RUN 1220 GOTO 1190 1230 MODE 1:INK 1,24:INK 2,14:INK 3,6 1240 SYMBOL AFTER 237 1250 SYMBOL 238,0,0,0,0,0,0,15,31:SYMBOL 239,31,63,57,57,63,63,255,255:SYMBOL 240,254,255,243,243,255,255,255,255:SYMBOL 241,0,0,0,0,0,2,255,253 1260 SYMBOL 242,31,31,31,31,254,1,1,0:SYMBOL 243,255,255,255,63,223,224,224,192:SYMBOL 244,255,255,255,255,255,0,0,0:SYMBOL 245,255,255,255,207,183,120,120,48 1270 SYMBOL 246,0,0,0,0,0,64,255,191:SYMBOL 247,127,255,207,207,255,255,255,255:SYMBOL 248,248,252,156,156,252,252,255,255:SYMBOL 249,0,0,0,0,0,0,240,248 1280 SYMBOL 250,255,255,255,243,237,30,30,12:SYMBOL 251,255,255,255,255,255,0,0,0:SYMBOL 252,255,255,255,252,251,7,7,3:SYMBOL 253,248,248,248,248,127,128,128,0 1290 VJ1$=CHR$(246)+CHR$(247)+CHR$(248)+CHR$(249):VJ2$=CHR$(250)+CHR$(251)+CHR$(252)+CHR$(253) 1300 VR1$=CHR$(238)+CHR$(239)+CHR$(240)+CHR$(241):VR2$=CHR$(242)+CHR$(243)+CHR$(244)+CHR$(245) 1310 PEN 3:FOR I=1 TO 13 STEP 6 1320 LOCATE I,9:PRINT VR1$;:LOCATE I,10:PRINT VR2$; 1330 NEXT I 1340 PEN 1:FOR I=25 TO 37 STEP 6 1350 LOCATE I,9:PRINT VJ1$;:LOCATE I,10:PRINT VJ2$; 1360 NEXT I 1370 FOR I=1 TO 37 STEP 6 1380 PEN 2:LOCATE I,11:PRINT CHR$(208);CHR$(208);CHR$(208);CHR$(208); 1390 NEXT I 1400 R=64 1410 TAG:FOR I=2 TO 38 STEP 6 1420 R=R+1 1430 MOVE I*16-4,208:PRINT CHR$(R); 1440 NEXT I 1450 TAGOFF 1460 DIM T$(7) 1470 T$(1)="R":T$(2)="R":T$(3)="R":T$(4)="N":T$(5)="J":T$(6)="J":T$(7)="J" 1480 PEN 3:LOCATE 1,22:PRINT "NOUVEAU JEU:< 0 >":PEN 1 1490 LOCATE 1,24:PRINT SPACE$(20);:LOCATE 1,25:PRINT SPACE$(20);:LOCATE 1,24:INPUT "CASE DE DEPART ";D$ 1500 D$=UPPER$(D$) 1510 IF LEN(D$)>1 THEN 1490 1520 IF D$="0" THEN RUN 1530 IF D$<"A" OR D$>"G" THEN GOSUB 1920:GOTO 1490 1540 D=ASC(D$)-64 1550 IF T$(D)="N" THEN GOSUB 1920:GOTO 1490 1560 LOCATE 1,25:INPUT "CASE D'ARRIVEE ";A$ 1570 A$=UPPER$(A$) 1580 IF LEN(A$)>1 THEN 1490 1590 IF A$="0" THEN RUN 1600 IF A$<"A" OR A$>"G" THEN GOSUB 1920:GOTO 1490 1610 A=ASC(A$)-64 1620 IF T$(D)="N" THEN GOSUB 1920:GOTO 1490 1630 IF T$(A)="R" OR T$(A)="J" THEN GOSUB 1920:GOTO 1490 1640 IF T$(D)="R" AND (ASC(A$)<ASC(D$)) THEN GOSUB 1920:GOTO 1490 1650 IF T$(D)="J" AND (ASC(A$)>ASC(D$)) THEN GOSUB 1920:GOTO 1490 1660 IF T$(D)="R" AND (ASC(A$)-ASC(D$))>2 THEN GOSUB 1920:GOTO 1490 1670 IF T$(D)="J" AND (ASC(D$)-ASC(A$))>2 THEN GOSUB 1920:GOTO 1490 1680 IF T$(D)="J" THEN 1710 1690 IF T$(D)="R" AND (ASC(A$)-ASC(D$))>1 AND T$(D+1)="R" THEN GOSUB 1920:GOTO 1490 1700 GOTO 1720 1710 IF T$(D)="J" AND (ASC(D$)-ASC(A$))>1 AND T$(D-1)="J" THEN GOSUB 1920:GOTO 1490 1720 C$=T$(D):T$(D)="N":T$(A)=C$ 1730 R=0 1740 FOR I=1 TO 37 STEP 6 1750 R=R+1 1760 IF T$(R)="R" THEN PEN 3 ELSE PEN 1 1770 IF T$(R)="N" THEN LOCATE I,9:PRINT " ";:LOCATE I,10:PRINT " "; 1780 IF T$(R)="R" THEN LOCATE I,9:PRINT VR1$;:LOCATE I,10:PRINT VR2$; 1790 IF T$(R)="J" THEN LOCATE I,9:PRINT VJ1$;:LOCATE I,10:PRINT VJ2$; 1800 NEXT I 1810 PEN 1 1820 IF T$(1)="J" AND T$(2)="J" AND T$(3)="J" AND T$(4)="N" AND T$(5)="R" AND T$(6)="R" AND T$(7)="R" THEN 1840 1830 GOTO 1490 1840 LOCATE 1,22:PRINT SPACE$(39) 1850 LOCATE 1,24:PRINT SPACE$(39) 1860 LOCATE 1,25:PRINT SPACE$(39) 1870 SOUND 1,60,50,7:LOCATE 8,20:PRINT "*** VOUS AVEZ TROUVE ***":LOCATE 15,23:PRINT "UNE AUTRE ?":LOCATE 18,25:PRINT "(O/N)" 1880 V$=UPPER$(INKEY$):IF V$="" THEN 1880 1890 IF V$="O" THEN CLEAR:RUN 1230 1900 IF V$="N" THEN RUN 1910 GOTO 1880 1920 SOUND 1,956,50,7:LOCATE 1,24:PRINT SPACE$(20);:LOCATE 1,25:PRINT SPACE$(20);:LOCATE 13,1:PRINT "-- IMPOSSIBLE --"; 1930 FOR I=1 TO 1000:NEXT I 1940 LOCATE 13,1:PRINT " "; 1950 RETURN 1960 MODE 1 1970 INK 1,24:INK 3,6,1:INK 2,14 1980 PEN 1:LOCATE 8,10:PRINT "*** MEMOIRE VISUELLE ***":LOCATE 8,12:PRINT "------------------------" 1990 LOCATE 7,20:PEN 2:PRINT "### ";:LOCATE 11,20:PEN 3:PRINT "PATIENTEZ UN INSTANT";:PEN 2:LOCATE 31,20:PRINT " ###" 2000 PRINT CHR$(23)+CHR$(1); 2010 SYMBOL AFTER 190 2020 SYMBOL 191,7,7,7,1,1,225,225,255:SYMBOL 192,224,224,224,128,128,135,135,255:SYMBOL 193,255,225,225,1,1,7,7,7:SYMBOL 194,255,135,135,128,128,224,224,224 2030 SYMBOL 195,255,255,192,223,223,223,223,223:SYMBOL 196,255,255,7,245,247,245,247,245:SYMBOL 197,223,223,192,255,255,16,56,0:SYMBOL 198,247,245,7,255,255,16,56,0 2040 SYMBOL 199,7,31,63,63,51,243,255,254:SYMBOL 200,224,248,252,252,204,207,255,127:SYMBOL 201,254,62,60,63,48,63,31,7:SYMBOL 202,127,124,60,252,12,252,248,224 2050 SYMBOL 203,255,255,255,31,15,7,3,1:SYMBOL 204,255,255,255,248,240,224,192,128:SYMBOL 205,1,3,7,15,31,255,255,255:SYMBOL 206,128,192,224,240,248,255,255,255 2060 SYMBOL 207,153,153,153,255,255,153,153,255:SYMBOL 208,153,153,153,255,255,153,153,255:SYMBOL 209,255,153,153,255,255,153,153,153:SYMBOL 210,255,153,153,255,255,153,153,153 2070 SYMBOL 211,0,0,7,15,31,63,127,127:SYMBOL 212,0,0,224,240,248,252,254,254:SYMBOL 213,1,1,1,1,1,1,15,15:SYMBOL 214,128,128,128,128,128,128,240,240 2080 SYMBOL 215,0,7,79,95,127,127,0,255:SYMBOL 216,0,224,240,248,252,254,0,255:SYMBOL 217,231,231,255,255,255,255,254,254:SYMBOL 218,243,243,255,255,255,255,127,127 2090 SYMBOL 219,128,193,97,49,25,13,7,3:SYMBOL 220,1,131,134,140,152,176,224,192:SYMBOL 221,3,7,13,25,49,97,193,128:SYMBOL 222,192,224,176,152,140,134,131,1 2100 SYMBOL 223,255,255,153,153,0,129,193,239:SYMBOL 224,255,255,153,153,0,129,131,247:SYMBOL 225,239,193,129,0,153,153,255,255:SYMBOL 226,247,131,129,0,153,153,255,255 2110 SYMBOL 227,0,0,0,0,0,1,127,213:SYMBOL 228,0,28,56,115,231,199,255,95:SYMBOL 229,255,127,1:SYMBOL 230,255,255,192,224,112,56,28,0 2120 SYMBOL 231,0,0,0,24,60,126,231,195:SYMBOL 232,0,0,0,0,0,0,255,255:SYMBOL 233,195,230,126,60,24:SYMBOL 234,255,7,5,5 2130 SYMBOL 235,0,3,15,63,127,127,126,124:SYMBOL 236,0,192,240,252,254,254,126,62:SYMBOL 237,124,124,127,127,8,8,8,8:SYMBOL 238,62,62,254,254,16,16,16,16 2140 SYMBOL 239,248,248,223,255,248,52,50,49:SYMBOL 240,31,31,251,255,31,44,76,140:SYMBOL 241,49,50,52,248,255,223,248,248:SYMBOL 242,140,76,44,31,255,251,31,31 2150 SYMBOL 243,15,3,3,3,3,31,63,127:SYMBOL 244,240,192,192,192,192,248,252,254:SYMBOL 245,127,112,117,112,127,127,127,63:SYMBOL 246,254,14,174,14,254,254,254,252 2160 RANDOMIZE TIME 2170 DIM T$(28) 2180 R=187 2190 FOR I=1 TO 27 STEP 2 2200 R=R+4 2210 T$(I)=CHR$(R)+CHR$(R+1)+CHR$(R+2)+CHR$(R+3) 2220 T$(I+1)=CHR$(R)+CHR$(R+1)+CHR$(R+2)+CHR$(R+3) 2230 NEXT I 2240 FOR I=1 TO 300 2250 A=INT(RND*28+1) 2260 B=INT(RND*28+1) 2270 IF B=A THEN 2260 2280 C$=T$(A):T$(A)=T$(B):T$(B)=C$ 2290 NEXT I 2300 INK 2,6:INK 3,11 2310 PEN 1 2320 A$=CHR$(143)+CHR$(143)+CHR$(143)+CHR$(143) 2330 CLS 2340 PEN 2:LOCATE 5,12:PRINT "--- RETOUR AU MENU : < 0 > ---":FOR I=1 TO 1500:NEXT I:CLS 2350 R=0 2360 FOR J=1 TO 19 STEP 6 2370 FOR I=1 TO 37 STEP 6 2380 PEN 1:LOCATE I,J:PRINT A$; 2390 LOCATE I,J+1:PRINT A$; 2400 LOCATE I,J+2:PRINT A$; 2410 LOCATE I,J+3:PRINT A$; 2420 R=R+1 2430 IF R<10 THEN TAG:PLOT -2,-2,2:MOVE I*16-8,(25-J)*16-8:PRINT R;:TAGOFF 2440 IF R>9 THEN TAG:PLOT -2,-2,2:MOVE I*16-16,(25-J)*16-8:PRINT R;:TAGOFF 2450 NEXT i 2460 NEXT J 2470 PRINT CHR$(23)+CHR$(0); 2480 PLOT 1,40:DRAW 640,40,3 2490 PLOT 242,1:DRAW 242,40 2500 PLOT 450,1:DRAW 450,40 2510 PRINT CHR$(23)+CHR$(1); 2520 PEN 2:LOCATE 31,24:PRINT "ESSAI:" 2530 LOCATE 1,24:PRINT " ":LOCATE 1,25:PRINT " " 2540 PEN 2:LOCATE 1,24:INPUT "1 ere carte:",A 2550 IF A=0 THEN RUN 2560 IF A<1 OR A>28 THEN 2530 2570 IF T$(A)="X" THEN 2530 2580 IF A>=1 AND A<=7 THEN Y=2:X=A*6-4 2590 IF A>=8 AND A<=14 THEN Y=8:X1=A-7:X=X1*6-4 2600 IF A>=15 AND A<=21 THEN Y=14:X1=A-14:X=X1*6-4 2610 IF A>=22 THEN Y=20:X1=A-21:X=X1*6-4 2620 PEN 3 2630 LOCATE X-1,Y-1:PRINT " " 2640 LOCATE X-1,Y:PRINT " " 2650 LOCATE X-1,Y+1:PRINT " " 2660 LOCATE X-1,Y+2:PRINT " " 2670 PEN 2:LOCATE X,Y:PRINT LEFT$(T$(A),2) 2680 LOCATE X,Y+1:PRINT RIGHT$(T$(A),2) 2690 D1$=T$(A) 2700 PEN 2:LOCATE 1,25:PRINT " ":LOCATE 1,25:INPUT "2 eme carte:",B 2710 IF B=0 THEN RUN 2720 IF B<1 OR B>28 THEN 2700 2730 IF T$(B)="X" THEN 2700 2740 IF B=A THEN 2700 2750 IF B>=1 AND B<=7 THEN Y2=2:X2=B*6-4 2760 IF B>=8 AND B<=14 THEN Y2=8:X3=B-7:X2=X3*6-4 2770 IF B>=15 AND B<=21 THEN Y2=14:X3=B-14:X2=X3*6-4 2780 IF B>=22 THEN Y2=20:X3=B-21:X2=X3*6-4 2790 LOCATE X2-1,Y2-1:PRINT " " 2800 LOCATE X2-1,Y2:PRINT " " 2810 LOCATE X2-1,Y2+1:PRINT " " 2820 LOCATE X2-1,Y2+2:PRINT " " 2830 PEN 2:LOCATE X2,Y2:PRINT LEFT$(T$(B),2) 2840 LOCATE X2,Y2+1:PRINT RIGHT$(T$(B),2) 2850 D2$=T$(B) 2860 IF D1$=D2$ THEN INK 2,6,24:PEN 2:LOCATE 20,24:PRINT "GAGNE" ELSE PEN 1:LOCATE 20,24:PRINT "PERDU" 2870 IF D1$=D2$ THEN SOUND 1,60,50,7 ELSE SOUND 1,956,50,7 2880 COM=COM+1:PEN 1:LOCATE 37,24:PRINT COM; 2890 FOR K=1 TO 2000:NEXT K:LOCATE 20,24:PRINT " " 2900 INK 2,6 2910 IF D1$=D2$ THEN LOCATE X,Y:PRINT " ":LOCATE X,Y+1:PRINT " ":LOCATE X2,Y2:PRINT " ":LOCATE X2,Y2+1:PRINT " ":T$(A)="X":T$(B)="X" 2920 IF D1$<>D2$ THEN PEN 1:LOCATE X-1,Y-1:PRINT A$;:LOCATE X-1,Y:PRINT A$;:LOCATE X-1,Y+1:PRINT A$;:LOCATE X-1,Y+2:PRINT A$; 2930 IF D1$<>D2$ AND A<10 THEN TAG:PLOT -2,-2,2:MOVE X*16-24,(25-Y)*16+8:PRINT A;:TAGOFF 2940 IF D1$<>D2$ AND A>9 THEN TAG:PLOT -2,-2,2:MOVE X*16-32,(25-Y)*16+8:PRINT A;:TAGOFF 2950 IF D1$<>D2$ THEN PEN 1:LOCATE X2-1,Y2-1:PRINT A$;:LOCATE X2-1,Y2:PRINT A$;:LOCATE X2-1,Y2+1:PRINT A$;:LOCATE X2-1,Y2+2:PRINT A$; 2960 IF D1$<>D2$ AND B<10 THEN TAG:PLOT -2,-2,2:MOVE X2*16-24,(25-Y2)*16+8:PRINT B;:TAGOFF 2970 IF D1$<>D2$ AND B>9 THEN TAG:PLOT -2,-2,2:MOVE X2*16-32,(25-Y2)*16+8:PRINT B;:TAGOFF 2980 FOR I=1 TO 28 2990 IF T$(I)<>"X" THEN 2530 3000 NEXT I 3010 CLS 3020 PEN 1:LOCATE 8,9:PRINT "BRAVO ! VOUS AVEZ TROUVE":LOCATE 13,12:PRINT "EN ";COM;" ESSAIS.":LOCATE 15,15:PRINT "-----------":PEN 2:LOCATE 12,20:PRINT "UNE AUTRE ? (O/N)" 3030 D$=UPPER$(INKEY$):IF D$="" THEN 3030 3040 IF D$="O" THEN CLEAR:RUN 1960 3050 IF D$="N" THEN RUN 3060 GOTO 3030 |