10 REM TRAFALGAR
20 CLEAR: CLS 30 DIM a$(4,10,10) 40 DIM o$(2) 50 DIM S(2):DIM q(6):DIM T1(6):DIM T2(6) 60 GOSUB 2050 65 GOTO 2740 70 INK 0,1:INK 1,6:INK 2,24:INK 3,26 80 PAPER 0:PEN 2 90 m=0:t=6:w=1:w$=" " 100 g$="123456789" 110 GOSUB 900 120 h=0 130 GOSUB 1050 140 FOR x=1 TO 2 150 s(x)=0 160 GOSUB 360 170 FOR r=t TO 1 STEP-1 180 FOR u=1 TO r 190 h=h+7-r 200 LOCATE 1,23:PRINT ;r;" ";MID$(b$(r),4,1+VAL(MID$(b$(r),2,2)));STRING$(-(r>1 AND r<3 OR r>3),"S");" " 220 LOCATE 21,23:PRINT "no.";u;:LOCATE 28,23:PRINT SPC(6) 230 GOSUB 1740 240 GOTO 1510 250 a$((x),i,j)=MID$(b$(r),4,1) 260 LOCATE 6+(2*i),(2*j)+1:PRINT MID$(b$(r),4,1); 270 NEXT u 280 NEXT r 290 NEXT x 300 w=3 310 w$=CHR$(143) 320 GOSUB 900 330 FOR V=1 TO 6:T1(V)=V:NEXT V 340 FOR V=1 TO 6:T2(V)=V:NEXT V 350 GOTO 740 360 FOR n=1 TO 500:NEXT n: CLS 370 LOCATE 10,5: PRINT"AMIRAL ";UPPER$(o$(x)); 372 LOCATE 9,7:PRINT"Disposez votre FLOTTE " 374 LOCATE 10,9:PRINT"en ordre de bataille":LOCATE 20,15:PRINT"BONNE CHASSE ! " 375 FOR n=1 TO 1000:NEXT n 380 CLS 400 PEN 3: PRINT TAB(7);" A B C D E F G H I J " 410 PRINT 420 FOR z= 1 TO 10 430 IF z=10 THEN 980 440 PEN 3: PRINT TAB(6);MID$(g$,z,1); 450 PEN 2: PRINT 460 FOR y=1 TO 10 470 PEN 2: IF a$((x),y,z)<>" " THEN PRINT TAB(2*y+1);a$((x),y,z); 480 NEXT y 490 PRINT 500 NEXT z 510 RETURN 520 CLS 530 PRINT 540 PRINT 550 PEN 3: PRINT SPC(4)"ABCDEFGHIJ"SPC(4)"ABCDEFGHIJ" 560 FOR z=1 TO 10 570 FOR x= 3 TO 4 580 IF z= 10 THEN 1000 590 PEN 3: PRINT SPC(3) MID$(g$,z,1); 600 FOR y=1 TO 10 610 PEN 2: PRINT a$((x),y,z); 620 NEXT y 630 NEXT x 640 PRINT 650 NEXT z 660 PRINT 670 PRINT 680 PRINT TAB(5); UPPER$(o$(1));TAB(20);UPPER$(o$(2)); 690 PRINT:PRINT 700 PRINT TAB(5);"SCORE";s(1);TAB(20);"SCORE";s(2); 710 GOSUB 1870 720 LOCATE 12, 21:PRINT "TIRE:";:SOUND 1,20,10,15 730 RETURN 740 GOSUB 520 750 k=INT(RND(1)*2+1) 760 m=1 770 p=3-k 780 LOCATE 1,23:PRINT SPC(38) 790 LOCATE 1,21:PRINT UPPER$(o$(k));SPC(10-LEN(o$(k))):LOCATE 18,21:PRINT SPC(3) 800 GOSUB 1740 810 tir=0:WHILE tir<100:SOUND 1,tir,1:tir=tir+1:WEND 820 IF a$((p),i,j)<>" " THEN 1260 830 LOCATE 1,23:PRINT"RATE";SPC(12) 850 a$((p+2),i,j)=" " 860 LOCATE 4+14*(p-1)+i,j+3:PRINT " "; 870 FOR n=1 TO 500:NEXT n 880 k=p 890 GOTO 770 900 FOR x=w TO w+1 910 FOR y=1 TO 10 920 FOR z=1 TO 10 930 a$((x),y,z)=w$ 940 NEXT z 950 NEXT y 960 NEXT x 970 RETURN 980 PEN 3: PRINT SPC(4)"10"; 990 GOTO 460 1000 PEN 3: PRINT SPC(2)"10"; 1010 GOTO 600 1020 LOCATE 1,23:PRINT "INTERDIT";SPC(10) 1030 FOR n=1 TO 1000:NEXT n 1040 GOTO 200 1050 b$(1)="109DESTROYER" 1060 b$(2)="210SOUS-MARIN" 1070 b$(3)="312PORTE-AVIONS" 1080 b$(4)="410TORPILLEUR" 1090 b$(5)="508CROISEUR" 1100 b$(6)="608ESCORTEUR" 1110 RETURN 1120 IF m=1 THEN 1160 1130 LOCATE 1,23:PRINT "PARDON ?";SPC(20) 1140 FOR n=1 TO 1000:NEXT n 1150 GOTO 1740 1160 LOCATE 1,23:PRINT"PARDON?";SPC(12) 1170 FOR n=1 TO 1000:NEXT n 1180 LOCATE 18,21:PRINT SPC(3):LOCATE 1,23:PRINT SPC(20) 1190 GOTO 1740 1200 LOCATE 1,23:PRINT "DEJA ESSAYE";SPC(6) 1210 FOR n=1 TO 1000:NEXT n 1240 LOCATE 1,23:PRINT SPC(20) 1250 GOTO 790 1260 IF a$((p),i,j)=CHR$(143) THEN 1200 1270 a$((p+2),i,j)=a$((p),i,j) 1280 PEN 1: LOCATE 4+14*(p-1)+i,j+3:PRINT a$((p),i,j); 1290 v=1 1300 IF MID$(b$(v),4,1)=a$((p),i,j) THEN q=1:GOTO 1330 1310 v=v+1:d$(v)=MID$(b$(v),4,1) 1320 IF d$(v+1)=d$(v) THEN q=q+1 ELSE GOTO 1300 1330 LOCATE 1,23:PRINT"UN ";MID$(b$(v),4,18); 1340 ENV 3,5,-2,20: SOUND 2,0,0,15,3,,30 1350 GOSUB 1990 1360 FOR n=1 TO 1000:NEXT n 1370 PEN 2: PRINT ;7-v;"Point";STRING$(-(v<6),"s") 1380 FOR n=1 TO 500: NEXT n 1390 s(k)=s(k)+7-v 1400 a$((p),i,j)=CHR$(143) 1410 LOCATE 10+(k-1)*16,18:PRINT ;s(k); 1420 IF s(k)=h/2 THEN 1440 1430 GOTO 780 1440 CLS 1450 IF k=1 THEN GOSUB 3235 ELSE GOSUB 3000 1452 LOCATE 10,1: PRINT"BRAVO,AMIRAL ";UPPER$(o$(k)); 1455 LOCATE 5,3:PRINT"TOUTE LA FLOTTE ADVERSE EST COULEE" 1465 v=s(k)-s(p) 1470 LOCATE 12,5: PRINT " VOUS GAGNEZ DE " 1471 LOCATE 14,6:PRINT;v;" POINTS" 1472 GOTO 2035 1473 LOCATE 12,10:PRINT"VOUS RENTREZ AU PORT AVEC:":GOSUB 4200 1474 LOCATE 12,19:PRINT"....LES HONNEURS...." 1475 LOCATE 4,21:PRINT"AUX ACCENTS DE L'HYMNE NATIONAL" 1476 IF k=1 THEN GOSUB 3510 ELSE GOSUB 3610 1480 FOR z=1 TO 2000:NEXT z 1485 LOCATE 2,24:PRINT"PRET POUR UN NOUVEAU COMBAT (O/N)?" 1486 r$=UPPER$(INKEY$):IF r$<>"O" AND r$<>"N"THEN 1485 1487 IF r$="O"THEN 20 ELSE GOTO 1500 1500 CLS:END 1510 IF a$((x),i,j)<>" "OR i<1 OR i>10 OR j<1 OR j>10 THEN 1020 1520 g=0 1530 c=i-1 1540 e=j-1 1550 IF i=1 THEN c=1 1560 IF j=1 THEN e=1 1570 d=i+1 1580 f=j+1 1590 IF i=10 THEN d=10 1600 IF j=10 THEN f=10 1610 IF a$((x),c,e)=" " THEN 1640 1620 IF a$((x),c,e)<> MID$(b$(r),4,1) THEN 1020 1630 g=1 1640 IF c<d THEN 1680 1650 IF e<f THEN 1700 1660 IF u>1 AND g=0 THEN 1020 1670 GOTO 250 1680 c=c+1 1690 GOTO 1610 1700 e=e+1 1710 c=i-1 1720 IF i=1 THEN c=1 1730 GOTO 1610 1740 LOCATE 28,23: INPUT f$ 1750 f$(1)=LEFT$(f$,1):f$(2)=MID$(f$,2,1):f$(3)=MID$(f$,3,1):f$(4)=MID$(f$,2,2) 1760 IF LEN (f$)<2 OR LEN (f$)>3 THEN 1120 1770 IF ASC(f$(1))<65 OR ASC(f$(1))>74 OR ASC(f$(2))<49 OR ASC(f$(2))>57 THEN 1120 1780 i=ASC(f$(1))-64 1790 IF LEN (f$)=3 THEN 1820 1800 j=VAL (f$(2)) 1810 RETURN 1820 IF f$(3)<>"0" THEN 1120 1830 j=VAL(f$(4)) 1840 GOTO 1810 1850 GOSUB 520 1860 GOTO 770 1870 REM tableau flottes 1880 PLOT 475,105:DRAW 475,375:DRAW 628,375:DRAW 628,105:DRAW 475,105 1890 WINDOW #1,31,39,3,18:PAPER #1,3:CLS #1 1900 j1$=LEFT$(o$(1),1):j2$=LEFT$(o$(2),1) 1910 PEN #1,1 1920 LOCATE #1,2,1:PRINT #1,"FLOTTES":LOCATE #1,6,3:PRINT #1,UPPER$(j1$);" ";UPPER$(j2$); 1930 y=5 1940 FOR r=1 TO 6 1950 d$=MID$(b$(r),4,1):n$=LEFT$(b$(r),1) 1960 LOCATE #1,2,y:PRINT #1,UPPER$(d$);" ";n$; 1970 y=y+2:IF r=6 THEN RETURN 1980 NEXT r 1990 REM mise a jour tableau 2000 WINDOW #1,31,39,3,18:PEN #1,1 2010 y=v*2+3 2020 IF p=1 THEN LOCATE #1,5,y:T1(V)=T1(V)-Q:PRINT #1,T1(V); 2030 IF p=2 THEN LOCATE #1,7,y:T2(V)=T2(V)-Q:PRINT #1,T2(V); 2035 IF s(k)=h/2 THEN 1473 2040 RETURN 2050 REM TITRE 2060 SYMBOL AFTER 132 2070 SYMBOL 133,0,127,127,97,1,1,1,1:SYMBOL 134,0,254,254,134,128,128,128,128 2080 SYMBOL 149,127,96,96,96,96,96,96,224:SYMBOL 150,254,6,6,6,6,6,6,7 2090 SYMBOL 145,1,1,1,1,1,1,1,3:SYMBOL 146,128,128,128,128,128,128,128,192 2100 SYMBOL 135,0,127,127,96,96,96,96,127:SYMBOL 136,0,240,248,28,12,12,24,240 2110 SYMBOL 147,96,96,96,96,96,96,96,112:SYMBOL 148,240,24,12,6,6,6,6,7 2120 SYMBOL 139,0,15,31,48,48,96,96,96:SYMBOL 140,0,240,248,12,4,6,6,6 2130 SYMBOL 137,0,127,127,96,96,96,100,124:SYMBOL 138,0,254,254,6,0,0,0,0 2140 SYMBOL 151,124,100,96,96,96,96,96,112:SYMBOL 152,0,0,0,0,0,0,0,0 2150 SYMBOL 141,0,112,96,96,96,96,96,96:SYMBOL 142,0,0,0,0,0,0,0,0 2160 SYMBOL 153,96,96,96,96,96,96,127,127:SYMBOL 154,0,0,0,0,0,6,254,254 2170 SYMBOL 143,0,15,31,48,96,96,96,96:SYMBOL 144,0,252,252,12,0,0,0,0 2180 SYMBOL 155,96,96,96,96,96,96,127,63:SYMBOL 156,0,0,0,28,12,12,252,248 2190 T$= CHR$(133)+CHR$(134)+CHR$(32)+CHR$(135)+CHR$(136)+CHR$(32)+CHR$(139)+CHR$(140)+CHR$(32)+CHR$(137)+CHR$(138)+CHR$(32)+CHR$(139)+CHR$(140)+CHR$(32)+CHR$(141)+CHR$(142)+CHR$(32)+CHR$(143)+CHR$(144)+CHR$(32)+CHR$(139)+CHR$(140)+CHR$(32) 2200 T$=T$+CHR$(135)+CHR$(136) 2210 Tt$= CHR$(145)+CHR$(146)+CHR$(32)+CHR$(147)+CHR$(148)+CHR$(32)+CHR$(149)+CHR$(150)+CHR$(32)+CHR$(151)+CHR$(152)+CHR$(32)+CHR$(149)+CHR$(150)+CHR$(32)+CHR$(153)+CHR$(154)+CHR$(32)+CHR$(155)+CHR$(156)+CHR$(32)+CHR$(149)+CHR$(150)+CHR$(32) 2215 GOSUB 3000 2216 GOSUB 3235 2220 BORDER 14: INK 0,1:INK 1,6:INK 2,26:INK 3,11 2230 Tt$=Tt$+CHR$(147)+CHR$(148) 2240 WINDOW #2,7,34,14,10:PAPER #2,2:CLS #2 2250 LOCATE #2,2,2:PEN #2,1:PRINT #2, T$;:LOCATE #2,2,3:PEN #2,1:PRINT #2, Tt$;: PAPER 3 2260 LOCATE #2,1,5:PEN #2,3:PRINT #2, STRING$(28,196); 2265 LOCATE #2,1,4:PEN #2,3:PRINT #2,STRING$(28,196);:PAPER 0 2270 LOCATE #2,1,1:PEN #2,3:PRINT #2, STRING$(28,216);:PAPER 0 2275 LOCATE 15,2:PEN 1:PRINT"R.FRAVAL" 2276 LOCATE 15,4:PEN 1:PRINT"Presente" 2280 FOR z=1 TO 1000:NEXT z 2290 LOCATE 2,20:PEN 2:PRINT"Voulez-vous lire les regles (O/N)? 2300 r$=UPPER$(INKEY$) 2302 IF r$="" THEN 2300 2304 IF r$="N" THEN 2440 2310 REM PRESENTATION - REGLES 2320 MODE 2:INK 0,1:PAPER 0:INK 1,26:PEN 1 2330 LOCATE 10,3:PRINT" TRAFALGAR...Souvenir cruel pour notre Marine Nationale. Ce jeu vous propose de faire mieux que ce pauvre Amiral de Villeneuve.Pour disposer votre flotte en ordre de bataille,vous devrez respecter les regles ci-apres:" 2340 PRINT" 1/-Chaque Escadre se compose de 6 types de batinents,dont le nombre est inversement proportionnel au 'capital-points'qu'ils representent(voir'Revue des Flottes')" 2350 PRINT" 2/-Les bateaux de meme categorie doivent etre positionnes sur des cases adjacentes(dans les 8 directions possibles),sans voisiner directement avec une autre categorie." 2360 PRINT" 3/-Chaque Amiral etablit son ordre de bataille a tour de role,l'adversaire ne devant,bien evidemment,pas regarder cette mise en place." 2370 PRINT" 4/-L'ordinateur decide de celui des deux camps qui ouvrira le feu.En cas de coup au but,le tir sera renouvele." 2380 PRINT" 5/-Les coordonnees de positionnement et de tir sont donnees dans l'ordre: lettre(majuscule),chiffre.(ex:A3)" 2390 PRINT" 6/-La situation des 2 Flottes en presence,ainsi que le Score de chaque joueur,sont affiches en permanence.":PRINT:PRINT SPC(8)"ET MAINTENENT...A VOUS DE JOUER...!" 2400 LOCATE 50,24:PRINT"ETES-VOUS PRET (O/N)?" 2410 r$=UPPER$(INKEY$) 2420 IF r$<>"O" AND r$<>"N" THEN 2400 2430 IF r$="O" THEN 2440 2440 REM revue des flottes 2445 CLS 2450 SYMBOL AFTER 240 2460 SYMBOL 240,0,0,0,0,7,255,255,255 2470 SYMBOL 241,16,16,56,252,255,255,255,255 2480 SYMBOL 242,0,0,0,0,224,255,255,248 2490 SYMBOL 243,0,0,0,0,24,252,255,254 2500 SYMBOL 244,0,0,0,0,0,31,255,127 2510 SYMBOL 245,0,0,0,96,96,255,255,255 2520 SYMBOL 246,0,0,0,0,0,0,254,255 2530 SYMBOL 247,0,0,0,0,0,0,0,248 2540 SYMBOL 248,0,0,1,3,7,255,127,63 2550 SYMBOL 249,0,0,0,0,224,255,255,255 2560 SYMBOL 250,0,0,0,0,0,255,240,224 2570 SYMBOL 251,0,0,0,0,24,255,127,63 2580 SYMBOL 252,0,0,8,8,60,255,255,255 2590 SYMBOL 253,0,0,0,0,0,192,240,224 2600 SYMBOL 254,0,0,0,0,0,255,255,255 2610 V$(6)=CHR$(251)+CHR$(252)+CHR$(243)+CHR$(32) 2620 V$(5)=CHR$(251)+CHR$(240)+CHR$(241)+CHR$(242)+CHR$(32) 2630 V$(4)=CHR$(251)+CHR$(252)+CHR$(253)+CHR$(32) 2640 V$(3)=CHR$(248)+CHR$(241)+CHR$(249)+CHR$(254)+CHR$(250)+CHR$(32) 2650 V$(2)=CHR$(244)+CHR$(245)+CHR$(246)+CHR$(32) 2660 V$(1)=CHR$(251)+CHR$(252)+CHR$(240)+CHR$(253)+CHR$(32) 2670 REM presentation des flottes 2680 b$(1)="109DESTROYER" 2690 B$(2)="210SOUS-MARIN" 2700 b$(3)="312PORTE-AVIONS" 2710 b$(4)="410TORPILLEUR" 2720 b$(5)="508CROISEUR" 2730 b$(6)="608ESCORTEUR" 2740 MODE 1:INK 0,1:PAPER 0: INK 1,6:INK 2,24:CLS 2750 FOR c=1 TO 2 2760 n=c 2765 IF c=1 THEN c$="FRANCAIS ":GOSUB 3235 ELSE c$="ANGLAIS ":GOSUB 3020 2770 PEN n:LOCATE 1,2:PRINT"NOM DE L'AMIRAL ";c$;:INPUT o$(c):FOR n=1 TO 500:NEXT n:LOCATE 1,2:PRINT SPC(LEN(o$(c))+30); 2780 LOCATE 14,5:PRINT"AMIRAL ";UPPER$(o$(c));:LOCATE 12,7:PRINT"Voulez-vous(O/N)?":LOCATE 13,8:PRINT"Passer la Revue" 2781 r$=INKEY$ 2782 IF r$="" THEN 2781 2783 IF r$="N" OR r$="n" THEN CLS:GOTO 2850 2784 LOCATE 12,7:PRINT SPC(18):LOCATE 11,8:PRINT"VOICI VOTRE ESCADRE" 2785 GOSUB 4000 2787 WINDOW #3,27,40,10,21:PAPER #3,0:PEN #3,c:CLS #3:y=1 2790 FOR i=1 TO 6 2820 LOCATE #3,1,y:PRINT #3,LEFT$(b$(i),1);" ";MID$(b$(i),4,12);STRING$(-(i>1 AND i<3 OR i>3),"S") 2830 y=y+2: NEXT i 2840 FOR z=1 TO 2000:NEXT z:GOSUB 4075 2850 CLS: NEXT c 2860 GOTO 70 3000 REM FANIONS 3010 MODE 1 3020 INK 0,1:INK 1,6:INK 2,26:INK 3,11:PAPER 0:CLS 3030 PLOT 480,288 3040 FOR x=288 TO 336 3050 DRAW 480,x,3:DRAW 576,x,3:NEXT x 3060 PLOT 578,290:DRAW 480,338,2 3070 PLOT 574,288:DRAW 480,334,2 3080 PLOT 576, 288:DRAW 480,336,1 3090 PLOT 480,288:DRAW 576,336,1 3100 PLOT 480,290:DRAW 574,336,2 3110 PLOT 482,288:DRAW 576,334,2 3120 PLOT 515,336:DRAW 515,288,2 3130 PLOT 545,336:DRAW 545,288,2 3140 PLOT 480,324:DRAW 576,324,2 3150 PLOT 480,303:DRAW 576,303,2 3160 PLOT 516,336 3170 FOR x=338 TO 288 STEP -1 3180 DRAW 516,x,1:DRAW 543,x,1 3190 NEXT x 3200 PLOT 480,322 3210 FOR x=322 TO 304 STEP -1 3220 DRAW 480,x,1:DRAW 576,x,1:NEXT x 3230 RETURN 3235 INK 0,1:INK 1,6:INK 2,26:INK 3,11:PAPER 0 3240 PLOT 48,288 3250 FOR x=288 TO 336 3260 DRAW 48,x,3:DRAW 80,x,3:NEXT x 3270 FOR x=288 TO 336 3280 DRAW 80,x,2:DRAW 112,x,2:NEXT x 3290 FOR x=288 TO 336 3300 DRAW 112,x,1:DRAW 144,x,1:NEXT x 3310 RETURN 3510 REM MARSEILLAISE 3520 FOR m=1 TO 2 3530 FOR s=1 TO 32 3540 READ g,h,i,j 3550 SOUND g,h,i,j 3560 DATA 2,159,25,5,2,159,80,7,2,0,10,0,2,159,30,5,2,190,25,5,2,239,25,5,2,213,50,5,2,0,50,0,2,159,20,5,2,159,80,7,2,0,10,0,2,159,30,5,2,190,25,5,2,239,25,5,2,213,50,5,2,0,50,0 3570 DATA 2,319,50,5,2,0,10,0,2,239,80,5,2,213,50,5,2,190,80,5,2,179,80,7,2,159,50,5,2,142,50,5,2,213,80,5,2,142,50,5,2,159,80,7,2,190,40,5,2,179,30,5,2,213,30,5,2,239,25,5,2,0,100,0 3580 NEXT s:RESTORE 3560 3590 NEXT m 3600 RETURN 3610 REM GOD SAVE THE KING 3615 RESTORE 3650 3620 FOR s=1 TO 70 3630 READ g,h,i,j 3640 SOUND g,h,i,j 3650 DATA 2,213,80,6,2,0,1,0,2,213,80,6,2,0,1,0,2,190,80,6,2,225,80,6,2,213,40,5,2,190,50,5,2,0,20,0,2,169,80,5,2,0,1,0,2,169,80,5,2,0,1,0,2,159,80,5,2,169,80,5,2,190,50,5,2,213,50,5,2,0,20,0,2,169,80,7,2,159,50,5,2,169,50,5,2,190,60,5,2,213,30,5 3660 DATA 2,169,40,5,2,159,40,5,2,142,50,5,2,0,20,0,2,127,30,5,2,142,30,5,2,159,30,5,2,169,80,5,2,190,80,5,2,213,40,5,2,0,30,0,2,80,80,5,2,0,1,0,2,80,80,5,2,0,1,0,2,80,80,5,2,0,1,0,2,80,80,5,2,89,50,5,2,95,80,7,2,0,20,0,2,89,80,5,2,0,1,0,2,89,80,5,2,0,1,0 3670 DATA 2,89,80,5,2,0,1,0,2,89,80,5,2,95,50,5,2,106,80,5,2,0,10,0,2,95,50,5,2,89,40,5,2,95,40,5,2,106,40,5,2,119,40,5,2,95,60,5,2,89,60,5,2,80,60,5,2,0,1,0,2,71,40,5,2,80,40,5,2,89,40,5,2,0,1,0,2,95,100,5,2,106,80,5,2,119,60,5 3680 NEXT s 3690 RETURN 4000 REM REVUE NAVALE 4010 y=8 4015 FOR i=1 TO 6 4020 y=y+2 4030 FOR x=2 TO LEN(v$(i))*i STEP LEN(v$(i)) 4040 LOCATE x,y:PRINT v$(i);::NEXT x:NEXT i 4070 FOR n=1 TO 1000:NEXT n: PAPER 0:RETURN 4075 TAG:PLOT -2,-2,c:y=255 4078 PRINT CHR$(22)+CHR$(1); 4080 FOR i=1 TO 6 4090 FOR k=1 TO i 4100 FOR x=LEN(v$(i))*k*16-LEN(v$(i))*16 TO -80 STEP-2 4110 MOVE x,y:PRINT v$(i);:GOSUB 4135:NEXT x:NEXT k 4120 FOR n=1 TO 200:NEXT n:y=y-32:NEXT i 4130 TAGOFF 4135 SOUND 2,4000,6,4:RETURN 4140 PAPER 0:RETURN 4200 REM Apres la Bataille 4210 INK 0,1:PAPER 0 4215 y=12 4220 FOR V=1 TO 6 4250 IF o$(k)=o$(1)THEN t=T1(V) ELSE t=T2(V) 4270 LOCATE 5,y:PEN c:PRINT;t;" ";MID$(b$(V),4,LEN(b$(V)));STRING$(-(t>1 AND V<>3),"S"); 4280 IF V=6 THEN PEN 2: RETURN 4290 y=y+1: NEXT V |