10 REM ************
20 REM *ASTEROIDES* 30 REM ************ 40 MODE 1:MEMORY 15000 50 GOSUB 670 60 BORDER 0 70 INK 0,0:INK 1,24:INK 3,6 80 RESTORE 220 90 FOR T=0 TO 10 100 D=2 110 IF T>4 THEN D=3 120 IF T>6 THEN D=1 130 FOR I=0 TO 7 140 READ A 150 IF D=1 THEN B=A AND 240:C=(A AND 15)*16 160 IF D=2 THEN B=(A AND 240)/16:C=A AND 15 170 IF D=3 THEN B=17*(A AND 240)/16:C=17*(A AND 15) 180 POKE 39168+T*16+I,B 190 POKE 39176+T*16+I,C 200 NEXT I 210 NEXT T 220 DATA 24,24,0,0,60,126,231,195 230 DATA 3,7,14,204,204,14,7,3 240 DATA 195,231,126,60,0,0,24,24 250 DATA 192,224,112,51,51,112,224,192 260 DATA 0,0,0,0,0,0,0,0 270 DATA 0,0,0,255,255,0,0,0 280 DATA 24,24,24,24,24,24,24,24 290 DATA 24,24,60,126,126,252,248,32 300 DATA 6,15,63,127,127,30,0,0 310 DATA 24,124,254,254,255,255,56,16 320 DATA 224,248,124,62,254,255,126,60 330 CLS:INK 2,2 340 POKE 39000,96:POKE 39001,40 350 POKE 39002,16:POKE 39016,0 360 POKE 39005,0 370 K=10:POKE 39020,K 380 SC=0:N=0 390 GOSUB 600:GOSUB 630 400 FOR T=35000 TO 35005+K*6 410 POKE T,0 420 NEXT T 430 FOR I=0 TO K-1 440 POKE 35000+I*6,200 450 POKE 35005+I*6,250-I*20 460 NEXT I 470 PEN 3 480 CALL 40079 490 IF PEEK(39016)=1 THEN SOUND 1,20,4:SC=SC+10:GOSUB 610:GOTO 480 500 N=N+1:SOUND 1,2000,10:GOSUB 650 510 IF N<>5 THEN 480 520 INK 2,0 530 SOUND 1,400:SOUND 1,100:SOUND 1,200 540 FOR I=1 TO 300:NEXT I 550 FOR I=1 TO 100:NEXT I 560 GOSUB 630 570 PEN 3 580 LOCATE 13,7:PRINT "APPUYER SUR 'f0'" 590 IF INKEY(15)=-1 THEN 590 ELSE 330 600 PEN 3 610 LOCATE 11,1:PRINT RIGHT$(STR$(10000+SC),4) 620 RETURN 630 IF SC>RE THEN RE=SC 640 LOCATE 26,1:PRINT RIGHT$(STR$(10000+RE),4) 650 LOCATE 19,1:PRINT N 660 RETURN 670 RESTORE 40000 680 FOR T=40000 TO 41040 690 READ A 700 POKE T,A 710 NEXT T 720 RETURN 40000 DATA 22,153,205,73,156,205,73,156,201,229,1,8,8,26,119,28,124,254,248,56 40020 DATA 9,213,17,176,63,183,237,82,209,124,129,103,16,235,225,35,201,123,230,7 40040 DATA 245,123,203,63,203,63,203,63,95,6,192,74,107,38,0,203,37,203,37,133 40060 DATA 111,203,37,41,41,41,9,193,120,183,40,6,17,0,8,25,16,253,201,22 40080 DATA 3,33,91,152,205,237,159,218,103,157,58,102,152,183,40,4,61,50,102,152 40100 DATA 62,54,205,30,187,40,24,58,102,152,183,32,18,62,10,50,102,152,58,90 40120 DATA 152,198,16,254,64,56,1,175,50,90,152,62,38,205,30,187,40,25,58,102 40140 DATA 152,183,32,19,62,10,50,102,152,58,90,152,198,240,254,64,56,2,62,48 40160 DATA 50,90,152,62,46,205,30,187,40,125,6,192,17,88,16,33,252,0,205,24 40180 DATA 157,6,78,17,89,0,33,255,16,205,24,157,6,16,17,88,192,33,4,32 40200 DATA 205,24,157,6,0,17,89,78,33,1,48,205,24,157,24,79,58,90,152,188 40220 DATA 192,120,50,78,157,122,50,74,157,123,50,71,157,50,83,157,50,88,157,50 40240 DATA 80,157,124,50,98,157,125,50,86,157,237,91,88,152,205,101,156,30,64,205 40260 DATA 64,156,58,88,152,254,16,32,5,62,186,50,88,152,58,88,152,198,248,50 40280 DATA 88,152,237,91,88,152,205,101,156,30,0,205,64,156,201,58,98,152,183,40 40300 DATA 4,61,50,98,152,218,74,158,58,93,152,183,40,118,237,91,93,152,205,101 40320 DATA 156,30,64,205,64,156,58,97,152,183,40,18,58,93,152,87,58,96,152,186 40340 DATA 32,24,58,99,152,50,93,152,24,16,58,94,152,87,58,96,152,186,32,6 40360 DATA 58,99,152,50,94,152,58,98,152,254,1,32,7,175,50,93,152,195,74,158 40380 DATA 58,97,152,183,40,13,58,95,152,87,58,93,152,130,50,93,152,24,11,58 40400 DATA 95,152,87,58,94,152,130,50,94,152,237,91,93,152,205,101,156,30,80,58 40420 DATA 97,152,183,40,2,30,96,205,64,156,24,90,58,98,152,183,32,84,62,71 40440 DATA 205,30,187,32,8,6,3,197,193,16,252,24,69,58,88,152,50,93,152,58 40460 DATA 89,152,50,94,152,38,192,17,16,1,1,0,252,205,244,159,38,78,17,0 40480 DATA 0,1,16,255,205,244,159,38,16,17,192,1,1,32,4,205,244,159,38,0 40500 DATA 17,78,0,1,48,1,205,244,159,58,97,152,183,62,60,40,2,62,30,50 40520 DATA 98,152,175,50,104,152,205,66,160,205,144,159,22,4,33,101,152,205,237,159 40540 DATA 218,127,159,33,184,136,34,160,140,58,108,152,71,197,42,160,140,17,136,144 40560 DATA 1,6,0,237,176,58,141,144,254,2,56,7,60,50,141,144,195,108,159,183 40580 DATA 32,127,60,50,141,144,237,95,50,100,152,254,64,48,29,230,1,183,40,3 40600 DATA 175,24,2,62,78,50,137,144,58,100,152,230,31,203,39,203,39,198,40,50 40620 DATA 136,144,24,24,230,1,183,40,4,62,16,24,2,62,192,50,136,144,58,100 40640 DATA 152,230,63,198,7,50,137,144,58,100,152,230,3,50,138,144,58,100,152,230 40660 DATA 15,254,7,62,255,48,2,62,1,50,140,144,58,100,152,230,31,254,8,48 40680 DATA 4,62,252,24,18,254,16,48,4,62,254,24,10,254,24,48,4,62,2,24 40700 DATA 2,62,4,50,139,144,195,108,159,237,91,136,144,205,101,156,30,64,205,64 40720 DATA 156,58,140,144,254,1,58,137,144,32,12,254,78,32,2,62,255,60,50,137 40740 DATA 144,24,9,183,32,2,62,79,61,50,137,144,58,139,144,254,10,58,136,144 40760 DATA 87,58,139,144,48,12,130,254,193,56,2,62,16,50,136,144,24,10,130,254 40780 DATA 16,48,2,62,192,50,136,144,237,91,136,144,205,101,156,58,138,144,203,39 40800 DATA 203,39,203,39,203,39,198,112,95,205,64,156,33,136,141,237,91,160,140,1 40820 DATA 6,0,237,176,237,83,160,140,193,16,14,62,67,205,30,187,192,58,104,152 40840 DATA 183,192,195,143,156,195,105,158,33,184,136,34,160,140,58,108,152,71,197,120 40860 DATA 50,107,152,42,160,140,17,136,144,1,6,0,237,176,58,141,144,254,1,40 40880 DATA 8,6,40,197,193,16,252,24,32,6,4,197,237,91,136,144,120,61,203,39 40900 DATA 131,95,205,101,156,126,230,15,196,10,160,35,126,230,15,196,10,160,193,16 40920 DATA 226,33,136,144,237,91,160,140,1,6,0,237,176,237,83,160,140,193,16,174 40940 DATA 201,52,126,186,216,175,119,201,58,90,152,185,192,120,50,95,152,123,50,96 40960 DATA 152,122,50,97,152,124,50,99,152,201,197,126,245,237,91,136,144,205,101,156 40980 DATA 30,64,205,64,156,62,10,50,141,144,241,230,240,62,2,40,18,237,91,93 41000 DATA 152,205,101,156,30,64,205,64,156,175,50,93,152,62,1,50,104,152,58,107 41020 DATA 152,50,105,152,193,201,237,91,88,152,205,101,156,58,90,152,95,205,64,156 41040 DATA 201 |