10 REM **********
20 REM * EXOCET * 30 REM ********** 40 R=0 50 GOSUB 880 60 GOSUB 700 70 PEN 1 80 LOCATE AX,AY:PRINT A$; 90 IF BX>36 THEN LOCATE 37,BY:PRINT M$;:BB=1 :GOTO 120 100 PEN 7 110 LOCATE BX,BY:PRINT B$; 120 AX=AX-1 130 IF AX<1 THEN LOCATE 1,AY:PRINT M$;:AX=38 140 BB=BB+0.2 150 BX=INT(BB) 160 X$=INKEY$ 170 IF X$<>"" AND EY=0 THEN EX=AX:EY=AY+1:NX=NX-1 180 IF EY<>0 THEN GOTO 220 190 FOR I=1 TO 10 200 NEXT I 210 GOTO 70 220 EX=EX-1 230 EY=EY+1 240 LOCATE EX+1,EY-1:PRINT N$; 250 IF EX<1 THEN EX=40 260 IF EY=26 THEN GOTO 310 270 IF EY=25 AND ABS(EX-2-BX)<2 THEN GOSUB 530 280 PEN 2 290 LOCATE EX,EY:PRINT E$; 300 GOTO 70 310 IF EX=40 THEN EX=1 320 LOCATE EX+1,EY-1:PRINT N$; 330 EY=0 340 EX=0 350 IF NX=0 THEN 370 360 GOTO 70 370 CLS 380 IF S>R THEN R=S 390 X$=INKEY$ 400 IF X$<>"" THEN 390 410 PEN 3 420 LOCATE 11,10 430 PRINT "SCORE :";S; 440 LOCATE 11,13 450 PRINT "RECORD :";R; 460 LOCATE 11,16 470 PRINT "UNE AUTRE ?"; 480 X$=INKEY$ 490 IF X$="" THEN 480 500 IF X$<>"N" AND X$<>"n" THEN 60 510 CLS 520 END 530 LOCATE EX+1,EY-1 540 PRINT N$; 550 S=S+10 560 PEN 2 570 LOCATE EX,EY 580 PRINT F$; 590 FOR I=1 TO 30 600 X=INT(RND(1)*4) 610 Y=INT(RND(1)*6) 620 LOCATE EX+X-1,EY-Y 630 PRINT F$; 640 NEXT I 650 FOR I=1 TO 200 660 NEXT I 670 NX=NX+1 680 CLS 690 GOTO 70 700 CLS 710 B$=CHR$(32)+CHR$(240)+CHR$(241)+CHR$(242) 720 AX=38 730 S=0 740 BB=1 750 BX=1 760 A$=CHR$(243)+CHR$(244)+CHR$(32) 770 N$=CHR$(32) 780 M$=N$+N$+N$ 790 E$=CHR$(245) 800 F$=CHR$(246) 810 EX=0 820 EY=0 830 XC=2 840 NX=20 850 BY=25 860 AY=8 870 RETURN 880 BORDER 2 890 INK 0,23 900 INK 1,0 910 INK 2,16 920 INK 3,0 930 CLS 940 SYMBOL 240,0,0,0,0,7,255,255,127 950 SYMBOL 241,16,16,56,252,255,255,255,255 960 SYMBOL 242,0,0,0,0,224,255,252,248 970 SYMBOL 243,0,0,0,0,63,127,255 980 SYMBOL 254,0,0,0,1,3,255,255,255 990 SYMBOL 245,0,0,0,0,125,255,125 1000 SYMBOL 246,8,33,128,10,0,40,0,16 1010 RETURN |