dos33fsprogs/music/redbook_sound/sound_test.bas

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