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