10 REM *********
20 REM * BLITZ * 30 REM ********* 40 DEFINT A-V 50 DIM TB(40,25) 60 GOSUB 650 70 GOSUB 880 80 FOR HY=1 TO 24 90 FOR HX=1 TO 40 100 LOCATE HX,HY 110 Z=-Z 120 W=Z+0.5 130 PEN 1 140 PRINT A$(W); 150 PEN 2 160 IF HX>37 THEN 180 170 IF TB(HX+3,HY)<>0 THEN 280 180 IF INKEY$<>"" AND BY=1 AND HX<>40 THEN BX=HX+1:BY=HY+1 190 IF BY<>0 THEN GOSUB 550 ELSE GOSUB 620 200 NEXT HX 210 LOCATE 39,HY 220 PRINT NN$; 230 NEXT HY 240 FOR I=1 TO 500 250 NEXT I 260 S=S+40*HY+HX 270 GOTO 70 280 S=S+40*HY+HX 290 LOCATE BX,B1 300 PRINT N$; 310 FOR I=HY TO 23 320 LOCATE HX+1,I 330 PRINT NN$; 340 LOCATE HX+1,I+1 350 PRINT RIGHT$(A$(1),2); 360 FOR J=1 TO 100 370 NEXT J 380 NEXT I 390 IF S>R THEN R=S 400 LOCATE 4,1 410 PEN 1 420 PRINT "SCORE :";S; 430 PRINT "RECORD :";R; 440 FOR I=1 TO 100 450 NEXT I 460 R$=INKEY$ 470 IF R$<>"" THEN 460 480 LOCATE 8,14 490 PRINT "UNE AUTRE ?"; 500 R$=INKEY$ 510 IF R$="" THEN 500 520 IF R$<>"N" AND R$<>"n" THEN S=0:GOTO 70 530 CLS 540 END 550 IF BY>24 THEN BY=1 560 LOCATE BX,B1 570 PRINT N$; 580 TB(BX,B1)=0 590 B1=BY 600 IF BY<>1 THEN LOCATE BX,BY:PRINT B$;:BY=BY+1 610 RETURN 620 FOR I=1 TO 10 630 NEXT I 640 RETURN 650 MODE 1 660 CLS 670 INK 1,18 680 INK 2,6 690 INK 3,24 700 INK 4,1 710 BORDER 1 720 PAPER 4 730 DIM A$(1) 740 SYMBOL 240,193,224,225,255,255,255,64,0 750 SYMBOL 241,248,144,249,253,255,253,241,96 760 SYMBOL 242,248,144,248,252,254,252,240,96 770 SYMBOL 243,40,16,56,124,124,124,56,16 780 SYMBOL 244,15,15,15,255,255,255,255,255 790 SYMBOL 245,240,240,240,255,255,255,255,255 800 SYMBOL 246,255,255,255,255,255,255,255,255 810 SYMBOL 247,0,0,0,255,255,255,255,255 820 A$(0)=CHR$(32)+CHR$(240)+CHR$(241) 830 A$(1)=CHR$(32)+CHR$(240)+CHR$(242) 840 B$=CHR$(243) 850 N$=CHR$(32) 860 NN$=N$+N$ 870 RETURN 880 HX=1 890 HY=1 900 BX=1 910 BY=1 920 B1=BY 930 Z=0.5 940 ERASE TB 950 DIM TB(40,25) 960 PEN 3 970 CLS 980 FOR I=11 TO 31 990 C=INT(RND*4)+4 1000 FOR J=24 TO INT(RND*6)+14 STEP-1 1010 LOCATE I,J 1020 PRINT CHR$(240+C); 1030 TB(I,J)=1 1040 NEXT J 1050 NEXT I 1060 RETURN |