10 REM ****************
20 REM * ATTERRISSAGE * 30 REM **************** 40 SPEED KEY 5,5 50 GOSUB 490 60 FOR I=1 TO 100 70 NEXT I 80 GOSUB 670 90 FOR Q=2 TO 23 100 D$=INKEY$ 110 NH=NX 120 NX=NX+(D$=CHR$(242))-(D$=CHR$(243)) 130 NX=NX+(JOY(0)=4)-(JOY(0)=8) 140 IF NX<2 THEN NX=2 150 IF NX>38 THEN NX=38 160 LOCATE NH,Q-1 170 PRINT C$; 180 LOCATE NH,Q 190 PRINT C$; 200 LOCATE NX,Q 210 PRINT N$; 220 LOCATE NX,Q+1 230 PRINT M$; 240 NEXT Q 250 IF INT((NX-3)/10)=(NX-3)/10 THEN GOTO 60 260 PEN 3 270 LOCATE NX,Q 280 PRINT C$; 290 LOCATE NX,Q-1 300 PRINT C$; 310 LOCATE NX-1,Q+1 320 PRINT H$; 330 PEN 2 340 LOCATE 2,7 350 PRINT "VOTRE NAVETTE S'EST ECRASEE" 360 LOCATE 12,12 370 PRINT "SCORE :";S-1; 380 LOCATE 11,15 390 PRINT "UNE AUTRE ?"; 400 FOR I=1 TO 100 410 NEXT I 420 IF INKEY$<>"" THEN GOTO 420 430 SPEED KEY 30,5 440 D$=INKEY$ 450 IF D$="" THEN 440 460 IF D$<>"N" AND D$<>"n" THEN RUN 470 CLS 480 END 490 INK 0,1 500 INK 1,25 510 INK 2,22 520 INK 4,8 530 BORDER 1 540 PEN 1 550 CLS 560 GOSUB 770 570 B$=CHR$(32) 580 N$=CHR$(240)+CHR$(241) 590 C$=B$+B$ 600 M$=CHR$(242)+CHR$(243) 610 A$=CHR$(244)+CHR$(244) 620 G$=CHR$(242) 630 X$=CHR$(243) 640 H$=CHR$(243)+CHR$(241)+CHR$(240)+CHR$(242) 650 S=0 660 RETURN 670 FOR I=1 TO 20 680 NEXT I 690 CLS 700 FOR I=0 TO 3 710 LOCATE 3+I*10,25 720 PRINT A$; 730 NEXT I 740 S=S+I 750 NX=INT(RND(1)*36)+2 760 RETURN 770 SYMBOL 240,0,31,63,127,239,239,255,239 780 SYMBOL 241,0,224,240,248,220,220,252,220 790 SYMBOL 242,239,127,63,75,128,128,64,224 800 SYMBOL 243,220,248,240,72,4,4,8,28 810 SYMBOL 244,255,255,255 820 RETURN |