10 CALL &BB48:POKE 372,255:POKE &BE78,255
20 MODE 1:IF PEEK(63)<>0 THEN POKE 63,0 ELSE SYMBOL AFTER 47 
30 DEFINT i-z:DIM v0(50),v(200),v1(200),v2(200),v3(200),v4(200),v5(200),v6(200),v7(200),v8(200),v9(200),VA(200)  
40 INK 0,0:BORDER 0:INK 1,0:INK 2,0:INK 3,0:GOSUB 110:MEMORY &5FFF:LOAD"arnold.dsc",&6000:CALL &6000:INK 1,24:INK 2,6:INK 3,26:WINDOW#1,3,19,18,24:PAPER#1,0:PAPER 0
50 LOCATE 1,17:PEN 1:PRINT:PRINT"  [1] Creation de"
60 PRINT"      L'equipe":PEN2:PRINT:PRINT"  [2] Reprise d'une":PRINT"      partie":PEN3:PRINT:PRINT"  [3] Jeu"
70 GOTO 270
80 t$=INKEY$:IF t$="1" THEN 90 ELSE IF t$="2"THEN GOSUB 920:GOTO 750 ELSE IF t$="3"THEN 100 ELSE RETURN  
90 CLEAR:RUN"f&f2"
100 CLEAR:POKE 61,1:POKE &9FCB,0:POKE &9FCC,12:POKE &9FCD,0:POKE &9FD3,50:FOR b1=1 TO 5:POKE (&9FD3+b1),0:NEXT:FOR b1=1 TO 5:POKE &9FD8+b1,0:NEXT:POKE &9FDE,0:POKE &9FDF,0:RUN "def1"  
110 SYMBOL65,120,156,38,38,62,38,102,0:SYMBOL66,252,166,166,188,166,166,252,0:SYMBOL67,60,118,208,208,208,118,60,0:SYMBOL68,248,220,214,214,214,220,248,0:SYMBOL69,254,162,168,184,168,162,254,0:SYMBOL70,254,162,168,184,168,160,240,0
120 SYMBOL71,60,118,208,208,214,210,124,0:SYMBOL72,230,166,166,190,166,166,230,0:SYMBOL73,254,88,88,88,88,88,254,0:SYMBOL74,126,44,44,44,172,172,120,0:SYMBOL75,230,166,172,184,172,166,230,0:SYMBOL76,240,176,176,176,178,182,254,0
130 SYMBOL77,230,174,190,190,182,166,230,0:SYMBOL78,230,166,182,190,174,166,230,0:SYMBOL79,56,124,214,214,214,124,56,0:SYMBOL80,252,166,166,188,160,160,240,0:SYMBOL81,56,108,166,166,186,172,118,0:SYMBOL82,252,166,166,188,172,166,226,0
140 SYMBOL83,60,86,80,60,22,86,60,0:SYMBOL84,254,170,40,40,40,40,124,0:SYMBOL85,118,86,86,86,86,86,60,0:SYMBOL86,118,86,86,86,86,60,24,0:SYMBOL87,230,166,166,182,190,174,198,0:SYMBOL88,198,108,254,56,254,108,198,0
150 SYMBOL 89,102,102,102,92,88,88,124,0:SYMBOL 90,254,198,140,124,50,102,254,0:SYMBOL 95,0,0,56,92,142,84,56,0
160 SYMBOL 48,&X111100,&X100100,&X100100,&X100100,&X100100,&X100100,&X111100,&X
170 SYMBOL 49,&X1000,&X11000,&X101000,&X1000,&X1000,&X1000,&X1000,&X
180 SYMBOL 50,&X11000,&X100100,&X100,&X11000,&X100000,&X100000,&X111100,&X
190 SYMBOL 51,&X111100,&X100,&X100,&X11100,&X100,&X100,&X111100,&X
200 SYMBOL 52,&X100,&X1100,&X10100,&X100100,&X111110,&X100,&X100,&X
210 SYMBOL 53,&X111100,&X100000,&X100000,&X111000,&X100,&X100,&X111000,&X
220 SYMBOL 54,&X11000,&X100100,&X100000,&X111000,&X100100,&X100100,&X11000,&X
230 SYMBOL 55,&X111100,&X100100,&X100,&X1000,&X10000,&X10000,&X10000,&X
240 SYMBOL 56,&X11000,&X100100,&X100100,&X11000,&X100100,&X100100,&X11000,&X
250 SYMBOL 57,&X11000, &X100100,&X100100,&X11100,&X100,&X100100,&X11000,&X
260 RETURN
270 EVERY 10,2 GOSUB 80
280 FOR n=0 TO 127:READ v(n):NEXT n:FOR n=0 TO 63:READ v1(n):NEXT n:FOR n=0 TO 127:READ v2(n):NEXT n:FOR n=0 TO 127:READ v3(n):NEXT   
290 FOR n=0 TO 63:READ v4(n):NEXT n:FOR n=0 TO 95:READ v5(n):NEXT n:FOR n=0 TO 26:READ v0(n):NEXT n:FOR n=0 TO 127:READ v6(n):NEXT n:FOR n=0 TO 64:READ v7(n):NEXT n:FOR n=0 TO 63:READ v8(n):NEXT n:FOR n=0 TO 63:READ v9(n):NEXT n
300 ENT 1,3,-1,1,3,1,1,3,-1,1,3,1,1:ENV 1,15,-1,3:ENV 2,3,-1,1:FOR n=0 TO 31:SOUND 1,0,13,0:IF n/4=INT(n/4)THEN SOUND 4,1,2,15,0,0,1:SOUND 4,506,11,v1(n),0,1 ELSE SOUND 4,506,13,v1(n),0,1
310 SOUND 2,0,13,0:NEXT
320 z=0:c=1
330 FOR b=0 TO c:FOR n=0 TO 63:SOUND 1,v(n),13,v(n+64),0,1:IF n/4=INT(n/4)THEN SOUND 4,1,2,15,0,0,1:SOUND 4,506,6,v1(n),0,1:SOUND 4,v(n),5,v(n+64),0,1 ELSE SOUND 4,506,8,v1(n),0,1:SOUND 4,v(n),5,v(n+64),0,1
340 SOUND 2,v6(n),5,v6(n+64),0,1:SOUND 2,1012,8,v7(n+1):NEXT:NEXT:IF z=100 THEN 380
350 FOR n=0 TO 63:IF n=0 OR n=1 OR n=2 OR n=3 OR n=16 OR n=17 OR n=18 OR n=19 THEN e=1 ELSE e=0
360 SOUND 1,v2(n),13,v2(n+64),e,1:IF n/4=INT(n/4)THEN SOUND 4,1,2,15,0,0,1:SOUND 4,506,6,v1(n),0,1:SOUND 4,v2(n),5,v2(n+64),0,1 ELSE SOUND 4,506,8,v1(n),0,1:SOUND 4,v2(n),5,v2(n+64),0,1
370 SOUND 2,v6(n),5,v6(n+64),0,1:SOUND 2,1012,8,v7(n+1):NEXT:z=100:c=0:GOTO 330
380 FOR b=0 TO 1:FOR n=0 TO 63:SOUND 1,v3(n),13,v3(n+64),0,1:IF n/4=INT(n/4)THEN SOUND 4,1,2,15,0,0,1:SOUND 4,v4(n),6,v1(n),0,1:SOUND 4,v3(n),5,v3(n+64),0,1 ELSE SOUND 4,v4(n),8,v1(n),0,1:SOUND 4,v3(n),5,v3(n+64),0,1
390 SOUND 2,v6(n),5,v6(n+64),0,1:SOUND 2,v8(n),8,v7(n+1):NEXT:NEXT:FOR b=0 TO 1:FOR n=0 TO 47:IF n=0 OR n=4 OR n=8 OR n=12 OR n=22 OR n=38 THEN e=1 ELSE e=0
400 SOUND 1,v5(n),13,v5(n+48),e,1:IF n/4=INT(n/4)THEN SOUND 4,1,2,15,0,0,1:SOUND 4,506,6,v1(n),0,1:SOUND 4,v5(n),5,v5(n+64),0,1 ELSE SOUND 4,506,8,v1(n),0,1:SOUND 4,v5(n),5,v5(n+64),0,1
410 SOUND 2,v6(n),5,v6(n+64),0,1:SOUND 2,1012,8,v7(n+1):NEXT:NEXT:GOSUB 480:FOR n=0 TO 15:SOUND 1,v(n),13,v(n+64),0,1
420 IF n/4=INT(n/4)THEN SOUND 4,1,2,15,0,0,1:SOUND 4,506,6,v1(n),0,1:SOUND 4,v(n),5,v(n+64),0,1 ELSE SOUND 4,506,8,v1(n),0,1:SOUND 4,v(n),5,v(n+64),0,1
430 SOUND 2,v6(n),5,v6(n+64),0,1:SOUND 2,253,8,v7(n+1):NEXT:FOR n=0 TO 9:SOUND 1,v(n),13,v(n+64),0,1:IF n/4=INT(n/4)THEN SOUND 4,1,2,15,0,0,1:SOUND 4,506,6,v1(n),0,1:SOUND 4,v(n),5,v(n+64),0,1:GOTO 450
440 SOUND 4,506,8,v1(n),0,1:SOUND 4,v(n),5,v(n+64),0,1
450 SOUND 2,v6(n),5,v6(n+64),0,1:SOUND 2,253,8,v7(n+1):NEXT:FOR n=0 TO 8:SOUND 1,v0(n),13,v0(n+9),0,1:SOUND 4,506,13,v0(n+9),0,1:SOUND 2,v0(n),13,v0(n+9),0,1:NEXT:FOR n=0 TO 63
460 IF n/4=INT(n/4)THEN SOUND 4,1,2,15,0,0,1:SOUND 4,506,11,v1(n),0,1 ELSE SOUND 4,506,13,v1(n),0,1
470 SOUND 2,0,13,0:SOUND 1,127,13,12,0,1:NEXT n:GOTO 320
480 FOR b=0 TO 1:FOR n=0 TO 31:SOUND 1,v9(n),13,v9(n+32),0,1:IF n/4=INT(n/4)THEN SOUND 4,1,2,15,0,0,1:SOUND 4,506,6,v1(n),0,1:SOUND 4,v9(n),5,v9(n+64),0,1 ELSE SOUND 4,506,8,v1(n),0,1:SOUND 4,v9(n),5,v9(n+64),0,1
490 SOUND 2,v6(n),5,v6(n+64),0,1:SOUND 2,253,8,v7(n+1):NEXT:NEXT:RETURN
500 DATA 127,127,127,127,106,113,142,113,127,127,127,127,169,169,169,169,159,159,159,159,127,134,169,190,169,169,169,169,253,253,253,253
510 DATA 127,127,127,127,106,113,142,113,127,127,127,127,169,169,169,169,159,127,159,169,213,213,225,213,169,338,169,338,127,127,127,127
520 DATA 15,13,15,13,15,15,15,15,15,13,15,13,15,14,13,12,15,14,13,12,15,15,15,15,15,13,15,13,15,14,13,12
530 DATA 15,13,15,13,15,15,15,15,15,13,15,13,15,14,13,12,15,15,15,15,15,13,15,15,15,15,15,15,15,14,13,12
540 DATA 15,14,13,12,15,13,15,13,15,14,13,12,15,13,15,13,15,14,13,12,15,13,15,13,15,14,13,12,15,13,15,13,15,14,13,12,15,13,15,13,15,14,13,12,15,13,15,13,15,14,13,12,15,13,15,13,15,14,13,12,15,13,15,13
550 DATA 106,106,106,106,127,127,127,127,159,213,159,213,169,213,253,253,106,106,106,106,127,127,127,127,159,159,159,169,127,127,127,127
560 DATA 159,169,213,159,169,213,159,213,190,190,190,213,225,190,169,169,190,190,190,213,225,190,169,225,213,159,225,268,253,253,253,253
570 DATA 15,15,15,15,15,13,15,13,15,15,15,15,15,15,15,13,15,15,15,15,15,13,15,13,15,13,15,15,15,13,15,13
580 DATA 15,15,15,15,15,15,15,15,15,13,15,15,15,15,15,13,15,13,15,15,15,15,15,15,15,15,15,15,15,14,13,12
590 DATA 169,169,213,213,253,253,213,213,169,169,213,213,253,253,213,213,159,159,213,213,253,253,213,213,159,159,213,213,253,253,213,213,169,169,213,213,253,253,213,213,169,169,213,213,253,253,213,213
600 DATA 225,225,268,268,253,253,338,338,225,225,268,268,253,253,338,338
610 DATA 15,13,15,13,15,13,15,13,15,13,15,13,15,13,15,13,15,13,15,13,15,13,15,13,15,13,15,13,15,13,15,13,15,13,15,13,15,13,15,13,15,13,15,13,15,13,15,13,15,13,15,13,15,13,15,13,15,13,15,13,15,13,15,13
620 DATA 506,506,506,506,506,506,506,506,506,506,506,506,506,506,506,506,638,638,638,638,638,638,638,638,638,638,638,638,638,638,638,638,506,506,506,506,506,506,506,506,506,506,506,506,506,506,506,506
630 DATA 638,638,638,638,506,506,506,506,638,638,638,638,506,506,506,506
640 DATA 253,253,253,213,253,253,253,253,253,253,253,213,253,253,253,253,190,213,225,190,169,169,169,169,134,134,127,127,127,127,127,127,190,213,225,190,169,169,169,169,134,134,127,127,127,127,127,127
650 DATA 15,15,13,15,15,15,14,13,15,15,13,15,15,15,14,13,15,15,15,15,15,13,15,15,15,13,15,13,15,14,13,12,15,15,15,15,15,13,15,15,15,13,15,13,15,14,13,12
660 DATA 142,142,127,127,127,127,127,127,127,15,13,15,15,14,14,13,13,12,15,13,15,15,14,14,13,13,12
670 DATA 127,127,106,106,84,84,106,106,127,127,106,106,84,84,106,106,127,127,106,106,84,84,106,106,127,127,106,106,84,84,106,106,127,127,106,106,84,84,106,106,127,127,106,106,84,84,106,106,127,127,106,106,84,84,106,106,127,127,106,106,84,84,106,106
680 DATA 15,13,15,13,15,13,15,13,15,13,15,13,15,13,15,13,15,13,15,13,15,13,15,13,15,13,15,13,15,13,15,13,15,13,15,13,15,13,15,13,15,13,15,13,15,13,15,13,15,13,15,13,15,13,15,13,15,13,15,13,15,13,15,13,15
690 DATA 15,15,14,14,13,13,13,12,15,15,14,14,13,13,13,12,15,15,14,14,13,13,13,12,15,15,14,14,13,13,13,12,15,15,14,14,13,13,13,12,15,15,14,14,13,13,13,12,15,15,14,14,13,13,13,12,15,15,14,14,13,13,13,12
700 DATA 1012,1012,1012,1012,1012,1012,1012,1012,1012,1012,1012,1012,1012,1012,1012,1012,638,638,638,638,638,638,638,638,638,638,638,638,638,638,638,638,1012,1012,1012,1012,1012,1012,1012,1012,1012,1012,1012,1012,1012,1012,1012,1012
710 DATA 638,638,638,638,1012,1012,1012,1012,638,638,638,638,1012,1012,1012,1012
720 'DATA 169,169,284,284,225,253,338,338,319,284,253,225,190,213,169,169,169,169,284,284,225,253,338,338,319,253,284,190,225,284,253,253
730 DATA 84,84,142,142,113,127,169,169,159,142,127,113,80,106,84,84,84,84,142,142,113,127,169,169,159,127,142,95,113,142,127,127
740 DATA 15,13,15,13,15,15,15,13,15,15,15,15,15,15,15,13,15,13,15,13,15,15,15,13,15,15,15,15,15,15,15,13
750 CLS #1:DIM o$(100),memo(50):PEN 2:LOCATE 1,19:PRINT "Mettez la disquette":LOCATE 1,20:PRINT "de sauvegarde et ":LOCATE 1,21:PRINT "pressez une touche"
760 CALL &BB18:LOAD "f&fb",&9FCB:FOR sau=0 TO 49:memo(sau)=PEEK(&9FCB+sau):NEXT:POKE 63,PEEK(&9FF8)
770 fi=0:OPENIN "fcps":WHILE NOT EOF:fi=fi+1:INPUT #9,psg$(fi):WEND:CLOSEIN:OPENIN "fo":FOR b1=1 TO 100:INPUT #9,o$(b1):NEXT:CLOSEIN:PRINT CHR$(7) 
780 CLS #1:PEN 2:LOCATE 1,19:PRINT "Mettez la disquette":LOCATE 1,20:PRINT "FACE 1 et pressez":LOCATE 1,21:PRINT "une touche" 
790 CALL &BB18
800 INK 0,0:INK 1,0:INK 2,0:INK 3,0:LOAD "code0",&8000:CALL &8000:LOAD "code2",&8D00:CALL &9F65
810 INK 1,25:INK 2,15:INK 3,20
820 FOR sau=0 TO 49:POKE &9FCB+sau,memo(sau):NEXT:FOR sau=0 TO 21:POKE 110+sau,PEEK(&9FE0+sau):NEXT
830 IF PEEK(63)<4 THEN POKE &9FE0,5 ELSE IF PEEK(63)<6 THEN POKE &9FE0,6 ELSE POKE &9FE0,7 
840 LOAD "f&f5",&6000:POKE &6000,PEEK(&9FE0)-3:CALL &6041  
850 a$="fo":|ERA,@a$:a$="fcps":|ERA,@a$:OPENOUT "fcps":FOR b1=1 TO 5:PRINT #9,psg$(b1):NEXT:CLOSEOUT:OPENOUT "fo":FOR b1=1 TO 100:PRINT #9,o$(b1):NEXT:CLOSEOUT 
860 CLEAR:MEMORY &96FF
870 IF PEEK(&9FE0)=5 THEN fich$="x15" ELSE IF PEEK(&9FE0)=6 THEN fich$="y16" ELSE fich$="z17"
880 POKE &9F0C,&8D:POKE &9F0D,&9F:POKE &9F26,&8D:POKE &9F27,&9F:POKE &9F3C,&8D:POKE &9F3D,&9F:POKE &9F54,&8D:POKE &9F55,&9F
890 RESTORE 900:FOR lec=&9F8D TO &9FA0:READ a$:memo=VAL("&"+a$):POKE lec,memo:NEXT 
900 DATA e5,ed,52,38,06,28,09,3e,01,e1,c9,97,3e,ff,18,f9,3e,00,18,f5
910 RUN fich$ 
920 SYMBOL94,0,63,95,111,96,95,63,0:SYMBOL91,0,252,250,246,14,250,252,0:SYMBOL246,128,224,240,240,240,240,224,128:SYMBOL93,0,60,90,102,118,118,118,118:SYMBOL92,118,118,118,118,102,90,60,0:SYMBOL249,49,49,121,250,246,120,40,120
930 SYMBOL95,0,0,56,92,142,84,56,0:SYMBOL231,128,224,248,254,248,224,128,0:SYMBOL245,255,126,60,0,0,0,0,0:SYMBOL247,1,7,15,15,15,15,7,1:SYMBOL244,0,0,0,0,0,60,126,255:SYMBOL238,137,82,84,56,16,84,60,255:SYMBOL229,24,174,110,85,238,125,106,20
940 SYMBOL159,4,14,4,4,31,126,248,0:SYMBOL234,8,28,8,8,72,41,122,255:SYMBOL154,192,224,252,224,192,248,224,128:SYMBOL233,66,255,66,126,66,126,66,255:SYMBOL235,4,38,102,108,24,8,8,127:SYMBOL203,0,60,66,90,90,66,60,X:SYMBOL239,129,74,82,52,20,24,8,28
950 SYMBOL237,128,84,74,44,36,52,123,136:SYMBOL216,0,24,24,36,90,189,153,153:SYMBOL230,0,0,0,24,60,62,62,62:SYMBOL219,7,253,128,248,136,128,255,3:SYMBOL131,15,16,96,255,255,96,16,15:SYMBOL133,255,3,5,249,249,5,3,255
960 SYMBOL 205,0,255,85,255,255,85,255,0:SYMBOL 208,0,255,85,255,255,85,255,0:SYMBOL 209,0,255,85,255,255,85,255,0:SYMBOL 210,0,255,85,255,255,85,255,0:SYMBOL 211,0,255,85,255,255,85,255,0:RETURN
