1 CLEAR:CLS:DEFINTA-Y:G=128:V=4:DR=1:DIMA(18,3,4):I=RND(0):GOSUB59
2 FORI=1TO1:NEXT:GOTO84
3 FORF=1TO3:GOSUB125:LOCATEX(F),Y(F):PRINTCHR$(S(F));:NEXTF
4 FORL=1TO250:NEXTL:GOTO35
5 T=5-(T+1)/2
6 IFY<>0THEN8ELSEIFX=9ANDT=4THENX0=9:Y0=3:GOTO14
7 IFTB=1THENIFX=18ANDT=3THENX0=0:Y0=3:GOTO14
8 IFY<>3THEN10ELSEIFX=9ANDT=2THENX0=9:Y0=0:GOTO14
9 IFTB=1THENIFX=0ANDT=1THENX0=18:Y0=0:GOTO14
10 IFA(X,Y,T)=1THENRETURNELSEX0=X+(T=1)-(T=3):Y0=Y+(T=4)-(T=2)
11 S0=A(X0,Y0,0):S8=S0MOD7:S7=SMOD7:IFS0<133THENS8=0
12 IFS0>251THENS8=S8+2
13 GOTO15
14 S0=A(X0,Y0,0):S8=S0MOD7:S7=SMOD7
15 S=7*(18+T)+S8
16 LOCATEX0,Y0:PRINTCHR$(S);:LOCATEX,Y:PRINTCHR$(245+S7);:A(X0,Y0,0)=S
17 A(X,Y,0)=245+S7:X=X0:Y=Y0
18 S9=S0ç7:IFS9=35THENRETURN
19 IFS9=34THEN22
20 IFS9=18THEN23
21 ONS9-31GOTO25,27,,,32
22 BEEP49,1:P=P+1:IFP=70-2*(TB>1)THENZC=ZC+280:N=2:RETURNELSERETURN
23 RESTORE109:GOSUB108:G=G+1:IFG>132THENG=128
24 ZC=ZC+50*(G-127):RETURN
25 N=1:FORJ=1TO3:IFX<>X(J)ORY(J)<>YTHENNEXT
26 S=T(J):RETURN
27 RESTORE111:GOSUB108:ZC=ZC+INT(15*RND(1)*LOG(ZC)):FORJ=1TO3
28 IFX<>X(J)ORY<>Y(J)THENNEXT:RETURN
29 IFT(J)ç7=34ORT(J)ç7=36THENGOSUB22
30 E=F:F=J:GOSUB125:F=E:NEXT
31 RETURN
32 RESTORE113:GOSUB108:AL=1+7*EXP(-TA/3):ZC=ZC+50:A=0
33 FORJ=1TO3:A(X(J),Y(J),0)=A(X(J),Y(J),0)-7*(A(X(J),Y(J),0)ç7=32)
34 LOCATEX(J),Y(J):PRINTCHR$(A(X(J),Y(J),0));:NEXT:DR=-1:GOTO22
35 FORW=0TO1STEP0:IFDR<0THENA=A+1:IFA>ALTHENDR=1:A=0
36 FORF=1TO3:ONNGOTO82,83
37 T=STICK(0):IFTMOD2<>0THENGOSUB5
38 ONNGOTO82,83
39 C=(X(F)-X)*DR:D=(Y-Y(F))*DR:X0=X(F):Y0=Y(F):IFABS(C)<=2*ABS(D)THEN47
40 DY=0:T=3+2*(C>0):DX=(T=1)-(T=3)
41 IFA(X0,Y0,T)=0THENIFA(X0+DX,Y0,0)ç7<>32ANDA(X0+DX,Y0,0)ç7<>33THEN53
42 DX=0:T=2-2*(D<0):DY=(T=4)-(T=2)
43 IFA(X0,Y0,T)=0THENIFA(X0,Y0+DY,0)ç7<>32ANDA(X0,Y0+DY,0)ç7<>33THEN53
44 DY=-DY:T=6-T
45 IFA(X0,Y0,T)=0THENIFA(X0,Y0+DY,0)ç7<>32ANDA(X0,Y0+DY,0)ç7<>33THEN53
46 NEXT:NEXT
47 DX=0:T=2-2*(D<0):DY=(T=4)-(T=2)
48 IFA(X0,Y0,T)=0THENIFA(X0,Y0+DY,0)ç7<>32ANDA(X0,Y0+DY,0)ç7<>33THEN53
49 DY=0:T=1-2*(C<0):DX=(T=1)-(T=3)
50 IFA(X0,Y0,T)=0THENIFA(X0+DX,Y0,0)ç7<>32ANDA(X0+DX,Y0,0)ç7<>33THEN53
51 DX=-DX:T=4-T:IFA(X0,Y0,T)=1THENNEXT:NEXT
52 IFA(X0+DX,Y0,0)ç7=32ORA(X0+DX,Y0,0)ç7=33THENNEXT:NEXT
53 BEEP13+2*DR*F,1:LOCATEX0,Y0:PRINTCHR$(T(F));:A(X0,Y0,0)=T(F)
54 X(F)=X0+DX:Y(F)=Y0+DY:T(F)=A(X(F),Y(F),0):S(F)=7*(33+(DR=1))
55 S(F)=S(F)-(T(F)MOD7-2*(T(F)>251))*(T(F)>132):A(X(F),Y(F),0)=S(F)
56 LOCATEX(F),Y(F)
57 PRINTCHR$(S(F));:IFT(F)ç7>18ANDT(F)ç7<23ANDDR=1THENN=1:S=245+T(F)MOD7
58 NEXT:NEXT
59 CIRCLE(15,16),12:LINE(12,16)-(24,8):LINE(12,16)-(24,24)
60 PRESET(25,9):PRESET(25,10):PRESET(25,23):PRESET(25,22):PRESET(26,11)
61 PRESET(26,12):PRESET(26,21):PRESET(26,20):FORI=13TO19:PRESET(27,I):NEXT
62 FORI=1TO70:IFINKEY$=""THENNEXTELSERETURN
63 RESTORE117:GOSUB108:FORI=1TO70:IFINKEY$=""THENNEXTELSERETURN
64 LOCATE8,1:PRINT"CAP MAN";:LINE(47,16)-(89,16):FORI=1TO4:FORJ=18TO28
65 BEEPJ+5*I,1:NEXT:NEXT:FORJ=1TO3:FORI=49TO31STEP-2:BEEPI-J*10,1:NEXT:NEXT
66 FORI=1TO1000:NEXT:LOCATE8,1:PRINT"       ":LOCATE7,2:PRINT"        "
67 FORI=4TO16:LOCATEI,2:PRINT" à ";:BEEP14+I,1:FORJ=1TO50:NEXTJ,I
68 LOCATE17,2:PRINT" à ";:BEEP31,1:LOCATE18,2:PRINT" "
69 FORI=1TO1000:NEXT:LOCATE17,2:PRINT" ç";:BEEP32,1:FORI=16TO4STEP-1
70 LOCATEI,2:PRINT"ç  ";:BEEP15+I,1:FORJ=1TO10:NEXTJ,I
71 LOCATE4,2:PRINT"    ":IFZC=0THENFORI=1TO1000:NEXT:CLS:FORI=1TO2000:NEXT
72 RETURN
73 IFN=1THEN79
74 IFTB=1THENRESTORE130ELSEIFTB=2THENRESTORE144ELSERESTORE158
75 FORY=0TO3:FORX=0TO18:FORT=0TO4:READA(X,Y,T):NEXT:NEXT:NEXT
76 IFTB=1THENA(18,2,0)=GELSEIFTB=2THENA(2,1,0)=GELSEA(4,1,0)=G:A(14,1,0)=G
77 CLS:FORX=0TO18:FORY=0TO3:LOCATEX,Y:PRINTCHR$(A(X,Y,0));:NEXT:NEXT:Y=3-TB
78 IFTB>1THENLINE(115,0)-(115,31):RETURNELSERETURN
79 FORJ=1TO3:A(X(J),Y(J),0)=T(J):NEXT:A(X,Y,0)=S
80 A(9,3-TB,0)=149
81 FORJ=1TO2000:NEXTJ:GOTO77
82 RESTORE110:GOSUB108:GOTO84
83 RESTORE114:GOSUB108:TA=TA+1
84 DR=1:FORI=1TO50:NEXT:CLS:IFN=1THENZC=ZC+P:V=V-1ELSEP=0
85 LOCATE0,0:PRINT"Score :";:FORI=ZBTOZCSTEP100:LOCATE7,0:PRINTI;:BEEP13,1
86 NEXTI:LOCATE7,0:PRINTZC;:BEEP42,5:LOCATE1,3:PRINT"tableau";TA+1;
87 FORI=1TO500:NEXT
88 IFV=0THENI=1:GOTO91
89 FORI=1TOV:LOCATE2*I,1:PRINT"";:BEEP33,1:FORJ=1TO200:NEXTJ,I
90 IFV=6THEN95
91 IFZBç3000<ZCç3000THENFORL=ZBç3000+1TOZCç3000ELSE95
92 FORJ=1TO5:LOCATE2*I,1:PRINT"";:BEEP33,3:FORK=1TO90:NEXT:LOCATE2*I,1
93 PRINT" ";:FORK=1TO90:NEXTK,J:LOCATE2*I,1:PRINT"";
94 V=V+1:I=I+1:IFV<6THENNEXT
95 IFV=0THEN103
96 ZB=ZC:IFTAMOD2=0ANDP=0ANDTA>0THENRESTORE122:GOSUB108:GOSUB67
97 IFTAMOD6<2THENTB=1:GOSUB73
98 IFTAMOD6>1ANDTAMOD6<4THENTB=3:GOSUB73
99 IFTAMOD6>3THENTB=2:GOSUB73
100 LINE(115,6)-(115,31):PSET(114,0):PSET(114,31)
101 IFV>1THENFORI=1TOV-1:PSET(118,2*I):BEEP43,1:NEXTI
102 N=0:X=9:S=149:PSET(115,0):GOTO3
103 RESTORE120:GOSUB108
104 LOCATE1,1:PRINT"nouvelle partie ?";:LOCATE7,2:PRINT"O/N"
105 FORI=1TO10000:I$=INKEY$:IFI$=""THENNEXT:SLEEP:GOTO1
106 IFI$="N"THENLOCATE0,1:PRINT"    JEU TERMINE   ",TAB(7);"   ":END
107 IFI$="O"THEN1ELSE105
108 READL,H:IFL<0THENBEEP0,1:RETURNELSEBEEPL,H:GOTO108
109 DATA25,2,26,2,27,2,28,2,-1,0
110 DATA14,3,0,2,12,2,9,2,7,3,5,5,0,1,8,3,0,2,5,3,0,2,3,3,0,3,1,10,0,10,-1,0
111 DATA20,1,21,1,23,1,0,1,26,1,27,1,30,1,0,1,31,1,32,1,33,1,-1,0
112 DATA-1,0
113 DATA43,1,0,1,43,1,0,1,43,1,0,1,43,1,-1,0
114 DATA20,3,23,4,25,4,0,2,25,4,28,4,0,3,28,4,31,3,0,3,31,4,28,3
115 DATA0,3,28,4,31,3,0,5,31,1,0,4,31,1,0,4,31,1,0,4,31,1,0,4,31,1,0,4
116 DATA31,1,0,4,31,1,0,4,31,1,0,4,31,1,0,4,-1,0
117 DATA6,7,6,3,6,3,6,11,10,6,6,3,10,3,13,11,0,1,6,7,6,3,6,3,6,11,10,6,6,3,10
118 DATA3,13,11,0,1,13,6,14,6,13,6,14,6,13,6,14,6,13,7,13,3,13,3,13,6,13,6,13
119 DATA12,-1,0
120 DATA5,12,0,1,5,10,0,1,5,4,0,1,5,12,0,1,8,10,0,1,7,4,0,1,7,10,0,1,5,4,0,1,5
121 DATA10,0,1,4,4,0,1,5,15,0,1,-1,0
122 DATA7,5,7,4,7,4,3,4,3,2,7,4,7,5,11,8,0,2,7,5,7,4,7,4,4,4,4,2,7,4,7,5,3,8,0
123 DATA2,7,5,7,4,7,4,3,4,3,2,7,4,7,5,11,4,12,5,13,5,12,5,10,5,7,5,10,5,7,7
124 DATA-1,0
125 X(F)=RND(1)*19:Y(F)=RND(1)*3:T(F)=A(X(F),Y(F),0)
126 I=T(F)ç7:IFI>18ANDI<23ORI=32ORI=33THEN125
127 IF(X(F)-X)*(X(F)-X)+(Y(F)-Y)*(Y(F)-Y)<9THEN125
128 S(F)=7*(32-(DR=-1))-(T(F)MOD7-2*(T(F)>251))*(T(F)>132):A(X(F),Y(F),0)=S(F)
129 RETURN
130 DATA242,1,0,0,1,243,0,0,0,1,244,0,1,0,1,244,0,1,0,1,243,0,0,0,1,243,0,0,0
131 DATA1,243,0,0,0,1,244,0,1,0,1,243,0,0,0,1,247,0,1,0,1,243,0,0,0,1,244,0,1
132 DATA0,1,243,0,0,0,1,243,0,0,0,1,243,0,0,0,1,244,0,1,0,1,244,0,1,0,1,243,0
133 DATA0,0,1,250,0,0,1,1,239,1,0,1,0,241,1,1,0,0,238,0,0,0,1,238,0,0,0,1,252
134 DATA0,1,1,0,239,1,0,0,0,238,0,0,1,0,239,1,0,0,1,240,0,1,0,0,240,0,1,0,1
135 DATA240,0,1,0,0,238,0,0,1,1,239,1,0,0,0,238,0,0,1,0,253,1,1,0,0,238,0,0,0
136 DATA1,238,0,0,0,1,240,0,1,1,0,239,1,0,1,0,239,1,0,0,0,240,0,1,0,1,238,0,0
137 DATA1,0,239,1,0,0,0,238,0,0,0,1,238,0,0,1,0,241,1,1,0,0,240,0,1,0,0,238,0
138 DATA0,0,1,149,0,1,0,1,238,0,0,0,1,240,0,1,0,0,240,0,1,1,0,239,1,0,0,0,238
139 DATA0,0,0,1,238,0,0,1,0,239,1,0,0,0,240,0,1,0,1,245,0,0,1,0,247,1,1,0,0
140 DATA252,0,1,0,1,240,0,1,0,0,240,0,1,0,0,240,0,1,1,0,241,1,1,0,0,240,0,1,0
141 DATA1,240,0,1,0,1,240,0,1,0,0,245,0,1,0,1,240,0,1,0,0,240,0,1,0,1,240,0,1
142 DATA0,1,240,0,1,1,0,241,1,1,0,0,240,0,1,0,0,240,0,1,0,0,252,0,1,0,1,240,0
143 DATA1,1,0
144 DATA254,1,0,0,1,243,0,0,1,1,242,1,0,0,1,244,0,1,0,1,244,0,1,0,1,244,0,1,0
145 DATA1,243,0,0,1,1,242,1,0,0,1,244,0,1,0,1,247,0,1,0,1,244,0,1,0,1,243,0,0
146 DATA1,1,242,1,0,0,1,244,0,1,0,1,244,0,1,0,1,244,0,1,0,1,243,0,0,1,1,242,1
147 DATA0,0,1,255,0,0,1,1,239,1,0,1,0,241,1,1,0,0,245,0,0,0,0,238,0,0,1,1,239
148 DATA1,0,0,1,240,0,1,0,1,240,0,1,0,0,238,0,0,0,0,238,0,0,0,1,149,0,1,0,1
149 DATA238,0,0,0,1,238,0,0,0,0,240,0,1,0,0,240,0,1,0,1,238,0,0,1,1,239,1,0,0
150 DATA1,238,0,0,0,0,240,0,1,1,0,239,1,0,1,0,239,1,0,1,0,239,1,0,0,1,240,0,1
151 DATA1,0,239,1,0,0,0,238,0,0,1,0,239,1,0,0,1,240,0,1,0,1,238,0,0,1,0,241,1
152 DATA1,0,0,240,0,1,0,1,240,0,1,1,0,239,1,0,0,0,240,0,1,0,1,238,0,0,1,1,239
153 DATA1,0,0,0,238,0,0,1,0,241,1,1,0,0,238,0,0,1,1,239,1,0,1,0,241,1,1,0,0
154 DATA240,0,1,0,0,240,0,1,0,1,240,0,1,1,0,253,1,1,0,0,240,0,1,0,0,240,0,1,0
155 DATA1,240,0,1,0,0,240,0,1,0,1,245,0,1,0,1,240,0,1,0,1,240,0,1,0,0,240,0,1
156 DATA0,1,240,0,1,0,0,252,0,1,1,0,241,1,1,0,0,240,0,1,0,1,240,0,1,0,0,240,0
157 DATA1,1,0
158 DATA242,1,0,0,1,244,0,1,0,1,244,0,1,0,1,243,0,0,1,1,242,1,0,0,1,244,0,1,0
159 DATA1,244,0,1,0,1,243,0,0,0,1,244,0,1,0,1,149,0,1,0,1,244,0,1,0,1,243,0,0
160 DATA0,1,244,0,1,0,1,244,0,1,0,1,243,0,0,1,1,242,1,0,0,1,244,0,1,0,1,244,0
161 DATA1,0,1,243,0,0,1,1,239,1,0,0,0,252,0,1,0,1,238,0,0,1,1,239,1,0,0,0,238
162 DATA0,0,0,0,240,0,1,0,1,238,0,0,0,1,238,0,0,0,0,240,0,1,0,1,238,0,0,0,1
163 DATA240,0,1,0,1,238,0,0,0,0,238,0,0,0,1,240,0,1,0,1,238,0,0,0,0,238,0,0,1
164 DATA0,239,1,0,0,1,252,0,1,0,1,238,0,0,1,0,239,1,0,1,0,239,1,0,0,1,238,0,0
165 DATA0,0,240,0,1,1,0,239,1,0,0,0,238,0,0,1,1,241,1,1,0,0,238,0,0,1,0,239,1
166 DATA0,0,1,240,0,1,0,0,238,0,0,1,1,239,1,0,0,0,240,0,1,1,0,239,1,0,0,1,238
167 DATA0,0,1,0,241,1,1,0,0,238,0,0,0,0,238,0,0,1,1,239,1,0,1,0,241,1,1,0,0
168 DATA240,0,1,1,0,241,1,1,0,0,240,0,1,0,1,240,0,1,1,0,241,1,1,0,0,252,0,1,0
169 DATA1,240,0,1,0,0,240,0,1,0,0,245,0,1,0,1,240,0,1,0,0,240,0,1,0,0,252,0,1
170 DATA0,1,240,0,1,1,0,241,1,1,0,0,240,0,1,0,1,240,0,1,1,0,241,1,1,0,0,240,0
171 DATA1,1,0