509 lines
12 KiB
QBasic
509 lines
12 KiB
QBasic
40 FOR L = 770 TO 790: READ V: POKE L,V: NEXT L
|
|
41 DATA 173,48,192,136,208,5,206,1,3,240,9
|
|
42 DATA 202,208,245,174,0,3,76,2,3,96
|
|
43 GOTO 100
|
|
50 DATA 173,48,192,174,0,3,202,240,247,234,234,136,208,248,206,1,3,208,243,96
|
|
51 FOR L=770 TO 789:READ V:POKE L,V:NEXT L
|
|
52 GOTO 100
|
|
60 DATA 173,48,192,174,0,3,202,240,247,234,136,208,249,206,1,3,208,244,96
|
|
61 FOR L=770 TO 788:READ V:POKE L,V:NEXT L
|
|
62 GOTO 100
|
|
70 DATA 173,48,192,174,0,3,202,240,247,234,234,234,136,208,247,206,1,3,208,242,96
|
|
71 FOR L=770 TO 790:READ V:POKE L,V:NEXT L
|
|
72 GOTO 100
|
|
80 DATA 172,1,3,173,0,3,133,250,174,0,3,228,250,208,3,173,48,192,202,208,246,173,48,192,136,240,7,198,250,208,233,76,5,3,96
|
|
81 FOR L=770 TO 804:READ V:POKE L,V:NEXT L
|
|
82 GOTO 100
|
|
90 POKE 768,F:POKE 769,D:CALL 770:RETURN
|
|
' Still Alive
|
|
' from Portal
|
|
' Words and Music by Jonathan Coulton
|
|
' Transcribed from the sheet music made by Ryan Maziarz
|
|
' This was a triumph
|
|
100 D=54:F=85:GOSUB 90
|
|
101 F=91:GOSUB 90
|
|
102 F=102:GOSUB 90
|
|
103 F=102:GOSUB 90
|
|
104 F=91:GOSUB 90
|
|
105 FOR I=1 TO 80: NEXT I
|
|
106 FOR I=1 TO 160: NEXT I
|
|
107 FOR I=1 TO 320: NEXT I
|
|
108 FOR I=1 TO 160: NEXT I
|
|
109 FOR I=1 TO 80: NEXT I
|
|
' I'm making a note here, HUGE SUCCESS
|
|
110 F=152:GOSUB 90
|
|
111 F=85:GOSUB 90
|
|
112 F=91:GOSUB 90
|
|
113 F=102:GOSUB 90
|
|
114 D=108:F=102:GOSUB 90
|
|
115 D=54:F=91:GOSUB 90
|
|
116 FOR I=1 TO 160: NEXT I
|
|
117 D=108:F=114:GOSUB 90
|
|
118 D=54:F=102:GOSUB 90
|
|
119 D=108:F=152:GOSUB 90
|
|
120 FOR I=1 TO 80: NEXT I
|
|
121 FOR I=1 TO 160: NEXT I
|
|
122 FOR I=1 TO 160: NEXT I
|
|
123 FOR I=1 TO 80: NEXT I
|
|
' It's hard to overstate my satisfaction
|
|
'L8 < A > L4 E L8 F# G L4 G L8 F# C# C# L3 D L4 E L8 < A A A > L4 F# R8 R2 R2
|
|
124 D=54:F=152:GOSUB 90
|
|
125 D=108:F=102:GOSUB 90
|
|
126 D=54:F=91:GOSUB 90
|
|
127 D=162:F=85:GOSUB 90
|
|
128 D=54:F=91:GOSUB 90
|
|
129 D=108:F=121:GOSUB 90
|
|
130 D=162:F=114:GOSUB 90
|
|
131 D=108:F=102:GOSUB 90
|
|
132 D=54:F=152:GOSUB 90
|
|
133 D=108:F=152:GOSUB 90
|
|
134 F=91:GOSUB 90
|
|
135 FOR I=1 TO 80: NEXT I
|
|
136 FOR I=1 TO 320: NEXT I
|
|
137 FOR I=1 TO 320: NEXT I
|
|
' Aperture Science
|
|
138 D=54:F=85:GOSUB 90
|
|
139 F=91:GOSUB 90
|
|
140 F=102:GOSUB 90
|
|
141 F=102:GOSUB 90
|
|
142 F=91:GOSUB 90
|
|
143 FOR I=1 TO 80: NEXT I
|
|
144 FOR I=1 TO 160: NEXT I
|
|
145 FOR I=1 TO 320: NEXT I
|
|
146 FOR I=1 TO 160: NEXT I
|
|
147 FOR I=1 TO 80: NEXT I
|
|
' we do what we must because we can.
|
|
148 F=152:GOSUB 90
|
|
149 F=85:GOSUB 90
|
|
150 F=91:GOSUB 90
|
|
151 F=102:GOSUB 90
|
|
152 F=102:GOSUB 90
|
|
153 FOR I=1 TO 160: NEXT I
|
|
154 F=91:GOSUB 90
|
|
155 F=114:GOSUB 90
|
|
156 FOR I=1 TO 160: NEXT I
|
|
157 F=102:GOSUB 90
|
|
158 D=162:F=152:GOSUB 90
|
|
159 FOR I=1 TO 80: NEXT I
|
|
160 FOR I=1 TO 160: NEXT I
|
|
161 FOR I=1 TO 320: NEXT I
|
|
' for the good of all of us except the ones who are dead.
|
|
162 D=108:F=102:GOSUB 90
|
|
163 D=54:F=91:GOSUB 90
|
|
164 D=162:F=85:GOSUB 90
|
|
165 D=54:F=102:GOSUB 90
|
|
166 D=162:F=121:GOSUB 90
|
|
167 D=54:F=114:GOSUB 90
|
|
168 F=102:GOSUB 90
|
|
169 FOR I=1 TO 80: NEXT I
|
|
170 F=152:GOSUB 90
|
|
171 F=114:GOSUB 90
|
|
172 F=102:GOSUB 90
|
|
173 F=96:GOSUB 90
|
|
174 F=102:GOSUB 90
|
|
175 F=114:GOSUB 90
|
|
176 F=128:GOSUB 90
|
|
177 FOR I=1 TO 160: NEXT I
|
|
' But there's no sense crying over every mistake
|
|
178 F=152:GOSUB 90
|
|
179 F=143:GOSUB 90
|
|
180 D=108:F=128:GOSUB 90
|
|
181 F=96:GOSUB 90
|
|
182 D=54:F=102:GOSUB 90
|
|
183 F=114:GOSUB 90
|
|
184 F=114:GOSUB 90
|
|
185 F=128:GOSUB 90
|
|
186 F=114:GOSUB 90
|
|
187 F=128:GOSUB 90
|
|
188 D=108:F=128:GOSUB 90
|
|
189 F=128:GOSUB 90
|
|
' you just keep on trying till you run out of cake
|
|
190 D=54:F=152:GOSUB 90
|
|
191 F=143:GOSUB 90
|
|
192 D=108:F=128:GOSUB 90
|
|
193 F=96:GOSUB 90
|
|
194 D=54:F=85:GOSUB 90
|
|
195 F=96:GOSUB 90
|
|
196 F=102:GOSUB 90
|
|
197 F=114:GOSUB 90
|
|
198 F=114:GOSUB 90
|
|
199 F=102:GOSUB 90
|
|
200 D=108:F=96:GOSUB 90
|
|
201 F=96:GOSUB 90
|
|
' and the Science gets done and you make a neat gun
|
|
202 D=54:F=85:GOSUB 90
|
|
203 F=76:GOSUB 90
|
|
204 F=72:GOSUB 90
|
|
205 F=72:GOSUB 90
|
|
206 D=108:F=76:GOSUB 90
|
|
207 F=85:GOSUB 90
|
|
208 D=54:F=96:GOSUB 90
|
|
209 F=85:GOSUB 90
|
|
210 F=76:GOSUB 90
|
|
211 F=76:GOSUB 90
|
|
212 D=108:F=85:GOSUB 90
|
|
213 F=96:GOSUB 90
|
|
' for the people who are still alive.
|
|
214 D=54:F=114:GOSUB 90
|
|
215 F=128:GOSUB 90
|
|
216 F=114:GOSUB 90
|
|
217 F=96:GOSUB 90
|
|
218 F=96:GOSUB 90
|
|
219 D=108:F=102:GOSUB 90
|
|
220 D=54:F=102:GOSUB 90
|
|
221 F=91:GOSUB 90
|
|
222 D=162:F=91:GOSUB 90
|
|
223 FOR I=1 TO 160: NEXT I
|
|
224 FOR I=1 TO 320: NEXT I
|
|
225 FOR I=1 TO 640: NEXT I
|
|
226 FOR I=1 TO 640: NEXT I
|
|
227 FOR I=1 TO 160: NEXT I
|
|
228 FOR I=1 TO 80: NEXT I
|
|
' I'm not even angry
|
|
' Note 8-16 and dotted 8
|
|
229 D=54:F=152:GOSUB 90
|
|
230 F=85:GOSUB 90
|
|
231 F=91:GOSUB 90
|
|
232 F=102:GOSUB 90
|
|
233 F=102:GOSUB 90
|
|
234 F=91:GOSUB 90
|
|
235 FOR I=1 TO 160: NEXT I
|
|
236 FOR I=1 TO 320: NEXT I
|
|
237 FOR I=1 TO 320: NEXT I
|
|
' I'm being so sincere right now
|
|
238 F=85:GOSUB 90
|
|
239 F=91:GOSUB 90
|
|
240 F=102:GOSUB 90
|
|
241 D=162:F=102:GOSUB 90
|
|
242 D=54:F=91:GOSUB 90
|
|
243 D=108:F=114:GOSUB 90
|
|
244 F=102:GOSUB 90
|
|
245 F=152:GOSUB 90
|
|
246 FOR I=1 TO 80: NEXT I
|
|
247 FOR I=1 TO 160: NEXT I
|
|
248 FOR I=1 TO 320: NEXT I
|
|
' even though you broke my heart and killed me.
|
|
249 F=102:GOSUB 90
|
|
250 D=54:F=91:GOSUB 90
|
|
251 D=162:F=85:GOSUB 90
|
|
252 D=108:F=102:GOSUB 90
|
|
253 F=121:GOSUB 90
|
|
254 D=54:F=114:GOSUB 90
|
|
255 D=162:F=102:GOSUB 90
|
|
256 D=54:F=152:GOSUB 90
|
|
257 D=108:F=152:GOSUB 90
|
|
258 D=54:F=91:GOSUB 90
|
|
259 FOR I=1 TO 160: NEXT I
|
|
260 FOR I=1 TO 320: NEXT I
|
|
261 FOR I=1 TO 160: NEXT I
|
|
262 FOR I=1 TO 80: NEXT I
|
|
' and tore me to pieces
|
|
263 F=152:GOSUB 90
|
|
264 F=85:GOSUB 90
|
|
265 F=91:GOSUB 90
|
|
266 F=102:GOSUB 90
|
|
267 F=102:GOSUB 90
|
|
268 F=91:GOSUB 90
|
|
269 FOR I=1 TO 80: NEXT I
|
|
270 FOR I=1 TO 160: NEXT I
|
|
271 FOR I=1 TO 320: NEXT I
|
|
272 FOR I=1 TO 160: NEXT I
|
|
273 FOR I=1 TO 80: NEXT I
|
|
' L8 C# B A G G A R8 R4 R2 R4 R8
|
|
' and threw every piece into a fire
|
|
274 F=152:GOSUB 90
|
|
275 F=85:GOSUB 90
|
|
276 F=91:GOSUB 90
|
|
277 F=102:GOSUB 90
|
|
278 F=102:GOSUB 90
|
|
279 FOR I=1 TO 160: NEXT I
|
|
280 F=91:GOSUB 90
|
|
281 F=114:GOSUB 90
|
|
282 FOR I=1 TO 160: NEXT I
|
|
283 F=102:GOSUB 90
|
|
284 D=108:F=152:GOSUB 90
|
|
285 FOR I=1 TO 80: NEXT I
|
|
286 FOR I=1 TO 160: NEXT I
|
|
287 FOR I=1 TO 320: NEXT I
|
|
' As they burned it hurt because
|
|
288 F=102:GOSUB 90
|
|
289 D=54:F=91:GOSUB 90
|
|
290 D=162:F=85:GOSUB 90
|
|
291 D=108:F=102:GOSUB 90
|
|
292 F=121:GOSUB 90
|
|
293 D=54:F=114:GOSUB 90
|
|
294 F=102:GOSUB 90
|
|
295 FOR I=1 TO 80: NEXT I
|
|
' I was so happy for you
|
|
296 F=152:GOSUB 90
|
|
297 F=114:GOSUB 90
|
|
298 F=102:GOSUB 90
|
|
299 F=96:GOSUB 90
|
|
300 F=102:GOSUB 90
|
|
301 F=114:GOSUB 90
|
|
302 F=128:GOSUB 90
|
|
303 FOR I=1 TO 160: NEXT I
|
|
' Now these points of data make a beautiful line
|
|
304 F=152:GOSUB 90
|
|
305 F=143:GOSUB 90
|
|
306 D=108:F=128:GOSUB 90
|
|
307 F=96:GOSUB 90
|
|
308 D=54:F=102:GOSUB 90
|
|
309 F=114:GOSUB 90
|
|
310 F=114:GOSUB 90
|
|
311 F=128:GOSUB 90
|
|
312 F=114:GOSUB 90
|
|
313 F=128:GOSUB 90
|
|
314 D=108:F=128:GOSUB 90
|
|
315 F=128:GOSUB 90
|
|
' and we're out of beta, we're releasing on time.
|
|
316 D=54:F=152:GOSUB 90
|
|
317 F=143:GOSUB 90
|
|
318 D=108:F=128:GOSUB 90
|
|
319 F=96:GOSUB 90
|
|
320 D=54:F=85:GOSUB 90
|
|
321 F=96:GOSUB 90
|
|
322 F=102:GOSUB 90
|
|
323 F=114:GOSUB 90
|
|
324 F=114:GOSUB 90
|
|
325 F=102:GOSUB 90
|
|
326 D=108:F=96:GOSUB 90
|
|
327 F=96:GOSUB 90
|
|
' So I'm GLaD. I got burned. Think of all the things we learned
|
|
328 D=54:F=85:GOSUB 90
|
|
329 F=76:GOSUB 90
|
|
330 F=72:GOSUB 90
|
|
331 F=72:GOSUB 90
|
|
332 D=108:F=76:GOSUB 90
|
|
333 F=85:GOSUB 90
|
|
334 D=54:F=96:GOSUB 90
|
|
335 F=85:GOSUB 90
|
|
336 F=76:GOSUB 90
|
|
337 F=76:GOSUB 90
|
|
338 F=85:GOSUB 90
|
|
339 F=96:GOSUB 90
|
|
340 D=108:F=96:GOSUB 90
|
|
' for the people who are still alive
|
|
341 D=54:F=114:GOSUB 90
|
|
342 F=128:GOSUB 90
|
|
343 F=114:GOSUB 90
|
|
344 F=96:GOSUB 90
|
|
345 F=96:GOSUB 90
|
|
346 D=108:F=102:GOSUB 90
|
|
347 D=54:F=102:GOSUB 90
|
|
348 F=91:GOSUB 90
|
|
349 D=162:F=91:GOSUB 90
|
|
350 FOR I=1 TO 80: NEXT I
|
|
351 FOR I=1 TO 320: NEXT I
|
|
352 FOR I=1 TO 640: NEXT I
|
|
353 FOR I=1 TO 640: NEXT I
|
|
354 FOR I=1 TO 320: NEXT I
|
|
' Go ahead and leave me
|
|
355 D=54:F=85:GOSUB 90
|
|
356 D=27:F=91:GOSUB 90
|
|
357 F=91:GOSUB 90
|
|
358 D=54:F=102:GOSUB 90
|
|
359 D=108:F=102:GOSUB 90
|
|
360 D=54:F=91:GOSUB 90
|
|
361 FOR I=1 TO 160: NEXT I
|
|
362 FOR I=1 TO 320: NEXT I
|
|
363 FOR I=1 TO 160: NEXT I
|
|
364 FOR I=1 TO 80: NEXT I
|
|
' I think I'd prefer to stay inside
|
|
365 F=152:GOSUB 90
|
|
366 F=85:GOSUB 90
|
|
367 F=91:GOSUB 90
|
|
368 F=102:GOSUB 90
|
|
369 F=102:GOSUB 90
|
|
370 FOR I=1 TO 160: NEXT I
|
|
371 F=91:GOSUB 90
|
|
372 F=114:GOSUB 90
|
|
373 FOR I=1 TO 160: NEXT I
|
|
374 F=102:GOSUB 90
|
|
375 D=108:F=152:GOSUB 90
|
|
376 FOR I=1 TO 80: NEXT I
|
|
377 FOR I=1 TO 160: NEXT I
|
|
378 FOR I=1 TO 320: NEXT I
|
|
' Maybe you'll find someone else to help you.
|
|
379 F=102:GOSUB 90
|
|
380 D=54:F=91:GOSUB 90
|
|
381 D=162:F=85:GOSUB 90
|
|
382 D=108:F=102:GOSUB 90
|
|
383 F=121:GOSUB 90
|
|
384 D=54:F=114:GOSUB 90
|
|
385 D=162:F=102:GOSUB 90
|
|
386 D=54:F=152:GOSUB 90
|
|
387 D=108:F=152:GOSUB 90
|
|
388 D=54:F=91:GOSUB 90
|
|
389 FOR I=1 TO 160: NEXT I
|
|
390 FOR I=1 TO 320: NEXT I
|
|
391 FOR I=1 TO 320: NEXT I
|
|
' Maybe Black Mesa
|
|
392 F=85:GOSUB 90
|
|
393 F=91:GOSUB 90
|
|
394 F=102:GOSUB 90
|
|
395 D=108:F=102:GOSUB 90
|
|
396 D=54:F=91:GOSUB 90
|
|
397 FOR I=1 TO 160: NEXT I
|
|
398 FOR I=1 TO 320: NEXT I
|
|
399 FOR I=1 TO 320: NEXT I
|
|
' THAT WAS A JOKE, HA HA, FAT CHANCE
|
|
400 F=85:GOSUB 90
|
|
401 F=91:GOSUB 90
|
|
402 F=102:GOSUB 90
|
|
403 F=102:GOSUB 90
|
|
404 FOR I=1 TO 160: NEXT I
|
|
405 F=91:GOSUB 90
|
|
406 F=114:GOSUB 90
|
|
407 FOR I=1 TO 160: NEXT I
|
|
408 F=102:GOSUB 90
|
|
409 D=108:F=152:GOSUB 90
|
|
410 FOR I=1 TO 80: NEXT I
|
|
411 FOR I=1 TO 160: NEXT I
|
|
412 FOR I=1 TO 320: NEXT I
|
|
' Anyway this cake is great, it's so delicious and moist.
|
|
413 F=102:GOSUB 90
|
|
414 D=54:F=91:GOSUB 90
|
|
415 D=162:F=85:GOSUB 90
|
|
416 D=108:F=102:GOSUB 90
|
|
417 F=121:GOSUB 90
|
|
418 D=54:F=114:GOSUB 90
|
|
419 F=102:GOSUB 90
|
|
420 FOR I=1 TO 80: NEXT I
|
|
421 F=152:GOSUB 90
|
|
422 F=114:GOSUB 90
|
|
423 F=102:GOSUB 90
|
|
424 F=96:GOSUB 90
|
|
425 F=102:GOSUB 90
|
|
426 F=114:GOSUB 90
|
|
427 F=128:GOSUB 90
|
|
428 FOR I=1 TO 160: NEXT I
|
|
' Look at me still talking when there's Science to do
|
|
429 F=152:GOSUB 90
|
|
430 F=143:GOSUB 90
|
|
431 D=108:F=128:GOSUB 90
|
|
432 F=96:GOSUB 90
|
|
433 D=54:F=102:GOSUB 90
|
|
434 F=114:GOSUB 90
|
|
435 F=114:GOSUB 90
|
|
436 F=128:GOSUB 90
|
|
437 F=114:GOSUB 90
|
|
438 F=128:GOSUB 90
|
|
439 D=108:F=128:GOSUB 90
|
|
440 F=128:GOSUB 90
|
|
' When I look out there is makes me GLaD I'm not you.
|
|
441 D=54:F=152:GOSUB 90
|
|
442 F=143:GOSUB 90
|
|
443 D=108:F=128:GOSUB 90
|
|
444 F=96:GOSUB 90
|
|
445 D=54:F=85:GOSUB 90
|
|
446 F=96:GOSUB 90
|
|
447 F=102:GOSUB 90
|
|
448 F=114:GOSUB 90
|
|
449 F=114:GOSUB 90
|
|
450 F=102:GOSUB 90
|
|
451 D=108:F=96:GOSUB 90
|
|
452 F=96:GOSUB 90
|
|
' I've experiments to run. There is research to be done.
|
|
453 D=54:F=85:GOSUB 90
|
|
454 F=76:GOSUB 90
|
|
455 F=72:GOSUB 90
|
|
456 F=72:GOSUB 90
|
|
457 F=76:GOSUB 90
|
|
458 F=85:GOSUB 90
|
|
459 D=108:F=85:GOSUB 90
|
|
460 D=54:F=96:GOSUB 90
|
|
461 F=85:GOSUB 90
|
|
462 F=76:GOSUB 90
|
|
463 F=76:GOSUB 90
|
|
464 F=85:GOSUB 90
|
|
465 F=96:GOSUB 90
|
|
466 D=108:F=96:GOSUB 90
|
|
' On the people who are still alive.
|
|
467 D=54:F=114:GOSUB 90
|
|
468 F=128:GOSUB 90
|
|
469 F=114:GOSUB 90
|
|
470 F=96:GOSUB 90
|
|
471 F=96:GOSUB 90
|
|
472 D=108:F=102:GOSUB 90
|
|
473 D=54:F=102:GOSUB 90
|
|
474 F=91:GOSUB 90
|
|
475 D=162:F=91:GOSUB 90
|
|
476 FOR I=1 TO 160: NEXT I
|
|
477 FOR I=1 TO 160: NEXT I
|
|
' And believe me I am still alive.
|
|
478 D=54:F=76:GOSUB 90
|
|
479 F=76:GOSUB 90
|
|
480 F=68:GOSUB 90
|
|
481 F=76:GOSUB 90
|
|
482 F=91:GOSUB 90
|
|
483 D=108:F=114:GOSUB 90
|
|
484 D=54:F=102:GOSUB 90
|
|
485 F=91:GOSUB 90
|
|
486 D=162:F=91:GOSUB 90
|
|
487 FOR I=1 TO 160: NEXT I
|
|
488 FOR I=1 TO 80: NEXT I
|
|
' I'm doing science and I'm still alive.
|
|
489 D=54:F=76:GOSUB 90
|
|
490 F=76:GOSUB 90
|
|
491 F=76:GOSUB 90
|
|
492 F=68:GOSUB 90
|
|
493 F=76:GOSUB 90
|
|
494 F=91:GOSUB 90
|
|
495 D=108:F=114:GOSUB 90
|
|
496 D=54:F=102:GOSUB 90
|
|
497 F=91:GOSUB 90
|
|
498 D=162:F=91:GOSUB 90
|
|
499 FOR I=1 TO 160: NEXT I
|
|
500 FOR I=1 TO 80: NEXT I
|
|
' I feel FANTASTIC and I'm still alive.
|
|
501 D=54:F=76:GOSUB 90
|
|
502 F=76:GOSUB 90
|
|
503 F=76:GOSUB 90
|
|
504 F=68:GOSUB 90
|
|
505 F=76:GOSUB 90
|
|
506 F=91:GOSUB 90
|
|
507 D=108:F=114:GOSUB 90
|
|
508 D=54:F=102:GOSUB 90
|
|
509 F=91:GOSUB 90
|
|
510 D=162:F=91:GOSUB 90
|
|
511 FOR I=1 TO 160: NEXT I
|
|
512 FOR I=1 TO 160: NEXT I
|
|
' While you're dying I'll be still aliave
|
|
513 D=54:F=76:GOSUB 90
|
|
514 F=76:GOSUB 90
|
|
515 F=68:GOSUB 90
|
|
516 F=76:GOSUB 90
|
|
517 F=91:GOSUB 90
|
|
518 D=108:F=114:GOSUB 90
|
|
519 D=54:F=102:GOSUB 90
|
|
520 F=91:GOSUB 90
|
|
521 D=162:F=91:GOSUB 90
|
|
522 FOR I=1 TO 160: NEXT I
|
|
523 FOR I=1 TO 80: NEXT I
|
|
' And when you're dead I will be still alive
|
|
524 D=54:F=76:GOSUB 90
|
|
525 F=76:GOSUB 90
|
|
526 F=76:GOSUB 90
|
|
527 F=68:GOSUB 90
|
|
528 F=76:GOSUB 90
|
|
529 F=91:GOSUB 90
|
|
530 D=108:F=114:GOSUB 90
|
|
531 D=54:F=102:GOSUB 90
|
|
532 F=91:GOSUB 90
|
|
533 D=162:F=91:GOSUB 90
|
|
534 FOR I=1 TO 160: NEXT I
|
|
535 FOR I=1 TO 80: NEXT I
|
|
' STILL ALIVE
|
|
536 D=54:F=85:GOSUB 90
|
|
537 F=76:GOSUB 90
|
|
538 D=162:F=76:GOSUB 90
|
|
539 FOR I=1 TO 160: NEXT I
|
|
540 FOR I=1 TO 80: NEXT I
|
|
' STILL ALIVE
|
|
541 D=54:F=85:GOSUB 90
|
|
542 F=91:GOSUB 90
|
|
543 D=162:F=91:GOSUB 90
|
|
544 FOR I=1 TO 160: NEXT I
|
|
545 FOR I=1 TO 320: NEXT I
|