100 ! ##################################
110 ! #    GUERRE DE SECESSION         #
120 ! ##################################
130 CLS "Wbb"
140 ! ##################################
150 ! # EFFACEMENT LIGNE DE CONTROLE   #
160 ! ##################################
170 CALL COLOR("0Wb"):LOCATE (0,1):PRINT RPT$(" ",40)
180 ! ##################################
190 ! # APPEL ROUTINE MUSIQUE          #
200 ! #     ET PRESENTATION            #
210 ! ##################################
220 !
230 GOSUB 5360
240 GOSUB 4690
250 ! ##################################
260 ! #   PRESENTATION DES REGLES      #
270 ! ##################################
280 CLS:CALL COLOR("0YLH")
290 LOCATE (2,15):PRINT "RREEGGLLEESS"
300 LOCATE (3,15):PRINT "RREEGGLLEESS"
310 CALL COLOR("0Yb")
320 LOCATE (7,1):PRINT "Ceci est une simulation de la guerre de"
330 LOCATE (8,1):PRINT "secession."
340 LOCATE (9,1):PRINT "Pour jouer, r'epondez aux questions que"
350 LOCATE (10,1):PRINT "l'ordinateur vous pose"
360 LOCATE (11,1):PRINT "Les faits et les chiffres utilis'es sont"
370 LOCATE (12,1):PRINT "r'eels. La plupart des batailles tendent"
380 LOCATE (13,1):PRINT "`a retrouver leur issue historique."
390 LOCATE (14,1):PRINT "Le but du jeu est de gagner le maximum"
400 LOCATE (15,1):PRINT "de batailles"
410 CALL COLOR("0RW")
420 LOCATE (18,3)
430 PRINT "<Appuyez sur [ENVOI] pour la suite>"
440 PAUSE:CLS
450 CALL COLOR("0MLH")
460 LOCATE (1,10):PRINT "SSTTRRAATTEEGGIIEE  DDEEFFEENNSSIIVVEE"
470 LOCATE (2,10):PRINT "SSTTRRAATTEEGGIIEE  DDEEFFEENNSSIIVVEE"
480 CALL COLOR("0Yb")
490 LOCATE (5,1):PRINT "En mati`ere de strat'egie d'efensive, vous"
500 LOCATE (6,1):PRINT "avez le choix entre:"
510 CALL COLOR("0YbI")
520 LOCATE (10,8):PRINT "-1- Tirs d'artillerie       "
530 LOCATE (11,8):PRINT "-2- Fortifications contre   "
540 LOCATE (12,8):PRINT "    les attaques frontales  "
550 LOCATE (13,8):PRINT "-3- Fortifications contre   "
560 LOCATE (14,8):PRINT "    les manoeuvres de flanc "
570 LOCATE (15,8):PRINT "-4- Battre en retraite      "
580 CALL COLOR("0RW")
590 LOCATE (18,3)
600 PRINT "<Appuyez sur [ENVOI] pour la suite>"
610 PAUSE:CLS
620 CALL COLOR("0MLH")
630 LOCATE (1,10):PRINT "SSTTRRAATTEEGGIIEE  OOFFFFEENNSSIIVVEE"
640 LOCATE (2,10):PRINT "SSTTRRAATTEEGGIIEE  OOFFFFEENNSSIIVVEE"
650 CALL COLOR("0Yb")
660 LOCATE (5,1):PRINT "En mati`ere de strat'egie offensive, vous"
670 LOCATE (6,1):PRINT "avez le choix entre:"
680 CALL COLOR("0YbI")
690 LOCATE (10,8):PRINT "-1- Tirs d'artillerie       "
700 LOCATE (11,8):PRINT "-2- attaque frontales       "
710 LOCATE (12,8):PRINT "-3- manoeuvre de flanc      "
720 LOCATE (13,8):PRINT "-4- manoeuvre de flanc      "
730 LOCATE (14,8):PRINT "-5- Se rendre a l'ennemie   "
740 CALL COLOR("0RW")
750 LOCATE (18,3)
760 PRINT "<Appuyez sur [ENVOI] pour la suite>"
770 PAUSE:CLS
780 CALL COLOR("0MLH")
790 LOCATE (5,9):PRINT "VVOOUUSS  EETTEESS  LLAA"
800 LOCATE (6,9):PRINT "VVOOUUSS  EETTEESS  LLAA"
810 LOCATE (7,1):PRINT "CCOONNFFEEDDEERRAATTIIOONN  ((nnoorrdd))"
820 LOCATE (8,1):PRINT "CCOONNFFEEDDEERRAATTIIOONN  ((nnoorrdd))"
830 PAUSE 5
840 RANDOMIZE
850 RR=INTRND(100)
860 ! ##################################
870 ! #    DEFINITION DES VARIABLES    #
880 ! ##################################
890 L=0:W=0:P1=0:R1=0:Q1=0:R2=0:T2=0:T1=0:P2=0:M1=0:M2=0:M3=0:M4=0
900 ! ##################################
910 ! #   DONNEES TECHNIQUES CW        #
920 ! ##################################
930 DATA 18000,18500,1967,2708,1,1,0
940 DATA 40000,44894,10699,13047,3,2,0
950 DATA 95000,115000,20614,15849,3,3,0
960 DATA 84000,63000,10000,14000,2,4,0
970 DATA 40000,50000,10000,12000,3,5,0
980 DATA 75000,120000,5377,12653,3,6,0
990 DATA 38000,45000,11000,12000,1,7,0
1000 DATA 32000,90000,13000,17197,2,8,0
1010 DATA 80000,70000,12000,19000,1,9,0
1020 DATA 72500,85000,20000,23000,3,10,0
1030 DATA 66000,60000,18000,16000,2,11,0
1040 DATA 37000,60000,6700,5800,1,12,0
1050 DATA 62000,110000,17723,18000,2,13,0
1060 DATA 65000,110000,6700,6800,1,14,0
1070 RESTORE 930
1080 RANDOMIZE:RR=INT(RND*10)
1090 Z=0
1100 GOTO 1120
1110 Z=1
1120 READ M1,M2,C1,C2,M,A,U
1130 I1=10+(L-W)*2
1140 I2=10+(W-L)*2
1150 TEMP01=(M1*(100-I1)/2000):TEMP02=(1+(R1-Q1)/(R1+1)+.5)
1160 D1=100*INT(TEMP01*TEMP02)
1170 D2=100*INT(M2*(100-I2)/2000+.5)
1180 F1=5*M1/6
1190 A1=Z
1200 GOSUB 3480
1210 TP1=(P1-T1)/(M3+1)
1220 TP2=1+TP1
1230 !
1240 GOSUB 2230
1250 GOSUB 3600
1260 PRINT USING"######";INT(M1*TP2)
1270 GOSUB 3660
1280 PRINT USING"######";INT(M2*TA2)
1290 GOSUB 3700
1300 PRINT USING"######";D1:GOSUB 3730:PRINT USING"######";D2
1310 GOSUB 3740
1320 PRINT USING"######";I1+I5:GOSUB 3770
1330 PRINT USING"######";I2
1340 GOSUB 3790
1350 GOSUB 3800
1360 ACCEPT BEEP VALIDATE(DIGIT)SIZE(6)NULL(0),F
1370 IF F<0 THEN 1190
1380 GOSUB 3850
1390 ACCEPT BEEP VALIDATE(DIGIT)SIZE(6)NULL(0),S
1400 IF S<0 THEN GOSUB 1190
1410 GOSUB 3880
1420 ACCEPT BEEP VALIDATE(DIGIT)SIZE(6)NULL(0),B
1430 IF B<0 THEN 1190
1440 !
1450 IF B+S+F<=D1 THEN 1480
1460 GOSUB 3910
1470 GOTO 1350
1480 O=((2*F^2+S^2)/F1^2+1)
1490 IF S<.15*D1 THEN 1510
1500 GOTO 1520
1510 O=4
1520 IF O<10 THEN 1550
1530 GOSUB 3950:GOSUB 3990
1540 GOTO 1590
1550 IF O<5 THEN 1580
1560 GOSUB 3950:GOSUB 4030
1570 GOTO 1590
1580 GOSUB 3950:GOSUB 4070
1590 IF M<>3 THEN 1620
1600 GOSUB 4110
1610 GOTO 1660
1620 IF M<>1 THEN 1650
1630 GOSUB 4150
1640 GOTO 1660
1650 GOSUB 4190
1660 !
1670 GOSUB 4230
1680 ACCEPT BEEP VALIDATE(DIGIT)SIZE(1)NULL(5),Y
1690 IF Y=5 THEN 3270
1700 GOSUB 4320
1710 FAC1=(2*C1/5):FAC2=(ABS(INT(4*RND+1)-Y)+1)
1720 C5=FAC1*(1+1/(2*FAC2))
1730 FAC4=(1.28+F1/(B+1)):C5=INT(C5*(1+1/O)*FAC4+.5)
1740 !
1750 FAC6=M1*(1+(P1-T1)/(M3+M1)):FAC7=FAC6/M1
1760 IF C5+100/O>FAC6 THEN 1820
1770 C5=INT(13*M1/(20*FAC7))
1780 E=7*C5/13
1790 U=1
1800 !
1810 GOTO 1840
1820 E=100/O
1830 !
1840 GOSUB 4360
1850 PRINT USING"######";C5
1860 GOSUB 4400
1870 PRINT USING"######";INT(17*C2*C1/(C5*20)+.5)
1880 IF C5-C1>=0 THEN 1940
1890 GOSUB 4410
1900 PRINT "Vos pertes ont 'et'e inf'erieures de ";
1910 PERTE=INT(ABS(100*(C1-C5)/C1+.5))
1920 PRINT PERTE;"%":PRINT "aux ";
1930 GOTO 1980
1940 GOSUB 4410
1950 PRINT "Vos pertes ont 'et'e sup'erieures de ";
1960 PERTE=INT(ABS(100*(C1-C5)/C1+.5))
1970 PRINT PERTE;"%":PRINT "aux ";
1980 PRINT "pertes r'eelles `a ";B$
1990 A1=1
2000 !GOSUB 1480
2010 IF U=1 THEN 2030
2020 IF C5+E<17*C2*C1/(C5*20)+5*O THEN 2070
2030 GOSUB 4460
2040 GOSUB 4520
2050 L=L+1
2060 GOSUB 2090
2070 GOSUB 4460:GOSUB 4570
2080 W=W+1
2090 !GOSUB 1480
2100 T1=T1+C5+E
2110 T2=T2+17*C1*C2/(C5*20)+5*O
2120 P1=P1+C1
2130 P2=P2+C2
2140 Q1=Q1+(F+S+B)
2150 R1=R1+M1*(100-I1)/20
2160 M3=M3+M1
2170 M4=M4+M2
2180 IF A=14 THEN 3320
2190 GOSUB 4460:GOTO 1120
2200 ! #################################
2210 ! #    NOMS DES BATAILLES         #
2220 ! #################################
2230 IF A<>1 THEN 2340
2240 A$="BBUULLLL  RRUUNN":GOSUB 4620:B$="BULL RUN"
2250 ! IF A=1 THEN 2310
2260 CALL COLOR("0Yb"):LOCATE (10,1)
2270 PRINT "21/07/1861:"
2280 PRINT "Les forces sudistes rencontrent l'arm'ee"
2290 PRINT "de l'union."
2300 !
2310 !
2320 PRINT "Le g'en'eral Jackson a aide `a repousser l'assaut de l'union."
2330 PAUSE:CLS:RETURN
2340 IF A<>2 THEN 2410
2350 A$="SSHHIILLOOHH":GOSUB 4620:B$="SHILOH"
2360 ! IF A=1 THEN 2310
2370 CALL COLOR("0Yb"):LOCATE (10,1):PRINT "6-7/4/1862 :"
2380 PRINT "L'attaque des conf'ed'er'es 'echoua en rai-"
2390 PRINT "son de son manque d'organisation."
2400 PAUSE:CLS:GOTO 3250
2410 IF A<>3 THEN 2500
2420 A$="SSEEVVEENN  DDAAYYSS":GOSUB 4620:B$="SEVEN DAYS"
2430 ! IF A=1 THEN 2310
2440 CALL COLOR("0Yb"):LOCATE (10,1):PRINT "25-6 U 1-7 1862 :"
2450 PRINT "Le g'en'eral LEE (sud) contint l'offensive"
2460 PRINT "durant toute la bataille et obligea le"
2470 PRINT "g'en'eral Mc Lelan et le nord `a s''eloigner"
2480 PRINT "de Richmond"
2490 PAUSE:CLS:GOTO 3250
2500 IF A<>4 THEN 2580
2510 A$="BBUULL  RRUUNN  BBIISS":GOSUB 4620:B$="BULL RUN BIS"
2520 ! IF A=1 THEN 2310
2530 CALL COLOR("0Yb"):LOCATE (10,1):PRINT "20-30/8/1862:"
2540 PRINT "les forces combin'ees de la conf'ed'eration"
2550 PRINT "refoul`erent les forces de l'union dans "
2560 PRINT "la ville de Washington"
2570 PAUSE:CLS:GOTO 3250
2580 IF A<>5 THEN 2650
2590 A$="AANNTTIIEETTMMAANN":GOSUB 4620:B$="ANTIETMAN"
2600 !IF A=1 THEN 2310
2610 CALL COLOR("0Yb"):LOCATE (10,1):PRINT "17/9/1862:"
2620 PRINT "Echec du sud dans sa tentative de ral"
2630 PRINT "lier le Maryland `a la conf'ed'eration"
2640 PAUSE:CLS:GOTO 3250
2650 IF A<>6 THEN 2720
2660 A$="FFRREEDDEERRIICCKKBBUURRGG":GOSUB 4620:B$="FREDERICKBURG"
2670 !IF A=1 THEN 2310
2680 CALL COLOR("0Yb"):LOCATE (10,1):PRINT "13/12/1862:"
2690 PRINT "La conf'ed'eration repousse avec succ`es"
2700 PRINT "une attaque de l'union"
2710 PAUSE:CLS:GOTO 3250
2720 IF A<>7 THEN 2780
2730 A$="MMUURRFFRREEEESSBBOORROO":GOSUB 4620:B$="MURFREESBORO"
2740 !IF A<>8 THEN 2850
2750 CALL COLOR("0Yb"):LOCATE (10,1):PRINT "31/12/1862:"
2760 PRINT "Le sud gagne une bataille rapproch'ee"
2770 PAUSE:CLS:GOTO 3250
2780 IF A<>8 THEN 2850
2790 A$="CCHHAANNCCEELLLLOORRSSVVIILLEE":GOSUB 4620:B$="CHANCELORVILLE"
2800 !IF A=1 THEN 2310
2810 CALL COLOR("0Yb"):LOCATE (10,1):PRINT "1-6/5/1863:"
2820 PRINT "Couteuse victoire du sud qui perd un de"
2830 PRINT "ses meilleurs g'en'eraux ( Jackson ) "
2840 PAUSE:CLS:GOTO 3250
2850 IF A<>9 THEN 2920
2860 A$="VVIICCKKSSBBUURRGG":GOSUB 4620:B$="VICKSBURG"
2870 !IF A<>9 THEN 2310
2880 CALL COLOR("0Yb"):LOCATE (10,1):PRINT "4/7/1863:"
2890 PRINT "Grave d'efaite pour le sud. La route du "
2900 PRINT "Mississipi est ouverte pour l'union "
2910 PAUSE:CLS:GOTO 3250
2920 IF A<>10 THEN 3000
2930 A$="GGEETTTTYYSSBBUURRGG":GOSUB 4620:B$="GETTYSBURG"
2940 IF A=1 THEN 3250
2950 CALL COLOR("0Yb"):LOCATE (10,1):PRINT "30/06/1863:"
2960 PRINT "Une erreur du sud (G.Lee) lui coute "
2970 PRINT "l'une des batailles essentielles de la "
2980 PRINT "guerre"
2990 PAUSE:CLS:GOTO 3250
3000 IF A<>1 THEN 3080
3010 A$="CCHHIICCKKMMAAUUGGAA":GOSUB 4620:B$="CHICKMAUGA"
3020 IF A=1 THEN 3250
3030 CALL COLOR("0Yb"):LOCATE (10,1):PRINT "25/11/1863:"
3040 PRINT "le g'en'eral grant lib`ere l'arm'ee du g'en'e-"
3050 PRINT "ral Rosencrans assi'eg'e depuis 3 mois par"
3060 PRINT "le sud."
3070 PAUSE:CLS:GOTO 3250
3080 IF A<>12 THEN 3140
3090 A$="CCHHAATTAANNOOOOGGAA":GOSUB 4620:B$="CHATTANOOGA"
3100 IF A=1 THEN 3250
3110 CALL COLOR("0Yb"):LOCATE (10,1):PRINT "15/9/63:"
3120 PRINT "La plus sanglante des batailles:"
3130 PAUSE:CLS:GOTO 3250
3140 IF A<>13 THEN 3200
3150 A$="SSPPOOTTSSYYLLVVAANNIIAA":GOSUB 4620:B$="SPOTSYLVANIA"
3160 IF A=1 THEN 3250
3170 CALL COLOR("0Yb"):LOCATE (10,1):PRINT "5/5/1864:"
3180 PRINT "Echec de Grant (N) pour isoler Lee (S)."
3190 PAUSE:CLS:GOTO 3250
3200 A$="AATTLLAANNTTAA":GOSUB 4620:B$="ATLANTA"
3210 IF A=1 THEN 3250
3220 CALL COLOR("0Yb"):LOCATE (10,1):PRINT "Aout 1864:"
3230 PRINT "Victoire d'ecisive pour le nord."
3240 PAUSE:CLS:GOTO 3250
3250 !
3260 RETURN
3270 CALL COLOR("0Wb"):LOCATE (10,1)
3280 PRINT "LA CONFEDERATION S'EST RENDUE"
3290 GOTO 3320
3300 CALL COLOR("0Wb"):LOCATE (10,1)
3310 PRINT "L'UNION S'EST RENDUE"
3320 !
3330 CLS "WbW":CALL COLOR("0RLI"):LOCATE (3,15):PRINT "BBIILLAANN"
3340 CALL COLOR("0YHI"):LOCATE (5,5):PRINT "Vous avez gagn'e ";W;" batailles"
3350 LOCATE (6,5):PRINT "Vous avez gagn'e ";W;" batailles"
3360 LOCATE (8,5):PRINT "Vous avez perdu ";L;" batailles"
3370 LOCATE (9,5):PRINT "Vous avez perdu ";L;" batailles"
3380 IF Y=5 THEN 3340
3390 IF W<=L THEN 3440
3400 CALL COLOR("0RHF")
3410 LOCATE (15,12):PRINT "LA CONFEDERATION A GAGNE"
3420 LOCATE (16,12):PRINT "LA CONFEDERATION A GAGNE"
3430 GOTO 3470
3440 CALL COLOR("0RHF")
3450 LOCATE (15,12):PRINT "L'UNION A GAGNE"
3460 LOCATE (16,12):PRINT "L'UNION A GAGNE"
3470 END
3480 ! #################################
3490 ! #    ETAT DES FORCES AVANT WAR  #
3500 ! #################################
3510 CLS "Wbb"
3520 CALL COLOR("0GLH")
3530 LOCATE (1,5):PRINT "NNOOUUSS  SSOOMMMMEESS  AA  LLAA"
3540 LOCATE (2,5):PRINT "NNOOUUSS  SSOOMMMMEESS  AA  LLAA"
3550 !
3560 LOCATE (3,9):PRINT "BBAATTAAIILLEE  DDEE  "
3570 LOCATE (4,9):PRINT "BBAATTAAIILLEE  DDEE  "
3580 !
3590 RETURN
3600 LOCATE (5,10)
3610 CALL COLOR("0YI")
3620 LOCATE (10,10):PRINT "  Conf'ed'eration   union       "
3630 CALL COLOR("0RI"):LOCATE (12,1):PRINT "Hommes   "
3640 CALL COLOR("0Wb"):LOCATE (12,11)
3650 RETURN
3660 LOCATE (12,27)
3670 TA1=(P2-T2)/(M4+1)
3680 TA2=1+TA1
3690 RETURN
3700 CALL COLOR("0YI"):LOCATE (13,1):PRINT "Argent   "
3710 CALL COLOR("0Wb"):LOCATE (13,11)
3720 RETURN
3730 LOCATE (13,27)
3740 CALL COLOR("0CI"):LOCATE (14,1):PRINT "Inflation"
3750 CALL COLOR("0Wb"):LOCATE (14,11)
3760 RETURN
3770 LOCATE (14,27)
3780 RETURN
3790 CALL COLOR("0Bb"):LOCATE (16,1):PRINT RPT$(CHR$(12),40):RETURN
3800 CALL COLOR("0GLI")
3810 LOCATE (18,15):PRINT "DD'e'eppeennsseess"
3820 CALL COLOR("0GI"):LOCATE (19,1):PRINT "Nourriture:"
3830 CALL COLOR("0Gb"):LOCATE (19,12)
3840 RETURN
3850 CALL COLOR("0YI"):LOCATE (20,1):PRINT "Troupes   :"
3860 CALL COLOR("0Yb"):LOCATE (20,12)
3870 RETURN
3880 CALL COLOR("0MI"):LOCATE (21,1):PRINT "Munitions :"
3890 CALL COLOR("0Mb"):LOCATE (21,12)
3900 RETURN
3910 CALL COLOR("0Wb"):LOCATE (22,5):PRINT "Vous ne disposez que de ";D1;"$"
3920 PAUSE 3:LOCATE (22,5):PRINT RPT$(" ",35)
3930 FOR EFFA=19 TO 21:LOCATE (EFFA,12):PRINT RPT$(" ",7):NEXT
3940 RETURN
3950 CLS:CALL COLOR("0MLH")
3960 LOCATE (1,5):PRINT "EETTAATT  DDEESS  TTRROOUUPPEESS"
3970 LOCATE (2,5):PRINT "EETTAATT  DDEESS  TTRROOUUPPEESS"
3980 RETURN
3990 CALL COLOR("0CHI")
4000 LOCATE (5,1):PRINT "Le moral est 'elev'e"
4010 LOCATE (6,1):PRINT "Le moral est 'elev'e"
4020 RETURN
4030 CALL COLOR("0GHI")
4040 LOCATE (5,1):PRINT "Le moral est bon"
4050 LOCATE (6,1):PRINT "Le moral est bon"
4060 RETURN
4070 CALL COLOR("0YHI")
4080 LOCATE (5,1):PRINT "Le moral est bas"
4090 LOCATE (6,1):PRINT "Le moral est bas"
4100 RETURN
4110 CALL COLOR("0RHI")
4120 LOCATE (9,1):PRINT "Vous etes en phase offensive"
4130 LOCATE (10,1):PRINT "Vous etes en phase offensive"
4140 RETURN
4150 CALL COLOR("0YHI")
4160 LOCATE (9,1):PRINT "Vous etes en phase d'efensive"
4170 LOCATE (10,1):PRINT "Vous etes en phase d'efensive"
4180 RETURN
4190 CALL COLOR("0MHI")
4200 LOCATE (9,1):PRINT "Les deux camps pratiquent l'offensive"
4210 LOCATE (10,1):PRINT "Les deux camps pratiquent l'offensive"
4220 RETURN
4230 CALL COLOR("0BLHI")
4240 LOCATE (15,6)
4250 PRINT "VVOOTTRREE  SSTTRRAATTEEGGIIEE"
4260 LOCATE (16,6)
4270 PRINT "VVOOTTRREE  SSTTRRAATTEEGGIIEE"
4280 CALL COLOR("0WbI")
4290 LOCATE (18,1):PRINT "Entrez un nombre:";
4300 CALL COLOR("0Wb")
4310 RETURN
4320 CLS "Wbb":CALL COLOR("0YHI")
4330 LOCATE (10,10):PRINT "  Confederation  Union    "
4340 LOCATE (11,10):PRINT "  Confederation  Union    "
4350 RETURN
4360 CALL COLOR("0RHI"):LOCATE (13,1):PRINT "Pertes:"
4370 LOCATE (14,1):PRINT "Pertes:"
4380 CALL COLOR("0Wb"):LOCATE (15,11)
4390 RETURN
4400 LOCATE (15,27):RETURN
4410 CALL COLOR("0BLHI")
4420 LOCATE (17,12):PRINT "RREESSUULLTTAATTSS"
4430 LOCATE (18,12):PRINT "RREESSUULLTTAATTSS"
4440 CALL COLOR("0Wb"):LOCATE (20,1)
4450 RETURN
4460 CALL COLOR("0WI"):LOCATE (7,7)
4470 PRINT "<Appuyez sur une touche pour la suite>"
4480 CALL COLOR("0Wb")
4490 PAUSE
4500 CLS
4510 RETURN
4520 CALL COLOR("0RLHI"):LOCATE (10,5)
4530 PRINT "VVOOUUSS  AAVVEEZZ  PPEERRDDUU"
4540 LOCATE (11,5)
4550 PRINT "VVOOUUSS  AAVVEEZZ  PPEERRDDUU"
4560 RETURN
4570 CALL COLOR("0RLHI"):LOCATE (10,5)
4580 PRINT "VVOOUUSS  AAVVEEZZ  GGAAGGNNEE"
4590 LOCATE (11,5)
4600 PRINT "VVOOUUSS  AAVVEEZZ  GGAAGGNNEE"
4610 RETURN
4620 CALL COLOR("0YLHI")
4630 LCHAINE=LEN(A$):XCO=(40-LCHAINE)/2
4640 LOCATE (5,XCO):PRINT A$
4650 LOCATE (6,XCO):PRINT A$
4660 CALL COLOR("0CLI"):LOCATE (8,10):PRINT "HHiissttoorriiqquuee"
4670 CALL COLOR("0Cb")
4680 RETURN
4690 !#################################
4700 !#    ANIMATION MUSICALE         #
4710 !#################################
4720 DATA 118,2,2,252
4730 DATA 136,197,0,121
4740 DATA 213,124,114,1,125,124,5,127
4750 DATA 209,123
4760 DATA 18,126,45,19,226,55
4770 DATA 136,196,154,24,178,190,72,0,24
4780 DATA 114,16,122,152,24,28,142,196
4790 DATA 112,114,34,122,136,196,190,28
4800 DATA 142,196,112
4810 DATA 154,24,36,8,208,29
4820 DATA 211,24,154,24,208,30,114,11,122
4830 DATA 136,0,29,28,142,196,112,218
4840 DATA 123,243,224,13
4850 DATA 136,196,31,28
4860 DATA 114,4,122,142,196,112,218,123
4870 DATA 243
4880 DATA 114,8,122,136,196,185
4890 DATA 28,142,196,112,18,124,155,121
4900 DATA 136,197,0,10,251,10
4910 DATA 154,28,192,114,8,16,207,231
4920 DATA 3,68,125,124,222,125,125,01
4930 DATA 125,230,11,18,124,213,124,155
4940 DATA 121,211,121,121,0,120,210,122
4950 DATA 226,7,218,16,225,211,28,224,215
4960 DATA 10
4970 !DONNEES
4980 DATA 18,0,17,129,17,98,17,35
4990 DATA 17,4,16,229,16,166,16,103
5000 DATA 66,104,66,41,65,234,65,203,65
5010 DATA 140,65,109,65,46,65,15,64,176
5020 DATA 64,113
5030 DATA 252,59,179,54,192
5040 !CHARGEMENT SP
5050 RESTORE 4720
5060 B=50175
5070 FOR I=1 TO 195
5080 READ A
5090 CALL POKE(B+I,A)
5100 NEXT I
5110 !JOUONS
5120 RESTORE 5230
5130 FOR I=1 TO 26
5140 B=126
5150 READ A
5160 CALL POKE(B,A)
5170 READ A
5180 CALL POKE(B+1,A)
5190 CALL EXEC(50176)
5200 B=126
5210 NEXT
5220 !
5230 DATA 2,1,2,2,2,1,4,2,7,2
5240 DATA 10,4,10,4,2,1,2,2,2,1,4,2
5250 DATA 7,2,8,8,2,1,2,2,2,1,4,2
5260 DATA 7,2,8,4,8,4,8,1,8,2,8,1
5270 DATA 7,2,4,2,7,8
5280 GOSUB 5300
5290 RETURN
5300 !#################################
5310 !#   BRUITAGES ET EFFETS SONORES #
5320 !#################################
5330 CALL SPEECH("S,00AAFF")
5340 CALL SPEECH("S,00B0FF")
5350 RETURN
5360 !#################################
5370 !#  PRESENTATION GRAPHIQUE       #
5380 !#################################
5390 GOSUB 6360
5400 CALL COLOR("1WR")
5410 CALL CHAR(65,"0000000000000000112A")
5420 CALL CHAR(66,"00000001020202040408")
5430 CALL CHAR(67,"08080808101010204080")
5440 CALL CHAR(68,"01020404180808040402")
5450 CALL CHAR(69,"02020C08080808080804")
5460 CALL CHAR(70,"04040402010101010101")
5470 !CALL CHAR (71,"8040300E010080402020")
5480 CALL CHAR(71,"8040300E010000000000")
5490 CALL CHAR(72,"000000008060100C0101")
5500 CALL CHAR(73,"E0100C02010000000000")
5510 CALL CHAR(74,"00000002856810000000")
5520 CALL CHAR(75,"00000000008080404020")
5530 CALL CHAR(76,"20100808040402010000")
5540 CALL CHAR(77,"00000000205088080404")
5550 CALL CHAR(78,"02020101000000000000")
5560 CALL CHAR(79,"00000000808060190600")
5570 CALL CHAR(80,"07186040408080000000")
5580 CALL CHAR(81,"00000000000000F78880")
5590 CALL CHAR(82,"0000000000000000C020")
5600 CALL CHAR(83,"110A0400000000000000")
5610 CALL CHAR(84,"00000000000038448380")
5620 CALL CHAR(85,"0000000000000000FF00")
5630 CALL CHAR(86,"00000000000000804020")
5640 CALL CHAR(87,"10101010101010080804")
5650 CALL CHAR(88,"04040402020201000000")
5660 CALL CHAR(89,"20202010202020200000")
5670 CALL CHAR(90,"08102020404040202020")
5680 CALL CHAR(42,"00000000000001010404")
5690 CALL CHAR(92,"08083040408000000000")
5700 CALL CHAR(93,"24222110101008040404")
5710 CALL CHAR(97,"00000000000000007844")
5720 CALL CHAR(98,"101010A0400000000000")
5730 CALL CHAR(99,"00000708101010101010")
5740 CALL CHAR(100,"18602000000000000000")
5750 CALL CHAR(101,"07081010204020101008")
5760 CALL CHAR(102,"C0000000000000000000")
5770 CALL CHAR(103,"00000080402010081020")
5780 CALL CHAR(104,"2828464140404040C000")
5790 CALL CHAR(105,"00000000000000001828")
5800 CALL CHAR(106,"00000000000000000FF0")
5810 CALL CHAR(107,"00000000000000008080")
5820 CALL CHAR(108,"8FF00000000000000000")
5830 CALL CHAR(109,"0000000000001F212020")
5840 CALL CHAR(110,"20202050800000000000")
5850 CALL CHAR(111,"10202020434428100000")
5860 CALL CHAR(112,"00000080000000E01010")
5870 CALL CHAR(113,"00000F70833C40830204")
5880 CALL CHAR(114,"04080808080890906020")
5890 CALL CHAR(115,"01010101010101000000")
5900 CALL CHAR(116,"C040860A314080000301")
5910 CALL CHAR(117,"00000001020405020000")
5920 CALL CHAR(118,"0000000000000000F00F")
5930 CALL CHAR(119,"0000000000E0100F0000")
5940 CALL CHAR(120,"00000000F00F00000000")
5950 CALL CHAR(121,"000000F8070000000000")
5960 CALL CHAR(122,"F8040300000000000000")
5970 CALL CHAR(64,"00000000000000E01C03")
5980 CALL CHAR(63,"00000080403807000000")
5990 CALL CHAR(62,"10080700000000000000")
6000 CALL CHAR(61,"00000000000000804020")
6010 CALL CHAR(60,"44848000000000000000")
6020 CALL CHAR(37,"00000000000000000000")
6030 !##################################
6040 !#   DONNEES GRAPHIQUES           #
6050 !##################################
6060 DATA %%%%%%A=%%%%%%%%%%%%%%%%%%%%%%
6070 DATA %%%%%B<>?@%%%%%%%%%%%%%%%%%%%%
6080 DATA %%%%%C%%%%zyxwv%%%%%%i%%%%%%%%
6090 DATA %%%%D%%%%%%%%%utqpmkjhg%%%%%%%
6100 DATA %%%%E%%%%%%%%%%sronl%ef%%%%%%%
6110 DATA %%%%F%%%%%%%%%%%%%%acd%%%%%%%%
6120 DATA %%%%%GH%%%%%%%%%%%%]b%%%%%%%%%
6130 DATA %%%%%%%IJK%%%%%%%%*\%%%%%%%%%%
6140 DATA %%%%%%%%%LM%%QRTUVZ%%%%%%%%%%%
6150 DATA %%%%%%%%%%NOP%S%%WY%%%%%%%%%%%
6160 DATA %%%%%%%%%%%%%%%%%XY%%%%%%%%%%%
6170 RESTORE 6060
6180 READ A$,B$,C$,D$,E$,F$,G$,H$,I$,J$,K$
6190 LOCATE (5,6):PRINT A$
6200 LOCATE (6,6):PRINT B$
6210 LOCATE (7,6):PRINT C$
6220 LOCATE (8,6):PRINT D$
6230 LOCATE (9,6):PRINT E$
6240 LOCATE (10,6):PRINT F$
6250 LOCATE (11,6):PRINT G$
6260 LOCATE (12,6):PRINT H$
6270 LOCATE (13,6):PRINT I$
6280 LOCATE (14,6):PRINT J$
6290 LOCATE (15,6):PRINT K$
6300 CALL COLOR("0YLH")
6310 LOCATE (2,16):PRINT "CCIIVVIILL"
6320 LOCATE (3,16):PRINT "CCIIVVIILL"
6330 LOCATE (17,18):PRINT "WWAARR"
6340 LOCATE (18,18):PRINT "WWAARR"
6350 PAUSE:RETURN
6360 !##################################
6370 !#  DRAPEAU ETATS UNIS            #
6380 !##################################
6390 LOCATE (5,6)
6400 CALL COLOR("0Wb"):PRINT RPT$("*",10);RPT$(CHR$(12),20)
6410 LOCATE (1,1):PRINT RPT$("*",40)
6420 LOCATE (19,1):PRINT RPT$("*",40)
6430 LOCATE (6,6):PRINT RPT$("*",10);
6440 CALL COLOR("0Rb"):PRINT RPT$(CHR$(12),20)
6450 LOCATE (7,6):CALL COLOR("0Wb"):PRINT RPT$("*",10);RPT$(CHR$(12),20)
6460 LOCATE (8,6):PRINT RPT$("*",10);
6470 CALL COLOR("0Rb"):PRINT RPT$(CHR$(12),20):CALL COLOR("0Wb")
6480 LOCATE (9,6):PRINT RPT$("*",10);RPT$(CHR$(12),20)
6490 CALL COLOR("0Rb"):LOCATE (10,6):PRINT RPT$(CHR$(12),30)
6500 CALL COLOR("0Wb"):LOCATE (11,6):PRINT RPT$(CHR$(12),30)
6510 CALL COLOR("0Rb"):LOCATE (12,6):PRINT RPT$(CHR$(12),30)
6520 CALL COLOR("0Wb"):LOCATE (13,6):PRINT RPT$(CHR$(12),30)
6530 CALL COLOR("0Rb"):LOCATE (14,6):PRINT RPT$(CHR$(12),30)
6540 CALL COLOR("0Wb"):LOCATE (15,6):PRINT RPT$(CHR$(12),30)
6550 PAUSE 5:RETURN
