1 !***********************!
2 ! Christophe BOUILLE !
3 ! EXLFROG !
4 !***********************!
5 R1$="JMB":R1=100150:R2$="CHB":R2=1050:R3$="LAB":R3=500
6 PRES=1:CALL POKE(50688,165,8,6,10)
7 CALL POKE(49156,198,0)
8 VIE=3:A1=1:TI=10:TIM=10
9 MER=0:MER$=RPT$(CHR$(126)&CHR$(127),60)
10 RANDOMIZE
11 IF PRES=0 THEN GOTO 17
12 TI=10:TIM=10:X=18:Y=20:N=0:R=0:S=0:P=42:Q=42:T=41:U=41:O=0
13 DIM A$(18)
14 DIM B$(18)
15 DIM R$(16)
16 GOSUB 461:X=18:Y=20
17 CALL CHAR(5,"014365300F0F9FDFB391")
18 CALL CHAR(6,"80C2A6FCF0F0F9FBCD89")
19 CALL CHAR(3,"3F0F07070F1F171330E0")
20 CALL CHAR(4,"FCF0E0E0F0F8E8C80C07")
21 CALL CHAR(1,"0000000103CF4F4F4753")
22 CALL CHAR(2,"00000080C0F3F2F2E2C6")
23 CALL CHAR(91,"3F3F3F3F3F3F3F3F3F3F")
24 CALL CHAR(92,"0F0F0F0F0F0F0F0F0F0F")
25 CALL CHAR(93,"03030303030303030303")
26 CALL CHAR(94,"FFFFFFFFFFFFFFFFFFFF")
27 CALL CHAR(65,"00073F3F5F5F5F3E3E3E")
28 CALL CHAR(67,"3E3E3E5F5F5F3F3F0700")
29 CALL CHAR(66,"00F8FCFCFCFC7F7F7F7F")
30 CALL CHAR(68,"7F7F7F7FFCFCFCFCF800")
31 CALL CHAR(69,"000FFFFFFFFFFFFFFFFF")
32 CALL CHAR(70,"00C0FFFFFFFFFFFFFFFF")
33 CALL CHAR(71,"FFFFFFFFFFFFFFFF0F00")
34 CALL CHAR(72,"FFFFFFFFFFFFFFFFC000")
35 CALL CHAR(73,"003FFFFFFFFFFFFFFFFF")
36 CALL CHAR(75,"FFFFFFFFFFFFFFFF3F00")
37 CALL CHAR(76,"FFFFFFFFFFFFFFFF0100")
38 CALL CHAR(79,"FFFFFFFFFFFFFFFFF800")
39 CALL CHAR(74,"0001FFFFFFFFFFFFFFFF")
40 CALL CHAR(77,"00F8FFFFFFFFFFFFFFFF")
41 CALL CHAR(78,"0000F0F0F8F8F8F8F0F0")
42 CALL CHAR(80,"F0F0F8F8F8F8F0F00000")
43 CALL CHAR(55,"00000F0F1F1F1F1F0F0F")
44 CALL CHAR(57,"0F0F1F1F1F1F0F0F0000")
45 CALL CHAR(56,"001FFFFFFFFFFFFFFFFF")
46 CALL CHAR(97,"0080FFFFFFFFFFFFFFFF")
47 CALL CHAR(98,"00FCFFFFFFFFFFFFFFFF")
48 CALL CHAR(101,"0003FFFFFFFFFFFFFFFF")
49 CALL CHAR(102,"00F0FFFFFFFFFFFFFFFF")
50 CALL CHAR(114,"FFFFFFFFFFFFFFFF1F00")
51 CALL CHAR(99,"FFFFFFFFFFFFFFFF8000")
52 CALL CHAR(100,"FFFFFFFFFFFFFFFFFC00")
53 CALL CHAR(103,"FFFFFFFFFFFFFFFF0300")
54 CALL CHAR(104,"FFFFFFFFFFFFFFFFF000")
55 CALL CHAR(105,"001F3F3F3F3FFEFEFEFE")
56 CALL CHAR(107,"FEFEFEFE3F3F3F3F1F00")
57 CALL CHAR(125,"F00F0000000000000000")
58 CALL CHAR(106,"00E0FCFCFAFAFA7C7C7C")
59 CALL CHAR(126,"00000030CF3000000000")
60 CALL CHAR(108,"7C7C7CFAFAFAFCFCE000")
61 CALL CHAR(127,"00000060990600000000")
62 CALL CHAR(81,"000F0F0F3F7F7F7F7F7F")
63 CALL CHAR(85,"7F7F7F7F7F3F0F0F0F00")
64 CALL CHAR(82,"00F0F0F0FFFFFFFFFFFF")
65 CALL CHAR(86,"FFFFFFFFFFFFF0F0F000")
66 CALL CHAR(83,"007F7F7FFFFFFFFFFFFF")
67 CALL CHAR(87,"FFFFFFFFFFFF7F7F7F00")
68 CALL CHAR(84,"00808080F0FC7A3A3A3C")
69 CALL CHAR(88,"3C3A3A7AFCF080808000")
70 CALL CHAR(89,"000101010F3F5E5C5C3C")
71 CALL CHAR(90,"00FEFEFEFFFFFFFFFFFF")
72 CALL CHAR(111,"3C5C5C5E3F0F01010100")
73 CALL CHAR(112,"FFFFFFFFFFFFFEFEFE00")
74 CALL CHAR(109,"000F0F0FFFFFFFFFFFFF")
75 CALL CHAR(113,"FFFFFFFFFFFF0F0F0F00")
76 CALL CHAR(110,"00F0F0F0FCFEFEFEFEFE")
77 CALL CHAR(42,"07070703030303010100")
78 CALL CHAR(43,"C3C1E0E0E0F0FFFFFFFF")
79 CALL CHAR(44,"F8FC7C3C3C7CFCFCF8F0")
80 CALL CHAR(115,"FEFEFEFEFEFCF0F0F000")
81 CALL CHAR(23,"071F3F7F7F7C7C7C7E7F")
82 CALL CHAR(24,"FCFEFEFC0000000000E0")
83 CALL CHAR(25,"00010303070707070F0F")
84 CALL CHAR(26,"FFFFFFE1C0C08081FFFF")
85 CALL CHAR(27,"00C0E0F0F07070F0E101")
86 CALL CHAR(28,"0F3F7FFFF8F8F8F0F0F0")
87 CALL CHAR(29,"C0F0F0F8783C3C1C1C1C")
88 CALL CHAR(30,"00010303070707070707")
89 CALL CHAR(31,"3FFFFFFFE0C0C0C0C1C3")
90 CALL CHAR(33,"C0F0F8FC7C38000080F0")
91 CALL CHAR(34,"00000000010101010101")
92 CALL CHAR(35,"FFFFFFFCF8F0F0F0F0F0")
93 CALL CHAR(36,"F0F0E000000000000000")
94 CALL CHAR(37,"0F0F0F0F1F1F1E1E1E1E")
95 CALL CHAR(38,"F8F83C3C1E0F07030301")
96 CALL CHAR(39,"010101010000008080C0")
97 CALL CHAR(40,"F0F0F0F0F8FCFF7F3F1F")
98 CALL CHAR(41,"1E1E1E1E1E3EFCFCF8F0")
99 IF PRES=1 THEN PRES=0:GOTO 431
100 CLS "YbB"
101 CALL POKE(258,250,135)
102 CALL COLOR("0Wb"):LOCATE (22,21):PRINT "Pressez une touche ->"
103 CALL KEY1(A,B):IF A=255 THEN GOTO 103
104 IF CIR=1 THEN CIR=2:GOTO 106
105 IF CIR=2 THEN CIR=1
106 !
107 CLS "BGB"
108 LOCATE (22,4):CALL COLOR("0bG"):PRINT "SCORE: "
109 LOCATE (22,19):PRINT "Christophe BOUILLE"
110 CALL COLOR("1BG"):LOCATE (3,16)
111 PRINT CHR$(23);CHR$(24);CHR$(25);CHR$(26);
112 PRINT CHR$(27);CHR$(28);CHR$(29);CHR$(30);
113 PRINT CHR$(31);CHR$(33):LOCATE (4,15)
114 PRINT CHR$(34);CHR$(35);CHR$(36);
115 PRINT CHR$(37);CHR$(38);CHR$(39);CHR$(40);
116 PRINT CHR$(41);CHR$(42);CHR$(43);CHR$(44)
117 RESTORE 118
118 DATA 8,17,18
119 FOR X=1 TO 3:READ A
120 LOCATE (A,1):CALL COLOR("0RR"):PRINT RPT$(" ",40)
121 NEXT X
122 LOCATE (20,10):CALL COLOR("0MM"):PRINT RPT$(" ",23)
123 CALL COLOR("0BG"):LOCATE (20,34):PRINT "TIME"
124 CALL COLOR("0bG"):LOCATE (20,2):PRINT VIE;"VIES"
125 X=18:Y=20
126 !
127 CALL POKE(258,250,142)
128 N=N+1:O=O+1:T=T-1:U=U-1
129 R=R+3:S=S+3:P=P-2:Q=Q-2
130 IF N=40 THEN GOSUB 240
131 IF R=42 OR R=43 THEN GOSUB 241
132 IF P=2 THEN GOSUB 242
133 IF T=1 THEN GOSUB 243
134 CALL COLOR("1MB")
135 CALL POKE(259,45):CALL POKE(258,255,142)
136 LOCATE (9,1):PRINT SEG$(A$(9),N,40)
137 LOCATE (10,1):PRINT SEG$(A$(10),O,40):CALL COLOR("1WB")
138 LOCATE (11,1):PRINT SEG$(A$(11),P,40)
139 LOCATE (12,1):PRINT SEG$(A$(12),Q,40):CALL COLOR("1RB")
140 LOCATE (13,1):PRINT SEG$(A$(13),R,40)
141 LOCATE (14,1):PRINT SEG$(A$(14),S,40):CALL COLOR("1CB")
142 LOCATE (15,1):PRINT SEG$(A$(15),T,40)
143 LOCATE (16,1):PRINT SEG$(A$(16),U,40)
144 GOSUB 157
145 CALL POKE(259,0)
146 CALL KEY1(A,B)
147 IF A<>255 THEN CALL POKE(258,90,133)
148 CALL COLOR("1GB")
149 IF X=18 THEN CALL COLOR("1GR")
150 IF A=128 THEN GOTO 248
151 IF A=130 THEN GOTO 259
152 IF A=129 THEN GOTO 267
153 IF A=131 THEN GOTO 273
154 IF Y<3 OR Y>37 THEN GOTO 305
155 LOCATE (X,Y):PRINT CHR$(3);CHR$(4):LOCATE (X-1,Y)
156 PRINT CHR$(1);CHR$(2):GOTO 162
157 IF X=10 THEN IF SEG$(A$(10),Y+O,1)<>" " THEN GOTO 305
158 IF X=12 THEN IF SEG$(A$(12),Y+Q,1)<>" " THEN GOTO 305
159 IF X=14 THEN IF SEG$(A$(14),Y+S,1)<>" " THEN GOTO 305
160 IF X=16 THEN IF SEG$(A$(16),Y+U-1,1)<>" " THEN GOTO 305
161 RETURN
162 TI=TI-2
163 CALL COLOR("1MG")
164 IF TI=8 THEN LOCATE (20,TIM):PRINT CHR$(91)
165 IF TI=6 THEN LOCATE (20,TIM):PRINT CHR$(92)
166 IF TI=4 THEN LOCATE (20,TIM):PRINT CHR$(93)
167 IF TI=2 THEN TIM=TIM+1:TI=10:LOCATE (20,TIM-1):PRINT CHR$(32);CHR$(94)
168 IF TIM>32 THEN GOTO 305
169 GOTO 126
170 !
171 FOR Z=200 TO 100 STEP -10:FOR TY=1 TO 1:NEXT TY:CALL POKE(258,Z,130):NEXT Z
172 CALL COLOR("1CC")
173 FOR Z=7 TO 18:LOCATE (Z,1):PRINT RPT$(" ",40):NEXT Z
174 CALL COLOR("0GR")
175 LOCATE (6,1):PRINT B$(6)
176 LOCATE (7,1):PRINT B$(7)
177 LOCATE (17,1):PRINT B$(17)
178 LOCATE (18,1):PRINT B$(17)
179 IF AR1=1 THEN GOSUB 189
180 IF AR2=1 THEN GOSUB 193
181 IF AR3=1 THEN GOSUB 197
182 IF AR4=1 THEN GOSUB 201
183 CALL COLOR("1bG")
184 CALL CHAR(65,"3F7FFCFFDFDFDFEF7F3F")
185 CALL CHAR(66,"FFFF3FFFFFF3CFFFFFFF")
186 CALL CHAR(67,"FFFFFFCFF3FFFFFCFFFF")
187 CALL CHAR(68,"FCFEF7FBFBFBFF3FFEFC")
188 GOTO 205
189 CALL COLOR("1MG")
190 LOCATE (6,4):PRINT CHR$(1);CHR$(2)
191 LOCATE (7,4):PRINT CHR$(3);CHR$(4)
192 RETURN
193 CALL COLOR("1MG")
194 LOCATE (6,14):PRINT CHR$(1);CHR$(2)
195 LOCATE (7,14):PRINT CHR$(3);CHR$(4)
196 RETURN
197 CALL COLOR("1MG")
198 LOCATE (6,24):PRINT CHR$(1);CHR$(2)
199 LOCATE (7,24):PRINT CHR$(3);CHR$(4)
200 RETURN
201 CALL COLOR("1MG")
202 LOCATE (6,36):PRINT CHR$(1);CHR$(2)
203 LOCATE (7,36):PRINT CHR$(3);CHR$(4)
204 RETURN
205 SS=0:F=42:G=INT(RND*5):H=0:I=42:X=17:Y=20
206 !
207 CALL POKE(258,250,142)
208 F=F-2:G=G+1:H=H+2:I=I-2
209 IF F=0 THEN GOSUB 244
210 IF G=41 THEN GOSUB 245
211 IF H=42 THEN GOSUB 246
212 IF I=0 THEN GOSUB 247
213 CALL COLOR("1BC")
214 LOCATE (9,1):PRINT SEG$(B$(9),F,40)
215 LOCATE (11,1):PRINT SEG$(B$(11),G,40)
216 LOCATE (13,1):PRINT SEG$(B$(13),H,40)
217 LOCATE (15,1):PRINT SEG$(B$(15),I,40)
218 CALL POKE(259,0)
219 IF X=9 THEN IF SEG$(B$(9),Y+F,1)=" " THEN GOTO 348
220 IF X=11 THEN IF SEG$(B$(11),Y+G-1,1)=" " THEN GOTO 348
221 IF X=13 THEN IF SEG$(B$(13),Y+H-2,1)=" " THEN GOTO 348
222 IF X=15 THEN IF SEG$(B$(15),Y+I,1)=" " THEN GOTO 348
223 CALL COLOR("1GB")
224 CALL KEY1(A,B)
225 IF A<>255 THEN CALL POKE(258,90,132)
226 IF A=128 THEN GOTO 283
227 IF A=130 THEN GOTO 295
228 LOCATE (X,Y-SS):PRINT CHR$(5);CHR$(6)
229 Y=Y-SS
230 IF Y<3 THEN GOTO 348
231 IF Y>38 THEN GOTO 348
232 TI=TI-2
233 CALL COLOR("1MG")
234 IF TI=8 THEN LOCATE (20,TIM):PRINT CHR$(91)
235 IF TI=6 THEN LOCATE (20,TIM):PRINT CHR$(92)
236 IF TI=4 THEN LOCATE (20,TIM):PRINT CHR$(93)
237 IF TI=2 THEN TIM=TIM+1:TI=10:LOCATE (20,TIM-1):PRINT CHR$(32);CHR$(94)
238 IF TIM>32 THEN GOTO 348
239 GOTO 206
240 N=1:O=1:RETURN
241 R=3:S=3:RETURN
242 P=40:Q=40:RETURN
243 T=40:U=40:RETURN
244 F=40:RETURN
245 G=2:RETURN
246 H=2:RETURN
247 I=40:RETURN
248 IF X=10 THEN DEP=1
249 IF X=18 THEN CALL COLOR("1RR")
250 LOCATE (X,Y):PRINT CHR$(32);CHR$(32)
251 LOCATE (X-1,Y):PRINT CHR$(32);CHR$(32)
252 IF X=18 THEN CALL COLOR("1GB")
253 LOCATE (X-2,Y):PRINT CHR$(3);CHR$(4)
254 LOCATE (X-3,Y):PRINT CHR$(1);CHR$(2)
255 X=X-2:A1=1
256 SCORE=SCORE+100:GOSUB 279
257 IF DEP=1 THEN GOSUB 517:PAUSE .5:DEP=0:GOTO 170
258 GOTO 162
259 IF X=18 THEN GOTO 282
260 LOCATE (X,Y):PRINT CHR$(32);CHR$(32)
261 LOCATE (X-1,Y):PRINT CHR$(32);CHR$(32)
262 LOCATE (X+1,Y):PRINT CHR$(1);CHR$(2)
263 LOCATE (X+2,Y):PRINT CHR$(3);CHR$(4)
264 X=X+2:A1=1
265 SCORE=SCORE+100:GOSUB 279
266 GOTO 162
267 IF Y>38 THEN GOTO 162
268 LOCATE (X,Y):PRINT CHR$(32);CHR$(32);CHR$(3);CHR$(4)
269 LOCATE (X-1,Y):PRINT CHR$(32);CHR$(32);CHR$(1);CHR$(2)
270 Y=Y+2:A1=1
271 CALL POKE(258,50,133):SCORE=SCORE+100:GOSUB 279
272 GOTO 162
273 IF Y<3 THEN GOTO 162
274 LOCATE (X,Y-2):PRINT CHR$(3);CHR$(4);CHR$(32);CHR$(32)
275 LOCATE (X-1,Y-2):PRINT CHR$(1);CHR$(2);CHR$(32);CHR$(32)
276 Y=Y-2:A1=1
277 SCORE=SCORE+100:GOSUB 279
278 GOTO 162
279 CALL COLOR("0bG")
280 LOCATE (22,11):PRINT SCORE
281 RETURN
282 GOTO 162
283 !
284 CALL COLOR("1BC")
285 IF X=9 THEN GOTO 313
286 IF X=17 THEN CALL COLOR("1RR"):LOCATE (17,1):PRINT B$(17)
287 IF X=11 THEN SS=-2
288 IF X=13 THEN SS=1
289 IF X=15 THEN SS=2
290 IF X=17 THEN SS=-2
291 LOCATE (X-2,Y):PRINT CHR$(5);CHR$(6)
292 X=X-2
293 SCORE=SCORE+100:GOSUB 279
294 GOTO 232
295 !
296 IF X=9 THEN SS=1
297 IF X=11 THEN SS=2
298 IF X=13 THEN SS=-2
299 IF X=15 THEN SS=0:CALL COLOR("1GR")
300 IF X=17 THEN GOTO 232
301 LOCATE (X+2,Y):PRINT CHR$(5);CHR$(6)
302 X=X+2
303 SCORE=SCORE+100:GOSUB 279
304 GOTO 232
305 !
306 IF X=8 THEN GOTO 357
307 GOSUB 359
308 CALL COLOR("0BG"):VIE=VIE-1
309 IF VIE=0 THEN GOTO 368
310 TIM=10:TI=10
311 N=0:R=0:S=0:P=42:Q=42:T=41:U=41:O=0
312 PAUSE 2:CALL COLOR("0BG"):LOCATE (20,2):PRINT VIE;"VIES":GOTO 103
313 FOR Z=250 TO 140 STEP -1:CALL POKE(258,Z,132):NEXT Z
314 IF AR1=1 THEN IF AR2=1 THEN IF AR3=1 THEN IF AR4=1 THEN GOTO 425
315 IF Y>1 AND Y<7 THEN IF AR1=0 THEN GOTO 320
316 IF Y>11 AND Y<17 THEN IF AR2=0 THEN GOTO 327
317 IF Y>21 AND Y<27 THEN IF AR3=0 THEN GOTO 334
318 IF Y>33 AND Y<39 THEN IF AR4=0 THEN GOTO 341
319 GOTO 348
320 AR1=1:IF AR1=1 THEN IF AR2=1 THEN IF AR3=1 THEN IF AR4=1 THEN GOTO 425
321 SCORE=SCORE+1000:GOSUB 279
322 CALL COLOR("1BC")
323 LOCATE (9,1):PRINT SEG$(B$(9),F,40):CALL COLOR("1MG")
324 LOCATE (6,4):PRINT CHR$(1);CHR$(2)
325 LOCATE (7,4):PRINT CHR$(3);CHR$(4)
326 PAUSE 1:GOTO 12
327 AR2=1:IF AR2=1 THEN IF AR1=1 THEN IF AR3=1 THEN IF AR4=1 THEN GOTO 425
328 SCORE=SCORE+1000:GOSUB 279
329 CALL COLOR("1BC")
330 LOCATE (9,1):PRINT SEG$(B$(9),F,40):CALL COLOR("1MG")
331 LOCATE (6,14):PRINT CHR$(1);CHR$(2)
332 LOCATE (7,14):PRINT CHR$(3);CHR$(4)
333 PAUSE 1:GOTO 12
334 AR3=1:IF AR1=3 THEN IF AR2=1 THEN IF AR3=1 THEN IF AR4=1 THEN GOTO 425
335 SCORE=SCORE+1000:GOSUB 279
336 CALL COLOR("1BC")
337 LOCATE (9,1):PRINT SEG$(B$(9),F,40):CALL COLOR("1MG")
338 LOCATE (6,24):PRINT CHR$(1);CHR$(2)
339 LOCATE (7,24):PRINT CHR$(3);CHR$(4)
340 PAUSE 1:GOTO 12
341 AR4=1:IF AR4=1 THEN IF AR2=1 THEN IF AR3=1 THEN IF AR1=1 THEN GOTO 425
342 SCORE=SCORE+1000:GOSUB 279
343 CALL COLOR("1BC")
344 LOCATE (9,1):PRINT SEG$(B$(9),F,40):CALL COLOR("1MG")
345 LOCATE (6,36):PRINT CHR$(1);CHR$(2)
346 LOCATE (7,36):PRINT CHR$(3);CHR$(4)
347 PAUSE 1:GOTO 12
348 !
349 VIE=VIE-1
350 IF VIE=0 THEN GOTO 368
351 TIM=10:TI=10
352 CALL COLOR("1RR"):LOCATE (X,Y):PRINT CHR$(32);CHR$(32):PAUSE .1
353 LOCATE (X,Y):CALL COLOR("1CC"):PRINT CHR$(32);CHR$(32)
354 X=18:Y=20
355 PAUSE 1
356 PRES=0:GOTO 11
357 !
358 PRINT "GAGNE":END
359 !
360 CALL COLOR("1GR")
361 CALL CHAR(122,"3C0F06060F1F17133000")
362 CALL CHAR(123,"3CF06060F0F8E8C80C00")
363 CALL CHAR(120,"0000000103C64F4F4663")
364 CALL CHAR(121,"00000080C063F2F262C6")
365 LOCATE (X,Y):PRINT CHR$(122);CHR$(123)
366 LOCATE (X-1,Y):PRINT CHR$(120);CHR$(121)
367 PAUSE .8:RETURN
368 AR1=0:AR2=0:AR3=0:AR4=0:SC1=SCORE:SCORE=0
369 FOR Z=1 TO 20:CALL POKE(258,Z*10,132):PAUSE .1:CALL POKE(259,0):NEXT Z
370 IF SC1>R1 THEN GOTO 374
371 IF SC1>R2 THEN GOTO 378
372 IF SC1>R3 THEN GOTO 381
373 GOTO 411
374 GOSUB 384
375 R3=R2:R3$=R2$:R2=R1:R2$=R1$
376 R1=SC1:INIT$=R1$
377 GOTO 411
378 GOSUB 384
379 R3=R2:R3$=R2$:R2=SC1:R2$=INIT$
380 GOTO 411
381 GOSUB 384
382 R3=SC1:R3$=INIT$
383 GOTO 411
384 CLS "YbY":CALL COLOR("0bY")
385 LOCATE (8,17):PRINT RPT$(" ",8)
386 LOCATE (9,17):PRINT RPT$(" ",8)
387 LOCATE (10,17):PRINT RPT$(" ",8)
388 LOCATE (11,9):PRINT RPT$(" ",16)
389 LOCATE (12,9):PRINT RPT$(" ",24)
390 LOCATE (13,9):PRINT RPT$(" ",24)
391 LOCATE (14,9):PRINT RPT$(" ",24)
392 LOCATE (15,1):PRINT RPT$(" ",40)
393 CALL COLOR("0Yb")
394 LOCATE (19,19):PRINT RPT$(" ",5)
395 LOCATE (21,19):PRINT RPT$(" ",5)
396 LOCATE (20,19):PRINT " AAA "
397 O=1:N=0
398 CALL KEY1(A,B):IF A=128 THEN GOTO 402
399 IF A=129 THEN GOTO 405
400 IF A=42 THEN GOTO 409
401 CALL POKE(258,95,132):CALL POKE(259,0):GOTO 398
402 CALL POKE(258,100,132):N=N+1:IF N=27 THEN N=0:GOTO 402
403 N$(O)=CHR$(N+64):CALL COLOR("0RY"):LOCATE (20,19+O):PRINT N$(O):PAUSE .1
404 GOTO 398
405 CALL POKE(258,85,132):N=0:CALL COLOR("0BY"):LOCATE (20,19+O):PRINT N$(O)
406 CALL COLOR("0RY"):O=O+1:IF O=4 THEN O=0:N=-1:GOTO 398
407 LOCATE (20,19+O):PRINT CHR$(65):N$(O)=CHR$(65)
408 PAUSE .3:GOTO 398
409 INIT$=N$(1)&N$(2)&N$(3)
410 RETURN
411 CALL COLOR("0YbL")
412 LOCATE (2,10):PRINT "RREESSUULLTTAATTSS":CALL COLOR("0Yb")
413 LOCATE (5,19):PRINT R1$:LOCATE (6,17):PRINT R1
414 LOCATE (8,11):PRINT R2$:LOCATE (10,9):PRINT R2
415 LOCATE (9,27):PRINT R3$:LOCATE (11,25):PRINT R3
416 CALL POKE(258,125,132):CALL COLOR("0BY"):LOCATE (21,1)
417 PRINT "Voulez-vous rejouer ? OUI=1,NON=0"
419 CALL KEY1(A,B):IF A=255 THEN GOTO 419
420 IF A=48 THEN GOTO 490
421 IF A=49 THEN GOTO 6
424 GOTO 419
425 AR1=0:AR2=0:AR3=0:AR4=0:SCORE=SCORE+5000:GOSUB 279
426 FOR Z=1 TO 5:CALL POKE(258,120,132):PAUSE .1:CALL POKE(259,0)
427 PAUSE .2:NEXT Z:CALL POKE(258,80,132)
428 CALL COLOR("0bGL"):LOCATE (21,2)
429 PRINT "BBOONNNNUUSS 55000000 PPOOIINNTTSS"
430 VIE=VIE+1:PAUSE 3:GOTO 12
431 CLS "YbB"
432 CALL COLOR("0GG")
433 FOR Z=3 TO 9:LOCATE (Z,2):PRINT RPT$(" ",38):NEXT Z
434 CALL COLOR("0Yb"):LOCATE (20,1)
435 PRINT "un jeu r";CHR$(17);"alis";CHR$(17);
436 PRINT " par Christophe Bouill";CHR$(17)
437 CALL COLOR("1Cb")
438 FOR Z=1 TO 39
439 LOCATE (22,Z):PRINT CHR$(127):CALL POKE(258,Z+100,130):NEXT Z
440 FOR Z=40 TO 1 STEP -1
441 LOCATE (1,Z):PRINT CHR$(125):CALL POKE(258,100+Z,130):NEXT Z
442 FOR Z=1 TO 5:PAUSE .1:LOCATE (22,1):PRINT SEG$(MER$,Z,39):NEXT Z
443 CALL POKE(258,200,135)
444 LOCATE (16,38):PRINT CHR$(32);CHR$(32)
445 LOCATE (17,38):PRINT CHR$(32);CHR$(32)
446 CALL COLOR("0GbH")
447 LOCATE (14,5):PRINT "EXLFROG SUR EXL 100 (C)1986"
448 LOCATE (15,5):PRINT "EXLFROG SUR EXL 100 (C)1986"
449 CALL COLOR("0BGL"):LOCATE (4,3)
450 PRINT "11 ..........................JJEEUU"
451 LOCATE (6,3):PRINT "22 ......RREEGGLLEESS DDUU JJEEUU"
452 LOCATE (8,3):PRINT "33 ............FFIINN DDUU JJEEUU"
453 CALL COLOR("1Cb")
454 CALL POKE(258,200,135):PAUSE .01
455 CALL POKE(258,95,133):PAUSE 0:CALL POKE(259,0):CALL KEY1(A,B)
456 IF A=49 THEN GOTO 12
457 IF A=50 THEN GOSUB 495:GOTO 431
458 IF A=51 THEN GOTO 490
459 MER=MER+1:IF MER=3 THEN MER=1
460 LOCATE (22,1):PRINT SEG$(MER$,MER,39):GOTO 454
461 A$(1)=" ABEFIJMN YZmn ABEFIJMN "
462 A$(9)=A$(1)&A$(1)
463 A$(2)=" CDGHKLOP opqs CDGHKLOP "
464 A$(10)=A$(2)&A$(2)
465 A$(3)=" QRST QRST QRST "
466 A$(11)=A$(3)&A$(3)
467 A$(4)=" UVWX UVWX UVWX "
468 A$(12)=A$(4)&A$(4)
469 A$(5)=" YZmn YZmn YZmn ABEFIJMN "
470 A$(13)=A$(5)&A$(5)
471 A$(6)=" opqs opqs opqs CDGHKLOP "
472 A$(14)=A$(6)&A$(6)
473 A$(7)=" 78abefij 78abefij "
474 A$(15)=A$(7)&A$(7)
475 A$(8)=" 9rcdghkl 9rddghkl "
476 A$(16)=A$(8)&A$(8)
477 A$(18)=" "
478 C$(1)=" ABCBCBCBCD ABCBCD "
479 B$(9)=C$(1)&C$(1)
480 C$(2)=" ABCD ABCD AD ABCBCBCD "
481 B$(11)=C$(2)&C$(2)
482 C$(3)=" ABCBCD ABCBCD ABCD "
483 B$(13)=C$(3)&C$(3)
484 C$(4)=" ABCD ABCBCBCBCD ABCD "
485 B$(15)=C$(4)&C$(4)
486 B$(6)=" XX XX XX XX "
487 B$(7)=" XX XX XX XX "
488 B$(17)=" "
489 RETURN
490 CLS "Ybb":CALL COLOR("0YbLF")
491 LOCATE (12,9):PRINT "EEXXLLFFRROOGG"
492 LOCATE (17,8):PRINT "AAUU RREEVVOOIIRR":END
493 FOR Z=100 TO 255 STEP 3:CALL POKE(258,Z,132):PAUSE 0:NEXT Z
494 CLS "BCC":CALL POKE(259,0):STOP
495 CLS "Ybb":CALL COLOR("0bY")
496 R$(1)="PAUVRE PETITE GRENOUILLE QUI DOIT"
497 R$(2)="TRAVERSER LA ROUTE ET LA RIVIERE..."
498 R$(3)=""
499 R$(4)="Vous allez l'aider en la dirigeant"
500 R$(5)="grace aux curseurs ou la manette."
501 R$(6)="Apres avoir evite la circulation,"
502 R$(7)="vous devez sauter sur les troncs"
503 R$(8)="qui derivent sur l'eau."
504 R$(9)="Arrive sur l'autre rive vous devez"
505 R$(10)="au risque de perdre la vie"
506 R$(11)="aller dans les 'XX'"
507 R$(12)="Vous n'avez que trois vies..."
508 R$(13)="Aux resultats entrez vos initiales"
509 R$(14)="avec les curseurs 'avant' 'droite'"
510 R$(15)="et '*' pour confirmer vos initiales"
511 R$(16)="BONNE CHANCE..."
512 FOR Z=1 TO 16
513 Z1=INT(LEN(R$(Z))/2):LOCATE (Z+5,21-Z1):PRINT R$(Z)
514 CALL POKE(258,90,132):CALL POKE(259,0):NEXT Z
515 CALL KEY1(A,B):IF A=255 THEN GOTO 515
516 RETURN
517 CALL COLOR("1GR"):LOCATE (X-1,Y):PRINT CHR$(1);CHR$(2)
518 LOCATE (X,Y):PRINT CHR$(3);CHR$(4)
519 RETURN
Ce listing est uniquement proposé pour un usage privé.
Sans accord écrit préalable, vous n'êtes pas autorisé à le distribuer, le transmettre ou le rediffuser.