10 REM ******** 20 REM * TANK * 30 REM ******** 40 R=0 50 DIM TB(40,25) 60 GOSUB 770 70 S=0 80 M=40 90 DL=100 100 D=0 110 PEN 3 120 FOR I=1 TO 40 130 LOCATE I,1 140 PRINT B$; 150 NEXT I 160 PEN 1 170 FOR I=1 TO M 180 PX=INT(RND(1)*38)+2 190 PY=INT(RND(1)*20)+2 200 LOCATE PX,PY 210 PRINT M$; 220 TB(PX,PY)=1 230 NEXT I 240 FOR I=2 TO 25 250 LOCATE 1,I 260 PRINT M$; 270 TB(1,I)=1 280 LOCATE 40,I 290 PRINT M$; 300 TB(40,I)=1 310 NEXT I 320 JX=INT(RND(1)*21)+10 330 JY=25 340 LOCATE JX,JY 350 PRINT J$; 360 FOR I=1 TO DL 370 NEXT I 380 R$=INKEY$ 390 Dl=(R$=F1$)-(R$=F2$) 400 IF D1<>0 THEN D=D1 410 IF R$=F3$ THEN D=0 420 LOCATE jx,jy 430 PRINT CHR$(32); 440 JX=JX+D 450 JY=JY-1 460 JX=JX+(JOY(0)=4)-(JOY(0)=8) 470 IF TB(JX,JY)<>0 THEN 540 480 LOCATE JX,JY 490 PRINT J$; 500 S=S+1 510 SOUND 1,1000/S,1,15 520 IF JY=1 THEN 690 530 GOTO 360 540 LOCATE JX,JY 550 PRINT E$; 560 R$=INKEY$ 570 IF S>R THEN R=S 580 LOCATE 15,10 590 PRINT "SCORE :";S; 600 LOCATE 15,13 610 PRINT "RECORD :";R; 620 LOCATE 15,18 630 PRINT "UNE AUTRE ?"; 640 R$=INKEY$ 650 IF R$="" THEN 640 660 IF R$<>"N" AND R$<>"n" THEN ERASE TB:GOTO 50 670 CLS 680 END 690 FOR I=1 TO 500 700 NEXT I 710 M=M+1 720 DL=DL-20 730 ERASE TB 740 DIM TB(40,25) 750 CLS 760 GOTO 100 770 BORDER 22 780 INK 0,25 790 INK 1,0 800 INK 2,16 810 INK 3,1 820 CLS 830 M$="*" 840 N$=CHR$(32) 850 SYMBOL 240,8,8,107,127,127,127,127,99 860 J$=CHR$(240) 870 E$=CHR$(143) 880 B$=E$ 890 Fl$=CHR$(242) 900 F2$=CHR$(243) 910 F3$=CHR$(224) 920 RETURN