DECLARE SUB VEHICULEA ()
DECLARE SUB cases ()
DECLARE SUB VEHICULED ()
DECLARE SUB VEHICULEB ()
DECLARE SUB VEHICULE ()
DECLARE SUB CONSTRUCTION ()
DECLARE SUB menu ()
DECLARE SUB main ()
DECLARE SUB car ()
DECLARE SUB cadre ()
'RANDOMIZE TIMER
CLS
SCREEN 12
CLEAR , , 5000
DIM c(800)

unit% = 1
defcases:

FOR a% = 1 TO 23
c(a%) = 1
NEXT a%
c(28) = 1: c(29) = 1: c(32) = 1: c(39) = 1: c(45) = 1: c(67) = 1: c(89) = 1: c(90) = 1: c(111) = 1: c(112) = 1: c(133) = 1: c(134) = 1: c(155) = 1: c(177) = 1: c(199) = 1: c(200) = 1: c(221) = 1: c(222) = 1: c(243) = 1: c(265) = 1: c(287) = 1: c(288) = 1: c(309) = 1: c(310) = 1: c(331) = 1: c(353) = 1: c(397) = 1: c(419) = 1: c(441) = 1: c(442) = 1: c(463) = 1: c(485) = 1: c(375) = 1
c(44) = 2: c(43) = 2: c(42) = 2: c(41) = 2: c(40) = 2: c(61) = 2: c(38) = 2: c(37) = 2: c(36) = 2: c(35) = 2: c(34) = 2: c(33) = 2: c(31) = 2: c(30) = 2: c(51) = 2: c(50) = 2: c(27) = 2: c(26) = 2: c(25) = 2: c(24) = 2: c(46) = 2: c(68) = 2: c(91) = 2: c(113) = 2: c(135) = 2: c(156) = 2: c(178) = 2: c(201) = 2: c(223) = 2: c(244) = 2: c(266) = 2: c(289) = 2: c(311) = 2: c(332) = 2: c(354) = 2: c(376) = 2: c(398) = 2: c(420) = 2: c(443) = 2: c(464) = 2: c(486) = 2: c(54) = 2
c(48) = 4: c(62) = 4: c(102) = 4: c(162) = 4: c(226) = 4: c(290) = 4: c(413) = 4: c(458) = 4
c(57) = 3: c(116) = 3: c(182) = 3: c(149) = 3: c(240) = 3: c(279) = 3: c(349) = 3: c(383) = 3: c(477) = 3
c(481) = 5: c(495) = 5: c(425) = 5: c(395) = 5: c(322) = 5: c(142) = 5: c(88) = 5: c(212) = 5
c(468) = 6: c(362) = 6: c(249) = 6: c(196) = 6: c(129) = 6: c(74) = 6
cas% = 1

main
DIM maine(500)
GET (1, 1)-(26, 14), maine

CLS
car
DIM ecran1(10000)
GET (7, 7)-(176, 337), ecran1

DIM ecran2(10000)
GET (177, 7)-(352, 337), ecran2
CLS
a% = 7
b% = 7
cadre
menu
CONSTRUCTION
PUT (7, 7), ecran1
PUT (177, 7), ecran2
DIM one%(1000)
GET (7, 7)-(21, 21), one%
e% = 0
o% = 0
p% = 1


'PLAY "MBT255DEC<L2AL4BL2GL4DEC<L2AL4BL2GL4DEC<L2AL4BAG#L1G>>L2GO3T255L4DD+EL2>C<L4EL2>C<L4EL1>CL4CDD+ECDL2EL4<B>L2DL1CP2O3T255L4DD+EL2>C<L4EL2>C<L4EL1>CL4C<AF+A>CL2EDL4<A>L1DP2O3T255L4DD+EL2>C<L4EL2>C<L4EL1>CL4CDD+ECDL2EL4<B>L2DL1CP2O4T255L4CDECDL2EL4CDCE"

'PLAY "MBO3T255L4DD+EL2>C<L4EL2>C<L4EL1>CL4CDD+ECDL2EL4<B>L2DL1CP2"
'PLAY "MBO3T255L4DD+EL2>C<L4EL2>C<L4EL1>CL4C<AF+A>CL2EDL4<A>L1DP2"
'PLAY "MBO3T255L4DD+EL2>C<L4EL2>C<L4EL1>CL4CDD+ECDL2EL4<B>L2DL1CP2"
'PLAY "MBO4T255L4CDECDL2EL4CDCECDL2EL4CDCECDL2EL4<B>L2DC<<L8P3CP3C"
   
'    ON PLAY(31) GOSUB ArrierePlan
'    PLAY OFF
'    Music$ = "MBT255DEC<L2AL4BL2GL4DEC<L2AL4BL2GL4DEC<L2AL4BAG#L1G>>L2GO3T255L4DD+EL2>C<L4EL2>C<L4EL1>CL4CDD+ECDL2EL4<B>L2DL1CP2O3T255L4DD+EL2>C<L4EL2>C<L4EL1>CL4C<AF+A>CL2EDL4<A>L1DP2O3T255L4DD+EL2>C<L4EL2>C<L4EL1>CL4CDD+ECDL2EL4<B>L2DL1CP2O4T255L4CDECDL2EL4CDCE"
'    PLAY Music$

'ArrierePlan:
'        PLAY Music$
        
'PLAY "T100CDL8EGL2E.L8DEL4CL8<A>CL2D.L4CDL8EGL2B.L8B>C<L4AL8GAL2G."
300
cas2% = cas%

    a$ = "z"
    DO UNTIL a$ = "m" OR a$ = "8" OR a$ = "4" OR a$ = "2" OR a$ = "6" OR a$ = "p"
    a$ = INKEY$
    LOOP
g% = a%
f% = b%

FOR a = g% TO g% + 14
FOR b = f% TO f% + 14
PSET (a, b), 0
NEXT b
NEXT a


IF e% = 1 THEN
PUT (7, 7), one%
GOTO 315
END IF
PUT (g%, f%), one%
315
   
   
    IF a$ = "m" THEN GOTO menu1
    IF a$ = "8" THEN b% = b% - 15: cas% = cas% - 1
    IF a$ = "4" THEN a% = a% - 15: cas% = cas% - 22
    IF a$ = "2" THEN b% = b% + 15: cas% = cas% + 1
    IF a$ = "6" THEN a% = a% + 15:  cas% = cas% + 22
    IF a$ = "p" THEN LINE (a% + 7, b% + 8)-(a% + 7, b% + 13), 0: LINE (a% + 8, b% + 11)-(a% + 11, b% + 11), 4: LINE (a% + 8, b% + 9)-(a% + 11, b% + 9), 4: LINE (a% + 8, b% + 10)-(a% + 11, b% + 10), 4

IF a% < 6 OR a% > 350 THEN a% = g%: cas% = cas2%
IF b% < 6 OR b% > 330 THEN b% = f%: cas% = cas2%

FOR a = 1 TO 150
FOR b = 410 TO 450
PSET (a, b), 0
NEXT b
NEXT a

COLOR 4



IF c(cas%) = 1 THEN h$ = "mers": GOTO inscrit
IF c(cas%) = 2 THEN h$ = "cotes": GOTO inscrit
IF c(cas%) = 3 THEN h$ = "metaux": GOTO inscrit
IF c(cas%) = 4 THEN h$ = "lacs": GOTO inscrit
IF c(cas%) = 5 THEN h$ = "cocquelicots": GOTO inscrit
IF c(cas%) = 6 THEN h$ = "energies": GOTO inscrit
h$ = "dessert"

inscrit:

LOCATE 28, 1
PRINT cas%
LOCATE 28, 7
PRINT h$

ERASE one%
GET (a%, b%)-(a% + 14, b% + 14), one%
CIRCLE (7 + a%, 7 + b%), 6, 4

p% = 1


GOTO 300
menu1:

PLAY "MBT255O0L16CDCDCDCDCDCDCDCD"
FOR a = 10 TO 350
FOR b = 380 TO 416
PSET (a, b), 0
NEXT b
NEXT a
p% = 1
CONSTRUCTION

effacer1:

FOR a = 10 TO 35
FOR b = 388 TO 404
PSET (a, b), 0
NEXT b
NEXT a

FOR a = 112 TO 150
FOR b = 388 TO 404
PSET (a, b), 0
NEXT b
NEXT a

FOR a = 224 TO 260
FOR b = 388 TO 404
PSET (a, b), 0
NEXT b
NEXT a

PUT (10 + e%, 388), maine
poi:
    a$ = "z"
    DO UNTIL a$ = "4" OR a$ = "6" OR a$ = "5" OR a$ = "j"
    a$ = INKEY$
    LOOP

    IF a$ = "4" THEN p% = p% - 1
    IF a$ = "6" THEN p% = p% + 1
    IF a$ = "j" THEN GOTO 300
    IF a$ = "5" THEN GOTO menuinter
IF p% < 1 THEN p% = 1
IF p% > 3 THEN p% = 3
IF p% = 1 THEN e% = 0
IF p% = 2 THEN e% = 112
IF p% = 3 THEN e% = 224

GOTO effacer1

menuinter:



IF p% = 1 THEN GOTO batiment
IF p% = 2 THEN GOTO VEHICULE
IF p% = 3 THEN GOTO navire

batiment:
navire:
VEHICULE:
p% = 1
FOR a = 10 TO 350
FOR b = 380 TO 416
PSET (a, b), 0
NEXT b
NEXT a

vehiculebouclier:


FOR a = 10 TO 35
FOR b = 388 TO 404
PSET (a, b), 0
NEXT b
NEXT a

FOR a = 112 TO 150
FOR b = 388 TO 404
PSET (a, b), 0
NEXT b
NEXT a

FOR a = 224 TO 260
FOR b = 388 TO 404
PSET (a, b), 0
NEXT b
NEXT a

VEHICULEB
PUT (10 + e%, 388), maine

a$ = "z"
    DO UNTIL a$ = "4" OR a$ = "6" OR a$ = "5" OR a$ = "j"
    a$ = INKEY$
    LOOP

    IF a$ = "4" THEN p% = p% - 1
    IF a$ = "6" THEN p% = p% + 1
    IF a$ = "j" THEN GOTO 300
    IF a$ = "5" THEN GOTO menuinter2
IF p% < 1 THEN p% = 1
IF p% > 3 THEN p% = 3
IF p% = 1 THEN e% = 0
IF p% = 2 THEN e% = 112
IF p% = 3 THEN e% = 224
GOTO vehiculebouclier

menuinter2:
IF p% = 1 THEN nunideb% = 1: eb% = 55
IF p% = 2 THEN nunideb% = 2: eb% = 164
IF p% = 3 THEN nunideb% = 3: eb% = 271

DIM unibou%(75)

GET (eb%, 410)-(eb% + 14, 416), unibou%



p% = 1
FOR a = 10 TO 350
FOR b = 380 TO 416
PSET (a, b), 0
NEXT b
NEXT a

PUT (55, 410), unibou%
PUT (164, 410), unibou%
PUT (271, 410), unibou%

vehiculedeplacement:

FOR a = 10 TO 35
FOR b = 388 TO 404
PSET (a, b), 0
NEXT b
NEXT a

FOR a = 112 TO 150
FOR b = 388 TO 404
PSET (a, b), 0
NEXT b
NEXT a

FOR a = 224 TO 260
FOR b = 388 TO 404
PSET (a, b), 0
NEXT b
NEXT a

VEHICULED


PUT (10 + e%, 388), maine

a$ = "z"
    DO UNTIL a$ = "4" OR a$ = "6" OR a$ = "5" OR a$ = "j"
    a$ = INKEY$
    LOOP

    IF a$ = "4" THEN p% = p% - 1
    IF a$ = "6" THEN p% = p% + 1
    IF a$ = "j" THEN GOTO 300
    IF a$ = "5" THEN GOTO menuinter3
IF p% < 1 THEN p% = 1
IF p% > 3 THEN p% = 3
IF p% = 1 THEN e% = 0
IF p% = 2 THEN e% = 112
IF p% = 3 THEN e% = 224
GOTO vehiculedeplacement

menuinter3:
IF p% = 1 THEN nunided% = 1: ed% = 55
IF p% = 2 THEN nunided% = 2: ed% = 164
IF p% = 3 THEN nunided% = 3: ed% = 271

DIM unidep%(75)

GET (eb%, 410)-(eb% + 14, 416), unidep%



p% = 1
FOR a = 10 TO 350
FOR b = 380 TO 416
PSET (a, b), 0
NEXT b
NEXT a

PUT (55, 410), unidep%
PUT (164, 410), unidep%
PUT (271, 410), unidep%

vehiculeattaque:

FOR a = 10 TO 35
FOR b = 388 TO 404
PSET (a, b), 0
NEXT b
NEXT a

FOR a = 112 TO 150
FOR b = 388 TO 404
PSET (a, b), 0
NEXT b
NEXT a

FOR a = 224 TO 260
FOR b = 388 TO 404
PSET (a, b), 0
NEXT b
NEXT a

VEHICULEA


PUT (10 + e%, 388), maine

a$ = "z"
    DO UNTIL a$ = "4" OR a$ = "6" OR a$ = "5" OR a$ = "j"
    a$ = INKEY$
    LOOP

    IF a$ = "4" THEN p% = p% - 1
    IF a$ = "6" THEN p% = p% + 1
    IF a$ = "j" THEN GOTO 300
    IF a$ = "5" THEN GOTO menuinter4
IF p% < 1 THEN p% = 1
IF p% > 3 THEN p% = 3
IF p% = 1 THEN e% = 0
IF p% = 2 THEN e% = 112
IF p% = 3 THEN e% = 224
GOTO vehiculeattaque

menuinter4:

IF p% = 1 THEN nunidea% = 1: ea% = 55
IF p% = 2 THEN nunidea% = 2: ea% = 164
IF p% = 3 THEN nunidea% = 3: ea% = 271

unit% = unit% + 1
DIM uniter%(50)

GET (eb%, 410)-(eb% + 14, 416), uniter%(unit%)

unitera(unit%) = nunidea%
uniterb(unit%) = nunideb%
uniterd(unit%) = nunided%




c% = INT(RND * 19 + 1)
IF c% = 1 THEN c1$ = "B"
IF c% = 2 THEN c1$ = "C"
IF c% = 3 THEN c1$ = "D"
IF c% = 4 THEN c1$ = "F"
IF c% = 5 THEN c1$ = "G"
IF c% = 6 THEN c1$ = "Y"
IF c% = 7 THEN c1$ = "J"
IF c% = 8 THEN c1$ = "K"
IF c% = 9 THEN c1$ = "L"
IF c% = 10 THEN c1$ = "M"
IF c% = 11 THEN c1$ = "N"
IF c% = 12 THEN c1$ = "P"
IF c% = 13 THEN c1$ = "Q"
IF c% = 14 THEN c1$ = "R"
IF c% = 15 THEN c1$ = "S"
IF c% = 16 THEN c1$ = "T"
IF c% = 17 THEN c1$ = "V"
IF c% = 18 THEN c1$ = "W"
IF c% = 19 THEN c1$ = "X"
IF c% = 20 THEN c1$ = "Z"

D% = INT(RND * 5 + 1)
IF D% = 1 THEN v1$ = "A"
IF D% = 2 THEN v1$ = "E"
IF D% = 3 THEN v1$ = "I"
IF D% = 4 THEN v1$ = "O"
IF D% = 5 THEN v1$ = "U"
IF D% = 6 THEN v1$ = "Y"

c% = INT(RND * 19 + 1)
IF c% = 1 THEN c2$ = "B"
IF c% = 2 THEN c2$ = "C"
IF c% = 3 THEN c2$ = "D"
IF c% = 4 THEN c2$ = "F"
IF c% = 5 THEN c2$ = "G"
IF c% = 6 THEN c2$ = "H"
IF c% = 7 THEN c2$ = "J"
IF c% = 8 THEN c2$ = "K"
IF c% = 9 THEN c2$ = "L"
IF c% = 10 THEN c2$ = "M"
IF c% = 11 THEN c2$ = "N"
IF c% = 12 THEN c2$ = "P"
IF c% = 13 THEN c2$ = "Q"
IF c% = 14 THEN c2$ = "R"
IF c% = 15 THEN c2$ = "S"
IF c% = 16 THEN c2$ = "T"
IF c% = 17 THEN c2$ = "V"
IF c% = 18 THEN c2$ = "W"
IF c% = 19 THEN c2$ = "X"
IF c% = 20 THEN c2$ = "Z"

D% = INT(RND * 5 + 1)
IF D% = 1 THEN v2$ = "A"
IF D% = 2 THEN v2$ = "E"
IF D% = 3 THEN v2$ = "I"
IF D% = 4 THEN v2$ = "O"
IF D% = 5 THEN v2$ = "U"
IF D% = 6 THEN v2$ = "Y"

unitern$(unit%) = "ta mŠre"

unitern$(unit%) = c1$ + v1$ + c2$ + v2$

CLS
COLOR 4
PRINT "votre nouvelle unit‚ s'appelle "; unitern$(unit%); " .Elle possŠde "; unitera(unit%); " d'attaque, "; uniterb(unit%); " de defense et "; uniterd(unit%); " de d‚placement."

SUB cadre

FOR a = 1 TO 5
FOR b = 1 TO 343
PSET (a, b), 8
NEXT b
NEXT a

FOR a = 1 TO 5
FOR b = 6 TO 358
PSET (b, a), 8
NEXT b
NEXT a

FOR a = 353 TO 358
FOR b = 1 TO 342
PSET (a, b), 8
NEXT b
NEXT a

FOR a = 338 TO 343
FOR b = 6 TO 358
PSET (b, a), 8
NEXT b
NEXT a

FOR a = 1 TO 200
PSET (RND * 4 + 1, RND * 342 + 1), 7
NEXT a

FOR a = 1 TO 200
PSET (RND * 352 + 6, RND * 4 + 1), 7
NEXT a

FOR a = 1 TO 200
PSET (RND * 5 + 353, RND * 341 + 1), 7
NEXT a

FOR a = 1 TO 200
PSET (RND * 352 + 6, RND * 5 + 338), 7
NEXT a

FOR a = 1 TO 200
PSET (RND * 4 + 1, RND * 342 + 1), 15
NEXT a

FOR a = 1 TO 200
PSET (RND * 352 + 6, RND * 4 + 1), 15
NEXT a

FOR a = 1 TO 200
PSET (RND * 5 + 353, RND * 341 + 1), 15
NEXT a

FOR a = 1 TO 200
PSET (RND * 352 + 6, RND * 5 + 338), 15
NEXT a

FOR a = 1 TO 500
PSET (RND * 4 + 1, RND * 342 + 1), 0
NEXT a

FOR a = 1 TO 500
PSET (RND * 352 + 6, RND * 4 + 1), 0
NEXT a

FOR a = 1 TO 500
PSET (RND * 5 + 353, RND * 341 + 1), 0
NEXT a

FOR a = 1 TO 500
PSET (RND * 352 + 6, RND * 5 + 338), 0
NEXT a

FOR a = 1 TO 200
PSET (RND * 4 + 1, RND * 342 + 1), 4
NEXT a

FOR a = 1 TO 200
PSET (RND * 352 + 6, RND * 4 + 1), 4
NEXT a

FOR a = 1 TO 200
PSET (RND * 5 + 353, RND * 341 + 1), 4
NEXT a

FOR a = 1 TO 200
PSET (RND * 352 + 6, RND * 5 + 338), 4
NEXT a

END SUB

SUB car
desert:

FOR a = 1 TO 15
FOR b = 1 TO 15
PSET (a, b), 14
NEXT b
NEXT a

FOR a = 1 TO 22
PSET ((RND * 14) + 1, (RND * 14) + 1), 6
NEXT a

DIM desert(1000)
GET (1, 1)-(15, 15), desert
CLS
mer:

FOR a = 1 TO 15
FOR b = 1 TO 15
PSET (a, b), 1
NEXT b
NEXT a

FOR a = 1 TO 30
PSET ((RND * 14) + 1, (RND * 14) + 1), 9
NEXT a

FOR a = 1 TO 3
PSET ((RND * 14) + 1, (RND * 14) + 1), 8
NEXT a

DIM mer(1000)
GET (1, 1)-(15, 15), mer
CLS
lac:

FOR a = 1 TO 15
FOR b = 1 TO 15
PSET (a, b), 14
NEXT b
NEXT a

FOR a = 1 TO 20
PSET ((RND * 14) + 1, (RND * 14) + 1), 6
NEXT a

FOR a = 4 TO 11
FOR b = 4 TO 11
PSET (a, b), 1
NEXT b
NEXT a

FOR a = 1 TO 50
PSET ((RND * 7) + 4, (RND * 7) + 4), 9
NEXT a

FOR a = 1 TO 100
PSET ((RND * 11) + 2, (RND * 11) + 2), 1
NEXT a

DIM lac(1000)
GET (1, 1)-(15, 15), lac
CLS
cocq:

FOR a = 1 TO 15
FOR b = 1 TO 15
PSET (a, b), 14
NEXT b
NEXT a

FOR a = 1 TO 20
PSET ((RND * 14) + 1, (RND * 14) + 1), 6
NEXT a

FOR a = 1 TO 100
PSET ((RND * 11) + 2, (RND * 11) + 2), 2
NEXT a

FOR a = 1 TO 100
PSET ((RND * 11) + 2, (RND * 11) + 2), 4
NEXT a

DIM cocq(1000)
GET (1, 1)-(15, 15), cocq
CLS
cote1:

FOR a = 1 TO 15
FOR b = 1 TO 15
PSET (a, b), 1
NEXT b
NEXT a

FOR a = 1 TO 50
PSET ((RND * 14) + 1, (RND * 14) + 1), 9
NEXT a



LINE (15, 1)-(1, 15), 14
LINE (15, 2)-(2, 15), 14
LINE (15, 3)-(3, 15), 14
LINE (15, 4)-(4, 15), 14
LINE (15, 5)-(5, 15), 14
LINE (15, 6)-(6, 15), 14
LINE (15, 7)-(7, 15), 14
LINE (15, 8)-(8, 15), 14
LINE (15, 9)-(9, 15), 14
LINE (15, 10)-(10, 15), 14
LINE (15, 11)-(11, 15), 14
LINE (15, 12)-(12, 15), 14
LINE (15, 13)-(13, 15), 14
LINE (15, 14)-(14, 15), 14
LINE (15, 15)-(15, 15), 14

PSET (9, 9), 6
PSET (15, 2), 6
PSET (7, 10), 6
PSET (2, 15), 6
PSET (13, 14), 6
PSET (9, 12), 6
PSET (13, 4), 6
PSET (12, 7), 6
PSET (5, 14), 6
PSET (12, 12), 6
PSET (8, 8), 1
PSET (9, 9), 1
PSET (12, 5), 1
PSET (11, 5), 1
PSET (14, 2), 1

FOR a = 1 TO 50
PSET ((RND * 3) + 6, (RND * 3) + 6), 1
NEXT a

FOR a = 1 TO 50
PSET ((RND * 3) + 9, (RND * 3) + 3), 1
NEXT a

DIM cote1(1000)
GET (1, 1)-(15, 15), cote1
CLS
cote2:

FOR a = 1 TO 15
FOR b = 1 TO 15
PSET (a, b), 14
NEXT b
NEXT a

FOR a = 1 TO 50
PSET ((RND * 14) + 1, (RND * 14) + 1), 6
NEXT a


LINE (15, 1)-(1, 15), 1
LINE (15, 2)-(2, 15), 1
LINE (15, 3)-(3, 15), 1
LINE (15, 4)-(4, 15), 1
LINE (15, 5)-(5, 15), 1
LINE (15, 6)-(6, 15), 1
LINE (15, 7)-(7, 15), 1
LINE (15, 8)-(8, 15), 1
LINE (15, 9)-(9, 15), 1
LINE (15, 10)-(10, 15), 1
LINE (15, 11)-(11, 15), 1
LINE (15, 12)-(12, 15), 1
LINE (15, 13)-(13, 15), 1
LINE (15, 14)-(14, 15), 1
LINE (15, 15)-(15, 15), 1

PSET (9, 9), 9
PSET (15, 2), 9
PSET (7, 10), 9
PSET (2, 15), 9
PSET (13, 14), 9
PSET (9, 12), 9
PSET (13, 4), 9
PSET (12, 7), 9
PSET (5, 14), 9
PSET (12, 12), 9

PSET (6, 8), 1
PSET (7, 9), 1
PSET (10, 5), 1
PSET (9, 5), 1
PSET (12, 2), 1

FOR a = 1 TO 50
PSET ((RND * 3) + 6, (RND * 3) + 6), 1
NEXT a

FOR a = 1 TO 50
PSET ((RND * 3) + 9, (RND * 3) + 3), 1
NEXT a


DIM cote2(75)
GET (1, 1)-(15, 15), cote2
CLS
cote3:

FOR a = 1 TO 15
FOR b = 1 TO 15
PSET (a, b), 14
NEXT b
NEXT a

FOR a = 1 TO 50
PSET ((RND * 14) + 1, (RND * 14) + 1), 6
NEXT a


LINE (1, 1)-(15, 15), 1
LINE (1, 2)-(14, 15), 1
LINE (1, 3)-(13, 15), 1
LINE (1, 4)-(12, 15), 1
LINE (1, 5)-(11, 15), 1
LINE (1, 6)-(10, 15), 1
LINE (1, 7)-(9, 15), 1
LINE (1, 8)-(8, 15), 1
LINE (1, 9)-(7, 15), 1
LINE (1, 10)-(6, 15), 1
LINE (1, 11)-(5, 15), 1
LINE (1, 12)-(4, 15), 1
LINE (1, 13)-(3, 15), 1
LINE (1, 14)-(2, 15), 1
LINE (1, 15)-(1, 15), 1

PSET (1, 2), 9
PSET (4, 7), 9
PSET (5, 14), 9
PSET (8, 12), 9
PSET (2, 12), 9
PSET (12, 13), 9
PSET (10, 10), 9
PSET (2, 5), 9
PSET (2, 8), 9
PSET (5, 10), 9
PSET (9, 14), 9

FOR a = 1 TO 50
PSET ((RND * 3) + 6, (RND * 3) + 6), 1
NEXT a

FOR a = 1 TO 50
PSET ((RND * 3) + 9, (RND * 3) + 9), 1
NEXT a

DIM cote3(50)
GET (1, 1)-(15, 15), cote3
CLS
cote4:

FOR a = 1 TO 15
FOR b = 1 TO 15
PSET (a, b), 1
NEXT b
NEXT a

FOR a = 1 TO 30
PSET ((RND * 14) + 1, (RND * 14) + 1), 9
NEXT a

LINE (1, 2)-(14, 15), 14
LINE (1, 3)-(13, 15), 14
LINE (1, 4)-(12, 15), 14
LINE (1, 5)-(11, 15), 14
LINE (1, 6)-(10, 15), 14
LINE (1, 7)-(9, 15), 14
LINE (1, 8)-(8, 15), 14
LINE (1, 9)-(7, 15), 14
LINE (1, 10)-(6, 15), 14
LINE (1, 11)-(5, 15), 14
LINE (1, 12)-(4, 15), 14
LINE (1, 13)-(3, 15), 14
LINE (1, 14)-(2, 15), 14
LINE (1, 15)-(1, 15), 14

PSET (1, 2), 6
PSET (4, 7), 6
PSET (5, 14), 6
PSET (8, 12), 6
PSET (2, 12), 6
PSET (12, 13), 6
PSET (10, 10), 6
PSET (2, 5), 6
PSET (2, 8), 6
PSET (5, 10), 6
PSET (9, 14), 6

FOR a = 1 TO 50
PSET ((RND * 3) + 6, (RND * 3) + 6), 1
NEXT a

FOR a = 1 TO 50
PSET ((RND * 3) + 9, (RND * 3) + 9), 1
NEXT a


DIM cote4(50)
GET (1, 1)-(15, 15), cote4
CLS
met:

FOR a = 1 TO 15
FOR b = 1 TO 15
PSET (a, b), 14
NEXT b
NEXT a

FOR a = 1 TO 20
PSET ((RND * 14) + 1, (RND * 14) + 1), 6
NEXT a

PSET (2, 3), 7
PSET (2, 4), 7
PSET (3, 2), 8
PSET (3, 3), 7
PSET (3, 4), 7
PSET (3, 5), 7
PSET (4, 2), 8
PSET (4, 3), 7
PSET (4, 4), 7
PSET (4, 5), 7
PSET (5, 3), 7
PSET (5, 4), 8

PSET (11, 6), 8
PSET (11, 7), 7
PSET (12, 5), 7
PSET (12, 6), 8
PSET (12, 7), 7
PSET (12, 8), 7
PSET (13, 5), 8
PSET (13, 6), 7
PSET (13, 7), 7
PSET (13, 8), 8
PSET (14, 6), 7
PSET (14, 7), 8

PSET (4, 10), 7
PSET (4, 11), 8
PSET (5, 8), 7
PSET (5, 9), 7
PSET (5, 10), 7
PSET (5, 11), 8
PSET (5, 12), 7
PSET (6, 7), 7
PSET (6, 8), 7
PSET (6, 9), 8
PSET (6, 10), 7
PSET (6, 11), 8
PSET (6, 12), 7
PSET (6, 13), 8
PSET (7, 7), 7
PSET (7, 8), 8
PSET (7, 9), 7
PSET (7, 10), 8
PSET (7, 11), 7
PSET (7, 12), 7
PSET (7, 13), 7
PSET (8, 7), 7
PSET (8, 8), 7
PSET (8, 9), 8
PSET (8, 10), 7
PSET (8, 11), 8
PSET (8, 12), 7
PSET (8, 13), 7
PSET (9, 7), 7
PSET (9, 8), 7
PSET (9, 9), 8
PSET (9, 10), 7
PSET (9, 11), 7
PSET (9, 12), 8
PSET (9, 13), 7
PSET (11, 10), 8
PSET (11, 11), 7
PSET (10, 8), 7
PSET (10, 9), 7
PSET (10, 10), 7
PSET (10, 11), 7
PSET (10, 12), 7
PSET (2, 10), 7
PSET (2, 11), 8
PSET (3, 8), 7
PSET (3, 9), 8
PSET (3, 10), 7
PSET (3, 11), 7
PSET (3, 12), 7
PSET (4, 7), 7
PSET (4, 8), 8
PSET (4, 9), 7
PSET (4, 10), 7
PSET (4, 11), 8
PSET (4, 12), 7
PSET (4, 13), 8

DIM met(50)
GET (1, 1)-(15, 15), met
CLS
ener:

FOR a = 1 TO 15
FOR b = 1 TO 15
PSET (a, b), 14
NEXT b
NEXT a

FOR a = 1 TO 70
PSET ((RND * 14) + 1, (RND * 14) + 1), 6
NEXT a

CIRCLE (8, 8), 4, 8
CIRCLE (8, 8), 5, 8
CIRCLE (8, 8), 6, 8
CIRCLE (8, 8), 7, 8
CIRCLE (8, 8), 1, 2
CIRCLE (8, 8), 2, 2
CIRCLE (8, 8), 3, 2
CIRCLE (8, 8), 0, 2

FOR a = 5 TO 10
FOR b = 5 TO 10
PSET (a, b), 2
NEXT b
NEXT a

PSET (8, 2), 15
PSET (3, 7), 15
PSET (13, 8), 15
PSET (8, 13), 15

DIM ener(75)
GET (1, 1)-(15, 15), ener

CLS
carte:
PUT (7, 7), mer
PUT (7, 22), mer
PUT (7, 37), mer
PUT (7, 52), mer
PUT (7, 67), mer
PUT (7, 82), mer
PUT (7, 97), mer
PUT (7, 112), mer
PUT (7, 127), mer
PUT (7, 142), mer
PUT (7, 157), mer
PUT (7, 172), mer
PUT (7, 187), mer
PUT (7, 202), mer
PUT (7, 217), mer
PUT (7, 232), mer
PUT (7, 247), mer
PUT (7, 262), mer
PUT (7, 277), mer
PUT (7, 292), mer
PUT (7, 307), mer
PUT (7, 322), mer

PUT (22, 7), mer
PUT (22, 22), cote1
PUT (22, 37), desert
PUT (22, 52), desert
PUT (22, 67), cote3
PUT (22, 82), mer
PUT (22, 97), mer
PUT (22, 112), cote1
PUT (22, 127), cote3
PUT (22, 142), mer
PUT (22, 157), cote1
PUT (22, 172), desert
PUT (22, 187), desert
PUT (22, 202), desert
PUT (22, 217), desert
PUT (22, 232), cote3
PUT (22, 247), mer
PUT (22, 262), desert
PUT (22, 277), desert
PUT (22, 292), cote3
PUT (22, 307), cote1
PUT (22, 322), desert

PUT (37, 7), mer
PUT (37, 22), desert
PUT (37, 37), desert
PUT (37, 52), lac
PUT (37, 67), desert
PUT (37, 82), desert
PUT (37, 97), desert
PUT (37, 112), desert
PUT (37, 127), desert
PUT (37, 142), desert
PUT (37, 157), desert
PUT (37, 172), desert
PUT (37, 187), met
PUT (37, 202), desert
PUT (37, 217), desert
PUT (37, 232), desert
PUT (37, 247), desert
PUT (37, 262), lac
PUT (37, 277), desert
PUT (37, 292), desert
PUT (37, 307), desert
PUT (37, 322), desert

PUT (52, 7), mer
PUT (52, 22), cote4
PUT (52, 37), desert
PUT (52, 52), desert
PUT (52, 67), desert
PUT (52, 82), desert
PUT (52, 97), desert
PUT (52, 112), ener
PUT (52, 127), desert
PUT (52, 142), desert
PUT (52, 157), desert
PUT (52, 172), desert
PUT (52, 187), desert
PUT (52, 202), desert
PUT (52, 217), desert
PUT (52, 232), desert
PUT (52, 247), desert
PUT (52, 262), desert
PUT (52, 277), desert
PUT (52, 292), desert
PUT (52, 307), desert
PUT (52, 322), cocq

a = 67
PUT (a, 7), mer
PUT (a, 22), mer
PUT (a, 37), desert
PUT (a, 52), desert
PUT (a, 67), desert
PUT (a, 82), desert
PUT (a, 97), desert
PUT (a, 112), desert
PUT (a, 127), desert
PUT (a, 142), desert
PUT (a, 157), desert
PUT (a, 172), desert
PUT (a, 187), desert
PUT (a, 202), lac
PUT (a, 217), desert
PUT (a, 232), desert
PUT (a, 247), desert
PUT (a, 262), desert
PUT (a, 277), desert
PUT (a, 292), desert
PUT (a, 307), desert
PUT (a, 322), desert

a = a + 15
PUT (a, 7), mer
PUT (a, 22), mer
PUT (a, 37), desert
PUT (a, 52), desert
PUT (a, 67), desert
PUT (a, 82), met
PUT (a, 97), desert
PUT (a, 112), desert
PUT (a, 127), desert
PUT (a, 142), desert
PUT (a, 157), desert
PUT (a, 172), desert
PUT (a, 187), desert
PUT (a, 202), desert
PUT (a, 217), desert
PUT (a, 232), desert
PUT (a, 247), desert
PUT (a, 262), desert
PUT (a, 277), ener
PUT (a, 292), desert
PUT (a, 307), desert
PUT (a, 322), desert

a = a + 15
PUT (a, 7), mer
PUT (a, 22), mer
PUT (a, 37), desert
PUT (a, 52), desert
PUT (a, 67), desert
PUT (a, 82), desert
PUT (a, 97), desert
PUT (a, 112), desert
PUT (a, 127), desert
PUT (a, 142), cocq
PUT (a, 157), desert
PUT (a, 172), desert
PUT (a, 187), desert
PUT (a, 202), desert
PUT (a, 217), desert
PUT (a, 232), desert
PUT (a, 247), met
PUT (a, 262), desert
PUT (a, 277), desert
PUT (a, 292), desert
PUT (a, 307), desert
PUT (a, 322), desert

a = a + 15
PUT (a, 7), mer
PUT (a, 22), cote1
PUT (a, 37), desert
PUT (a, 52), desert
PUT (a, 67), desert
PUT (a, 82), desert
PUT (a, 97), desert
PUT (a, 112), lac
PUT (a, 127), desert
PUT (a, 142), desert
PUT (a, 157), desert
PUT (a, 172), desert
PUT (a, 187), desert
PUT (a, 202), desert
PUT (a, 217), desert
PUT (a, 232), desert
PUT (a, 247), desert
PUT (a, 262), desert
PUT (a, 277), desert
PUT (a, 292), desert
PUT (a, 307), desert
PUT (a, 322), desert

a = a + 15
PUT (a, 7), mer
PUT (a, 22), cote4
PUT (a, 37), desert
PUT (a, 52), desert
PUT (a, 67), desert
PUT (a, 82), met
PUT (a, 97), desert
PUT (a, 112), desert
PUT (a, 127), desert
PUT (a, 142), desert
PUT (a, 157), desert
PUT (a, 172), desert
PUT (a, 187), desert
PUT (a, 202), desert
PUT (a, 217), desert
PUT (a, 232), desert
PUT (a, 247), desert
PUT (a, 262), desert
PUT (a, 277), desert
PUT (a, 292), ener
PUT (a, 307), desert
PUT (a, 322), desert

a = a + 15
PUT (a, 7), mer
PUT (a, 22), mer
PUT (a, 37), cote4
PUT (a, 52), desert
PUT (a, 67), desert
PUT (a, 82), desert
PUT (a, 97), desert
PUT (a, 112), desert
PUT (a, 127), desert
PUT (a, 142), desert
PUT (a, 157), desert
PUT (a, 172), desert
PUT (a, 187), desert
PUT (a, 202), cocq
PUT (a, 217), desert
PUT (a, 232), desert
PUT (a, 247), desert
PUT (a, 262), desert
PUT (a, 277), desert
PUT (a, 292), desert
PUT (a, 307), desert
PUT (a, 322), desert

a = a + 15
PUT (a, 7), mer
PUT (a, 22), mer
PUT (a, 37), desert
PUT (a, 52), desert
PUT (a, 67), desert
PUT (a, 82), lac
PUT (a, 97), desert
PUT (a, 112), desert
PUT (a, 127), desert
PUT (a, 142), desert
PUT (a, 157), desert
PUT (a, 172), desert
PUT (a, 187), desert
PUT (a, 202), desert
PUT (a, 217), desert
PUT (a, 232), desert
PUT (a, 247), desert
PUT (a, 262), desert
PUT (a, 277), desert
PUT (a, 292), met
PUT (a, 307), desert
PUT (a, 322), desert

a = a + 15
PUT (a, 7), mer
PUT (a, 22), cote1
PUT (a, 37), desert
PUT (a, 52), desert
PUT (a, 67), desert
PUT (a, 82), desert
PUT (a, 97), ener
PUT (a, 112), desert
PUT (a, 127), desert
PUT (a, 142), desert
PUT (a, 157), desert
PUT (a, 172), desert
PUT (a, 187), desert
PUT (a, 202), desert
PUT (a, 217), desert
PUT (a, 232), desert
PUT (a, 247), desert
PUT (a, 262), desert
PUT (a, 277), desert
PUT (a, 292), desert
PUT (a, 307), desert
PUT (a, 322), desert

a = a + 15
PUT (a, 7), mer
PUT (a, 22), desert
PUT (a, 37), desert
PUT (a, 52), desert
PUT (a, 67), desert
PUT (a, 82), desert
PUT (a, 97), desert
PUT (a, 112), desert
PUT (a, 127), desert
PUT (a, 142), desert
PUT (a, 157), desert
PUT (a, 172), desert
PUT (a, 187), desert
PUT (a, 202), desert
PUT (a, 217), met
PUT (a, 232), desert
PUT (a, 247), desert
PUT (a, 262), desert
PUT (a, 277), desert
PUT (a, 292), desert
PUT (a, 307), desert
PUT (a, 322), desert

a = a + 15
PUT (a, 7), mer
PUT (a, 22), mer
PUT (a, 37), desert
PUT (a, 52), lac
PUT (a, 67), desert
PUT (a, 82), desert
PUT (a, 97), desert
PUT (a, 112), desert
PUT (a, 127), desert
PUT (a, 142), desert
PUT (a, 157), desert
PUT (a, 172), desert
PUT (a, 187), desert
PUT (a, 202), desert
PUT (a, 217), desert
PUT (a, 232), desert
PUT (a, 247), desert
PUT (a, 262), desert
PUT (a, 277), desert
PUT (a, 292), desert
PUT (a, 307), desert
PUT (a, 322), desert

a = a + 15
PUT (a, 7), mer
PUT (a, 22), mer
PUT (a, 37), desert
PUT (a, 52), desert
PUT (a, 67), desert
PUT (a, 82), desert
PUT (a, 97), desert
PUT (a, 112), desert
PUT (a, 127), desert
PUT (a, 142), desert
PUT (a, 157), desert
PUT (a, 172), desert
PUT (a, 187), desert
PUT (a, 202), cocq
PUT (a, 217), desert
PUT (a, 232), desert
PUT (a, 247), desert
PUT (a, 262), desert
PUT (a, 277), desert
PUT (a, 292), desert
PUT (a, 307), desert
PUT (a, 322), desert

a = a + 15
PUT (a, 7), mer
PUT (a, 22), cote1
PUT (a, 37), desert
PUT (a, 52), desert
PUT (a, 67), desert
PUT (a, 82), desert
PUT (a, 97), desert
PUT (a, 112), desert
PUT (a, 127), desert
PUT (a, 142), desert
PUT (a, 157), desert
PUT (a, 172), desert
PUT (a, 187), desert
PUT (a, 202), desert
PUT (a, 217), desert
PUT (a, 232), desert
PUT (a, 247), desert
PUT (a, 262), desert
PUT (a, 277), met
PUT (a, 292), desert
PUT (a, 307), desert
PUT (a, 322), desert

a = a + 15
PUT (a, 7), mer
PUT (a, 22), desert
PUT (a, 37), desert
PUT (a, 52), desert
PUT (a, 67), desert
PUT (a, 82), desert
PUT (a, 97), desert
PUT (a, 112), desert
PUT (a, 127), desert
PUT (a, 142), ener
PUT (a, 157), desert
PUT (a, 172), desert
PUT (a, 187), desert
PUT (a, 202), desert
PUT (a, 217), desert
PUT (a, 232), desert
PUT (a, 247), desert
PUT (a, 262), desert
PUT (a, 277), desert
PUT (a, 292), desert
PUT (a, 307), desert
PUT (a, 322), desert

a = a + 15
PUT (a, 7), mer
PUT (a, 22), desert
PUT (a, 37), desert
PUT (a, 52), desert
PUT (a, 67), desert
PUT (a, 82), desert
PUT (a, 97), desert
PUT (a, 112), desert
PUT (a, 127), met
PUT (a, 142), desert
PUT (a, 157), desert
PUT (a, 172), desert
PUT (a, 187), desert
PUT (a, 202), desert
PUT (a, 217), desert
PUT (a, 232), desert
PUT (a, 247), desert
PUT (a, 262), desert
PUT (a, 277), desert
PUT (a, 292), desert
PUT (a, 307), cocq
PUT (a, 322), desert

a = a + 15
PUT (a, 7), mer
PUT (a, 22), desert
PUT (a, 37), desert
PUT (a, 52), desert
PUT (a, 67), desert
PUT (a, 82), desert
PUT (a, 97), desert
PUT (a, 112), desert
PUT (a, 127), desert
PUT (a, 142), desert
PUT (a, 157), desert
PUT (a, 172), desert
PUT (a, 187), desert
PUT (a, 202), desert
PUT (a, 217), desert
PUT (a, 232), desert
PUT (a, 247), lac
PUT (a, 262), desert
PUT (a, 277), desert
PUT (a, 292), desert
PUT (a, 307), desert
PUT (a, 322), desert

a = a + 15
PUT (a, 7), mer
PUT (a, 22), cote4
PUT (a, 37), desert
PUT (a, 52), desert
PUT (a, 67), desert
PUT (a, 82), desert
PUT (a, 97), cocq
PUT (a, 112), desert
PUT (a, 127), desert
PUT (a, 142), desert
PUT (a, 157), desert
PUT (a, 172), desert
PUT (a, 187), desert
PUT (a, 202), desert
PUT (a, 217), desert
PUT (a, 232), desert
PUT (a, 247), desert
PUT (a, 262), desert
PUT (a, 277), desert
PUT (a, 292), desert
PUT (a, 307), desert
PUT (a, 322), desert

a = a + 15
PUT (a, 7), mer
PUT (a, 22), mer
PUT (a, 37), desert
PUT (a, 52), desert
PUT (a, 67), desert
PUT (a, 82), desert
PUT (a, 97), desert
PUT (a, 112), desert
PUT (a, 127), desert
PUT (a, 142), desert
PUT (a, 157), desert
PUT (a, 172), desert
PUT (a, 187), desert
PUT (a, 202), desert
PUT (a, 217), desert
PUT (a, 232), desert
PUT (a, 247), desert
PUT (a, 262), lac
PUT (a, 277), desert
PUT (a, 292), desert
PUT (a, 307), desert
PUT (a, 322), desert

a = a + 15
PUT (a, 7), mer
PUT (a, 22), cote1
PUT (a, 37), desert
PUT (a, 52), desert
PUT (a, 67), desert
PUT (a, 82), ener
PUT (a, 97), desert
PUT (a, 112), desert
PUT (a, 127), desert
PUT (a, 142), desert
PUT (a, 157), desert
PUT (a, 172), desert
PUT (a, 187), desert
PUT (a, 202), desert
PUT (a, 217), met
PUT (a, 232), desert
PUT (a, 247), desert
PUT (a, 262), desert
PUT (a, 277), cocq
PUT (a, 292), desert
PUT (a, 307), desert
PUT (a, 322), desert

a = a + 15
PUT (a, 7), mer
PUT (a, 22), desert
PUT (a, 37), desert
PUT (a, 52), desert
PUT (a, 67), desert
PUT (a, 82), desert
PUT (a, 97), desert
PUT (a, 112), desert
PUT (a, 127), desert
PUT (a, 142), desert
PUT (a, 157), cocq
PUT (a, 172), desert
PUT (a, 187), desert
PUT (a, 202), desert
PUT (a, 217), desert
PUT (a, 232), desert
PUT (a, 247), desert
PUT (a, 262), desert
PUT (a, 277), desert
PUT (a, 292), desert
PUT (a, 307), desert
PUT (a, 322), desert

ERASE desert, cote1, cote2, cote3, cote4, mer, lac, cocq, met, ener








END SUB

SUB CONSTRUCTION

COLOR 4
LOCATE 23, 18
PRINT "CONSTRUCTION"
LOCATE 25, 6
PRINT "batiments"
LOCATE 25, 20
PRINT "v‚hicule"
LOCATE 25, 34
PRINT "navire"

END SUB

SUB main

FOR a = 1 TO 26
FOR b = 1 TO 14
PSET (a, b), 7
NEXT b
NEXT a

LINE (10, 1)-(13, 1), 0
LINE (4, 2)-(6, 2), 0
LINE (8, 2)-(9, 2), 0
PSET (14, 2), 0
PSET (3, 3), 0
PSET (7, 3), 0
LINE (15, 3)-(25, 3), 0
PSET (2, 4), 0
PSET (26, 4), 0
PSET (2, 5), 0
PSET (26, 5), 0
PSET (1, 6), 0
LINE (16, 6)-(25, 6), 0
PSET (1, 7), 0
PSET (15, 7), 0
PSET (18, 7), 0
LINE (1, 8)-(2, 11), 0
LINE (1, 8)-(2, 11), 0
PSET (8, 13), 0
LINE (19, 7)-(22, 10), 0
LINE (3, 12)-(7, 12), 0
LINE (9, 14)-(10, 14), 0
LINE (16, 8)-(16, 11), 0
LINE (18, 12)-(21, 12), 0
PSET (22, 11), 0
PSET (17, 11), 0
LINE (11, 11)-(11, 13), 0
PSET (10, 10), 0
LINE (13, 10)-(13, 12), 0
PSET (12, 13), 0
PSET (12, 9), 0
LINE (14, 12)-(15, 12), 0

FOR a = 15 TO 26
FOR b = 1 TO 2
PSET (a, b), 0
NEXT b
NEXT a

FOR a = 1 TO 3
FOR b = 1 TO 2
PSET (a, b), 0
NEXT b
NEXT a

FOR a = 1 TO 7
FOR b = 13 TO 14
PSET (a, b), 0
NEXT b
NEXT a

FOR a = 13 TO 26
FOR b = 13 TO 14
PSET (a, b), 0
NEXT b
NEXT a

PSET (26, 3), 0
PSET (7, 2), 0
LINE (1, 3)-(1, 5), 0
PSET (2, 3), 0
LINE (4, 1)-(9, 1), 0
PSET (14, 1), 0
LINE (1, 10)-(1, 13), 0
PSET (1, 9), 0
PSET (2, 12), 0
PSET (8, 14), 0

FOR a = 23 TO 26
FOR b = 7 TO 14
PSET (a, b), 0
NEXT b
NEXT a

PSET (22, 12), 0
LINE (16, 12)-(17, 12), 0

FOR a = 21 TO 22
FOR b = 7 TO 8
PSET (a, b), 0
NEXT b
NEXT a

PSET (20, 7), 0
PSET (22, 9), 0
PSET (26, 6), 0
PSET (12, 11), 7

LINE (1, 14)-(17, 14), 0
LINE (22, 10)-(20, 12), 0
PSET (21, 10), 0
PSET (20, 11), 0
PSET (25, 4), 0
PSET (18, 11), 0
PSET (19, 11), 0


END SUB

SUB menu
COLOR 4
LOCATE 2, 50
PRINT "JOUEUR ROUGE"
LOCATE 8, 50
PRINT "tank alfred"
COLOR 2
LOCATE 4, 50
PRINT "unit‚s : 12"
LOCATE 5, 50
PRINT "‚nergie : +235"
LOCATE 6, 50
PRINT "m‚taux : +123"

LOCATE 10, 50
PRINT "attaque : 30"
LOCATE 11, 50
PRINT "d‚fense : 90"
LOCATE 12, 50
PRINT "d‚placement : rapide"
LOCATE 13, 50
PRINT "blindage : moyen"
LOCATE 14, 50
PRINT "tir : roquettes"





END SUB

SUB VEHICULEA
COLOR 4
LOCATE 23, 18
PRINT "ATTAQUE       "
LOCATE 25, 6
PRINT "faible"
LOCATE 25, 20
PRINT "moyenne"
LOCATE 25, 34
PRINT "forte"
   
    FOR a% = 66 TO 69
    PSET (a%, 413), 7
    NEXT a%

    FOR a% = 172 TO 178
    PSET (a%, 413), 7
    NEXT a%

    FOR a% = 275 TO 285
    PSET (a%, 413), 7
    NEXT a%



END SUB

SUB VEHICULEB

COLOR 4
LOCATE 23, 18
PRINT "BOUCLIER       "
LOCATE 25, 6
PRINT "faible"
LOCATE 25, 20
PRINT "moyen"
LOCATE 25, 34
PRINT "fort"

    'FOR a% = 0 TO 16
    'FOR b% = 1 TO 15
    'PSET (a%, b%), 4
    'NEXT b%
    'NEXT a%

    FOR a% = 55 TO 69
    FOR b% = 410 TO 416
    PSET (a%, b%), 8
    NEXT b%
    NEXT a%
PSET (55, 413), 2
PSET (56, 413), 2
    FOR a% = 164 TO 178
    FOR b% = 410 TO 416
    PSET (a%, b%), 8
    NEXT b%
    NEXT a%
PSET (165, 412), 1
PSET (164, 412), 1
PSET (165, 413), 1
PSET (164, 413), 1
    FOR a% = 271 TO 285
    FOR b% = 410 TO 416
    PSET (a%, b%), 8
    NEXT b%
    NEXT a%
PSET (272, 414), 4
PSET (271, 414), 4
PSET (272, 412), 4
PSET (271, 412), 4
PSET (272, 413), 4
PSET (271, 413), 4
    'FOR a% = 9 TO 15
    'PSET (a%, 8), 7
    'NEXT a%

    'FOR a% = 1 TO 9
    'PSET (a%, 5), 0
    'NEXT a%

    'FOR a% = 12 TO 15
    'PSET (a%, 5), 0
    'NEXT a%

    'FOR a% = 1 TO 9
    'PSET (a%, 11), 0
    'NEXT a%

    'FOR a% = 12 TO 15
    'PSET (a%, 11), 0
    'NEXT a%

    'FOR a% = 1 TO 9
    'PSET (a%, 6), 0
    'NEXT a%

    'FOR a% = 12 TO 15
    'PSET (a%, 6), 0
    'NEXT a%

    'FOR a% = 1 TO 9
    'PSET (a%, 10), 0
    'NEXT a%

    'FOR a% = 12 TO 15
    'PSET (a%, 10), 0
    'NEXT a%

END SUB

SUB VEHICULED


COLOR 4
LOCATE 23, 18
PRINT "DEPLACEMENT  "
LOCATE 25, 6
PRINT "lent"
LOCATE 25, 20
PRINT "moyen"
LOCATE 25, 34
PRINT "rapide"

1 :
    FOR a% = 55 TO 58
    PSET (a%, 410), 7
    NEXT a%

    FOR a% = 66 TO 69
    PSET (a%, 410), 7
    NEXT a%

    FOR a% = 55 TO 58
    PSET (a%, 416), 7
    NEXT a%

    FOR a% = 66 TO 69
    PSET (a%, 416), 7
    NEXT a%
2 :
    FOR a% = 164 TO 169
    PSET (a%, 410), 7
    NEXT a%

    FOR a% = 175 TO 178
    PSET (a%, 410), 7
    NEXT a%

    FOR a% = 164 TO 169
    PSET (a%, 416), 7
    NEXT a%

    FOR a% = 175 TO 178
    PSET (a%, 416), 7
    NEXT a%
3 :
    FOR a% = 271 TO 280
    PSET (a%, 410), 7
    NEXT a%

    FOR a% = 282 TO 285
    PSET (a%, 410), 7
    NEXT a%

    FOR a% = 271 TO 280
    PSET (a%, 416), 7
    NEXT a%

    FOR a% = 282 TO 285
    PSET (a%, 416), 7
    NEXT a%

END SUB