home *** CD-ROM | disk | FTP | other *** search
/ Supremacy 1 / Supremacy-1.iso / DEMOS / U-V / ULTCHPDK.ZIP / SOURCES.ZIP / GFABASIC.ZIP / TAO_DIGI.GFA (.txt) < prev    next >
GFA-BASIC Atari  |  1996-06-07  |  7KB  |  345 lines
  1. ' +--------------------------------------------+
  2. ' |    Digi Music by TAO from GFA BASIC v3.6   |
  3. ' |                                            |
  4. ' |          Written by:  MUG U.K™             |
  5. ' |                                            |
  6. ' |  Released on "Makin' Sweet Music Volume 2" |
  7. ' +--------------------------------------------+
  8. '
  9. ' ## INLINE:
  10. ' $0000: 60 00 00 52 60 00 01 7e 60 00 01 7a 60 00 07 10 
  11. ' $0010: 00 00 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 
  12. ' $0020: 2a 2a 2a 2a 2a 2a 43 4f 4e 56 45 52 54 45 44 20 
  13. ' $0030: 42 59 20 2d 54 41 4f 2d 20 4f 46 20 41 43 46 2a 
  14. ' $0040: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 
  15. ' $0050: 2a 2a 2a 2a 48 e7 ff fe 49 fa ff a6 4a 80 66 3a 
  16. ' $0060: 23 fc 08 00 00 00 00 ff 88 00 23 fc 09 00 00 00 
  17. ' $0070: 00 ff 88 00 23 fc 0a 00 00 00 00 ff 88 00 39 7c 
  18. ' $0080: 00 01 09 14 4a 6c 09 0e 67 00 00 f4 61 00 07 d4 
  19. ' $0090: 39 7c 00 00 09 0e 60 00 00 e6 4a 6c 09 0e 66 0a 
  20. ' $00a0: 61 00 07 62 39 7c 00 01 09 0e 53 80 45 fa 0b 30 
  21. ' $00b0: 47 fa 08 9c 26 8a 2c 00 cc fc 00 0c 19 6a 00 0f 
  22. ' $00c0: 09 0c 19 6a 00 0f 09 0d 39 7c 00 00 09 14 41 fa 
  23. ' $00d0: 08 82 20 aa 00 04 26 52 d7 c6 41 fa 09 ca 22 53 
  24. ' $00e0: 20 89 11 69 00 05 00 0f 21 51 00 10 5c 90 26 52 
  25. ' $00f0: d7 c6 41 fa 0a 0c 22 6b 00 04 20 89 11 69 00 05 
  26. ' $0100: 00 0f 21 51 00 10 5c 90 26 52 d7 c6 41 fa 0a 4c 
  27. ' $0110: 22 6b 00 08 20 89 11 69 00 05 00 0f 21 51 00 10 
  28. ' $0120: 5c 90 41 fa 09 82 70 02 11 7c 00 00 00 32 11 7c 
  29. ' $0130: 00 00 00 44 11 7c 00 00 00 27 21 7c 00 00 00 00 
  30. ' $0140: 00 1e 11 7c 00 00 00 50 11 7c 00 00 00 51 31 7c 
  31. ' $0150: 01 01 00 4a 47 fa 0a 5e 21 4b 00 08 47 fa 0a 76 
  32. ' $0160: 21 4b 00 14 21 4b 00 18 47 fa 0a 6e 21 4b 00 2a 
  33. ' $0170: 21 4b 00 2e d1 fc 00 00 00 5a 51 c8 ff ac 4c df 
  34. ' $0180: 7f ff 4e 75 49 fa fe 7a 4b f9 00 ff 88 00 4a 6c 
  35. ' $0190: 09 14 66 00 02 2c 53 2c 09 0c 66 1e 19 6c 09 0d 
  36. ' $01a0: 09 0c 41 fa 09 02 61 00 02 2c 41 fa 09 54 61 00 
  37. ' $01b0: 02 24 41 fa 09 a6 61 00 02 1c 00 2c 00 3f 09 34 
  38. ' $01c0: 41 fa 08 e4 61 00 03 7c 4a 28 00 28 67 00 00 12 
  39. ' $01d0: 19 7c 00 00 09 18 19 7c 00 00 09 1c 60 00 00 0e 
  40. ' $01e0: 19 68 00 1d 09 18 19 68 00 1c 09 1c 19 68 00 0e 
  41. ' $01f0: 09 38 10 28 00 33 6b 06 02 2c 00 fe 09 34 c0 3c 
  42. ' $0200: 00 1f 67 06 02 2c 00 f7 09 34 19 40 09 08 41 fa 
  43. ' $0210: 08 f0 61 00 03 2e 4a 28 00 28 67 00 00 12 19 7c 
  44. ' $0220: 00 00 09 24 19 7c 00 00 09 28 60 00 00 0e 19 68 
  45. ' $0230: 00 1d 09 20 19 68 00 1c 09 24 19 68 00 0e 09 3c 
  46. ' $0240: 19 68 00 33 09 09 10 28 00 33 6b 06 02 2c 00 fd 
  47. ' $0250: 09 34 c0 3c 00 1f 67 06 02 2c 00 ef 09 34 19 40 
  48. ' $0260: 09 09 41 fa 08 f6 61 00 02 da 4a 28 00 28 67 00 
  49. ' $0270: 00 12 19 7c 00 00 09 28 19 7c 00 00 09 2c 60 00 
  50. ' $0280: 00 0e 19 68 00 1d 09 28 19 68 00 1c 09 2c 19 68 
  51. ' $0290: 00 0e 09 40 19 68 00 33 09 0a 10 28 00 33 6b 06 
  52. ' $02a0: 02 2c 00 fb 09 34 c0 3c 00 1f 67 06 02 2c 00 df 
  53. ' $02b0: 09 34 19 40 09 0a 08 2c 00 03 09 34 66 4e 08 2c 
  54. ' $02c0: 00 04 09 34 66 28 08 2c 00 05 09 34 66 02 60 5a 
  55. ' $02d0: 08 2c 00 03 09 34 66 72 08 2c 00 04 09 34 66 62 
  56. ' $02e0: 10 2c 09 38 12 2c 09 3c b2 00 6e 5e 60 54 08 2c 
  57. ' $02f0: 00 03 09 34 66 5c 08 2c 00 05 09 34 66 44 10 2c 
  58. ' $0300: 09 38 12 2c 09 40 b2 00 6e 48 60 36 08 2c 00 04 
  59. ' $0310: 09 34 66 3e 08 2c 00 05 09 34 66 2e 10 2c 09 3c 
  60. ' $0320: 12 2c 09 40 b2 00 6e 2a 60 20 10 2c 09 38 12 2c 
  61. ' $0330: 09 3c 14 2c 09 40 b0 01 6e 04 b2 02 6e 0c b0 02 
  62. ' $0340: 6d 10 19 6c 09 08 09 30 60 0e 19 6c 09 09 09 30 
  63. ' $0350: 60 06 19 6c 09 0a 09 30 41 fa 07 4c 08 28 00 04 
  64. ' $0360: 00 0e 67 0e 19 68 00 3a 09 44 19 68 00 3b 09 4c 
  65. ' $0370: 60 32 41 fa 07 8c 08 28 00 04 00 0e 67 0e 19 68 
  66. ' $0380: 00 3a 09 44 19 68 00 3b 09 4c 60 18 41 fa 07 cc 
  67. ' $0390: 08 28 00 04 00 0e 67 0c 19 68 00 3a 09 44 19 68 
  68. ' $03a0: 00 3b 09 4c 4c fa 1f ff 05 6e 48 d5 1f ff 1a bc 
  69. ' $03b0: 00 0d 10 3a 05 98 b0 15 67 04 2a ba 05 8e 4e 75 
  70. ' $03c0: 2a bc 08 00 00 00 2a bc 09 00 00 00 2a bc 0a 00 
  71. ' $03d0: 00 00 4e 75 53 28 00 4a 66 00 01 5e 11 68 00 4b 
  72. ' $03e0: 00 4a 11 7c 00 00 00 35 22 68 00 10 36 11 12 19 
  73. ' $03f0: 10 19 21 49 00 10 60 38 24 50 21 52 00 10 6c 12 
  74. ' $0400: 0c 68 ff ff 00 12 67 14 0c 68 ff fe 00 12 67 00 
  75. ' $0410: 01 2a 11 6a 00 05 00 0f 5c 90 60 cc 20 aa 00 04 
  76. ' $0420: 24 50 21 52 00 10 11 6a 00 05 00 0f 5c 90 60 b8 
  77. ' $0430: b2 3c 00 ff 67 c2 4a 01 6c 00 00 54 c2 bc 00 00 
  78. ' $0440: 00 0f d2 41 d2 41 4e fb 18 02 60 00 00 36 60 00 
  79. ' $0450: 00 24 60 00 00 12 60 00 00 02 19 40 09 0c 19 40 
  80. ' $0460: 09 0d 60 00 ff 84 11 40 00 36 11 7c 00 01 00 35 
  81. ' $0470: 60 00 ff 76 14 3c 00 0f 94 00 11 42 00 27 60 00 
  82. ' $0480: ff 68 11 40 00 4a 11 40 00 4b 60 00 ff 5c 4a 43 
  83. ' $0490: 67 00 00 94 14 28 00 0f d2 02 11 41 00 0d 11 41 
  84. ' $04a0: 00 4c 72 00 c0 bc 00 00 00 1f 67 7a 14 28 00 0d 
  85. ' $04b0: 16 28 00 0f 94 03 4a 02 66 00 00 0e 45 fa 06 f6 
  86. ' $04c0: 21 4a 00 08 60 00 00 60 eb 48 24 7a 04 86 d5 c0 
  87. ' $04d0: 11 41 00 25 11 41 00 22 11 6a 00 0c 00 23 11 6a 
  88. ' $04e0: 00 0d 00 24 11 6a 00 0e 00 55 11 6a 00 0f 00 56 
  89. ' $04f0: 11 6a 00 10 00 57 11 6a 00 11 00 3b 11 6a 00 12 
  90. ' $0500: 00 59 11 41 00 26 11 41 00 54 21 52 00 08 21 6a 
  91. ' $0510: 00 04 00 14 21 68 00 14 00 18 21 6a 00 08 00 2a 
  92. ' $0520: 21 68 00 2a 00 2e 4a 28 00 35 66 0c 31 41 00 38 
  93. ' $0530: 11 41 00 36 11 41 00 35 4e 75 39 7c 00 01 09 14 
  94. ' $0540: 4e 75 11 7c 00 00 00 28 24 68 00 14 30 1a 6c 1e 
  95. ' $0550: 0c 40 ff fe 66 06 45 ea ff fc 60 10 0c 40 ff ff 
  96. ' $0560: 66 10 21 68 00 18 00 14 24 68 00 14 30 1a 21 4a 
  97. ' $0570: 00 14 08 00 00 08 67 0c 4a 00 66 00 00 0c 11 7c 
  98. ' $0580: 00 01 00 28 d0 28 00 0d c0 bc 00 00 00 7f 22 00 
  99. ' $0590: d2 28 00 59 43 fa 04 be 11 71 18 00 00 3a 4a 28 
  100. ' $05a0: 00 28 67 00 00 0e 31 7c 00 00 00 1c 70 00 60 00 
  101. ' $05b0: 00 0c 43 fa 03 c8 d0 80 30 31 08 00 76 00 4a 28 
  102. ' $05c0: 00 54 66 1e 53 28 00 55 6a 18 11 68 00 56 00 23 
  103. ' $05d0: 11 68 00 57 00 24 11 7c 00 00 00 22 11 7c 00 01 
  104. ' $05e0: 00 54 12 28 00 23 e4 09 52 01 14 28 00 24 16 28 
  105. ' $05f0: 00 25 4a 28 00 22 66 12 d6 01 b6 02 6f 18 11 7c 
  106. ' $0600: 00 01 00 22 16 28 00 24 60 0c 96 01 6c 08 11 7c 
  107. ' $0610: 00 00 00 22 76 00 11 43 00 25 12 28 00 24 e2 09 
  108. ' $0620: 90 01 93 28 00 3a d0 43 4a 28 00 28 66 00 00 0a 
  109. ' $0630: 31 40 00 1c 60 00 00 08 31 7c 00 00 00 1c e2 4b 
  110. ' $0640: d7 28 00 3a 22 68 00 08 11 51 00 0e 6c 08 11 61 
  111. ' $0650: 00 0e 60 00 00 06 52 a8 00 08 10 28 00 27 91 28 
  112. ' $0660: 00 0e 6c 06 11 7c 00 00 00 0e 12 28 00 36 48 81 
  113. ' $0670: 93 68 00 38 32 28 00 38 d3 68 00 1c d3 28 00 3a 
  114. ' $0680: 4a 28 00 51 67 00 00 6a 53 28 00 4e 6e 3c 11 68 
  115. ' $0690: 00 4f 00 4e 10 28 00 51 d1 28 00 50 0c 28 00 0f 
  116. ' $06a0: 00 50 6d 10 39 7c 00 01 09 14 39 7c 00 01 00 10 
  117. ' $06b0: 60 00 00 2c 0c 28 00 00 00 50 6e 00 00 0e 11 7c 
  118. ' $06c0: 00 00 00 50 11 7c 00 00 00 51 08 28 00 04 00 0e 
  119. ' $06d0: 67 00 00 0c 11 7c 00 00 00 0e 60 00 00 14 10 28 
  120. ' $06e0: 00 50 91 28 00 0e 6c 00 00 08 11 7c 00 00 00 0e 
  121. ' $06f0: 22 68 00 2a 12 19 b2 3c 00 ff 66 0c 21 68 00 2e 
  122. ' $0700: 00 2a 22 68 00 2a 60 0a b2 3c 00 fe 66 06 43 e9 
  123. ' $0710: ff fe 12 19 11 41 00 33 21 49 00 2a 4e 75 48 e7 
  124. ' $0720: c0 80 41 f9 00 08 00 10 30 bc 00 00 32 00 e0 49 
  125. ' $0730: 4a 00 6c 4a 41 fa 03 70 11 41 00 4e 11 41 00 4f 
  126. ' $0740: 11 7c 00 00 00 50 11 7c 00 01 00 51 41 fa 03 b2 
  127. ' $0750: 11 41 00 4e 11 41 00 4f 11 7c 00 00 00 50 11 7c 
  128. ' $0760: 00 01 00 51 41 fa 03 f4 11 41 00 4e 11 41 00 4f 
  129. ' $0770: 11 7c 00 00 00 50 11 7c 00 01 00 51 60 48 41 fa 
  130. ' $0780: 03 26 11 41 00 4e 11 41 00 4f 11 7c 00 0f 00 50 
  131. ' $0790: 11 7c 00 ff 00 51 41 fa 03 68 11 41 00 4e 11 41 
  132. ' $07a0: 00 4f 11 7c 00 0f 00 50 11 7c 00 ff 00 51 41 fa 
  133. ' $07b0: 03 aa 11 41 00 4e 11 41 00 4f 11 7c 00 0f 00 50 
  134. ' $07c0: 11 7c 00 ff 00 51 4c df 01 03 4e 75 48 e7 e0 e0 
  135. ' $07d0: 45 fa 04 0c 20 6a 00 04 22 0a d1 c1 4a 40 67 02 
  136. ' $07e0: 44 81 34 2a 00 10 d3 a8 00 00 d3 a8 00 04 d3 a8 
  137. ' $07f0: 00 08 d3 a8 00 14 41 e8 00 20 51 ca 00 48 4c df 
  138. ' $0800: 07 07 4e 75 48 e7 e0 e0 45 fa 03 d4 24 0a d5 92 
  139. ' $0810: d5 aa 00 04 d5 aa 00 08 20 52 22 48 d5 99 d5 99 
  140. ' $0820: d5 99 22 50 61 00 00 a0 41 e8 00 04 22 50 61 00 
  141. ' $0830: 00 96 41 e8 00 04 22 50 61 00 00 8c 20 6a 00 04 
  142. ' $0840: 32 2a 00 10 d5 a8 00 00 d5 a8 00 04 d5 a8 00 08 
  143. ' $0850: d5 a8 00 14 41 e8 00 20 51 c9 ff ea 4c df 07 07 
  144. ' $0860: 4e 75 48 e7 e0 f0 45 fa 03 76 24 0a 44 82 20 52 
  145. ' $0870: 22 48 26 49 22 50 61 00 00 4e 41 e8 00 04 22 50 
  146. ' $0880: 61 00 00 44 41 e8 00 04 22 50 61 00 00 3a 20 6a 
  147. ' $0890: 00 04 32 2a 00 10 d5 a8 00 00 d5 a8 00 04 d5 a8 
  148. ' $08a0: 00 08 d5 a8 00 14 41 e8 00 20 51 c9 ff ea 22 4b 
  149. ' $08b0: d5 99 d5 99 d5 99 d5 92 d5 aa 00 04 d5 aa 00 08 
  150. ' $08c0: 4c df 0f 07 4e 75 22 11 b2 bc ff ff ff ff 67 00 
  151. ' $08d0: 00 16 b2 bc ff ff ff fe 67 00 00 1c d5 91 43 e9 
  152. ' $08e0: 00 06 60 00 ff e2 22 81 22 29 00 04 d2 82 23 41 
  153. ' $08f0: 00 04 60 00 00 0c 22 81 23 7c ff ff ff ff 00 04 
  154. ' $0900: 4e 75 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  155. ' $0910: 00 00 00 00 00 00 00 00 00 00 01 00 00 00 02 00 
  156. ' $0920: 00 00 03 00 00 00 04 00 00 00 05 00 00 00 06 00 
  157. ' $0930: 00 00 07 00 ff 00 08 00 00 00 09 00 00 00 0a 00 
  158. ' $0940: 00 00 0b 00 00 00 0c 00 00 00 0d 00 00 00 00 00 
  159. ' $0950: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  160. ' $0960: 00 00 ff ff 08 08 ff ff 00 00 00 00 00 00 00 00 
  161. ' $0970: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  162. ' $0980: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  163. ' $0990: 00 00 00 00 0e ee 0e 17 0d 4d 0c 8e 0b d9 0b 2f 
  164. ' $09a0: 0a 8e 09 f7 09 67 08 e0 08 61 07 e8 07 77 07 0b 
  165. ' $09b0: 06 a6 06 47 05 ec 05 97 05 47 04 fb 04 b3 04 70 
  166. ' $09c0: 04 30 03 f4 03 bb 03 85 03 53 03 23 02 f6 02 cb 
  167. ' $09d0: 02 a3 02 7d 02 59 02 38 02 18 01 fa 01 dd 01 c2 
  168. ' $09e0: 01 a9 01 91 01 7b 01 65 01 51 01 3e 01 2c 01 1c 
  169. ' $09f0: 01 0c 00 fd 00 ee 00 e1 00 d4 00 c8 00 bd 00 b2 
  170. ' $0a00: 00 a8 00 9f 00 96 00 8e 00 86 00 7e 00 77 00 70 
  171. ' $0a10: 00 6a 00 64 00 5e 00 59 00 54 00 4f 00 4b 00 47 
  172. ' $0a20: 00 43 00 3f 00 3b 00 38 00 35 00 32 00 2f 00 2c 
  173. ' $0a30: 00 2a 00 27 00 25 00 23 00 21 00 1f 00 1d 00 1c 
  174. ' $0a40: 00 1a 00 19 00 17 00 16 00 15 00 13 00 12 00 11 
  175. ' $0a50: 00 10 00 0f 00 00 00 00 00 00 00 00 00 00 00 00 
  176. ' $0a60: ec de d2 c6 bb b0 a6 9d 94 8c 84 7d 76 6f 69 62 
  177. ' $0a70: 5e 59 54 4f 4a 47 43 3f 3c 39 35 32 2f 2c 2a 27 
  178. ' $0a80: 25 23 21 1f 1e 1c 1a 19 18 16 15 14 13 12 11 0f 
  179. ' $0a90: 0f 0d 0d 0c 09 08 07 06 05 04 03 02 01 00 00 00 
  180. ' $0aa0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  181. ' $0ab0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  182. ' $0ac0: 00 00 00 00 00 00 00 ff 00 00 00 00 00 00 00 00 
  183. ' $0ad0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  184. ' $0ae0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  185. ' $0af0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  186. ' $0b00: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  187. ' $0b10: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  188. ' $0b20: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  189. ' $0b30: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  190. ' $0b40: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  191. ' $0b50: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  192. ' $0b60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  193. ' $0b70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  194. ' $0b80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  195. ' $0b90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  196. ' $0ba0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  197. ' $0bb0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  198. ' $0bc0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  199. ' $0bd0: 00 00 00 00 00 00 ff ff 00 00 ff 00 00 ff 00 00 
  200. ' $0be0: 01 d6 00 00 02 66 00 00 00 00 00 00 00 06 00 03 
  201. ' $0bf0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  202. ' $0c00: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 80 40 
  203. ' $0c10: 00 00 ff ff 80 34 00 00 80 02 2a 03 80 04 2c 03 
  204. ' $0c20: 27 03 80 02 25 03 ff ff 80 06 29 03 25 03 80 04 
  205. ' $0c30: 29 03 2a 03 80 02 29 03 80 0a 25 03 80 04 29 03 
  206. ' $0c40: 25 03 80 06 29 03 80 02 2c 03 80 04 2a 03 80 06 
  207. ' $0c50: 29 03 80 04 24 03 80 02 25 03 ff ff 80 10 27 03 
  208. ' $0c60: 80 04 25 03 80 02 24 03 80 04 22 03 24 03 80 12 
  209. ' $0c70: 25 03 80 06 25 03 20 03 80 04 1e 03 ff ff 80 40 
  210. ' $0c80: 25 03 ff ff 80 06 25 03 20 03 80 04 1e 03 80 30 
  211. ' $0c90: 25 03 ff ff 80 02 25 01 25 01 31 01 80 04 31 01 
  212. ' $0ca0: 80 02 25 01 31 01 25 01 25 01 25 01 31 01 80 04 
  213. ' $0cb0: 31 01 80 02 25 01 31 01 25 01 25 01 25 01 31 01 
  214. ' $0cc0: 80 04 31 01 80 02 25 01 31 01 25 01 25 01 25 01 
  215. ' $0cd0: 31 01 80 04 31 01 80 02 25 01 31 01 25 01 ff ff 
  216. ' $0ce0: 80 02 20 01 20 01 2c 01 80 04 2c 01 80 02 20 01 
  217. ' $0cf0: 2c 01 20 01 20 01 20 01 2c 01 80 04 2c 01 80 02 
  218. ' $0d00: 20 01 2c 01 20 01 1e 01 1e 01 2a 01 80 04 2a 01 
  219. ' $0d10: 80 02 1e 01 2a 01 1e 01 1e 01 1e 01 2a 01 80 04 
  220. ' $0d20: 2a 01 80 02 1e 01 2a 01 1e 01 ff ff 80 02 2c 02 
  221. ' $0d30: 25 02 2c 02 25 02 2c 02 25 02 2c 02 25 02 2c 02 
  222. ' $0d40: 25 02 2c 02 25 02 2c 02 25 02 2c 02 25 02 2c 02 
  223. ' $0d50: 25 02 2c 02 25 02 2c 02 25 02 2c 02 25 02 2c 02 
  224. ' $0d60: 25 02 2c 02 25 02 2c 02 25 02 2c 02 25 02 ff ff 
  225. ' $0d70: 80 02 27 02 20 02 27 02 20 02 27 02 20 02 27 02 
  226. ' $0d80: 20 02 27 02 20 02 27 02 20 02 27 02 20 02 27 02 
  227. ' $0d90: 20 02 25 02 1e 02 25 02 1e 02 25 02 1e 02 25 02 
  228. ' $0da0: 1e 02 25 02 1e 02 25 02 1e 02 25 02 1e 02 25 02 
  229. ' $0db0: 1e 02 ff ff 00 00 01 e2 00 00 02 0e 00 00 02 3a 
  230. ' $0dc0: 00 00 00 b6 00 f4 00 00 00 b6 00 f4 00 00 01 02 
  231. ' $0dd0: 00 f4 00 00 00 b6 00 f4 00 00 01 02 00 f4 00 00 
  232. ' $0de0: 00 b6 00 f4 ff ff ff ff 00 00 01 e2 00 00 01 4e 
  233. ' $0df0: 00 0c 00 00 01 4e 00 0c 00 00 01 92 00 0c 00 00 
  234. ' $0e00: 01 4e 00 0c 00 00 01 92 00 0c 00 00 01 4e 00 0c 
  235. ' $0e10: ff ff ff ff 00 00 02 0e 00 00 00 36 00 0c 00 00 
  236. ' $0e20: 00 4a 00 0c 00 00 00 7e 00 0c 00 00 00 4a 00 0c 
  237. ' $0e30: 00 00 00 7e 00 0c 00 00 00 a0 00 0c ff ff ff ff 
  238. ' $0e40: 00 00 02 3a 00 00 00 00 00 00 00 00 00 00 00 00 
  239. ' $0e50: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  240. ' $0e60: 00 00 00 00 00 00 02 e6 00 00 03 08 00 00 03 10 
  241. ' $0e70: 00 00 00 00 00 0e 00 00 00 00 00 00 00 00 00 00 
  242. ' $0e80: 00 00 00 00 00 00 03 20 00 00 03 42 00 00 03 48 
  243. ' $0e90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  244. ' $0ea0: 00 00 00 00 00 00 03 58 00 00 03 7a 00 00 03 82 
  245. ' $0eb0: 00 00 0c 04 08 00 00 00 00 00 00 00 00 00 00 00 
  246. ' $0ec0: 00 00 00 00 0b 10 10 10 10 10 10 10 10 10 10 10 
  247. ' $0ed0: 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 
  248. ' $0ee0: 10 10 10 10 ff 00 00 00 00 00 00 0c ff fe 82 80 
  249. ' $0ef0: 00 fe 00 00 00 00 00 00 00 00 00 00 00 00 0b 0e 
  250. ' $0f00: 0d 0c 0c 0b 0b 0a 09 08 0a 0b 0b 0a 09 09 08 08 
  251. ' $0f10: 07 07 06 06 05 05 04 04 03 03 02 02 01 01 ff 00 
  252. ' $0f20: 00 00 00 00 ff fe 82 00 fe 00 00 00 00 00 00 00 
  253. ' $0f30: 00 00 00 00 00 00 0b 0e 0d 0d 0d 0d 0c 0c 0c 0c 
  254. ' $0f40: 0c 0b 0b 0b 0b 0b 0b 0b 0b 0a 0a 0a 0a 0a 0a 0a 
  255. ' $0f50: 09 09 09 08 08 07 ff 00 00 00 00 0c 00 00 ff fe 
  256. ' $0f60: 82 00 00 fe 00 00 00 00 00 00 00 00 00 00 00 00 
  257. ' 3952  Bytes.
  258. INLINE music%,3952
  259. '
  260. ' The tunes are split up into two sections.  The first require you to call
  261. ' the routine with a value of 0 to start and a value of 1 to switch off, the
  262. ' second section require the values in reverse.
  263. '
  264. ' 1st section (0 = switch on, 1 = switch off)
  265. ' -------------------------------------------
  266. '
  267. ' SANXION.MUS   SPELL.MUS       CATS.MUS        MASTER.MUS
  268. '
  269. '
  270. ' 2nd section (1 = switch on, 0 = switch off)
  271. ' -------------------------------------------
  272. '
  273. ' MANIACS.MUS   PREMIX.MUS      SLEEP.MUS       ZOOLOOK.MUS     ENDTHEME.MUS
  274. '
  275. '
  276. DIM r%(16)              ! variable to hold register contents
  277. ON ERROR GOSUB bye_bye  ! in case of any bombs - routine to kill everything
  278. super%=GEMDOS(&H20,L:0) ! must be in supervisor mode
  279. music_on(1)             ! start music with appropriate value as per above list
  280. POKE &H484,BCLR(PEEK(&H484),0)  ! key click off
  281. '
  282. ' Set-up screen texts
  283. '
  284. DEFMOUSE 0
  285. HIDEM
  286. CLS
  287. PRINT "TAO Digi-music from GFA v3.6 by MUG U.K™"
  288. PRINT "----------------------------------------"
  289. PRINT
  290. PRINT "Just to show that good music needn't be for 68000 programmers ONLY !!"
  291. PRINT
  292. PRINT "Bring your GFA BASIC programs to life with music that is NOT of the"
  293. PRINT "tacky '~XBIOS(32,L:crap_tune%)' type !!"
  294. PRINT
  295. PRINT "The music in this folder were all composed by TAO of ACF"
  296. PRINT
  297. PRINT "Some of the tunes require you to call them with the value of 1 and switch"
  298. PRINT "them off with the value of 0 - the others require it the other way around !!"
  299. PRINT "See list in this source code as to which ones require which values."
  300. PRINT
  301. PRINT "Press any key/mouse button to stop."
  302. '
  303. REPEAT                  ! Infinite loop that tests
  304.   EXIT IF MOUSEK        ! for the mouse buttons
  305. UNTIL INKEY$<>""        ! and the keyboard
  306. '
  307. bye_bye
  308. '
  309. ' +----------------------------------------------+
  310. ' | Music On - requires a tune number to be sent |
  311. ' +----------------------------------------------+
  312. '
  313. PROCEDURE music_on(x|)
  314.   IF LONG{&H4DA}=music%+8   ! Is it our vbl routine already here ??
  315.     music_off               ! It is, so get rid of it !!
  316.   ENDIF
  317.   '
  318.   r%(0)=x|                  ! Tune no. xxxx
  319.   RCALL music%,r%()         ! Initialise routine
  320.   {&H4DA}=music%+8          ! Set-up VBL
  321. RETURN
  322. '
  323. ' +-----------+
  324. ' | Music OFF |
  325. ' +-----------+
  326. '
  327. PROCEDURE music_off(y|)
  328.   r%(0)=y|                  ! Switch off value
  329.   RCALL music%,r%()         ! Call routine
  330.   WAVE 0,0                  ! Cut out any lingering noise
  331. RETURN
  332. '
  333. ' +--------------------------------------------------+
  334. ' | In the event of a bomb or something come here !! |
  335. ' +--------------------------------------------------+
  336. '
  337. PROCEDURE bye_bye
  338.   music_off(0)               ! switch off music with appropriate value
  339.   POKE &H484,BSET(PEEK(&H484),0)  ! reinstate key click
  340.   ~GEMDOS(&H20,L:super%)  ! user mode
  341.   CLS
  342.   ON ERROR                ! re-instate GEM error routine
  343.   EDIT                    ! quit
  344. RETURN
  345.