10 REM *****************
20 REM * CASSE-BRIQUES * 30 REM ***************** 40 DIM TB(40,25) 50 GOSUB 730 60 GOTO 200 70 D=2*((JOY(0)=4)-(JOY(0)=8)) 80 IF D<>0 THEN DO=D 90 IF JOY(0)=0 THEN DO=0 100 RX=RX+DO 110 CH=SGN(DO) 120 RETURN 130 D$=INKEY$ 140 D=2*((D$=F1$)-(D$=F2$)) 150 IF D<>0 THEN DO=D 160 IF D$=CHR$(32) THEN DO=0 170 RX=RX+DO 180 CH=SGN(DO) 190 RETURN 200 LOCATE BX,BY 210 PEN 1 220 PRINT N$; 230 BX=BX+DX 240 BY=BY+DY 250 IF TB(BX,BY)<>0 THEN DY=-DY:S=S+1:PRINT CHR$(7); 260 LOCATE BX,BY 270 PEN 0 280 PRINT B$:TB(BX,BY)=0 290 IF BY=23 AND ABS(BX-RX-3)>1 THEN 420 300 IF BY=23 AND BX>5 AND BX<36 THEN LOCATE BX,BY:PRINT N$;:BX=BX+CH 310 IF BY=23 THEN PRINT CHR$(7);:DY=-DY 320 IF BY=2 THEN PRINT CHR$(7);:DY=-DY 330 IF BX=3 OR BX=38 THEN PRINT CHR$(7);:DX=-DX 340 ON JS GOSUB 70,130 350 IF RX<1 THEN RX=1 360 IF RX>34 THEN RX=34 370 LOCATE RX,RY 380 PEN 2 390 PRINT R$; 400 IF S=204 THEN GOSUB 1290 410 GOTO 200 420 NB=NB+1 430 IF NB=11 THEN 540 440 LOCATE BX,BY 450 PRINT N$; 460 FOR I=1 TO 3 470 PRINT CHR$(7); 480 FOR J=1 TO 100 490 NEXT J 500 NEXT I 510 DO=0 520 GOSUB 1230 530 GOTO 200 540 LOCATE 14,6 550 PEN 3 560 S=S+404*K 570 PRINT "SCORE :";S; 580 IF S>R1 THEN R1=S 590 LOCATE 14,11 600 PRINT "RECORD :";R1; 610 LOCATE 14,16 620 PRINT "UNE AUTRE ?"; 630 NB=0 640 K=0 650 S=0 660 D$=INKEY$ 670 IF D$<>"" THEN 660 680 D$=INKEY$ 690 IF D$="" THEN 680 700 IF D$<>"N" AND D$<>"n" THEN 50 710 CLS 720 END 730 MODE 1 740 CLS 750 INK 0,2 760 INK 1,25 770 INK 2,0 780 INK 3,16 790 BORDER 17 800 PAPER 1 810 SYMBOL 240,255,255,255 820 SYMBOL 241,60,126,255,255,255,255,126,60 830 SYMBOL 242,8,8,8,8,8,8,8,255 840 SYMBOL 243,0,0,0,0,0,0,0,255 850 B1$=CHR$(242) 860 B2$=CHR$(243) 870 N$=CHR$(32) 880 R$=N$+N$+CHR$(240)+CHR$(240)+CHR$(240)+N$+N$ 890 B$=CHR$(241) 900 F1$=CHR$(242) 910 F2$=CHR$(243) 920 LOCATE 2,11 930 PEN 2 940 PRINT "JOYSTICK (O ou N) ?"; 950 D$=INKEY$ 960 IF D$="" THEN 950 970 IF D$="O" OR D$="o" THEN JS=1 ELSE JS=2 980 CLS 990 PEN 2 1000 FOR BX=2 TO 39 1010 LOCATE BX,1 1020 PRINT CHR$(143); 1030 NEXT BX 1040 FOR BY=2 TO 23 1050 LOCATE 2,BY 1060 PRINT CHR$(143); 1070 LOCATE 39,BY 1080 PRINT CHR$(143); 1090 NEXT BY 1100 PAPER 3 1110 FOR BY=3 TO 8 1120 FOR BX=4 TO 36 STEP 2 1130 TB(BX,BY)=1:TB(BX+1,BY)=1 1140 LOCATE BX,BY 1150 IF BY/2<>INT(BY/2) THEN 1180 1160 PRINT B1$;B2$; 1170 GOTO 1190 1180 PRINT B2$;B1$; 1190 NEXT BX 1200 NEXT BY 1210 PAPER 1 1220 RX=17 1230 RY=24 1240 BY=23 1250 BX=INT(RND(1)*32)+5 1260 DY=-1 1270 DX=(INT(RND(1)*2)-0.5)*2 1280 RETURN 1290 K=K+1 1300 S=0 1310 LOCATE BX,BY 1320 PRINT N$; 1330 LOCATE RX+2,RY 1340 PRINT N$;N$;N$; 1350 GOSUB 990 1360 RETURN |