1 ! HEBDOGICIEL 101 & 102
2 ! STAR WARS
3 ! F & E BRUGEROLLES
4 !
5 CALL POKE(50688,165,8,6,10):CALL POKE(49156,198,0)
6 CALL POKE(50432,162,5,45,162,136,45,10,162,5,45,162,200,45,10)
7 CALL EXEC(50432)
8 MS=0
9 !
10 CALL CHAR(65,"00000000000810204344")
11 CALL CHAR(66,"00000000002010088444")
12 CALL CHAR(67,"7D442310080000000000")
13 CALL CHAR(68,"7C448810200000000000")
14 CALL CHAR(69,"00000003040814232222")
15 CALL CHAR(70,"000000C0000000C02032")
16 CALL CHAR(71,"22020000000000000000")
17 CALL CHAR(72,"22E2140810E000000000")
18 CALL CHAR(73,"00000003000000030445")
19 CALL CHAR(74,"000000C0201028C44444")
20 CALL CHAR(75,"44472810080700000000")
21 CALL CHAR(76,"44800000000000000000")
22 CALL CHAR(77,"01010101FFFF01010101")
23 CALL CHAR(78,"80808080FFFF80808080")
24 CALL CHAR(79,"FF0000000000000000FF")
25 CALL CHAR(80,"01010101010101010101")
26 CALL CHAR(81,"08040201FF0000000000")
27 CALL CHAR(82,"00000000FF4020100800")
28 CALL CHAR(83,"00000000FF0000000000")
29 CALL CHAR(84,"00000000FF0204081000")
30 CALL CHAR(85,"10204080FF0000000000")
31 CALL CHAR(86,"FFFFFFFFFFFFFFFFFFFF")
32 CALL CHAR(87,"FF000000000000000000")
33 CALL CHAR(88,"000000000000000000FF")
34 CALL CHAR(89,"FF1F0700000000000000")
35 CALL CHAR(90,"FFFFFFFF3F0701000000")
36 CALL CHAR(97,"FFFFFFFFFFFFFF3F0F01")
37 CALL CHAR(98,"FFFFFFFFFFFFFFFCF080")
38 CALL CHAR(99,"FFFFFFFFFCE000000000")
39 CALL CHAR(100,"FFF8E000000000000000")
40 CALL CHAR(101,"FFFEFEFCF8F0E0C08080")
41 CALL CHAR(102,"80C0C0E0F0F8FCFEFFFF")
42 CALL CHAR(103,"00FFFFFFFFFFFFFFFF00")
43 CALL CHAR(104,"0014412A402442954A09")
44 CALL CHAR(105,"245A1224AA10940A4568")
45 CALL CHAR(106,"26492114520653240000")
46 CALL CHAR(107,"4590240A560553B24A00")
47 CALL CHAR(108,"000000000000FF050505")
48 CALL CHAR(109,"000000000000030C33CF")
49 CALL CHAR(110,"000000001FE70EFCF0C0")
50 CALL CHAR(111,"05050505050505050505")
51 CALL CHAR(112,"3FFCF0E0800000000000")
52 CALL CHAR(114,"00000000F8C7703F0F03")
53 CALL CHAR(115,"000000000000C030CCF3")
54 CALL CHAR(116,"000000000000FFA0A0A0")
55 CALL CHAR(118,"FC3F0F07010000000000")
56 CALL CHAR(119,"A0A0A0A0A0A0A0A0A0A0")
57 CALL CHAR(120,"00000000000000010F7F")
58 CALL CHAR(121,"0000000000073FFFFFFF")
59 CALL CHAR(122,"0000031FFFFFFFFFFFFF")
60 CALL CHAR(48,"0F7FFFFFFFFFFFFFFFFF")
61 CALL CHAR(49,"F0FEFFFFFFFFFFFFFFFF")
62 CALL CHAR(50,"0000C0F8FFFFFFFFFFFF")
63 CALL CHAR(51,"0000000000E0FCFFFFFF")
64 CALL CHAR(52,"0000000000000080F0FE")
65 CALL CHAR(53,"80808080808080808080")
66 CALL CHAR(54,"81818181818181818181")
67 CALL CHAR(55,"01010204081020408080")
68 CALL CHAR(56,"80804020100804020101")
69 CLS "RBB"
70 !
71 U1$="C9AEB5D334AA1CAFA476F3AA73BDE3969AAA99B2AFBBBDE59554CA5E56865F5C1A454B"
72 U2$="4951F22E5C49C5A5C13B7B191552246F829994FF1F":U$=U1$&U2$
73 Z1$="2A8DAC28B54BBBB26297B06890DA25CB982571EE52BBCC86AB382EE934A72C6EAB45"
74 Z2$="5507B874CD6116A55A7E96A73A946694C3D6F4522A4F2ECFD043CBAA4C234B25BBB0"
75 Z3$="75478FECE22C6F183DB1CBA29A11E656A1087646997AE72AD4B64C30FB4AD7B9BCCE"
76 Z4$="6C2FF5A0465B474962169B833F4391CCFF0F":Z$=Z1$&Z2$&Z3$&Z4$
77 X=2:Y=2:A=13:B=30:L=2:C=9:F=13:G=31:T0U=0
78 X=X+2:Y=Y+1:IF X=13 OR X=14 THEN 83
79 CALL POKE(258,X+5,140)
80 CALL COLOR("0bBHL"):LOCATE (X,Y):PRINT "SSTTAARR"
81 LOCATE (X-2,Y-2):PRINT " "
82 GOTO 78
83 B=B-1:IF B=6 THEN 87
84 CALL POKE(258,B+5,132)
85 CALL COLOR("0CBLH"):LOCATE (A,B):PRINT "SSTTAARR";" "
86 GOTO 83
87 L=L+2:C=C+2:IF L=15 OR L=14 THEN 92
88 CALL POKE(258,L+5,140)
89 CALL COLOR("0bbHL"):LOCATE (L,C):PRINT "WWAARRSS"
90 LOCATE (L-2,C-2):PRINT " "
91 GOTO 87
92 G=G-2:IF G=17 OR G=18 THEN 96
93 CALL POKE(258,G+3,130)
94 CALL COLOR("0CBHL"):LOCATE (F,G):PRINT "WWAARRSS";" "
95 GOTO 92
96 CALL POKE(259,0)
97 A=5:TOU=TOU+1:IF TOU=3 THEN 117
98 CALL COLOR("0YB"):IF A=28 THEN 102
99 A=A+1:LOCATE (11,A):PRINT CHR$(1):LOCATE (11,A-1):CALL COLOR("0BB")
100 CALL POKE(258,A+5,135)
101 PRINT CHR$(1):GOTO 98
102 B=11
103 CALL COLOR("0YB"):IF B=14 THEN 107
104 B=B+1:LOCATE (B,28):PRINT CHR$(1):LOCATE (B-1,28):CALL COLOR("0BB")
105 CALL POKE(258,B+5,135)
106 PRINT CHR$(1):GOTO 103
107 C=28
108 CALL COLOR("0YB"):IF C=6 THEN 112
109 C=C-1:LOCATE (14,C):PRINT CHR$(1):LOCATE (14,C+1):CALL COLOR("0BB")
110 CALL POKE(258,C+5,135)
111 PRINT CHR$(1):GOTO 108
112 D=14
113 CALL COLOR("1YB"):IF D=11 THEN 97
114 D=D-1:LOCATE (D,6):PRINT CHR$(1):LOCATE (D+1,6):CALL COLOR("0BB")
115 CALL POKE(258,D+5,135)
116 PRINT CHR$(1):GOTO 113
117 LOCATE (11,6):CALL COLOR("0BB"):PRINT CHR$(12):CALL POKE(259,0):PAUSE 2
118 N$(1)=" MISSION URGENTE..."
119 N$(2)=" ORDRE DU JOUR: "
120 N$(3)=" appuyer bombardement etoile noire"
121 N$(4)=" en effectuant mission de chasse "
122 N$(5)=" VOULEZ-VOUS LES INSTRUCTIONS "
123 N$(6)=" CONCERNANT L'ATTAQUE ? (1=O/0=N) "
124 N$(7)=" QUARTIER.GENERAL.FORCE.REBELLE "
125 FOR I=1 TO 7:CALL POKE(258,50,140)
126 M=1+INT(20-LEN(N$(I))/2)
127 FOR Y=M TO M+LEN(N$(I))-1:CALL COLOR("0BB")
128 CALL POKE(259,45):CALL POKE(258,100,140)
129 LOCATE (18,Y):PRINT " "
130 CALL COLOR("0YB"):LOCATE (18,Y):PRINT SEG$(N$(I),Y-M+1,1)
131 NEXT Y:CALL POKE(259,45):PAUSE 2:NEXT I
132 A$=KEY$
133 IF A$="0" THEN CALL SPEECH("L,"&Z$):PAUSE 2:CALL SPEECH("A,"):GOTO 163
134 IF A$="1" THEN CALL SPEECH("L,"&U$):PAUSE 2:CALL SPEECH("A,"):GOTO 135
135 CLS "WBB"
136 DIM S$(22)
137 S$(1)=" vous pilotez un vaisseau type TMS 7020"
138 S$(2)=" appartenant aux forces rebelles."
139 S$(3)=" votre mission est simple:"
140 S$(4)=" detruisez le maximum d'ennemis"
141 S$(5)=" en utilisant au mieux votre chasseur"
142 S$(6)=" soit:-devier sur le vaisseau ennemi"
143 S$(7)=" grace aux touches <-- --> "
144 S$(8)=" -surveiller les diffeentes energies"
145 S$(9)=" -energie laser en haut"
146 S$(10)=" -energie boucliers magnetiques en bas"
147 S$(11)=" (vous gagnerez 4 boucliers pour"
148 S$(12)=" chaque vague de 4 vaisseaux abattus)"
149 S$(13)=" ainsi,vous pourrez effectuer"
150 S$(14)=" un transfert d'energie magnetique"
151 S$(15)=" a energie laser en pressant la touche 1"
152 S$(16)=" -s'informer grace au cadran de droite"
153 S$(17)=" et eventuellement suivre la trajectoire"
154 S$(18)=" du chasseur TIE sur le radar du bas"
155 S$(19)=" mais surtout faire preuve de beaucoup"
156 S$(20)=" de rapidite aussi GOOD LUCK!!!"
157 S$(21)=" and USE THE FORCE "
158 FOR I=1 TO 22:FOR J=2 TO LEN(S$(I))
159 CALL COLOR("0YB"):LOCATE (I+1,J):PRINT CHR$(62):CALL COLOR("0bB")
160 CALL POKE(258,100,140):LOCATE (I+1,J):PRINT SEG$(S$(I),J,1)
161 NEXT:CALL POKE(258,50,134):PAUSE .05:NEXT:CALL POKE(259,45)
162 PAUSE 6
163 !
164 CALL HROFF:CLS "Bbb":CALL HRON("b",9,6):CALL COLOR("1bC")
165 CALL EXEC(50432)
166 LOCATE (1,1):PRINT "8":CALL COLOR("1CC")
167 FOR Y=2 TO 39:LOCATE (1,Y):PRINT "V":NEXT
168 CALL COLOR("1bC"):LOCATE (1,40):PRINT "7":CALL COLOR("1CC")
169 FOR U=2 TO 8:LOCATE (U,1):PRINT "V":NEXT
170 CALL COLOR("1bC"):LOCATE (1,1):PRINT "8"
171 FOR R=2 TO 8:LOCATE (R,40):CALL COLOR("1CC"):PRINT "V":NEXT
172 FOR O=0 TO 60
173 CALL LINE("C",0,O,7,O)
174 CALL LINE("C",312,O,319,O)
175 NEXT
176 CALL COLOR("1CC"):FOR I=9 TO 20:LOCATE (I,1):PRINT "V":NEXT
177 CALL COLOR("1bC"):LOCATE (21,1):PRINT "7"
178 CALL COLOR("1CC"):FOR W=9 TO 20:LOCATE (W,40):PRINT "V":NEXT
179 CALL COLOR("1bC"):LOCATE (21,40):PRINT "8"
180 CALL COLOR("1CC"):FOR M=2 TO 39:LOCATE (21,M):PRINT "V":NEXT
181 CALL COLOR("1bC"):LOCATE (21,40):PRINT "8"
182 CALL COLOR("1Rb")
183 LOCATE (2,2):PRINT "VVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVV"
184 LOCATE (3,2):PRINT "V";" ";"V";" ";"VVVVVVVVVVV";" ";"V"
185 LOCATE (3,31):PRINT " ";"VVVV"
186 CALL COLOR("1BR")
187 LOCATE (4,2):PRINT "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
188 LOCATE (3,3):CALL COLOR("0Gb"):PRINT "SCORE"
189 LOCATE (3,24):PRINT "RECORD":LOCATE (3,32):PRINT MS
190 CALL COLOR("1BR"):LOCATE (4,14):PRINT "X"
191 CALL COLOR("1Cb"):LOCATE (5,5):PRINT "YZa":CALL COLOR("1CR")
192 LOCATE (5,8):PRINT "e"
193 CALL COLOR("1Cb"):LOCATE (5,34):PRINT "bcd":CALL COLOR("1RC")
194 LOCATE (5,33):PRINT "f"
195 CALL COLOR("1GB"):LOCATE (15,2):PRINT "l"
196 LOCATE (16,2):PRINT "o"
197 CALL COLOR("1RB"):LOCATE (15,3):PRINT "mn"
198 LOCATE (16,3):PRINT "p "
199 CALL COLOR("1GB"):LOCATE (15,39):PRINT "t"
200 LOCATE (16,39):PRINT "w"
201 CALL COLOR("1RB"):LOCATE (15,37):PRINT "rs"
202 LOCATE (16,37):PRINT " v"
203 DY=1:X=10:Y=10:TE=0:YT=20:R1$="AB":R2$="CD":R$=CHR$(1):E=34:SC=0
204 YR=25:YD=15:BO=28:VA=0
205 L2$="B7BE4A7CB86ADC6D37C9E04BE87411B508C044302FE"
206 L1$="0D9816C301EDE72CB8B4CBECBD7D88AA6F33A2DD41AAF6BDB46407AFDAE3CEAA1EAA6A"
207 L$=L1$&L2$
208 EX1$="0BA02163031B18008D1E139840073A108100F0901E81080480478F084420020570CEB"
209 EX2$="D02110840704E118840043CE0010F78C00316B080052C20010948800214A0000528"
210 EX$=EX1$&EX2$
211 T$="0D7C91B2BAB602FC"
212 O1$="AA2A4864AD129BAA62E6B349E4AA810556AB49A886106ADAC4B1085997C20E9BB8A543"
213 O2$="871844E213343D6A9291AF7B8CA2274D3DF2D263DA5077DB438A6DC3D34D352E8E0B13"
214 O3$="B513D8F8DAD9D5F2FF03":O$=O1$&O2$&O3$
215 CALL COLOR("1BR")
216 LOCATE (5,9):CALL COLOR("1GR"):PRINT "gggggggggggggggggggggggg"
217 LOCATE (16,15):CALL COLOR("1YR"):PRINT "gggggggggggg"
218 LOCATE (15,5):CALL COLOR("1Bb"):PRINT "VVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVV"
219 LOCATE (16,5):CALL COLOR("1CB"):PRINT "xyz0"
220 LOCATE (16,33):PRINT "1234"
221 CALL COLOR("1BR")
222 LOCATE (17,2):PRINT "WWWWWWWWWWOOWWOOWOOOOOOOOOOOOOOOOOOOOW"
223 CALL COLOR("1CR"):LOCATE (16,9):PRINT "VVVVV"
224 LOCATE (16,28):CALL COLOR("1CR"):PRINT "VVVVV"
225 LOCATE (16,27):CALL COLOR("1RC"):PRINT "f"
226 CALL COLOR("1CR"):LOCATE (16,14):PRINT "e"
227 LOCATE (18,2):CALL COLOR("1Rb"):PRINT "VVV";" ";"VVVV"
228 LOCATE (18,18):PRINT "VVV":CALL COLOR("1BR")
229 LOCATE (19,3):PRINT "XXXXXXXXXXXXXXXXX"
230 CALL COLOR("1RR")
231 LOCATE (18,39):PRINT "V"
232 LOCATE (20,39):PRINT "V"
233 LOCATE (19,39):PRINT "V":LOCATE (19,2):PRINT "V"
234 LOCATE (20,2):PRINT "V"
235 LOCATE (18,14):PRINT "VV"
236 CALL COLOR("1BR"):LOCATE (18,11):PRINT "P":LOCATE (18,15):PRINT "p"
237 LOCATE (18,18):PRINT "6"
238 LOCATE (18,39):PRINT "5"
239 LOCATE (18,14):PRINT "5":LOCATE (20,2):PRINT "p"
240 LOCATE (18,4):PRINT "p":LOCATE (18,8):PRINT "5"
241 LOCATE (17,5):PRINT "OOO":LOCATE (19,5):PRINT "OOO"
242 CALL COLOR("0Bb"):LOCATE (18,5):PRINT CHR$(1);CHR$(1);CHR$(1)
243 CALL COLOR("1BR"):LOCATE (20,39):PRINT "5"
244 LOCATE (19,12):PRINT "OO":LOCATE (19,16):PRINT "OO"
245 LOCATE (19,19):PRINT "OOOOOOOOOOOOOOOOOOOO"
246 LOCATE (18,19):CALL COLOR("0BC"):PRINT "CONTACT ETOILE NOIRE"
247 FOR P=59 TO 0 STEP -1
248 CALL SPEECH("L,"&T$)
249 CALL LINE("B",8,P,311,P)
250 NEXT:CALL COLOR("0bb"):LOCATE (18,19):PRINT " "
251 !
252 YA=5
253 XA2=20:YA2=5
254 CALL LINE("W",8,2,311,2)
255 CALL LINE("W",8,12,311,12)
256 CALL LINE("W",8,42,311,42)
257 CALL COLOR("1Bb"):LOCATE (7,YA):PRINT R1$:LOCATE (8,YA):PRINT R2$
258 LOCATE (7,YA-1):PRINT " ":LOCATE (8,YA-1):PRINT " "
259 CALL COLOR("1Bb"):LOCATE (XA2,YA2):PRINT R$:LOCATE (XA2,YA2-1):PRINT " "
260 CALL COLOR("1Bb")
261 YA=YA+DY:IF YA=38 OR YA=37 OR YA=39 THEN 252
262 YA2=YA2+DY:IF YA2=38 OR YA2=37 OR YA2=39 THEN 253
263 IF YA=1 OR YA=2 OR YA=3 THEN YA=36
264 IF YA2=1 OR YA2=2 OR YA2=3 THEN YA2=36
265 IF YT>YA-2 AND YT<YA+3 THEN GOSUB 318
266 IF TE=3 THEN GOTO 319
267 LOCATE (7,YA):PRINT R1$:LOCATE (8,YA):PRINT R2$
268 LOCATE (XA2,YA2):PRINT R$
269 CALL KEY1(A,B)
270 IF A=131 THEN DY=2:R1$="EF":R2$="GH"
271 LOCATE (7,YA):PRINT R1$:LOCATE (8,YA):PRINT R2$
272 LOCATE (7,YA-1):PRINT " ":LOCATE (8,YA-1):PRINT " "
273 IF A=131 THEN CALL COLOR("1RC"):LOCATE (18,16):PRINT "T";"U"
274 CALL COLOR("1Bb"):IF A=131 THEN DY=2:R$=CHR$(62):LOCATE (XA2,YA2):PRINT R$
275 LOCATE (XA2,YA2-1):PRINT " "
276 IF A=129 THEN DY=-1:R1$="IJ":R2$="KL"
277 LOCATE (7,YA):PRINT R1$:LOCATE (8,YA):PRINT R2$
278 LOCATE (7,YA+1):PRINT " ":LOCATE (8,YA+1):PRINT " "
279 IF A=129 THEN LOCATE (18,16):CALL COLOR("1RC"):PRINT "Q";"R"
280 CALL COLOR("1Bb"):IF A=129 THEN DY=-1:R$=CHR$(60):LOCATE (XA2,YA2):PRINT R$
281 LOCATE (XA2,YA2+1):PRINT " "
282 IF A=32 AND YA=YT THEN GOTO 297
283 IF A=32 AND YA<>YT THEN GOTO 330
284 IF A<>131 AND YA-1<YR AND YA+3>YR THEN DY=-2:R1$="IJ":R2$="KL":R$=CHR$(60)
285 IF A<>129 AND YA-1<YD AND YA+3>YD THEN DY=3:R1$="EF":R2$="GH":R$=CHR$(62)
286 IF A=49 AND E<=30 THEN E=E+4:LOCATE (5,E-5):CALL COLOR("1GR"):PRINT "gggg"
287 IF A=49 THEN CALL POKE(258,E+8,134):PAUSE .2:CALL POKE(259,0)
288 CALL COLOR("0BC")
289 IF A=49 AND E>=30 THEN LOCATE (18,19):PRINT " ENERGIE AU MAXIMUM "
290 CALL COLOR("1WR")
291 IF A=49 AND BO>=19 THEN BO=BO-2:LOCATE (16,BO-1):PRINT "gg"
292 CALL COLOR("0bb")
293 IF A=49 AND E>=30 THEN LOCATE (18,19):PRINT " "
294 CALL SPEECH("L,0E683FC7031EF040043CE0010F78C00216B040042C60010F584003106")
295 CALL SPEECH("A,")
296 GOTO 257
297 CALL LINE("R",35,179,160,1):CALL LINE("R",160,1,285,179)
298 CALL LINE("B",35,179,160,1):CALL LINE("B",160,1,285,179)
299 CALL LINE("W",8,2,311,2)
300 CALL LINE("W",8,12,311,12)
301 CALL LINE("W",8,42,311,42)
302 IF BO<=25 THEN VA=VA+1
303 IF VA=3 THEN BO=BO+3:CALL COLOR("1YR"):LOCATE (16,BO-4):PRINT "ggg"
304 IF VA=3 THEN CALL POKE(258,BO+10,132):PAUSE .2:CALL POKE(259,0):VA=0
305 LOCATE (7,YA):CALL COLOR("1RbF"):PRINT "hi":LOCATE (8,YA):PRINT "jk"
306 FOR Y=5 TO 7:LOCATE (18,Y):CALL COLOR("0Yb"):PRINT CHR$(1):PAUSE .1
307 CALL COLOR("0Bb"):LOCATE (18,Y):PRINT CHR$(1):NEXT
308 CALL COLOR("0bC"):LOCATE (18,19):PRINT " ENNEMI DETRUIT "
309 FOR T=1 TO 4:CALL SPEECH("L,"&EX$):NEXT:CALL SPEECH("A,"):CALL COLOR("1bb")
310 PAUSE 2:LOCATE (7,YA):PRINT " ":LOCATE (8,YA):PRINT " "
311 SC=SC+10:CALL COLOR("0Gb"):LOCATE (3,9):PRINT SC
312 TE=0:LOCATE (XA2,YA2):PRINT " ":YA=4:YA2=4
313 CALL COLOR("1YR"):E=E-1:LOCATE (5,E-1):PRINT "g"
314 CALL COLOR("0Gb")
315 IF E=10 THEN GOTO 349
316 CALL COLOR("0bb"):LOCATE (18,19):PRINT " "
317 GOTO 257
318 TE=TE+1:RETURN
319 CALL COLOR("1Rb"):LOCATE (7,YA):PRINT R1$:LOCATE (8,YA):PRINT R2$:PAUSE .3
320 FOR Y=20 TO 40:CALL POKE(258,Y+10,132):NEXT:CALL POKE(259,0)
321 CALL SPEECH("L,"&EX$):CALL SPEECH("A,")
322 BO=BO-1:LOCATE (16,BO-1):CALL COLOR("1WR"):PRINT "g"
323 LOCATE (18,19):CALL COLOR("0bC"):PRINT " BOUCLIER ENDOMMAGE "
324 IF BO=17 THEN CALL COLOR("0BC"):LOCATE (18,19):PRINT " DERNIER BOUCLIER "
325 CALL COLOR("0Gb")
326 IF BO=16 THEN GOTO 349
327 CALL COLOR("1Bb"):LOCATE (7,YA):PRINT " ":LOCATE (8,YA):PRINT " "
328 TE=0:PAUSE .3:LOCATE (18,19):CALL COLOR("1bb"):PRINT " "
329 GOTO 257
330 CALL LINE("R",35,179,160,1):CALL LINE("R",160,1,285,179)
331 CALL LINE("B",35,179,160,1):CALL LINE("B",160,1,285,179)
332 CALL LINE("W",8,2,311,2)
333 CALL LINE("W",8,12,311,12)
334 CALL LINE("W",8,42,311,42)
335 FOR Y=1 TO 3:CALL SPEECH("L,"&L$):NEXT
336 CALL SPEECH("A,")
337 LOCATE (18,12):CALL COLOR("1RC"):PRINT "M";"N"
338 CALL COLOR("0bC")
339 IF E<>11 THEN LOCATE (18,19):PRINT " TIR MANQUE "
340 LOCATE (18,12):CALL COLOR("1bC"):PRINT " "
341 CALL COLOR("1YR"):E=E-1:LOCATE (5,E-1):PRINT "g"
342 CALL COLOR("0Gb")
343 IF E=10 THEN GOTO 349
344 CALL COLOR("0bC")
345 IF E=11 THEN LOCATE (18,19):PRINT "ENERGIE AU MINIMUM"
346 IF E=11 THEN PAUSE 2:LOCATE (18,19):PRINT " "
347 PAUSE .07:LOCATE (18,19):CALL COLOR("0bb"):PRINT " "
348 GOTO 257
349 IF SC>=MS THEN MS=SC:LOCATE (3,31):CALL COLOR("0Gb"):PRINT MS:PAUSE 4
350 CALL HROFF:CLS "WBB":B$="UUNNEE AAUUTTRREE PPAARRTTIIEE ??"
351 C$="<<OO//NN>>"
352 CALL EXEC(50432)
353 CALL COLOR("0bBL"):FOR T=4 TO 11:LOCATE (T,3):PRINT B$:PAUSE .07
354 LOCATE (T-1,3)
355 PRINT " "
356 CALL POKE(258,T+80,140):CALL POKE(258,T+60,138):NEXT:LOCATE (11,3):PRINT B$
357 CALL COLOR("0CBL"):FOR U=6 TO 15:LOCATE (15,U):PRINT C$:LOCATE (15,U-5)
358 PRINT " ":CALL POKE(258,U+80,140):NEXT:CALL POKE(259,0)
359 A$=KEY$:IF A$="O" THEN 360 ELSE 363
360 FOR I=200 TO 1 STEP -1:CALL POKE(258,I+12,132):CALL POKE(258,I+15,140)
361 CALL POKE(258,I+30,135):NEXT:CALL POKE(259,0):GOTO 163
362 !
363 CALL SPEECH("L,"&O$):PAUSE 1
364 CALL SPEECH("A,")
365 CLS:FOR Y=2 TO 6:CALL COLOR("0YBL"):LOCATE (12,Y)
366 PRINT " ";"AAUU RREEVVOOIIRR":CALL POKE(258,Y+60,140):NEXT
367 FOR I=2 TO 12:CALL POKE(258,I+30,136):CALL COLOR("0RBL"):LOCATE (I,28)
368 PRINT "!!":LOCATE (I-1,28):PRINT " ":LOCATE (I,30):PRINT "!!"
369 LOCATE (I-1,30):PRINT " ":LOCATE (I,32)
370 PRINT "!!":LOCATE (I-1,32):PRINT " ":NEXT
371 CALL POKE(259,0)
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.