10 REM *********
20 REM *DEFENSE* 30 REM ********* 40 MODE 1 50 NE=8 60 GOSUB 570 70 BORDER 0 80 INK 0,0:INK 1,6:INK 2,18:INK 3,26 90 MEMORY 10000 100 SYMBOL 250,24,60,60,60,60,126,219,0 110 SYMBOL 251,3,15,25,63,63,99,224,64 120 SYMBOL 252,192,240,152,252,252,198,7,2 130 CLS:X=20:Y1=0:POKE 39203,0:SC=0 140 L=0 150 POKE 39204,NE 160 FOR T=1 TO NE 170 Y(T)=-T*2 180 POKE 39049+T,256-T*2 190 NEXT T 200 LOCATE 1,21:PEN 1 210 FOR T=1 TO 120 220 PRINT CHR$(143); 230 NEXT T 240 GOSUB 390 250 IF L=0 THEN PEN 3 ELSE L=L-1:PEN 1 260 LOCATE X,20:PRINT CHR$(250); 270 IF Y1=0 THEN 320 280 IF PEEK(48911+X1*2+Y1*80)<>0 THEN GOSUB 480:GOTO 320 290 LOCATE X1,Y1:PRINT CHR$(32):Y1=Y1-2:LOCATE X1,Y1:PEN 3:PRINT CHR$(149) 300 IF PEEK(48911+X1*2+Y1*80)<>0 THEN GOSUB 480:GOTO 320 310 IF Y1=4 THEN LOCATE X1,Y1:PRINT CHR$(32):Y1=0 320 IF INKEY(71)=0 AND L=0 THEN SOUND 1,100:Y1=20:X1=X:L=14 330 PEN 2:CALL 15000:IF PEEK(39203)=1 THEN 440 340 A=X:X=X+INKEY(1)*2-INKEY(8)*2 350 IF X=A THEN 250 360 IF X=2 OR X=40 THEN X=A:GOTO 250 370 LOCATE A,20:PRINT CHR$(32); 380 GOTO 250 390 PEN 3 400 LOCATE 11,1:PRINT RIGHT$(STR$(SC+10000),4) 410 IF SC>RE THEN RE=SC 420 LOCATE 27,1:PRINT RIGHT$(STR$(RE+10000),4) 430 RETURN 440 SOUND 1,2000:SOUND 1,1000:SOUND 1,2000:SOUND 1,1500 450 LOCATE 13,5:PEN 1 460 PRINT "APPUYER SUR 'f0'" 470 IF INKEY(15)=-1 THEN 470 ELSE 130 480 SOUND 1,2000 490 LOCATE X1,Y1-2:PRINT CHR$(32);CHR$(32) 500 FOR T=1 TO NE 510 IF X1=PEEK(38999+T) AND Y1-2=PEEK(39049+T) THEN N=T 520 NEXT T 530 POKE 39049+N,250 540 SC=SC+22-Y1:GOSUB 390 550 LOCATE X1,Y1:PRINT CHR$(32):Y1=0 560 RETURN 570 RESTORE 620 580 FOR T=15000 TO 15207 590 READ A 600 POKE T,A:NEXT T 610 RETURN 620 DATA 58,36,153,79,6,0,33,87,152,9,126,50,33,153,33,187,152,9,126,50 630 DATA 34,153,33,137,152,9,126,50,32,153,254,200,56,7,60,50,32,153,195,75 640 DATA 59,254,0,32,30,50,34,153,62,4,50,32,153,62,2,50,33,153,42,32 650 DATA 153,205,117,187,62,251,205,90,187,60,205,90,187,24,104,42,32,153,205,117 660 DATA 187,62,32,205,90,187,205,90,187,58,34,153,254,1,40,29,58,33,153,254 670 DATA 38,40,7,60,60,50,33,153,24,42,62,1,50,34,153,58,32,153,60,60 680 DATA 50,32,153,24,27,58,33,153,254,2,40,7,61,61,50,33,153,24,13,62 690 DATA 0,50,34,153,58,32,153,60,60,50,32,153,42,32,153,205,117,187,62,251 700 DATA 205,90,187,60,205,90,187,58,32,153,254,20,32,5,62,1,50,35,153,33 710 DATA 87,152,9,58,33,153,119,33,137,152,9,58,32,153,119,33,187,152,9,58 720 DATA 34,153,119,13,194,158,58,201 |