1 !
2 ! EXEL'CAR SUR
3 ! EXL 100
4 ! DE
5 ! JEAN-FRANCOIS
6 ! SORTINO
7 !
18 !
19 ! AMUZEZ-VOUS BIEN
20 !
21 CLS "RBB"
22 CALL COLOR("0RHL")
23 LOCATE (5,12):PRINT "EEXXEELL''CCAARR"
24 LOCATE (6,12):PRINT "EEXXEELL''CCAARR"
25 CALL COLOR("0YB")
26 LOCATE (4,1):PRINT RPT$("*",40)
27 LOCATE (7,1):PRINT RPT$("*",40)
28 CALL COLOR("0RY")
29 LOCATE (9,1):PRINT "*** COPYRIGHT_SORTINO JF_NOVEMBRE 85 ***"
30 CALL COLOR("0GL")
31 LOCATE (13,3):PRINT "CCHHOOIIXX DDEESS OOPPTTIIOONNSS"
32 CALL COLOR("0BY")
33 LOCATE (16,5):PRINT "1 DEBUTANT"
34 LOCATE (18,5):PRINT "2 AMATEUR"
35 LOCATE (20,5):PRINT "3 PRO"
36 LOCATE (16,22):PRINT "1 JOUER"
37 LOCATE (18,22):PRINT "2 EXPLICATION"
38 LOCATE (20,22):PRINT "3 ARRETER"
39 A$=KEY$
40 IF A$="1" THEN POZ=150:GOTO 44
41 IF A$="2" THEN POZ=50:GOTO 44
42 IF A$="3" THEN POZ=0:GOTO 44
43 GOTO 39
44 B$=KEY$
45 IF B$="1" THEN 69
46 IF B$="2" THEN 48
47 IF B$="3" THEN CLS "BCC": END
48 !
49 ! REGLE DU JEU
50 !
51 CLS
52 CALL COLOR("0YB")
53 CALL ECR(1,"CE JEU EST CONCU POUR LES PERSONNES")
54 CALL ECR(2,"QUI ONT LES NERFS SOLIDES,CAR IL EST")
55 CALL ECR(3,"SPEEDE D'UNE MANIERE REMARQUABLE")
56 CALL ECR(4,"CE QUI LE REND TRES DIFFICILE")
57 CALL ECR(5,"A JOUER.")
58 CALL ECR(6,"DONC,VOUS DEVEZ CONDUIRE UN BOLIDE")
59 CALL ECR(7,"DANS 5 ECRANS DIFFERENTS,SANS PERCUTER")
60 CALL ECR(8,"LES PAROIS,ET EN MANGEANT LES CROIX")
61 CALL ECR(9,"QUI SONT A TERRE")
62 CALL ECR(10,"ATTENTION ! VOUS NE VERREZ LES AUTRES")
63 CALL ECR(11,"ECRANS QUE SI VOUS PARCOUREZ LE PREMIER")
64 CALL ECR(12,"SANS ACCIDENT.")
65 CALL ECR(15,"BONNE CHANCE !!!")
66 CALL ECR(17,"PRESSEZ UNE TOUCHE")
67 A$=KEY$
68 GOTO 69
69 !
70 !
71 !
72 CALL CHAR(1,"003C99FF993C99FF9900")
73 CALL CHAR(2,"00EE447DFFFF7D44EE00")
74 CALL CHAR(3,"0099FF993C99FF993C00")
75 CALL CHAR(4,"007722BEFFFFBE227700")
76 !
77 !
78 !
79 CALL INIT
80 !
81 !
82 !
83 X=2:Y=2:SC=0:EC=1:CROIX=269
84 !
85 !
86 !
87 CLS "RBB"
88 DIM TE(30,30)
89 CALL COLOR("0CB")
90 FOR I=2 TO 20
91 FOR A=2 TO 21
92 LOCATE (I,A):PRINT "*"
93 TE(I,A)=11
94 NEXT A
95 NEXT I
96 CALL COLOR("0WW")
97 FOR I=1 TO 22
98 LOCATE (1,I):PRINT " "
99 LOCATE (21,I):PRINT " "
100 TE(1,I)=1
101 TE(21,I)=1
102 NEXT I
103 FOR I=1 TO 21
104 LOCATE (I,1):PRINT " "
105 LOCATE (I,22):PRINT " "
106 TE(I,1)=2
107 TE(I,22)=2
108 NEXT I
109 IF EC>5 THEN EC=1
110 IF EC=1 THEN 115
111 IF EC=2 THEN 150
112 IF EC=3 THEN 185
113 IF EC=4 THEN 220
114 IF EC=5 THEN 257
115 !
116 !
117 !
118 CALL COLOR("1bb")
119 FOR I=5 TO 17
120 LOCATE (I,3):PRINT " "
121 LOCATE (I,20):PRINT " "
122 TE(I,3)=1
123 TE(I,20)=2
124 NEXT I
125 FOR I=4 TO 19
126 LOCATE (3,I):PRINT " "
127 LOCATE (19,I):PRINT " "
128 TE(3,I)=3
129 TE(19,I)=4
130 NEXT I
131 FOR I=5 TO 17
132 LOCATE (I,6):PRINT " "
133 LOCATE (I,17):PRINT " "
134 TE(I,6)=5
135 TE(I,17)=6
136 NEXT I
137 FOR I=9 TO 14
138 LOCATE (6,I):PRINT " "
139 LOCATE (16,I):PRINT " "
140 TE(6,I)=7
141 TE(16,I)=8
142 NEXT I
143 FOR I=8 TO 14
144 LOCATE (I,10):PRINT " "
145 LOCATE (I,13):PRINT " "
146 TE(I,10)=9
147 TE(I,13)=10
148 NEXT I
149 GOTO 292
150 !
151 !
152 !
153 CALL COLOR("0bb")
154 FOR I=3 TO 20
155 LOCATE (3,I):PRINT " "
156 LOCATE (19,I):PRINT " "
157 TE(3,I)=1
158 TE(19,I)=2
159 NEXT I
160 FOR I=5 TO 17
161 LOCATE (I,5):PRINT " "
162 LOCATE (I,18):PRINT " "
163 TE(I,5)=3
164 TE(I,18)=4
165 NEXT I
166 FOR I=8 TO 15
167 LOCATE (5,I):PRINT " "
168 LOCATE (17,I):PRINT " "
169 TE(5,I)=5
170 TE(17,I)=6
171 NEXT I
172 FOR I=7 TO 15
173 LOCATE (I,8):PRINT " "
174 LOCATE (I,15):PRINT " "
175 TE(I,8)=7
176 TE(I,15)=8
177 NEXT I
178 FOR I=8 TO 14
179 LOCATE (I,11):PRINT " "
180 LOCATE (I,12):PRINT " "
181 TE(I,11)=9
182 TE(I,12)=10
183 NEXT I
184 GOTO 292
185 !
186 !
187 !
188 CALL COLOR("0bb")
189 FOR I=3 TO 20
190 LOCATE (3,I):PRINT " "
191 LOCATE (19,I):PRINT " "
192 TE(3,I)=1
193 TE(19,I)=2
194 NEXT I
195 FOR I=5 TO 18
196 LOCATE (5,I):PRINT " "
197 LOCATE (17,I):PRINT " "
198 TE(5,I)=3
199 TE(17,I)=4
200 NEXT I
201 FOR I=7 TO 16
202 LOCATE (7,I):PRINT " "
203 LOCATE (15,I):PRINT " "
204 TE(7,I)=5
205 TE(15,I)=6
206 NEXT I
207 FOR I=6 TO 16
208 LOCATE (I,3):PRINT " "
209 LOCATE (I,20):PRINT " "
210 TE(I,3)=7
211 TE(I,20)=8
212 NEXT I
213 FOR I=11 TO 12
214 LOCATE (10,I):PRINT " "
215 LOCATE (12,I):PRINT " "
216 TE(10,I)=9
217 TE(12,I)=10
218 NEXT I
219 GOTO 292
220 !
221 !
222 !
223 CALL COLOR("0bb")
224 FOR I=3 TO 19
225 LOCATE (I,3):PRINT " "
226 LOCATE (I,20):PRINT " "
227 TE(I,3)=1
228 TE(I,20)=2
229 NEXT I
230 FOR I=7 TO 16
231 LOCATE (3,I):PRINT " "
232 LOCATE (19,I):PRINT " "
233 TE(3,I)=3
234 TE(19,I)=4
235 NEXT I
236 FOR I=5 TO 18
237 LOCATE (5,I):PRINT " "
238 LOCATE (17,I):PRINT " "
239 TE(5,I)=5
240 TE(17,I)=6
241 NEXT I
242 FOR I=7 TO 15
243 LOCATE (I,6):PRINT " "
244 LOCATE (I,17):PRINT " "
245 TE(I,6)=7
246 TE(I,17)=0
247 NEXT I
248 FOR I=7 TO 11
249 LOCATE (I,10):PRINT " "
250 TE(I,10)=9
251 NEXT I
252 FOR I=11 TO 15
253 LOCATE (I,13):PRINT " "
254 TE(I,13)=10
255 NEXT I
256 GOTO 292
257 !
258 !
259 !
260 CALL COLOR("0bb")
261 FOR I=3 TO 19
262 LOCATE (I,3):PRINT " "
263 LOCATE (I,6):PRINT " "
264 LOCATE (I,17):PRINT " "
265 LOCATE (I,20):PRINT " "
266 TE(I,3)=1
267 TE(I,6)=2
268 TE(I,17)=3
269 TE(I,20)=4
270 NEXT I
271 FOR I=8 TO 15
272 LOCATE (3,I):PRINT " "
273 LOCATE (19,I):PRINT " "
274 TE(3,I)=5
275 TE(19,I)=6
276 NEXT I
277 FOR I=7 TO 15
278 LOCATE (I,9):PRINT " "
279 LOCATE (I,14):PRINT " "
280 TE(I,9)=7
281 TE(I,14)=8
282 NEXT I
283 FOR I=10 TO 13
284 LOCATE (5,I):PRINT " "
285 LOCATE (17,I):PRINT " "
286 TE(5,I)=9
287 TE(17,I)=10
288 NEXT I
289 !
290 !
291 !
292 CALL INIT2
293 CALL COLOR("1RB"):LOCATE (X,Y):PRINT CHR$(1)
294 O=0:P=1:N=2
295 !
296 !
297 !
298 CALL KEY1(A,B)
299 IF A=128 THEN O=-1:P=0:N=1
300 IF A=129 THEN O=0:P=1:N=2
301 IF A=130 THEN O=1:P=0:N=3
302 IF A=131 THEN O=0:P=-1:N=4
303 !
304 !
305 !
306 CALL COLOR("1RB")
307 LOCATE (X,Y):PRINT " "
308 X=X+O:Y=Y+P
309 IF TE(X,Y)<>0 AND TE(X,Y)<11 THEN GOSUB 316
310 IF TE(X,Y)=11 THEN SC=SC+10:TE(X,Y)=0:CROIX=CROIX-1
311 IF CROIX=0 THEN EC=EC+1:X=2:Y=2:CROIX=269:GOTO 87
312 LOCATE (X,Y):PRINT CHR$(N)
313 FOR A=0 TO POZ:NEXT A
314 GOTO 298
315 !
316 !
317 !
318 CALL COLOR("0GB")
319 LOCATE (13,23):PRINT "C'EST FINI !"
320 LOCATE (14,23):PRINT "SCORE :";SC
321 LOCATE (15,23):PRINT "ECRAN :";EC
322 LOCATE (16,23):PRINT "UNE AUTRE PARTIE ?"
323 LOCATE (17,23):PRINT "1=OUI / 2=NON"
324 A$=KEY$
325 IF A$="1" THEN GOTO 72
326 IF A$<>"1"AND A$<>"2" THEN 324
327 !
328 CLS "RBB":END
329 !
330 !
331 SUB INIT
332 CALL POKE(50688,165,8,6,10)
333 CALL POKE(49156,198)
334 CALL POKE(50850,162,5,45,162,136,45,10)
335 CALL EXEC(50850)
336 SUBEND
337 SUB INIT2
338 CALL COLOR("0RHL")
339 LOCATE (1,24):PRINT "EEXXEELL''CCAARR"
340 LOCATE (2,24):PRINT "EEXXEELL''CCAARR"
341 CALL COLOR("0WW")
342 LOCATE (3,23):PRINT RPT$(" ",18)
343 CALL COLOR("0YB")
344 LOCATE (5,23):PRINT "VOS SCORES SERONT"
345 LOCATE (7,23):PRINT "AFFICHES EN FIN DE"
346 LOCATE (9,23):PRINT "PARTIE."
347 LOCATE (11,23):PRINT "BONNE CHANCE !"
348 CALL COLOR("0WW")
349 LOCATE (12,23):PRINT RPT$(" ",18)
350 LOCATE (18,23):PRINT RPT$(" ",18)
351 CALL COLOR("0Bb")
352 LOCATE (19,23):PRINT "_(C)_N0VEMBRE 85__"
353 LOCATE (20,23):PRINT "------------------"
354 LOCATE (21,23):PRINT "SORTINO JF_EXL 100"
355 SUBEND
356 SUB ECR(B,R$)
357 LOCATE (B,(40-LEN(R$))/2)
358 PRINT R$
359 SUBEND
360 !
361 !GOOD-LUCK
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.