10 REM *******
20 REM *PIEGE* 30 REM ******* 40 MODE 1 50 GOSUB 690 60 RESTORE 220 70 FOR I=0 TO 1 80 FOR T=0 TO 7 90 READ A 100 POKE 39000+T+I*16,A AND 240 110 POKE 39008+T+I*16,(A AND 15)*16 120 NEXT T 130 NEXT I 140 NB=15:POKE 34999,NB 150 CLS 160 FOR T=0 TO NB-1 170 POKE 35000+T*4,INT(RND(1)*15)+5 180 POKE 35001+T*4,2 190 POKE 35002+T*4,2+INT(255/NB)*T 200 POKE 35003+T*4,2+INT(RND(1)*2) 210 NEXT T 220 DATA 24,60,102,195,195,102,60,24 230 DATA 0,0,0,0,0,0,0,0 240 MEMORY 15000 250 BORDER 0 260 INK 0,0:INK 1,24:INK 2,18:INK 3,6 270 SC=0:X=20:N=0:K=TIME 280 GOSUB 630 290 PEN 3 300 LOCATE 2,3 310 FOR T=1 TO 38 320 PRINT CHR$(143); 330 NEXT T 340 FOR T=4 TO 23 350 LOCATE 2,T:PRINT CHR$(143) 360 LOCATE 39,T:PRINT CHR$(143) 370 NEXT T 380 LOCATE 2,23 390 FOR T=1 TO 38 400 PRINT CHR$(143); 410 NEXT T 420 PEN 2:K=TIME 430 LOCATE X,13:PRINT CHR$(249) 440 SC=SC+1:GOSUB 640 450 CALL 40043 460 IF PEEK(50110+X*2)<>3 THEN 530 470 A=X:X=X+INKEY(1)-INKEY(8) 480 IF A=X THEN 440 490 IF X=2 OR X=39 THEN X=A:GOTO 440 500 LOCATE A,13:PRINT CHR$(32) 510 IF PEEK(50110+X*2)<>0 THEN 530 520 GOTO 430 530 FOR T=1 TO 4 540 SOUND 1,2000 550 LOCATE X,13:PRINT CHR$(249) 560 FOR I=1 TO 200:NEXT I 570 SOUND 1,1000 580 LOCATE X,13:PRINT CHR$(32) 590 FOR I=1 TO 200:NEXT I 600 NEXT T 610 LOCATE 13,7:PRINT "APPUYER SUR 'f0'" 620 IF INKEY(15)=-1 THEN 620 ELSE 150 630 PEN 2 640 LOCATE 11,1:PRINT RIGHT$(STR$(10000+SC),4) 650 IF TIME-K>200 THEN K=TIME:SOUND 1,200 660 IF SC>RE THEN RE=SC 670 LOCATE 27,1:PRINT RIGHT$(STR$(10000+RE),4) 680 RETURN 690 RESTORE 760 700 FOR T=40000 TO 40230 710 READ A 720 POKE T,A 730 NEXT T 740 RETURN 750 REM *AFFICH 760 DATA 62,0,6,8,79,229,33,88,152,87,25,235,225,229,213,205,96,156,209,104 770 DATA 103,25,235,225,35,229,205,96,156,225,35,201,120,245,26,119,19,9,241,61 780 DATA 32,247,201 790 REM *SUTTE 800 DATA 33,184,136,34,160,140,58,183,136,71,197,42,160,140,17,136,144,1,4,0 810 DATA 237,176,58,138,144,254,2,56,7,60,50,138,144,195,16,157,254,0,32,17 820 DATA 60,50,138,144,42,136,144,205,26,188,30,0,205,64,156,24,108,42,136,144 830 DATA 205,26,188,30,16,205,64,156,58,136,144,254,21,32,9,58,139,144,60,50 840 DATA 139,144,24,11,254,3,32,7,58,139,144,61,50,139,144,58,137,144,254,2 850 DATA 32,10,58,139,144,222,2,50,139,144,24,12,254,37,32,8,58,139,144,198 860 DATA 2,50,139,144,42,136,144,58,139,144,254,0,32,2,36,44,254,2,32,2 870 DATA 37,44,254,1,32,2,36,45,254,3,32,2,37,45,34,136,144,205,26,188 880 DATA 30,0,205,64,156,33,136,144,237,91,160,140,1,4,0,237,176,237,83,160 890 DATA 140,193,16,1,201,195,117,156 |