10 " " CLEAR :T=996,W=15: RANDOM 60 CLS : WAIT 0 70 CURSOR 7,1: PRINT "EXPLORER": CURSOR 6,2: FOR A=0 TO 9: PRINT CHR$ 249;: NEXT A: CURSOR 78 75 PRINT "(C) soft": WAIT : GCURSOR (65,31): GPRINT "FFE1EF83EBFBFF 80 PRINT " Explorez les grottes sans heurter les parois en utilisant 6,8,2 130 "S" WAIT : PAUSE "Meilleur score :";T: PAUSE " Score :";S: CLS : WAIT 0 150 LINE (0,0)-(7,9),&AAAA,BF: LINE (0,31)-(7,9+W),&AAAA,BF: IF F=0 LET S=0 170 Y1=9: FOR X=8 TO 148 STEP 2 180 IF RND 100<50 THEN 210 190 IF Y1 LET Y1=Y1-2 200 GOTO 220 210 IF Y1<30-W LET Y1=Y1+2 220 LINE (X,0)-(X,Y1): LINE (X,32)-(X,Y1+W) 230 NEXT X 250 X=0,Y=11,DY=0,DX=0 270 LINE (X,Y)-(X+2,Y+2),X,BF 290 V1=V,DY=Y,DX=X: IF INKEY$ ="6" LET X=X+4,S=S+2 300 IF INKEY$ ="8" LET Y=Y-2 310 IF INKEY$ ="2" LET Y=Y+2 330 IF V1>0 THEN V1=V1-1: GOTO 300 340 LINE (DX,DY)-(DX+2,DY+2),X,BF 380 X=X+2: IF X>148 THEN 470 400 IF ( POINT (X,Y) OR POINT (X+2,Y+2))<1 THEN 270 420 S=S+X: IF S>T LET T=S 430 F=0,W=15: BEEP 1: GOTO "S 470 S=S+X,F=1,W=W-(W>7): GOTO "S