1 !****************************!
2 ! PETITS CHEVAUX SUR EXL 100 !
3 ! PAR CH ET JC SARHY-MANGIN !
4 ! LE 3/8/85 !
5 !****************************!
6 CALL CHAR(1,"00000000181800000000")
7 CALL CHAR(2,"00606000000606000000")
8 CALL CHAR(3,"00060600181800606000")
9 CALL CHAR(4,"00006666000066660000")
10 CALL CHAR(5,"00666600181800666600")
11 CALL CHAR(6,"00666600666600666600")
12 CALL CHAR(42,"00183C7C0C3C38183C7E")
13 C2$(1,1)="1YG":C2$(2,1)="1YG":C2$(3,1)="1YG":C2$(4,1)="1YG"
14 C2$(1,2)="1bG":C2$(2,2)="1bG":C2$(3,2)="1bG":C2$(4,2)="1bG"
15 C2$(1,3)="1MG":C2$(2,3)="1MG":C2$(3,3)="1MG":C2$(4,3)="1MG"
16 C2$(1,4)="1WG":C2$(2,4)="1WG":C2$(3,4)="1WG":C2$(4,4)="1WG"
17 C$(1)="0BY":C$(2)="0BC":C$(3)="0BM":C$(4)="0BW"
18 CLS "Wbb":CALL COLOR("0Wb"):CALL CAD(20)
19 CALL COLOR("1Wb"):LOCATE (4,6):PRINT "* *":LOCATE (4,33):PRINT "* *"
20 LOCATE (18,6):PRINT "* *"
21 CALL COLOR("0WbHL")
22 LOCATE (10,12):PRINT "CCHHEEVVAAUUXX"
23 LOCATE (11,12):PRINT "CCHHEEVVAAUUXX"
24 CALL COLOR("0Wb"):LOCATE (18,31):PRINT "SMJC"
25 CALL TIC(3):PAUSE .5:CALL CAR
26 LOCATE (22,32):PRINT "<--'":PAUSE
27 !
28 !
29 !
30 CALL CAD(22):CALL COLOR("0WbL")
31 LOCATE (3,15):PRINT "CCHHEEVVAAUUXX"
32 LOCATE (4,15):PRINT RPT$(CHR$(30),12):CALL COLOR("0Wb")
33 CALL COLOR("0Wb"):LOCATE (6,5):PRINT "CE JEU PERMET DE JOUER :"
34 LOCATE (8,5):PRINT "1.ENTRE VOUS (DE 1 A 4 JOUEURS)"
35 LOCATE (10,5):PRINT "2.AVEC L'ORDINATEUR,CELUI-CI "
36 LOCATE (12,6):PRINT "REMPLACANT 1 A 3 JOUEURS ADVERSES"
37 LOCATE (14,6):PRINT "A APPELER -EXL1,-EXL2,-EXL3"
38 LOCATE (16,5):PRINT "3.CONTRE L'ORDINATEUR "
39 LOCATE (18,6):PRINT "REMPLACANT 1 A 3 JOUEURS ALLIES"
40 LOCATE (20,6):PRINT "A APPELER DU MEME NOM -EXL"
41 LOCATE (21,35):PRINT "<--'":PAUSE:CALL CAR
42 CALL CAD(22):CALL COLOR("0WbL")
43 LOCATE (4,15):PRINT "RREEGGLLEESS"
44 LOCATE (5,15):PRINT RPT$(CHR$(30),12):CALL COLOR("0Wb")
45 CALL COLOR("0Wb"):LOCATE (7,5):PRINT "L'ORDINATEUR ANIME CE JEU ET :"
46 LOCATE (9,5):PRINT "- ANNONCE TOUR A TOUR LES JOUEURS"
47 LOCATE (11,5):PRINT "- LEUR DEMANDE DE LANCER LE DE"
48 LOCATE (13,5):PRINT "- ANNONCE LE RESULTAT DU LANCER"
49 LOCATE (15,5):PRINT "- DEMANDE LE No DU CHEVAL CHOISI"
50 LOCATE (17,5):PRINT "- DEPLACE LES CHEVAUX"
51 LOCATE (19,5):PRINT "- GUIDE ET RENSEIGNE LES JOUEURS"
52 LOCATE (21,32):PRINT "<--'":PAUSE:CALL CAR
53 CALL CAD(22):CALL COLOR("0WbL")
54 LOCATE (4,15):PRINT "RREEGGLLEESS"
55 LOCATE (5,15):PRINT RPT$(CHR$(30),12):CALL COLOR("0Wb")
56 CALL COLOR("0Wb"):LOCATE (7,5):PRINT "LES REGLES SONT LES SUIVANTES :"
57 LOCATE (9,5):PRINT "- IL FAUT FAIRE 6 POUR SORTIR"
58 LOCATE (11,5):PRINT "- UN [6] PERMET DE REJOUER"
59 LOCATE (13,5):PRINT "- IL NE PEUT Y AVOIR QU'UN CHEVAL "
60 LOCATE (15,5):PRINT " PAR CASE :"
61 LOCATE (17,9):PRINT ". SUR LE PARCOURS PRINCIPAL"
62 LOCATE (19,9):PRINT ". EXCEPTE DANS LES ECURIES"
63 LOCATE (21,32):PRINT "<--'":PAUSE:CALL CAR
64 CALL CAD(22):CALL COLOR("0WbL")
65 LOCATE (4,15):PRINT "RREEGGLLEESS"
66 LOCATE (5,15):PRINT RPT$(CHR$(30),12):CALL COLOR("0Wb")
67 CALL COLOR("0Wb"):LOCATE (7,5):PRINT "POUR RENTRER A L'ECURIE IL FAUT :"
68 LOCATE (9,5):PRINT "- SE PLACER JUSTE DEVANT L'ECURIE"
69 LOCATE (11,5):PRINT " ( SINON VOUS RECULEZ .....)"
70 LOCATE (13,5):PRINT "- FAIRE SUCCESSIVEMENT :"
71 LOCATE (15,7):PRINT ". 1,2,3,4,5 POUR AVANCER"
72 LOCATE (17,7):PRINT ". 6 POUR SE PLACER A L'ARRIVEE"
73 LOCATE (19,5):PRINT "MAINTENANT BONNE CHANCE A TOUS."
74 LOCATE (21,32):PRINT "<--'":PAUSE:CALL TRO
75 !
76 !
77 !
78 CALL CAD(20):CALL COLOR("0WbL")
79 LOCATE (4,14):PRINT "CCHHEEVVAAUUXX"
80 LOCATE (5,14):PRINT RPT$(CHR$(30),14):CALL COLOR("0Wb")
81 LOCATE (7,5):PRINT "- CHEVAUX PAR JOUEUR [<=4]:";:ACCEPT SIZE(1);NC
82 IF NC>4 THEN 81
83 LOCATE (9,5):PRINT "- NOMBRE DE JOUEURS [<=4]:";:ACCEPT SIZE(1);NJ
84 IF NJ>4 THEN 83
85 LOCATE (11,5):PRINT "- DEMONSTRATION [ O/N ] : ";:ACCEPT SIZE(1);R$
86 IF R$="N" THEN 89
87 IF R$<>"O" THEN 85
88 FOR I=1 TO NJ:NOM$(I)="-EXL 100":NEXT I:GOTO 97
89 FOR I=1 TO NJ
90 LOCATE (13,5):PRINT RPT$(" ",34):PAUSE 1
91 LOCATE (13,5):PRINT "- JOUEUR No";I;",VOTRE NOM SVP :"
92 LOCATE (15,7):PRINT "( PRECEDE D(UN TIRET (-) ,"
93 LOCATE (17,7):PRINT "EXL 100 JOUERA POUR VOUS .)"
94 LOCATE (19,10):PRINT RPT$(CHR$(29),11)
95 LOCATE (19,10):PRINT ". ";:ACCEPT SIZE(13);NOM$(I)
96 NEXT I
97 LOCATE (19,10):PRINT "VALIDE [O/N] : ";:ACCEPT SIZE(10);R$
98 IF R$="N" THEN 78
99 IF R$="O" THEN 101
100 GOTO 97
101 !
102 !
103 !
104 CALL POKE(50432,162,5,45,162,136,45,10):CALL EXEC(50432)
105 CLS "BGG":CALL COLOR("0bG")
106 CALL CAD(17)
107 CALL COLOR(C$(1))
108 LOCATE (3,31):PRINT "D) ":LOCATE (5,31):PRINT "A) ...."
109 CALL COLOR(C$(2))
110 LOCATE (14,31):PRINT "D) ":LOCATE (16,31):PRINT "A) ...."
111 CALL COLOR(C$(3))
112 LOCATE (14,5):PRINT "D) ":LOCATE (16,5):PRINT "A) ...."
113 CALL COLOR(C$(4))
114 LOCATE (3,5):PRINT "D) ":LOCATE (5,5):PRINT "A) ...."
115 FOR CH1=1 TO NC:FOR JOU1=1 TO NJ
116 W=42:COU$=C2$(CH1,JOU1):GOSUB 378
117 NEXT JOU1:NEXT CH1
118 CALL COLOR("0bG"):CALL JEU(60,1)
119 CALL COLOR(C$(1)):CALL JEU(1,49)
120 CALL COLOR(C$(2)):CALL JEU(13,50)
121 CALL COLOR(C$(3)):CALL JEU(25,51)
122 CALL COLOR(C$(4)):CALL JEU(37,52)
123 FOR I=1 TO 5
124 CALL COLOR(C$(1)):LOCATE (4+I,20):PRINT I
125 CALL COLOR(C$(2)):LOCATE (10,32-2*I):PRINT I
126 CALL COLOR(C$(3)):LOCATE (16-I,20):PRINT I
127 CALL COLOR(C$(4)):LOCATE (10,8+2*I):PRINT I
128 NEXT I
129 !
130 !
131 !
132 !
133 JOU=1
134 FJ(1)=48:FJ(2)=60:FJ(3)=72:FJ(4)=84
135 FOR I=NC+1 TO 4:SC(I,1)=3:SC(I,2)=3:SC(I,3)=3:SC(I,4)=3:NEXT I
136 !
137 !
138 !
139 CALL COLOR(C$(JOU))
140 LOCATE (20,4):PRINT RPT$(" ",35)
141 CALL JUR:PAUSE .5:CALL NU(JOU):PAUSE .5
142 LOCATE (20,5):PRINT NOM$(JOU);",LANCEZ VOTRE DE .";:CALL CAR
143 ACCEPT SIZE(2);DE$:GOTO 147
144 IF SEG$(NOM$(JOU),1,1)="-" THEN PAUSE 1:GOTO 147
145 K$=KEY$
146 LOCATE (20,4):PRINT RPT$(" ",35)
147 FOR FOIS=1 TO INTRND(9)
148 RANDOMIZE:DE=INTRND(6):PAUSE .2
149 CALL DES(DE,FIG):LOCATE (10,21):CALL COLOR("1WB"):PRINT CHR$(FIG)
150 CALL COLOR(C$(JOU))
151 NEXT FOIS
152 CALL NU(DE):PAUSE .5
153 !
154 !
155 !
156 IF DE=6 THEN CALL BIE:PAUSE .5:GOTO 172
157 !
158 !
159 !
160 !
161 !
162 FOR I=1 TO 4
163 IF SC(I,JOU)=1 OR SC(I,JOU)=2 THEN 172
164 NEXT I
165 !
166 !
167 !
168 LOCATE (20,4):PRINT RPT$(" ",35)
169 LOCATE (20,6):PRINT "IL FAUT FAIRE 6 POUR SORTIR !!":PAUSE 1
170 LOCATE (20,4):PRINT RPT$(" ",35):GOTO 242
171 !
172 !
173 !
174 IF NC=1 THEN CH=1:GOTO 185
175 LOCATE (20,4):PRINT RPT$(" ",35)
176 LOCATE (20,5):PRINT NOM$(JOU);",CHEVAL A DEPLACER : ";:CALL CAR
177 IF SEG$(NOM$(JOU),1,1)<>"-" THEN 179
178 GOSUB 257:GOTO 181
179 K$=KEY$:IF NOT NUMERIC(K$)THEN 174
180 CH=VAL(K$)
181 IF CH<=NC THEN 184
182 CALL NON:LOCATE (20,4):PRINT RPT$(" ",35)
183 LOCATE (20,10):PRINT "CHEVAL NON PARTANT ":PAUSE 2:GOTO 172
184 LOCATE (20,4):PRINT RPT$(" ",35)
185 LOCATE (20,9):PRINT "JE DEPLACE LE CHEVAL :";CH
186 !
187 !
188 !
189 IF SC(CH,JOU)=0 AND DE=6 THEN AV=0:GOTO 209
190 !
191 !
192 !
193 IF SC(CH,JOU)=0 THEN 194 ELSE 198
194 CALL NON:PAUSE .5
195 LOCATE (20,4):PRINT RPT$(" ",35)
196 LOCATE (20,8):PRINT "CE CHEVAL N'EST PAS SORTI ":PAUSE 1:GOTO 172
197 !
198 !
199 !
200 IF SC(CH,JOU)=1 OR SC(CH,JOU)=2 THEN AV=DE:GOTO 214
201 !
202 !
203 !
204 IF SC(CH,JOU)<>3 THEN 209
205 CALL NON:PAUSE .5
206 LOCATE (20,4):PRINT RPT$(" ",35)
207 LOCATE (20,5):PRINT " CE CHEVAL EST DEJA ARRIVE !!":PAUSE 1:GOTO 174
208 !
209 !
210 !
211 CH1=CH:JOU1=JOU:COU$=C2$(1,JOU):W=46:GOSUB 378
212 PO(CH,JOU)=FJ(JOU)-47:SC(CH,JOU)=1
213 !
214 !
215 !
216 IF PO(CH,JOU)=0 THEN 225
217 !
218 IF PO(CH,JOU)>48 THEN PE(CH,JOU)=PO(CH,JOU)-48 ELSE PE(CH,JOU)=PO(CH,JOU)
219 !
220 !
221 !
222 IF SC(CH,JOU)=2 THEN GOSUB 403:GOTO 242
223 CALL DEP(PE(CH,JOU),F,C1$)
224 CALL COLOR(C1$):CALL JEU(PE(CH,JOU),F)
225 !
226 !
227 !
228 IF SC(CH,JOU)<>2 THEN PO(CH,JOU)=PO(CH,JOU)+AV
229 IF PO(CH,JOU)>FJ(JOU)THEN PO(CH,JOU)=2*FJ(JOU)-PO(CH,JOU)
230 IF PO(CH,JOU)=FJ(JOU)THEN SC(CH,JOU)=2
231 !
232 !
233 !
234 CALL COLOR(C2$(CH,JOU))
235 IF PO(CH,JOU)>48 THEN PE(CH,JOU)=PO(CH,JOU)-48: ELSE PE(CH,JOU)=PO(CH,JOU)
236 CALL TIC(DE):CALL JEU(PE(CH,JOU),42)
237 !
238 !
239 !
240 GOSUB 389
241 !
242 !
243 !
244 !
245 IF DE=6 THEN 248
246 JOU=JOU+1:IF JOU>NJ THEN JOU=1
247 !
248 !
249 !
250 IF SC(1,JOU)=3 AND SC(2,JOU)=3 AND SC(3,JOU)=3 AND SC(4,JOU)=3 THEN 252
251 GOTO 137
252 GOSUB 369:GOTO 246
253 END
254 !
255 !
256 !
257 !
258 !
259 !
260 FOR I=1 TO NC
261 IF SC(I,JOU)=0 AND DE=6 THEN PP(I,JOU)=FJ(JOU)-47:GOTO 266
262 IF SC(I,JOU)=0 AND DE<>6 THEN PP(I,JOU)=0:GOTO 266
263 IF SC(I,JOU)=2 OR SC(I,JOU)=3 THEN PP(I,JOU)=0:GOTO 266
264 PP(I,JOU)=PO(I,JOU)+DE
265 IF PP(I,JOU)>FJ(JOU)THEN PP(I,JOU)=2*FJ(JOU)-(PO(I,JOU)+DE)
266 IF PP(I,JOU)>48 THEN PP(I,JOU)=PP(I,JOU)-48
267 NEXT I
268 !
269 !
270 !
271 FOR I=1 TO NC
272 SD(I,JOU)=0:FOR J=1 TO NC
273 IF PP(I,JOU)<>0 AND PP(I,JOU)=PE(J,JOU)AND I<>J THEN SD(I,JOU)=1
274 NEXT J
275 NEXT I
276 !
277 !
278 !
279 LI(1)=48:LI(2)=12:LI(3)=24:LI(4)=36
280 FOR I=1 TO NC
281 IF PP(I,JOU)=LI(JOU)AND SD(I,JOU)=0 THEN CH=I:RETURN
282 NEXT
283 !
284 !
285 !
286 FOR I=1 TO NC
287 IF SC(I,JOU)<>2 THEN 294
288 IF DE=1 AND PO(I,JOU)=FJ(JOU)THEN CH=I:RETURN
289 IF DE=2 AND PO(I,JOU)=49 THEN CH=I:RETURN
290 IF DE=3 AND PO(I,JOU)=50 THEN CH=I:RETURN
291 IF DE=4 AND P0(I,JOU)=51 THEN CH=I:RETURN
292 IF DE=5 AND PO(I,JOU)=52 THEN CH=I:RETURN
293 IF DE=6 AND PO(I,JOU)=53 THEN CH=I:RETURN
294 NEXT I
295 !
296 !
297 !
298 CP(JOU)=0
299 FOR I=1 TO NC
300 IF SC(I,JOU)=1 THEN CP(JOU)=CP(JOU)+1
301 NEXT I
302 IF CP(JOU)>1 THEN 307
303 FOR I=1 TO NC
304 IF PP(I,JOU)=FJ(JOU)-47 AND SD(I,JOU)=0 THEN CH=I:RETURN
305 NEXT I
306 !
307 !
308 !
309 FOR I=1 TO NC
310 IF SD(I,JOU)=1 THEN 316
311 FOR J=1 TO NC:FOR K=1 TO NJ
312 IF PE(J,K)=PP(I,JOU)AND NOM$(K)="-EXL" THEN SD(I,JOU)=1:GOTO 316
313 IF SC(I,JOU)=1 AND PE(J,K)=PP(I,JOU)THEN CH=I:RETURN
314 IF SC(I,JOU)=0 AND PE(J,K)=PP(I,JOU)AND DE=6 THEN CH=I:RETURN
315 NEXT K:NEXT J
316 NEXT I
317 !
318 !
319 !
320 !
321 !
322 !
323 !
324 FOR I=1 TO NC
325 IF PE(I,JOU)=1 OR PE(I,JOU)=13 OR PE(I,JOU)=25 OR PE(I,JOU)=37 THEN 327
326 GOTO 328
327 IF SD(I,JOU)=0 THEN CH=I:RETURN
328 NEXT I
329 !
330 !
331 !
332 FOR I=1 TO NC
333 IF SC(I,JOU)=1 AND PE(I,JOU)<FJ(JOU)-44 AND SD(I,JOU)=0 THEN CH=I:RETURN
334 NEXT I
335 !
336 !
337 !
338 FOR I=1 TO NC
339 IF SD(I,JOU)=1 THEN 345
340 COM=0:DEC=0:FOR J=1 TO NC
341 IF PO(I,JOU)>PO(J,JOU)THEN COM=COM+1
342 IF SC(J,JOU)=2 OR SC(J,JOU)=3 THEN DEC=DEC+1
343 NEXT J
344 IF SD(I,JOU)=0 AND COM=NC-1-DEC THEN CH=I:RETURN
345 NEXT I
346 !
347 !
348 !
349 FOR I=1 TO NC
350 IF SC(I,JOU)=1 AND SD(I,JOU)=0 THEN CH=I:RETURN
351 NEXT I
352 !
353 !
354 !
355 FOR I=1 TO NC
356 IF SC(I,JOU)=1 THEN CH=I:RETURN
357 NEXT I
358 !
359 !
360 !
361 FOR I=1 TO NC
362 IF SC(I,JOU)=2 THEN CH=I:RETURN
363 NEXT I
364 !
365 !
366 !
367 RANDOMIZE:CH=INTRND(NC):RETURN
368 !
369 !
370 !
371 IF SJ(JOU)=1 THEN 377
372 CALL COLOR(C$(JOU)):LOCATE (20,4):PRINT RPT$(" ",35)
373 PL=PL+1:ON PL GOTO 374,375,375,375
374 CALL MAR:LOCATE (20,5):PRINT NOM$(JOU);",VOUS AVEZ GAGNE ":GOTO 376
375 LOCATE (20,5):PRINT NOM$(JOU);",VOUS ETES ";PL;"eme":GOTO 376
376 PAUSE 3:SJ(JOU)=1:IF PL=NJ THEN LOCATE (22,18):PRINT "FIN":END
377 RETURN
378 !
379 !
380 !
381 DATA 1,1,3,34,2,1,3,35,3,1,3,36,4,1,3,37
382 DATA 1,2,14,34,2,2,14,35,3,2,14,36,4,2,14,37
383 DATA 1,3,14,8,2,3,14,9,3,3,14,10,4,3,14,11
384 DATA 1,4,3,8,2,4,3,9,3,4,3,10,4,4,3,11
385 CALL COLOR(COU$):RESTORE 381
386 READ X,Y,L,C
387 IF X=CH1 AND Y=JOU1 THEN LOCATE (L,C):PRINT CHR$(W) ELSE 386
388 RETURN
389 !
390 !
391 !
392 FOR I=1 TO 4:FOR J=1 TO 4
393 IF PE(I,J)=PE(CH,JOU)THEN 394 ELSE 401
394 IF CH=I AND JOU=J THEN 401
395 LOCATE (20,4):PRINT RPT$(" ",35):CALL COU:PAUSE 1
396 CH1=I:JOU1=J:COU$=C2$(I,J):W=42:GOSUB 378
397 CALL TRO:PAUSE .5:CALL COLOR(C$(J))
398 LOCATE (20,4):PRINT RPT$(" ",35)
399 LOCATE (20,5):PRINT NOM$(J);",CHEVAL";I;"ELIMINE !!"
400 PO(I,J)=0:PE(I,J)=0:SC(I,J)=0:PAUSE 3:GOTO 402
401 NEXT J:NEXT I
402 RETURN
403 !
404 !
405 !
406 IF DE<>1 AND PO(CH,JOU)=FJ(JOU)THEN 423 ELSE 407
407 IF DE=1 AND PO(CH,JOU)=FJ(JOU)THEN 408 ELSE 409
408 CALL COLOR("0bG"):CALL JEU(PE(CH,JOU),1):PO(CH,JOU)=49:GOTO 422
409 W=PO(CH,JOU):COU$=C$(JOU):GOSUB 424
410 IF DE=2 AND PO(CH,JOU)=49 THEN PO(CH,JOU)=50:GOTO 422
411 IF DE=3 AND PO(CH,JOU)=50 THEN PO(CH,JOU)=51:GOTO 422
412 IF DE=4 AND PO(CH,JOU)=51 THEN PO(CH,JOU)=52:GOTO 422
413 IF DE=5 AND PO(CH,JOU)=52 THEN PO(CH,JOU)=53:GOTO 422
414 IF DE=6 AND PO(CH,JOU)=53 AND CH=1 THEN 415 ELSE 416
415 PO(CH,JOU)=54:SC(CH,JOU)=3:CALL BRA:CALL MAR:GOTO 422
416 IF DE=6 AND PO(CH,JOU)=53 AND CH=2 THEN 417 ELSE 418
417 PO(CH,JOU)=55:SC(CH,JOU)=3:CALL BRA:CALL MAR:GOTO 422
418 IF DE=6 AND PO(CH,JOU)=53 AND CH=3 THEN 419 ELSE 420
419 PO(CH,JOU)=56:SC(CH,JOU)=3:CALL BRA:CALL MAR:GOTO 422
420 IF DE=6 AND PO(CH,JOU)=53 AND CH=4 THEN 421 ELSE 422
421 PO(CH,JOU)=57:SC(CH,JOU)=3:CALL BRA:CALL MAR:GOTO 422
422 W=42:COU$=C2$(CH,JOU):CALL TIC(1):GOSUB 424
423 RETURN
424 ON JOU GOTO 425,428,431,434
425 RESTORE 439
426 READ X,L,C
427 IF X=PO(CH,JOU)-48 THEN 437 ELSE 426
428 RESTORE 441
429 READ X,L,C
430 IF X=PO(CH,JOU)-48 THEN 437 ELSE 429
431 RESTORE 443
432 READ X,L,C
433 IF X=PO(CH,JOU)-48 THEN 437 ELSE 432
434 RESTORE 445
435 READ X,L,C
436 IF X=PO(CH,JOU)-48 THEN 437 ELSE 435
437 CALL COLOR(COU$):LOCATE (L,C):PRINT CHR$(W):PE(CH,JOU)=0
438 IF SC(CH,JOU)=3 THEN PO(CH,JOU)=0
439 DATA 1,5,21,2,6,21,3,7,21,4,8,21,5,9,21,6,5,34,7,5,35,8,5,36
440 DATA 9,5,37
441 DATA 1,10,31,2,10,29,3,10,27,4,10,25,5,10,23,6,16,34,7,16,35
442 DATA 8,16,36,9,16,37
443 DATA 1,15,21,2,14,21,3,13,21,4,12,21,5,11,21,6,16,8,7,16,9
444 DATA 8,16,10,9,16,11
445 DATA 1,10,11,2,10,13,3,10,15,4,10,17,5,10,19,6,5,8,7,5,9
446 DATA 8,5,10,9,5,11
447 RETURN
448 !
449 !
450 !
451 !
452 !
453 SUB CAD(B)
454 CLS
455 LOCATE (2,3):PRINT RPT$(CHR$(29),37)
456 LOCATE (B,3):PRINT RPT$(CHR$(30),37)
457 FOR I=2 TO B:LOCATE (I,3):PRINT CHR$(19):NEXT I
458 FOR I=2 TO B:LOCATE (I,39):PRINT CHR$(31):NEXT I
459 SUBEND
460 !
461 !
462 !
463 SUB JEU(P,C)
464 DATA 1,4,23,2,5,23,3,6,23,4,7,23,5,8,23,6,9,23,7,9,25,8,9,27
465 DATA 9,9,29,10,9,31,11,9,33,12,10,33,13,11,33,14,11,31
466 DATA 15,11,29,16,11,27,17,11,25,18,11,23
467 DATA 19,12,23,20,13,23,21,14,23,22,15,23,23,16,23,24,16,21
468 DATA 25,16,19,26,15,19,27,14,19,28,13,19,29,12,19,30,11,19
469 DATA 31,11,17,32,11,15,33,11,13,34,11,11,35,11,9,36,10,9
470 DATA 37,9,9,38,9,11,39,9,13,40,9,15,41,9,17,42,9,19,43,8,19
471 DATA 44,7,19,45,6,19,46,5,19,47,4,19,48,4,21
472 DATA 49,5,21,50,6,21,51,7,21,52,8,21,53,9,21,54,5,34
473 RESTORE 464
474 IF P<>60 THEN 476
475 FOR I=1 TO 48:READ N,Y,X:LOCATE (Y,X):PRINT CHR$(1):NEXT I:GOTO 479
476 READ N,Y,X
477 IF N=P THEN LOCATE (Y,X):PRINT CHR$(C):GOTO 479
478 GOTO 476
479 SUBEND
480 !
481 !
482 !
483 SUB AFF(CO$,CA,L,C)
484 CALL COLOR("0"&CO$)
485 LOCATE (L,C):PRINT CHR$(CA)
486 SUBEND
487 !
488 !
489 !
490 SUB DEP(VAR,F,C1$)
491 IF VAR=1 THEN F=49:C1$="0BY":GOTO 496
492 IF VAR=13 THEN F=50:C1$="0BC":GOTO 496
493 IF VAR=25 THEN F=51:C1$="0BM":GOTO 496
494 IF VAR=37 THEN F=52:C1$="0BW":GOTO 496
495 C1$="0bG":F=1
496 SUBEND
497 !
498 !
499 !
500 SUB DES(DE,FIG)
501 ON DE GOTO 502,503,504,505,506,507
502 FIG=1:GOTO 508
503 FIG=2:GOTO 508
504 FIG=3:GOTO 508
505 FIG=4:GOTO 508
506 FIG=5:GOTO 508
507 FIG=6:GOTO 508
508 SUBEND
509 !
510 !
511 !
512 !
513 !
514 SUB TIC(DE)
515 TIC$="0D7C8BAABAB602FC"
516 TOC$="0D7C91B2BAB602FC"
517 FOR I=1 TO DE
518 CALL SPEECH("L,"&TIC$):PAUSE .05:CALL SPEECH("L,"&TIC$)
519 PAUSE .1:CALL SPEECH("L,"&TOC$)
520 PAUSE .1:NEXT I
521 SUBEND
522 !
523 !
524 !
525 SUB NU(DE)
526 ON DE GOTO 527,530,534,538,542,547
527 S1$="C9AEB5D334AA1CAFA476F3AA73BDE3969AAA99B2AFBBBDE59554CA5E56865F5C1A45"
528 S2$="4B4951F22E5C49C5A5C13B7B191551246F829994FF1F"
529 SP$=S1$&S2$:GOTO 551
530 S1$="24673225AB629292CAB68C32892AC9D3A32202A904ED8C4849ABDC41435515AF6AAB0"
531 S2$="C16F6728221CC29A4CF75B73DAC2A4238BD55B3AA0B26D797CD2DDC852B5A263F72B7"
532 S3$="685F61E2A8593CBD24299254EF46FEFF"
533 SP$=S1$&S2$&S3$:GOTO 551
534 S1$="0CD8D6420103AF0B20DA7301047ECD00ADB64219456F08750969E679A6D4BA06C38F"
535 S2$="6156CD674E6F7AC34B694A2D2757DF04A1B690B96915169161A8915856ED76B295FC"
536 S3$="7F"
537 SP$=S1$&S2$&S3$:GOTO 551
538 S1$="0E58816268DD3BA457ECE39650B251B5AF7DAC5CD3D236C976839BEC487A9844E054A"
539 S2$="52A54030002504DAA024A1A56C0A0570A68F2DDB583FD8479A2D454BE6E62955B53CC"
540 S3$="84894FE96D6BB36937CF30ADADBA4D350B87A6B830F516F4FF"
541 SP$=S1$&S2$&S3$:GOTO 551
542 S1$="043036890095A63060AA710E7080031CE080B3A6ED48F3D4CBA9B6D9B50A1FA7CB757"
543 S2$="5AF74ACEAD6C43CCCB24B1E958830DB5D5EB52D9211BAF94D05B97B28153961F69856"
544 S3$="484E55E6282746E054A52A540300C000434B86689F91747152B2A65C2CB24C6B9B295"
545 S4$="18F52B50F43B6A9516ED8F4C5B84A84E1FF07"
546 SP$=S1$&S2$&S3$&S4$:GOTO 551
547 S1$="0C58768D031C9080043410B29B9630244DC9A612528ED93D2BD9E4C2A271A765478BA"
548 S2$="0DB93166FC92C1AB78B3F299367DC4E5E83C25D5EDA79DB048B6A4201749522010948"
549 S3$="4002129080048C918D535847367A16CD1D195469C9154FBA11A1C664561164FEFF"
550 SP$=S1$&S2$&S3$
551 CALL SPEECH("L,"&SP$)
552 SUBEND
553 !
554 !
555 !
556 SUB JUR
557 S1$="2AF4CAC2BC5A866C7215A3709AF265C394596E498FCA5062D925982A5C91DD34A78B1"
558 S2$="06571539464CC54B47112A31A65D1C5410C6CC5D8C604D1ABF1441F13C4A0C6126D4C"
559 S3$="92422B35DCB24D8AC3C5E5CC36296D09F75632E4D4D5DADBEA90530B9EE8B043CA43A"
560 S4$="C63C20C294FB18EB132A43CC42A26CC107397F458CFEFF"
561 SP$=S1$&S2$&S3$&S4$:CALL SPEECH("L,"&SP$)
562 SUBEND
563 !
564 !
565 !
566 SUB BRA
567 S1$="24D2ACA2CC1B9384A98DB468A5B2485AC32C6E8BB2BA32A9302DE8A2D3A9232FAB98"
568 S2$="4DB3B572C4123B2D57F1E50E9B737AE4C82A427643654939285995187694A417B662"
569 S3$="14B69393CCA94155A95E09A33931DC322E8EF65164CA98328A17E1BEACEBFF97"
570 SP$=S1$&S2$&S3$:CALL SPEECH("L,"&SP$)
571 PAUSE .5
572 SUBEND
573 !
574 !
575 !
576 SUB COU
577 S1$="02882BCD51B69A6855B340F1E16A338903E517699E2A6154B80A929504815395AA50"
578 S2$="0D0006C4996684D44B84358E125455D1AED646B08325369C58410972B0C4B86321B0"
579 S3$="61A21B49848A77156B82122EDCE31D3F0FEBF"
580 SP$=S1$&S2$&S3$:CALL SPEECH("L,"&SP$)
581 SUBEND
582 !
583 !
584 !
585 SUB NON
586 S1$="AA2A4864AD129BAA62E6B349E4AA810556AB49A886106ADAC4B1085997C20E9BB8A54"
587 S2$="3871844E213343D6A9291AF7B8CA2274D3DF2D263DA5077DB438A6DC3D34D352E8E0B"
588 S3$="13B513D8F8DAD9D5F2FB1F"
589 SP$=S1$&S2$&S3$:CALL SPEECH("L,"&SP$)
590 SUBEND
591 !
592 !
593 !
594 SUB CAR
595 S1$="077C312DD46D6F708213EC60072B58C10C66308211F4A0072D6841823E9316EAB637B"
596 S2$="AD18D6E74A2139DE8443BDAD18E7634A319CD6846339AD18C6634A2118D68442D6351"
597 S3$="8B5AD4A21AD5A84635AA518D4A54A21295A844294AD1FF"
598 SP$=S1$&S2$&S3$:CALL SPEECH("L,"&SP$)
599 SUBEND
600 !
601 !
602 !
603 SUB BIE
604 S1$="A850A222221A918CF3F14C77440AC5C6232226AB1C0B4FCF54A9F886213213BBFA0BE"
605 S2$="4884A12EB526E22E27971463995B3E59A5E5577259A6569552D955AB4E9517D56AA9"
606 S3$="58A673DEA9AD2B843D62C67D6DC628A2D934E925354EE50458AB5C1DD93BCFD3F"
607 SP$=S1$&S2$&S3$:CALL SPEECH("L,"&SP$)
608 SUBEND
609 !
610 !
611 !
612 SUB TRO
613 CALL POKE(50688,165,8,6,10):CALL POKE(49156,198,0)
614 RESTORE 618
615 FOR I=1 TO 10
616 READ N,D:CALL POKE(258,N,132):PAUSE D/7:CALL POKE(259,45)
617 NEXT I
618 DATA 99,1,79,1,66,1,79,1,99,1,79,1,133,1,133,1,133,1,99,1
619 SUBEND
620 !
621 !
622 !
623 SUB MAR
624 CALL POKE(50688,165,8,6,10):CALL POKE(49156,198,0)
625 RESTORE 629
626 FOR I=1 TO 10
627 READ N,D:CALL POKE(258,N,132):PAUSE D/7:CALL POKE(259,45)
628 NEXT I
629 DATA 199,1,199,1,199,1,149,2,149,2,133,2,133,2,99,4,118,1,149,4
630 PAUSE 2
631 SUBEND
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.