1 ! JEAN-LUC ET FREDERIC PRESENTENT
2 ! ATLANT-EAT POUR EXL 100
9 ! INITIALISATION SON ET GRAPHIQUE
10 CALL HROFF
11 DIM PL(128)
12 FOR I=1 TO 128:PL(I)=200:NEXT
13 CALL POKE(50688,165,8,6,10)
14 CALL POKE(49156,198,0)
15 !
16 ! POISSON JAUNE
17 !
18 CALL CHAR(50,"070F3F6FFF3FFF7F3F1F")
19 CALL CHAR(51,"E0C0E0F1FBFFFBF1F0E0")
20 CALL CHAR(52,"0703078FDFFFDF8F0703")
21 CALL CHAR(53,"E0F0FCF6FFFCFFFEFCF8")
22 !
23 ! LES MONSTRES
24 !
25 CALL CHAR(66,"181818183C7EFF99FFFF")
26 CALL CHAR(67,"E7C381FF7E3C183C7EFF")
27 CALL CHAR(68,"183C66E7FF7E3C66DBFF")
28 CALL CHAR(69,"FFFFDB667E3C183C7EE7")
29 CALL CHAR(70,"04EEBFFD5F5F4E642E60")
30 CALL CHAR(71,"44CE9F9D9F9F8E444E00")
31 CALL CHAR(72,"2443A581423C7EDBFFE7")
32 CALL CHAR(73,"C37E3C4281A543240000")
33 CALL CHAR(74,"1E177FFBE303071C3878")
34 CALL CHAR(75,"F0F1E1E3E3E3E67C3800")
35 CALL CHAR(76,"FF99FF7E18183CFFFFFF")
36 CALL CHAR(77,"FFFF7E7E3C3C18183CFF")
37 CALL CHAR(78,"060F13EFAFA6E6462616")
38 CALL CHAR(79,"0E060C183066C3C1FF7E")
39 CALL CHAR(80,"203E5EEC9C3C3D3F3F3F")
40 CALL CHAR(81,"3F3D1C1C4C4C6C3C3800")
41 CALL CHAR(82,"10101010387CD6FEFEFE")
42 CALL CHAR(83,"FEFC7C7C381010387CFE")
43 CALL CHAR(84,"183C7EFFDBA5DBFFFFFF")
44 CALL CHAR(85,"E781FF7E7E3C3C181800")
45 CALL CHAR(86,"183C7EDBFF663C181818")
46 CALL CHAR(87,"1818181818183C7EFFE7")
47 CALL CHAR(88,"7EFF99FFE7C37E183CA5")
48 CALL CHAR(89,"E7663C3C66E7FFFF0000")
49 CALL CHAR(90,"10381038103810103854")
50 CALL CHAR(91,"FEFEFEFE7E3810387EFE")
51 CALL CHAR(92,"FFFFFF101010103854FE")
52 CALL CHAR(93,"FEFEFE7C3810387CFEFE")
53 !
54 ! PRESENTATION ET FIN
55 !
56 CALL CHAR(97,"00003C428181423C0000")
57 CALL CHAR(98,"18244281818181422418")
58 CALL CHAR(99,"7F010101010101010101")
59 CALL CHAR(100,"FE808080808080808080")
60 CALL CHAR(101,"0101E171391D0F070000")
61 CALL CHAR(102,"80808080808080000000")
62 CALL CHAR(103,"183C66C38181C3663C18")
63 CALL CHAR(104,"C3C3C3C3C3C3C3663C18")
64 CALL CHAR(105,"183C66C3C1FFC063361C")
65 CALL CHAR(106,"FCC2C1C1C2FCC4C2C1C1")
66 CALL CHAR(107,"3C43406000003E211000")
67 CALL CHAR(108,"0202C2BC804442A2443C")
68 CALL CHAR(109,"7886670A0A0A057D8361")
69 CALL CHAR(110,"3008F0000000003008F0")
70 CALL CHAR(111,"32749F0F0A0A0A3B6A6A")
71 CALL CHAR(112,"70F8FCFE0F077F87077F")
72 CALL CHAR(113,"3B140B3B7BCA0A0A0E0E")
73 CALL CHAR(114,"870FFFFEFC1800000000")
74 CALL CHAR(115,"020408303325EDEDCDCD")
75 CALL CHAR(116,"000000C0E07F3E000000")
76 CALL CHAR(117,"CDCDCDEDE971793F0F00")
77 CALL CHAR(118,"7EFE0000000106FCF0F0")
78 CALL CHAR(119,"32749F0F0A1A3B6A6A3B")
79 CALL CHAR(120,"70F8FC8E077F87077F87")
80 CALL CHAR(121,"1A0B0B0A3A7ACA0A0E0E")
81 CALL CHAR(122,"0FFFFE7C6163763E1C18")
82 CALL CHAR(54,"C03F1F070E1A1A1A1A3A")
83 CALL CHAR(55,"00F0FC8E86878787BFC7")
84 CALL CHAR(56,"7A9A1A1A1A2242870F10")
85 CALL CHAR(57,"87BFC787878786FCF800")
86 CALL CHAR(58,"3F7F8D1535E5EDEDEDED")
87 CALL CHAR(59,"060E3E0E0E0E0E0E0E0E")
88 CALL CHAR(60,"EDEDEDEDED6971390F0F")
89 CALL CHAR(61,"0E0E0E0E0E0E1F2FCEC4")
90 CALL CHAR(62,"183C7E3C18183C7E3C18")
91 !################################
92 !#####PRESENTATION DU JEU########
93 !################################
94 CLS "GBB":CALL COLOR("0MB")
95 LOCATE (1,10):PRINT "JEAN LUC & FREDERIC":PAUSE .5
96 CALL POKE(258,249,132)
97 LOCATE (5,17):PRINT "FARGES":PAUSE .9:CALL COLOR("0YB")
98 CALL POKE(259,45):CALL POKE(258,249,132)
99 LOCATE (7,15):PRINT "PRESENTENT":PAUSE .8:CALL COLOR("0CBHL")
100 CALL POKE(259,45):CALL POKE(258,175,132)
101 LOCATE (11,11):PRINT "AATTLLAANNTT__EEAATT"
102 LOCATE (12,11):PRINT "AATTLLAANNTT__EEAATT"
103 CALL COLOR("1GB"):LOCATE (10,10):PRINT "aaaaaaaaaaaaaaaaaaaaaa"
104 LOCATE (12,10):PRINT "b":LOCATE (12,31):PRINT "b"
105 LOCATE (11,10):PRINT "b":LOCATE (11,31):PRINT "b"
106 CALL COLOR("1GB"):LOCATE (13,10):PRINT "aaaaaaaaaaaaaaaaaaaaaa"
107 CALL POKE(259,45):CALL POKE(258,249,132)
108 CALL COLOR("0GB"):LOCATE (21,5)
109 PRINT "Voulez_vous les regles du jeu ?":CALL COLOR("0GB"):LOCATE (22,13)
110 PRINT "(1=OUI 0=NON)":PAUSE 1:CALL POKE(259,45)
111 RE$=KEY$
112 IF RE$="1" THEN 118:IF RE$="0" THEN 139
113 IF RE$="0" THEN 139
114 GOTO 111
115 !
116 !REGLE DU JEU
117 !
118 CLS "BBB"
119 CALL COLOR("0RBLF"):LOCATE (1,7):PRINT "RREEGGLLEESS DDUU JJEEUU"
120 PAUSE 1
121 DIM A$(19)
122 A$(2)="VOUS ETES LE POISSON JAUNE EN HAUT DE"
123 A$(4)="L'ECRAN.AU FOND DE LA MER SE TROUVENT "
124 A$(6)="DES ALGUES VENIMEUSES,DES POISSONS ET "
125 A$(8)=" DES MONSTRES RADIO-ACTIFS."
126 A$(10)="POUR SURVIVRE VOUS DEVREZ LES MANGER"
127 A$(12)="MAIS ATTENTION A CHAQUE PHASE DE JEU "
128 A$(14)="VOUS DEVEZ EN DEVORER D'AVANTAGE POUR"
129 A$(16)=" NE PAS MOURRIR HAHAHA!!..."
130 A$(18)="VOUS VOUS DIRIGEREZ AVEC LES MANETTES"
131 A$(19)=" OU LE CLAVIER."
132 FOR I=1 TO 19:FOR J=1 TO LEN(A$(I))
133 CALL COLOR("0bb"):LOCATE (I+1,J):PRINT " "
134 CALL COLOR("0WB"):LOCATE (I+1,J):PRINT SEG$(A$(I),J,1)
135 CALL POKE(258,93,152):NEXT:CALL POKE(259,45):NEXT
136 CALL COLOR("0CB"):LOCATE (21,1)
137 PRINT "APPUYEZ SUR UNE TOUCHE POUR LES OPTIONS"
138 P$=KEY$
139 !
140 ! OPTIONS
141 !
142 CLS:CALL COLOR("0CBHL")
143 LOCATE (15,10):PRINT "AATTLLAANNTT__EEAATT"
144 LOCATE (16,10):PRINT "AATTLLAANNTT__EEAATT"
145 CALL COLOR("1GB"):LOCATE (16,9):PRINT "b":LOCATE (16,30):PRINT "b"
146 LOCATE (15,9):PRINT "b":LOCATE (15,30):PRINT "b"
147 LOCATE (17,9):PRINT "aaaaaaaaaaaaaaaaaaaaaa"
148 LOCATE (14,9):PRINT "aaaaaaaaaaaaaaaaaaaaaa"
149 CALL COLOR("0YBL"):LOCATE (1,3):PRINT "CCHHOOIIXX DDEESS OOPPTTIIOONNSS"
150 S$=RPT$(CHR$(4),36)
151 CALL COLOR("0bB"):LOCATE (2,2):PRINT S$:CALL COLOR("0RBL"):LOCATE (6,3)
152 PRINT "NNOOMMBBRREE DDEE JJOOUUEEUURRSS ??::":LOCATE (9,15)
153 PRINT "((11//22))"
154 NBR$=KEY$
155 IF NBR$="1" THEN NBR=1:GOTO 158
156 IF NBR$="2" THEN NBR=2:GOTO 160
157 GOTO 154
158 CALL COLOR("1MB"):LOCATE (21,12):PRINT "ef g h i h j kl"
159 LOCATE (20,12):PRINT "cd":PAUSE 3:GOTO 162
160 CALL COLOR("1MB"):LOCATE (21,12):PRINT "ef g h i h j mn"
161 LOCATE (20,12):PRINT "cd":PAUSE 3
162 AA$=RPT$(" ",40)
163 FOR I=7 TO 9:CALL COLOR("0BB"):LOCATE (I,1):PRINT AA$:NEXT
164 FOR I=20 TO 21:LOCATE (I,1):PRINT AA$:NEXT
165 CALL COLOR("0bBL")
166 M1$="11::DDEEBBUUTTAANNTT...................."
167 M2$="22::AAMMAATTEEUURR......................"
168 M3$="33::PPRROOFFEESSSSIIOONNNNEELL.........."
169 M4$="44::KKAAMMIIKKAASSEE...................."
170 LOCATE (6,1):PRINT M1$&M2$&M3$&M4$
171 OP$=KEY$
172 IF OP$="1" THEN D(1)=D(2)=5:GOTO 177
173 IF OP$="2" THEN D(1)=D(2)=7:GOTO 178
174 IF OP$="3" THEN D(1)=D(2)=10:GOTO 179
175 IF OP$="4" THEN D(1)=D(2)=15:GOTO 180
176 GOTO 171
177 CALL COLOR("0WBLF"):LOCATE (6,1):PRINT M1$:GOTO 181
178 CALL COLOR("0WBLF"):LOCATE (7,1):PRINT M2$:GOTO 181
179 CALL COLOR("0WBLF"):LOCATE (8,1):PRINT M3$:GOTO 181
180 CALL COLOR("0WBLF"):LOCATE (9,1):PRINT M4$
181 CALL COLOR("0RB"):LOCATE (21,2):PRINT "APPUYEZ SUR UNE TOUCHE POUR JOUER"
182 PO$=KEY$
183 !___________________________________
184 !JEU
185 !___________________________________
186 P(2)=0
187 L(1)=7:L(2)=26
188 CLS "Ybb":CALL COLOR("0BB")
189 CALL HRON("B",4,1):FOR I=1 TO 3:LOCATE (I,1):PRINT RPT$(CHR$(32),40):NEXT
190 CALL COLOR("0RB"):LOCATE (1,1):PRINT "JOUEUR 1":LOCATE (2,1):PRINT "SCORE:"
191 LOCATE (3,1):PRINT "VIES:"
192 CALL COLOR("1YB"):LOCATE (3,L(1)+1):PRINT RPT$(CHR$(50)&CHR$(51)&" ",3)
193 IF NBR=1 THEN 198
194 CALL COLOR("0RB")
195 LOCATE (1,20):PRINT "JOUEUR 2":LOCATE (2,20):PRINT "SCORE:"
196 LOCATE (3,20):PRINT "VIES:"
197 CALL COLOR("1YB"):LOCATE (3,L(2)+1):PRINT RPT$(CHR$(50)&CHR$(51)&" ",3)
198 J=1:XJ=1:C(1)=66:C(2)=66:V(1)=3:V(2)=3:RESTORE 258
199 B$="DDDD463228ECBBDDBBDEADCBB59ADEFD88DB300FEDED2254006"
200 P(1)=0:P(2)=0:CALL COLOR("0Wb")
201 DIM X(350)
202 FOR I=1 TO 19:X(I)=0:NEXT
203 READ C$:IF C$="FIN" THEN RESTORE 258:C(1)=66:C(2)=66:D(J)=D(J)+2:GOTO 201
204 I=19
205 READ X(I)
206 IF X(I)=0 THEN LOCATE (22,1):PRINT:PRINT:PRINT:GOTO 359
207 CALL COLOR(C$)
208 LOCATE (22,X(I)):PRINT:PRINT TAB(X(I));CHR$(C(J)):X(I+1)=X(I)
209 PRINT TAB(X(I));CHR$(C(J)+1):X(I+2)=X(I):I=I+2
210 CALL COLOR("1Yb")
211 IF J=1 THEN CALL KEY1(A,B)
212 IF J=2 THEN CALL KEY2(A,B)
213 IF A=131 THEN 215
214 IF A=129 THEN 218
215 XJ=XJ+(A=131 AND XJ>1)
216 LOCATE (4,XJ):PRINT "23"
217 GOTO 220
218 XJ=XJ-(A=129 AND XJ<39)
219 LOCATE (4,XJ-1):PRINT "45"
220 IF X(I-18)=XJ THEN CALL SPEECH("L,"&B$):P(J)=P(J)+10
221 CALL COLOR("0RB"):LOCATE (2,L(J)):PRINT S(J)+P(J)
222 IF I<331 THEN 205
223 IF P(J)<(120+(D(J)*N(J)))THEN 225
224 GOTO 242
225 !
226 ! DECOMPTE DE VIE
227 !
228 V(J)=V(J)-1:S(J)=S(J)+P(J)
229 CALL COLOR("0BB"):LOCATE (3,1):PRINT RPT$(CHR$(32),40):CALL COLOR("0RB")
230 LOCATE (3,1):PRINT "VIES:"
231 IF NBR=2 THEN LOCATE (3,20):PRINT "VIES:"
232 CALL COLOR("1YB"):LOCATE (3,L(J)+1):PRINT RPT$(CHR$(50)&CHR$(51)&" ",V(J))
233 IF V(J)<=0 THEN 251
234 IF NBR=2 AND J=1 THEN J=2:GOTO 237
235 IF NBR=2 AND J=2 THEN J=1:GOTO 237
236 IF NBR=1 THEN RESTORE 258:FOR I=1 TO 157*N(J):READ Z$:NEXT:XI=1:GOTO 200
237 RESTORE 258:FOR I=1 TO 157*N(J):READ Z$:NEXT:XJ=1
238 CALL COLOR("1YB"):LOCATE (3,L(J)+1):PRINT RPT$(CHR$(50)&CHR$(51)&" ",V(J))
239 GOTO 200
240 !
241 ! BONUS
242 !
243 S(J)=S(J)+500+P(J)
244 CALL COLOR("0RG"):LOCATE (2,L(J))
245 PRINT S(J)
246 C(J)=C(J)+2:N(J)=N(J)+1
247 GOTO 200
248 !
249 ! FIN ?
250 !
251 IF NBR=2 AND J=1 THEN J=2:GOTO 253
252 IF NBR=2 AND J=2 THEN J=1
253 IF V(J)=0 THEN 365
254 GOTO 237
255 !
256 ! DEPLACEMENT DES MONSTRES
257 !
258 DATA 1Rb,1,0,0,0,2,0,0,0,3,0,0,0,4,0,0,0,5,0,0,0,6,0,0,0
259 DATA 7,0,0,0,8,0,0,0,9,0,0,0,10,0,0,0,11,0,0,0,12,0,0,0
260 DATA 13,0,0,0,14,0,0,0,15,0,0,0,16,0,0,0,17,0,0,0,18,0,0,0
261 DATA 19,0,0,0,20,0,0,0,21,0,0,0,22,0,0,0,23,0,0,0,24,0,0,0
262 DATA 25,0,0,0,26,0,0,0,27,0,0,0,28,0,0,0,29,0,0,0,30,0,0,0
263 DATA 31,0,0,0,32,0,0,0,33,0,0,0,34,0,0,0,35,0,0,0,36,0,0,0
264 DATA 37,0,0,0,38,0,0,0,39,0,0,0
265 DATA 1Gb,39,0,0,38,0,0,37,0,0,36,0,0,35,0,0,33,0,0,31,0,0
266 DATA 29,0,0,27,0,0,25,0,0,24,0,0,23,0,0,22,0,0,20,0,0
267 DATA 18,0,0,16,0,0,15,0,0,14,0,0,13,0,0,12,0,0,10,0,0
268 DATA 8,0,0,6,0,0,4,0,0,2,0,0,0,0,0,0,0,0,0,0,0,2,0,0,4,0,0
269 DATA 5,0,0,6,0,0,7,0,0,0,0,0,0,0,0,0,0,0,20,0,0,22,0,0
270 DATA 23,0,0,24,0,0,25,0,0,0,0,0,0,0,0,0,0,0,35,0,0,36,0,0
271 DATA 37,0,0,38,0,0,39,0,0,38,0,0,39,0,0,38,0,0
272 DATA 1Wb,1,0,2,0,3,0,4,0,3,0,2,0,1,0,2,0,3,0,4,0,5,0,6,0
273 DATA 0,0,0,0,0,0,0,0,0,0,0,0,20,0,21,0,22,0,23,0,24,0,25,0
274 DATA 26,27,28,29,29,28,27,26,0,0,0,0,0,0,0,0,0,0,0,0,0,0
275 DATA 30,0,31,0,32,0,0,0,0,0,34,0,0,0,37,0,0,0,0,0,34,0,0,0,0
276 DATA 30,0,31,0,32,0,0,0,0,0,34,0,0,0,37,0,0,0,0,0,34,0,0,0
277 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,10,0,11,0,11,0,11,0,11,0
278 DATA 15,0,16,0,17,0,0,8,0,19,0,0,19
279 DATA 1Cb,18,0,17,0,0,16,0,15,0,0,14,0,13,0,12,0,11,0,0,10,0
280 DATA 9,0,8,0,0,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,25,0,24,0,0
281 DATA 25,0,0,0,28,0,0,0,29,0,0,0,31,0,31,0,31,0,0,0,0,0,0,0
282 DATA 31,0,0,25,0,24,0,23,0,22,0,23,0,24,0,25,0,26,0,20,0,0,0
283 DATA 31,0,0,0,32,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
284 DATA 0,0,0,0,0,0,0,0,1,2,3,4,5,6,7,8,0,0,0,0,0,0,0,0,0
285 DATA 12,13,12,13,12,13,12,13,0,0
286 DATA 1Mb,13,0,12,0,11,0,11,0,0,0,11,0,0,0,0,0,0,0,0,0,0,0,0
287 DATA 7,0,0,0,0,0,0,0,0,0,17,0,16,0,25,0,36,0,37,0,38,0,0,0,0
288 DATA 0,0,0,0,0,0,0,0,25,26,27,28,28,28,27,26,25,25,24,23,0,0,0
289 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,30,30,30,30,30,0,0,0,0,0
290 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,10,9,8,7,6,0,0,0,0,0
291 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,30,29,28,29,30,31,32,31,32,33
292 DATA 33,34,35,36,36,37,20
293 DATA 1Cb,1,2,4,1,2,3,0,0,0,9,0,0,0,8,0,0,0,5,0,0,0,2,0,0,0,2
294 DATA 0,0,0,0,0,0,0,0,25,26,23,22,27,29,0,0,0,0,0,0,0,0,0,35
295 DATA 0,0,0,0,0,0,0,0,35,36,33,32,37,39,0,0,0,0,0,0,0,0,0,5
296 DATA 0,0,0,1,0,0,0,0,5,6,3,2,37,9,0,0,0,0,1,0,0,0,0,5
297 DATA 0,0,0,1,0,0,0,0,5,6,3,2,37,9,0,0,0,0,1,0,0,0,0,5
298 DATA 0,0,0,1,0,0,0,0,5,6,3,2,37,9,0,0,0,0,1,0,0,0,0,5
299 DATA 0,0,0,1,0,0,0,0,5,6
300 DATA 1Bb,0,6,0,7,0,8,0,5,0,3,0,2,0,6,0,9,0,1,0,4,0,5,0,9,0,10
301 DATA 0,0,0,35,35,35,35,35,35,35,1,0,1,0,2,0,3,0,4,0,1,0,2,0,3,0
302 DATA 0,0,0,35,35,35,35,35,35,35,1,0,1,0,2,0,3,0,4,0,1,0,2,0,3,0
303 DATA 0,0,0,35,35,35,35,35,35,35,1,0,1,0,20,0,3,0,4,0,9,0,2,0,3,0
304 DATA 0,0,0,35,35,35,35,35,35,35,1,0,1,0,2,0,3,0,9,0,1,0,2,0,7,0
305 DATA 0,0,0,35,35,35,35,35,35,35,35,35,35,35,35,35,35,0,0,0,0,0
306 DATA 25,26,27,25
307 DATA 1Yb,1,1,26,0,33,0,23,0,6,0,9,0,4,0,39,0,2,0,0,2,0,2
308 DATA 1,0,0,1,26,0,33,0,23,0,6,0,9,0,4,0,39,0,2,0,0,2,0,2
309 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,30,26,28,27,25,24
310 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,30,26,28,27,25,24
311 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,30,26,28,27,25,24
312 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,30,26,28,27,25,24
313 DATA 1,23,24,23,22,21,26,27,23,29
314 DATA 1Rb,0,0,0,0,19,19,17,18,30,31,29,1,2,1,4,4,1,5,0,0,0,0,0
315 DATA 0,0,0,0,0,31,32,39,38,33,34,37,36,35,35,35,1,10,1,20,1,30,39
316 DATA 1,1,3,1,2,9,10,12,19,19,18,1,12,30,19,39,1,20,34,38,20,21,34,1
317 DATA 2,3,2,1,2,3,1,2,3,4,9,19,29,2,19,18,3,6,39,2,29,30,5,7,4,9,30
318 DATA 0,0,0,0,0,0,0,0,0,0,0,1,2,0,0,0,0,4,0,0,0,0,0,0,0,0,0,0,0
319 DATA 1,0,0,0,2,0,0,0,0,2,0,29,30,39,0,0,12,0,23,23,0,0,0
320 DATA 0,0,0,0,2,29,30
321 DATA 1GB,0,0,2,0,0,0,0,0,0,29,30,39,31,23,32,20,34,19,38,15
322 DATA 0,0,0,0,2,0,0,0,0,0,0,29,30,39,31,23,32,20,34,19,38,15
323 DATA 0,0,0,0,0,0,0,0,1,0,0,1,2,0,0,0,0,4,0,0,0,0,0,0,0,0,0,0,0
324 DATA 0,0,0,0,2,0,0,0,0,0,0,29,30,39,31,23,32,20,34,19,38,15
325 DATA 0,0,0,0,2,0,0,0,0,0,0,29,30,39,31,23,32,20,34,19,38,15
326 DATA 3,3,2,3,2,7,5,8,9,1,4,29,30,39,31,13,12,10,34,9,38,5
327 DATA 3,3,2,3,2,7,5,8,9,1,4,29,28,29,20,9,2,30,36
328 DATA 1Cb,2,3,2,7,5,8,9,1,4,29,28,29,20,9,2,30,36,39,20,1,2,3,20,21
329 DATA 2,3,2,7,5,8,9,1,4,29,28,29,20,9,2,30,36,39,20,1,2,3,20,21
330 DATA 2,3,2,7,5,8,9,1,4,29,28,29,20,9,2,30,36,39,20,1,2,3,20,21
331 DATA 2,3,2,7,5,8,9,1,4,29,28,29,20,9,2,30,36,39,20,1,2,3,20,21
332 DATA 0,3,0,7,0,8,0,1,0,29,8,19,29,9,0,30,16,31,0,0,2,0,20,11
333 DATA 0,0,0,7,0,0,0,1,0,19,8,19,22,9,0,10,16,31,0,0,0,0,20,11,1,1,1
334 DATA 0,0,0,37,0,0,0,0,0
335 DATA 1Mb,0,37,0,0,0,11,0,19,18,19,22,9,0,0,16,3,0,0,0,0,0,1,1,0,1
336 DATA 0,0,0,37,0,0,0,11,0,19,18,19,22,9,0,0,16,3,0,0,0,0,0,1,1,0,1
337 DATA 8,9,0,3,0,0,0,11,0,19,1,0,22,9,0,0,16,3,0,0,0,0,0,1,1,0,1
339 DATA 8,9,0,3,0,0,0,11,0,19,1,0,22,9,0,0,16,3,0,0,0,0,0,1,1,0,1
340 DATA 0,0,0,3,0,0,0,31,0,19,1,0,22,9,0,0,16,3,0,0,9,10,20,30,31
341 DATA 1Yb,3,3,4,6,5,31,5,19,1,5,22,9,8,7,6,3,5,6,5,10,2,5,4,3
342 DATA 3,3,4,6,5,31,5,19,1,5,22,9,8,7,6,3,5,6,5,10,2,5,4,3
343 DATA 0,3,0,6,0,31,0,19,1,0,22,0,8,0,6,0,5,0,5,10,2,0,4,0
344 DATA 0,3,9,6,9,31,0,19,9,0,29,0,8,0,6,0,9,0,5,19,2,0,9,0
345 DATA 0,0,9,0,0,31,0,9,9,0,2,0,0,0,0,0,0,0,5,9,0,0,0,0
346 DATA 0,0,9,0,0,31,0,9,9,0,2,0,0,0,0,0,0,0,5,9,0,0,0,0
347 DATA 0,0,0,0,0,1,0,0,0,0,1,0
348 DATA 1Wb,0,0,0,1,0,9,0,0,2,0,0,0,0,0,0,0,0,9,0,0,0,0,0,0,15
349 DATA 0,0,0,20,21,22,0,0,0,0,10,9,8,7,0,0,0,0,0,0,0,30,31
350 DATA 0,0,0,20,0,22,0,0,0,0,10,9,8,7,0,0,0,0,0,0,0,30,31
351 DATA 33,0,0,0,0,0,10,10,10,0,10,0,33,39,0,0,0,0,0,0,10
352 DATA 11,0,0,10,0,0,1,0,10,0,0,0,0,20,21,22,10,20,12,0,0,13
353 DATA 0,0,0,20,21,22,0,0,0,0,10,9,8,7,0,0,0,0,0,0,0,30,31
354 DATA 0,0,0,20,21,22,0,0,0,0,0,0,0,0,1,2,3,4,5
355 DATA FIN
359 X(I+1)=0
360 I=I+2:GOTO 210
361 !_______________________!
362 ! !
363 ! PERDU !
364 !_______________________!
365 CALL HROFF:CLS "GBB":CALL COLOR("1YB")
366 AF$=RPT$("2"&"3"&" ",13)
367 LOCATE (1,2):PRINT AF$
368 LOCATE (20,2):PRINT AF$
369 FOR I=2 TO 20 STEP 2
370 LOCATE (I,1):PRINT "O":NEXT
371 FOR I=1 TO 20 STEP 2:LOCATE (I,1):PRINT "N":NEXT
372 FOR I=2 TO 20 STEP 2
373 LOCATE (I,40):PRINT "O":NEXT
374 FOR I=1 TO 20 STEP 2
375 LOCATE (I,40):PRINT "N":NEXT
376 CALL COLOR("1GB"):LOCATE (3,14)
377 PRINT "op st wx 67 :;"
378 LOCATE (4,14)
379 PRINT "qr uv yz 89 <="
380 CALL COLOR("1MB"):FOR I=1 TO NBR
381 LOCATE (6*I,3):PRINT "cd"
382 LOCATE (6*I+1,3):PRINT "ef g h i h j ":NEXT
383 LOCATE (7,16):PRINT "kl >";:CALL COLOR("0MB"):PRINT S(1)
384 CALL COLOR("1MB")
385 IF NBR=2 THEN LOCATE (13,16):PRINT "mn >";:CALL COLOR("0MB"):PRINT S(2)
386 !
387 ! DONNEES MUSIQUE DE FIN
388 !
389 RESTORE 392
390 CALL POKE(50688,165,8,6,10)
391 CALL POKE(49156,198,0)
392 DATA 198,.8,158,.8,158,.2,158,.8,209,.8,168,.7,168,.2,168,.8
393 DATA 198,.8,158,.8,158,.2,158,.8,209,.8,168,.7,168,.2,168,.8
394 FOR I=1 TO 16:READ SS,PP
395 CALL POKE(258,SS,160)
396 CALL POKE(258,SS,147)
397 CALL POKE(258,SS,131):PAUSE PP
398 CALL POKE(259,45):NEXT
399 !
400 ! UNE AUTRE PARTIE
401 !
402 CALL COLOR("0bB")
403 LOCATE (19,3)
404 PRINT "VOULEZ-VOUS REJOUER ? (1=OUI 0=NON)"
405 PAR$=KEY$
406 IF PAR$="1" THEN RESTORE 258:GOTO 142
407 IF PAR$="0" THEN 412
408 GOTO 405
409 !
410 ! AU REVOIR
411 !
412 FOR I=2 TO 39
413 FOR J=2 TO 19
414 LOCATE (J,I):PRINT " "
415 NEXT
416 NEXT
417 DIM FI$(19)
418 FI$(3)=" NOUS ESPERONS QUE L'ATLANT-EAT VOUS A "
419 FI$(6)=" DISTRAIT POUR QUELQUES INSTANTS"
420 FI$(9)=" A LA PROCHAINE FOIS ......"
421 FOR I=1 TO 9
422 FOR J=2 TO LEN(FI$(I))
423 CALL COLOR("0RR")
424 LOCATE (I+1,J):PRINT " "
425 CALL COLOR("0MB")
426 LOCATE (I+1,J)
427 PRINT SEG$(FI$(I),J,1)
428 CALL POKE(258,152,147)
429 NEXT
430 CALL POKE(259,45)
431 NEXT
432 CALL COLOR("0GBL"):LOCATE (15,7)
433 PRINT "SSAALLUUTT HHEERROOSS !!"
434 END
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.