10 REM **********
20 REM * D.C.A. * 30 REM ********** 40 GOSUB 630 50 A$=RIGHT$(A$,1)+LEFT$(A$,39) 60 B$=RIGHT$(B$,39)+LEFT$(B$,1) 70 LOCATE 1,1 80 PEN 1 90 PRINT A$; 100 LOCATE 1,3 110 PRINT B$; 120 R$=INKEY$ 130 IF R$<>"" AND MY=25 THEN MY=24:M$=CHR$(244):NM=NM-1 140 PEN 3 150 IF MY<>25 THEN MY=MY-2:LOCATE MX,MY:PRINT M$;:LOCATE MX,MY+2:PRINT O$; 160 IF MY<>4 THEN 260 170 IF MID$(B$,20,1)=O$ THEN 260 180 LOCATE MX,3 190 PRINT E$; 200 LOCATE MX,MY 210 PRINT O$; 220 PRINT S$; 230 S=S+1 240 B$=LEFT$(B$,17)+O1$+RIGHT$(B$,19) 250 GOTO 350 260 IF MY<>2 THEN 380 270 IF MID$(A$,20,1)=O$ THEN 380 280 LOCATE MX,1 290 PRINT E$; 300 S=S+1 310 LOCATE MX,MY 320 PRINT O$; 330 PRINT S$; 340 A$=LEFT$(A$,17)+O1$+RIGHT$(A$,19) 350 IF s>1 AND s/10=INT(S/10) THEN GOSUB 560 360 MY=25 370 M$=CHR$(246) 380 LOCATE 1,25 390 PEN 3 400 PRINT "S :";S;"M :";NM; 410 IF NM<1 AND MY=25 THEN 440 420 IF MY<=2 THEN LOCATE MX,2:PRINT O$;:MY=25:M$=CHR$(246) 430 GOTO 50 440 IF S>R THEN R=S 450 LOCATE 8,11 460 PRINT "SCORE :";S,"RECORD :";R; 470 LOCATE 16,15 480 PRINT "UNE AUTRE ?" 490 R$=INKEY$ 500 IF R$<>"" THEN 490 510 R$=INKEY$ 520 IF R$="" THEN 510 530 IF R$<>"N" AND R$<>"n" THEN 40 540 CLS 550 END 560 A$=A1$ 570 B$=B1$ 580 NM=NM+10 590 FOR I=1 TO 300 600 NEXT I 610 S=S+10 620 RETURN 630 DEFINT A-Z 640 MODE 1 650 INK 1,18:INK 2,24:INK 3,6:INK 4,2 660 CLS 670 BORDER 1 680 PAPER 4 690 SYMBOL 240,193,224,224,255,255,255,64,0 700 SYMBOL 241,248,144,249,253,255,253,241,96 710 SYMBOL 242,31,9,159,191,255,191,143,6 720 SYMBOL 243,131,7,135,255,255,255,2,0 730 SYMBOL 244,i6,56,56,56,56,56,16,56 740 SYMBOL 245,0,0,0,0,0,7,7,7 750 SYMBOL 246,56,56,56,254,254,255,255,255 760 SYMBOL 247,0,0,0,0,0,192,192,192 770 SYMBOL 248,146,84,56,254,56,84,146,0 780 S=0 790 A$="":B$="":O$=CHR$(32):O1$=O$+O$+O$+O$ 800 FOR I=1 TO 5 810 A$=A$+CHR$(240)+CHR$(241)+O1$+O$+O$ 820 B$=B$+CHR$(242)+CHR$(243)+O1$+O$+O$ 830 NEXT I 840 A1$=A$:B1$=B$:E$=CHR$(248) 850 J$=CHR$(245)+CHR$(246)+CHR$(247) 860 MX=20:MY=25:M$=CHR$(246):NM=15 870 PEN 2:LOCATE MX-1,MY:PRINT J$; 880 PEN 1:LOCATE 1,1:PRINT A$; 890 S$=CHR$(7) 900 LOCATE 1,3:PRINT B$;:RETURN |