home *** CD-ROM | disk | FTP | other *** search
/ Supremacy 1 / Supremacy-1.iso / DEMOS / U-V / ULTCHPDK.ZIP / SOURCES.ZIP / GFABASIC.ZIP / CRUSADER.GFA (.txt) < prev    next >
GFA-BASIC Atari  |  1996-06-07  |  9KB  |  478 lines
  1. ' +--------------------------------------------+
  2. ' | Crusaders 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 20 60 00 00 28 60 00 00 f6 2f 08 02 00 
  11. ' $0010: 00 1f 41 fa 09 9c 10 c0 10 c0 10 fc 00 00 20 5f 
  12. ' $0020: 4e 75 48 e7 ff fe 61 3c 4c df 7f ff 4e 75 48 e7 
  13. ' $0030: ff fe 61 06 4c df 7f ff 4e 75 41 fa 09 8a 61 60 
  14. ' $0040: 22 7a 09 76 02 80 00 00 00 ff d0 40 d0 40 d2 c0 
  15. ' $0050: 4d fa 08 88 3c 99 30 19 02 80 00 00 00 ff 61 00 
  16. ' $0060: 06 94 4e 75 41 fa 09 60 61 36 4a 40 67 24 22 7a 
  17. ' $0070: 09 44 02 80 00 00 00 ff 53 80 c0 fc 00 06 d2 c0 
  18. ' $0080: 30 19 32 19 4d fa 07 3c 3c d1 3c d9 61 00 05 5c 
  19. ' $0090: 4e 75 41 fa 07 32 30 bc 00 01 61 00 00 64 4e 75 
  20. ' $00a0: 3e 3a 09 20 66 00 00 58 7e 00 43 fa 08 14 32 bc 
  21. ' $00b0: 00 40 43 fa 09 32 45 fa 08 10 24 89 43 fa 0b a8 
  22. ' $00c0: 45 fa 08 0a 24 89 43 fa 0e 22 45 fa 07 f8 24 89 
  23. ' $00d0: 43 fa 14 58 45 fa 07 fa 24 89 43 fa 17 ae 45 fa 
  24. ' $00e0: 08 d4 24 89 43 fa 17 b0 45 fa 08 ce 24 89 43 fa 
  25. ' $00f0: 08 d2 32 bc 00 01 43 fa 07 e4 32 bc 00 00 4e 75 
  26. ' $0100: 41 fa 08 ae 4a 10 67 3e 53 28 00 01 6a 38 11 50 
  27. ' $0110: 00 01 52 68 00 02 30 28 00 02 0c 40 00 0a 66 0c 
  28. ' $0120: 42 90 41 fa 06 a2 30 bc 00 01 60 1a 41 fa 08 70 
  29. ' $0130: 10 30 00 00 41 fa 06 ce 43 fa 07 08 45 fa 07 3e 
  30. ' $0140: 10 80 12 80 14 80 4d fa 06 3e 4b fa 06 76 4a 6d 
  31. ' $0150: 00 04 67 1a 42 2e 00 22 42 2e 00 26 42 2e 00 2a 
  32. ' $0160: 4c ee 00 0f 00 1c 48 f8 00 0f 88 00 4e 75 53 5d 
  33. ' $0170: 66 1a 3b 15 41 fa 06 52 61 00 00 b8 41 fa 06 88 
  34. ' $0180: 61 00 00 b0 41 fa 06 be 61 00 00 a8 4b fa 07 46 
  35. ' $0190: 41 fa 06 36 61 00 01 be 3f 00 1d 5f 00 06 1d 40 
  36. ' $01a0: 00 02 1d 41 00 22 41 fa 06 5e 61 00 01 a8 3f 00 
  37. ' $01b0: 1d 5f 00 0e 1d 40 00 0a 1d 41 00 26 41 fa 06 86 
  38. ' $01c0: 61 00 01 92 3f 00 1d 5f 00 16 1d 40 00 12 1d 41 
  39. ' $01d0: 00 2a 30 2d 00 04 67 40 3f 00 41 fa 06 a6 61 00 
  40. ' $01e0: 01 74 22 68 00 0a d3 e8 00 0e 0c 29 00 e1 00 01 
  41. ' $01f0: 66 04 42 6d 00 04 3e 1f 43 fa 05 b8 de 47 de 47 
  42. ' $0200: d2 c7 7c 00 1c 19 3f 00 1d 80 60 00 1c 19 1d 9f 
  43. ' $0210: 60 00 1c 19 1d 81 60 00 1e 1d 00 07 00 c0 1d 47 
  44. ' $0220: 00 1e 1d 5d 00 1a 4c d6 07 ff 48 f8 07 ff 88 00 
  45. ' $0230: 4e 75 7a 00 7c 06 3e 3a 06 88 22 68 00 22 d3 e8 
  46. ' $0240: 00 26 10 11 02 40 00 7f 0c 40 00 01 67 08 be 68 
  47. ' $0250: 00 28 66 00 00 74 26 68 00 34 24 50 d5 e8 00 04 
  48. ' $0260: b5 cb 66 06 21 45 00 04 24 50 72 00 12 12 11 6a 
  49. ' $0270: 00 01 00 2c 11 6a 00 02 00 16 10 2a 00 03 14 00 
  50. ' $0280: 02 42 00 f0 0c 02 00 f0 66 00 00 0e 14 00 02 02 
  51. ' $0290: 00 0f 11 42 00 3c 60 10 0c 02 00 e0 66 0a 14 00 
  52. ' $02a0: 02 42 00 0f 3b 42 00 02 21 45 00 26 c2 c7 26 7a 
  53. ' $02b0: 06 14 d7 c1 21 4b 00 22 06 a8 00 00 00 0c 00 04 
  54. ' $02c0: 22 68 00 22 d3 e8 00 26 10 19 12 00 02 41 00 7f 
  55. ' $02d0: 4a 41 67 00 00 7a 21 45 00 38 11 41 00 08 26 49 
  56. ' $02e0: 4a a8 00 26 66 02 d6 c7 11 6b ff fe 00 1f 11 51 
  57. ' $02f0: 00 09 4a 00 6b 58 12 11 02 41 00 1f d2 28 00 16 
  58. ' $0300: 24 7a 05 ca ed 61 d4 c1 21 45 00 0e 11 52 00 17 
  59. ' $0310: 11 5a 00 18 12 1a 02 41 00 ff 11 5a 00 1b 11 7c 
  60. ' $0320: 00 40 00 2e 10 1a 11 40 00 1c 11 40 00 1d 11 5a 
  61. ' $0330: 00 1e 21 4a 00 0a 24 7a 05 90 ed 61 d4 c1 21 4a 
  62. ' $0340: 00 12 21 45 00 30 11 45 00 1a 11 45 00 19 54 a8 
  63. ' $0350: 00 26 4e 75 7e 00 11 47 00 20 4a 28 00 1a 67 08 
  64. ' $0360: 53 28 00 1a 60 00 01 0e 22 68 00 12 d3 e8 00 30 
  65. ' $0370: 0c 11 00 e1 67 00 00 fe 0c 11 00 e0 66 14 10 29 
  66. ' $0380: 00 01 02 80 00 00 00 3f 21 40 00 30 22 68 00 12 
  67. ' $0390: d3 c0 0c 11 00 e2 66 10 42 a8 00 0e 11 7c 00 01 
  68. ' $03a0: 00 17 52 a8 00 30 60 c0 0c 11 00 e9 66 00 00 2e 
  69. ' $03b0: 11 fc 00 0b 88 00 11 e9 00 01 88 02 11 fc 00 0c 
  70. ' $03c0: 88 00 11 fc 00 00 88 02 11 fc 00 0d 88 00 11 fc 
  71. ' $03d0: 00 0a 88 02 54 a8 00 30 60 00 ff 8e 0c 11 00 e7 
  72. ' $03e0: 66 1c 10 29 00 01 02 40 00 ff ed 40 22 7a 04 da 
  73. ' $03f0: d2 c0 21 49 00 12 21 47 00 30 60 00 ff 74 0c 11 
  74. ' $0400: 00 e8 66 0e 11 69 00 01 00 1a 54 a8 00 30 60 00 
  75. ' $0410: ff 4a 0c 11 00 e4 66 10 11 47 00 2a 11 69 00 01 
  76. ' $0420: 00 20 54 a8 00 30 60 3c 0c 11 00 e5 66 0e 11 7c 
  77. ' $0430: 00 01 00 2a 52 a8 00 30 60 00 ff 20 0c 11 00 e6 
  78. ' $0440: 66 0c 11 7c 00 02 00 2a 52 a8 00 30 60 16 0c 11 
  79. ' $0450: 00 e3 66 10 56 a8 00 30 11 69 00 01 00 1b 11 69 
  80. ' $0460: 00 02 00 1c 22 68 00 12 d3 e8 00 30 11 51 00 2b 
  81. ' $0470: 52 a8 00 30 4a 28 00 19 67 06 53 28 00 19 60 4e 
  82. ' $0480: 53 28 00 17 66 48 11 68 00 18 00 17 22 68 00 0a 
  83. ' $0490: d3 e8 00 0e 10 11 0c 00 00 e8 66 0c 54 a8 00 0e 
  84. ' $04a0: 11 69 00 01 00 19 60 cc 0c 00 00 e1 67 20 0c 00 
  85. ' $04b0: 00 e0 66 12 10 29 00 01 02 80 00 00 00 3f 5b 80 
  86. ' $04c0: 21 40 00 0e 60 c6 11 51 00 2d 52 a8 00 0e 10 28 
  87. ' $04d0: 00 2b 6b 08 d0 28 00 08 d0 28 00 2c 02 40 00 7f 
  88. ' $04e0: 43 fa 03 fc d0 40 32 00 d2 c0 30 11 16 28 00 21 
  89. ' $04f0: 14 28 00 2a 02 82 00 00 00 0f 66 08 07 95 56 43 
  90. ' $0500: 07 95 60 2e 0c 02 00 01 66 22 07 d5 56 43 07 95 
  91. ' $0510: 11 68 00 08 00 20 18 28 00 2b 6a 0a 02 04 00 7f 
  92. ' $0520: 11 44 00 20 60 0c d9 28 00 20 60 06 07 95 56 43 
  93. ' $0530: 07 d5 4a 28 00 20 67 10 16 28 00 20 02 03 00 1f 
  94. ' $0540: 0a 03 00 1f 1b 43 00 01 1e 28 00 2e 4a 28 00 1e 
  95. ' $0550: 67 06 53 28 00 1e 60 56 1a 01 18 28 00 1c d8 04 
  96. ' $0560: 12 28 00 1d 4a 07 6a 06 08 07 00 00 66 26 08 07 
  97. ' $0570: 00 05 66 0e 92 28 00 1b 64 16 08 c7 00 05 72 00 
  98. ' $0580: 60 0e d2 28 00 1b b2 04 65 06 08 87 00 05 12 04 
  99. ' $0590: 11 41 00 1d e2 0c 92 04 64 04 04 41 01 00 06 05 
  100. ' $05a0: 00 a0 65 08 d2 41 06 05 00 18 64 f8 d0 41 0a 07 
  101. ' $05b0: 00 01 11 47 00 2e 08 28 00 05 00 09 67 00 00 1e 
  102. ' $05c0: 7e 00 32 07 12 28 00 1f 48 81 24 28 00 38 76 0c 
  103. ' $05d0: e7 a1 d4 81 21 42 00 38 48 42 90 42 12 28 00 2d 
  104. ' $05e0: 92 28 00 3c 6a 02 72 00 4e 75 41 fa 03 c4 42 90 
  105. ' $05f0: 2e 00 ce fc 00 0c 2c 01 52 86 cc fc 00 0c 70 02 
  106. ' $0600: 41 fa 01 c6 43 fa 01 74 45 fa 01 78 21 49 00 0a 
  107. ' $0610: 42 a8 00 0e 11 7c 00 00 00 2d 42 28 00 08 42 28 
  108. ' $0620: 00 09 21 49 00 12 42 a8 00 30 11 7c 00 01 00 17 
  109. ' $0630: 11 7c 00 01 00 18 42 28 00 19 42 28 00 1a 42 28 
  110. ' $0640: 00 1b 42 28 00 1c 42 28 00 1d 42 68 00 1e 42 28 
  111. ' $0650: 00 20 16 12 02 83 00 00 00 0f d6 43 d6 43 11 5a 
  112. ' $0660: 00 21 20 ba 02 6c 21 7a 02 68 00 34 dd a8 00 34 
  113. ' $0670: d7 a8 00 34 df 90 d7 90 21 7c 00 00 00 0c 00 04 
  114. ' $0680: 26 50 12 13 02 81 00 00 00 ff 34 3a 02 34 c4 c1 
  115. ' $0690: 28 7a 02 32 d9 c2 21 4c 00 22 42 a8 00 26 11 7c 
  116. ' $06a0: 00 02 00 2a 11 6b 00 01 00 2c 42 28 00 2b 11 6b 
  117. ' $06b0: 00 02 00 16 42 28 00 3c 12 2b 00 03 02 41 00 f0 
  118. ' $06c0: 0c 41 00 f0 66 00 00 0e 12 2b 00 03 02 01 00 0f 
  119. ' $06d0: 11 41 00 3c 42 28 00 2d 42 68 00 38 d1 fc 00 00 
  120. ' $06e0: 00 3e 51 c8 ff 28 41 fa 00 da 30 a8 00 02 42 68 
  121. ' $06f0: 00 04 4e 75 34 3a 01 e4 32 3a 01 e2 4a 42 67 00 
  122. ' $0700: 00 74 41 fa 01 7e 4b fa 01 cc 11 42 00 08 11 41 
  123. ' $0710: 00 21 42 28 00 16 7c 06 7a 00 02 40 00 1f 24 7a 
  124. ' $0720: 01 ac ed 60 d4 c0 21 45 00 0e 11 52 00 17 11 5a 
  125. ' $0730: 00 18 10 1a 02 40 00 ff 11 5a 00 1b 74 00 11 7c 
  126. ' $0740: 00 40 00 2e 14 1a 11 42 00 1c 11 42 00 1d 11 5a 
  127. ' $0750: 00 1e 21 4a 00 0a 24 7a 01 70 ed 60 d4 c0 21 4a 
  128. ' $0760: 00 12 21 45 00 30 42 28 00 19 42 28 00 1a 52 41 
  129. ' $0770: 3b 41 00 04 4e 75 00 00 00 00 01 00 00 00 00 00 
  130. ' $0780: 00 e1 00 01 02 00 00 00 0b 00 01 01 07 00 02 02 
  131. ' $0790: 5e 00 03 03 00 00 04 04 8f 00 05 05 01 00 06 06 
  132. ' $07a0: 07 00 07 07 f8 ff 08 08 0e 00 09 09 00 00 0a 0a 
  133. ' $07b0: 0c 00 00 00 00 00 02 06 22 00 0a 0e 26 00 12 16 
  134. ' $07c0: 2a 00 00 02 00 03 00 00 00 04 dc b0 00 00 00 24 
  135. ' $07d0: 09 08 00 04 d5 f1 00 00 00 02 00 04 d3 6c 00 02 
  136. ' $07e0: 03 00 00 01 02 02 02 00 00 00 00 04 d7 70 00 00 
  137. ' $07f0: 00 20 02 00 04 0e 41 00 00 00 00 05 00 04 e0 10 
  138. ' $0800: 00 00 00 00 00 00 00 04 dc b4 00 00 00 24 40 04 
  139. ' $0810: 00 04 d4 f1 00 00 00 0f 00 04 d2 ac 00 01 01 00 
  140. ' $0820: 00 01 01 01 00 00 00 01 00 04 d6 70 00 00 00 20 
  141. ' $0830: 02 00 00 00 61 00 00 00 00 03 00 04 e0 14 00 00 
  142. ' $0840: 00 00 00 00 00 04 dc b8 00 00 00 24 27 08 00 04 
  143. ' $0850: d5 f1 00 00 00 04 00 04 d3 6c 00 02 03 00 00 01 
  144. ' $0860: 02 01 00 00 00 02 00 04 da 70 00 00 00 20 02 00 
  145. ' $0870: 00 0c 61 00 00 00 00 05 00 04 e0 18 00 00 00 00 
  146. ' $0880: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  147. ' $0890: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  148. ' $08a0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  149. ' $08b0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  150. ' $08c0: 00 40 00 00 00 04 d6 70 00 04 d1 6c 00 04 d3 ec 
  151. ' $08d0: 00 04 dc b0 38 07 00 00 00 00 00 00 00 00 0e ee 
  152. ' $08e0: 0e 17 0d 4d 0c 8e 0b d9 0b 2f 0a 8e 09 f7 09 67 
  153. ' $08f0: 08 e0 08 61 07 e8 07 77 07 0b 06 a6 06 47 05 ec 
  154. ' $0900: 05 97 05 47 04 fb 04 b3 04 70 04 30 03 f4 03 bb 
  155. ' $0910: 03 85 03 53 03 23 02 f6 02 cb 02 a3 02 7d 02 59 
  156. ' $0920: 02 38 02 18 01 fa 01 dd 01 c2 01 a9 01 91 01 7b 
  157. ' $0930: 01 65 01 51 01 3e 01 2c 01 1c 01 0c 00 fd 00 ee 
  158. ' $0940: 00 e1 00 d4 00 c8 00 bd 00 b2 00 a8 00 9f 00 96 
  159. ' $0950: 00 8e 00 86 00 7e 00 77 00 70 00 6a 00 64 00 5e 
  160. ' $0960: 00 59 00 54 00 4f 00 4b 00 47 00 43 00 3f 00 3b 
  161. ' $0970: 00 38 00 35 00 32 00 2f 00 2c 00 2a 00 27 00 25 
  162. ' $0980: 00 23 00 21 00 1f 00 1d 00 1c 00 1a 00 19 00 17 
  163. ' $0990: 00 16 00 15 00 13 00 12 00 11 00 10 00 0f 00 01 
  164. ' $09a0: 02 03 04 05 06 07 08 09 0a 0b 0f 0f 0f 0f 0f 0f 
  165. ' $09b0: 00 00 00 00 00 04 e0 10 00 04 e0 1c 00 00 00 00 
  166. ' $09c0: 00 00 00 01 00 00 54 46 4d 58 00 09 00 09 00 0d 
  167. ' $09d0: 00 37 00 40 00 03 00 01 00 00 00 00 00 00 00 00 
  168. ' $09e0: 00 00 00 00 00 00 e2 e6 0c 00 e1 00 00 00 00 00 
  169. ' $09f0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  170. ' $0a00: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  171. ' $0a10: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  172. ' $0a20: 00 00 00 00 00 00 e2 e5 93 e6 a0 9f e4 98 9e 9d 
  173. ' $0a30: 9c e5 95 e1 00 00 00 00 00 00 00 00 00 00 00 00 
  174. ' $0a40: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  175. ' $0a50: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  176. ' $0a60: 00 00 00 00 00 00 e2 e6 0c 00 e1 00 00 00 00 00 
  177. ' $0a70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  178. ' $0a80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  179. ' $0a90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  180. ' $0aa0: 00 00 00 00 00 00 e2 e5 93 e6 97 94 90 8c 8d 8e 
  181. ' $0ab0: 8f 8d 8c 8b e1 00 00 00 00 00 00 00 00 00 00 00 
  182. ' $0ac0: 00 00 00 00 00 00 00 00 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 e2 e5 9f e1 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 e2 e6 00 e1 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 e2 e6 00 03 06 e0 02 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 e2 e9 01 e6 0c 0c 0c 00 e1 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 00 00 00 00 00 00 00 00 00 00 
  200. ' $0be0: 00 00 00 00 00 00 e2 e6 0c 00 00 e1 00 00 00 00 
  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 00 00 
  203. ' $0c10: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  204. ' $0c20: 00 00 00 00 00 00 e2 e6 00 e1 00 00 00 00 00 00 
  205. ' $0c30: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  206. ' $0c40: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  207. ' $0c50: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  208. ' $0c60: 00 00 00 00 00 00 03 01 01 02 06 0f 0e 0d 0d 0d 
  209. ' $0c70: 0d 0d 0d 0d 0c 0b 0b 0b 0a 09 08 07 e1 00 60 00 
  210. ' $0c80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  211. ' $0c90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  212. ' $0ca0: 00 00 00 00 00 00 01 01 00 00 00 0d 0f 0f 0f 0e 
  213. ' $0cb0: 0d 0c 0b 0a 09 08 07 06 05 04 03 02 01 00 e1 00 
  214. ' $0cc0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  215. ' $0cd0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  216. ' $0ce0: 00 00 00 00 00 00 00 02 04 08 05 0f 0e 0d 0d 0d 
  217. ' $0cf0: 0d 0c 0c 0c 0c 0d 0d 0d e1 00 00 00 00 00 00 00 
  218. ' $0d00: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  219. ' $0d10: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  220. ' $0d20: 00 00 00 00 00 00 01 03 00 00 00 0d 0f 0f 0f 0f 
  221. ' $0d30: 0d 00 e1 00 00 00 00 00 00 00 00 00 00 00 00 00 
  222. ' $0d40: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  223. ' $0d50: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  224. ' $0d60: 00 00 00 00 00 00 01 05 01 01 05 0c 0d 0c 0b 0a 
  225. ' $0d70: 09 08 07 06 05 04 03 02 01 00 e1 00 00 00 00 00 
  226. ' $0d80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  227. ' $0d90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  228. ' $0da0: 00 00 00 00 00 00 03 01 04 09 00 0f 0f 05 0c e0 
  229. ' $0db0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  230. ' $0dc0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  231. ' $0dd0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  232. ' $0de0: 00 00 00 00 00 00 00 07 00 00 00 0e 0d 0c 0b 0a 
  233. ' $0df0: 09 08 07 06 05 04 03 02 01 00 e1 00 00 00 00 00 
  234. ' $0e00: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 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 03 07 10 20 00 0f 0e 0d 0c e1 
  237. ' $0e30: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  238. ' $0e40: 00 00 00 00 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 03 08 01 02 07 0f 0e 0d 0c 0b 
  241. ' $0e70: 0a 09 08 07 06 05 04 03 02 01 00 e1 00 00 00 00 
  242. ' $0e80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  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 01 09 01 03 00 0f 0e 0d 0c e1 
  245. ' $0eb0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  246. ' $0ec0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  247. ' $0ed0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  248. ' $0ee0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  249. ' $0ef0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  250. ' $0f00: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  251. ' $0f10: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  252. ' $0f20: 00 00 00 00 00 00 00 00 00 00 19 03 00 00 00 00 
  253. ' $0f30: 00 00 00 00 00 00 00 00 00 00 19 01 00 00 00 00 
  254. ' $0f40: 00 00 19 03 00 00 00 00 00 00 19 03 00 00 00 00 
  255. ' $0f50: 00 00 00 00 00 00 00 00 00 00 19 01 00 00 00 00 
  256. ' $0f60: 00 00 19 03 00 00 00 00 00 00 00 00 00 00 00 00 
  257. ' $0f70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  258. ' $0f80: 00 00 00 00 00 00 00 00 00 00 40 04 00 00 40 04 
  259. ' $0f90: 00 00 40 04 00 00 40 04 00 00 40 04 00 00 40 04 
  260. ' $0fa0: 00 00 40 04 00 00 40 04 00 00 28 06 00 00 00 00 
  261. ' $0fb0: 00 00 25 06 00 00 00 00 00 00 28 06 00 00 00 00 
  262. ' $0fc0: 00 00 27 06 00 00 00 00 00 00 28 06 00 00 00 00 
  263. ' $0fd0: 00 00 25 06 00 00 00 00 00 00 2a 06 00 00 00 00 
  264. ' $0fe0: 00 00 27 06 00 00 00 00 00 00 19 03 00 00 09 08 
  265. ' $0ff0: 00 00 09 08 00 00 09 08 00 00 19 01 00 00 09 08 
  266. ' $1000: 00 00 09 08 00 00 09 08 00 00 19 03 00 00 09 08 
  267. ' $1010: 00 00 09 08 00 00 09 08 00 00 19 01 00 00 09 08 
  268. ' $1020: 00 00 09 08 00 00 09 08 00 00 34 08 00 00 00 00 
  269. ' $1030: 00 00 34 08 00 00 00 00 00 00 38 08 00 00 00 00 
  270. ' $1040: 00 00 39 08 00 00 00 00 00 00 3b 08 00 00 00 00 
  271. ' $1050: 00 00 39 08 00 00 00 00 00 00 38 08 00 00 00 00 
  272. ' $1060: 00 00 34 08 00 00 00 00 00 00 00 00 00 00 00 00 
  273. ' $1070: 00 00 34 08 00 00 00 00 00 00 38 08 00 00 00 00 
  274. ' $1080: 00 00 39 08 00 00 00 00 00 00 3b 08 00 00 00 00 
  275. ' $1090: 00 00 39 08 00 00 00 00 00 00 38 08 00 00 00 00 
  276. ' $10a0: 00 00 00 00 00 00 00 00 00 00 31 08 00 00 00 00 
  277. ' $10b0: 00 00 31 08 00 00 00 00 00 00 34 08 00 00 00 00 
  278. ' $10c0: 00 00 36 08 00 00 00 00 00 00 38 08 00 00 00 00 
  279. ' $10d0: 00 00 36 08 00 00 00 00 00 00 34 08 00 00 00 00 
  280. ' $10e0: 00 00 31 08 00 00 00 00 00 00 00 00 00 00 00 00 
  281. ' $10f0: 00 00 31 08 00 00 00 00 00 00 38 08 00 00 00 00 
  282. ' $1100: 00 00 38 08 00 00 00 00 00 00 36 08 00 00 00 00 
  283. ' $1110: 00 00 36 08 00 00 00 00 00 00 34 08 00 00 00 00 
  284. ' $1120: 00 00 34 08 00 00 00 00 00 00 2d 08 00 00 00 00 
  285. ' $1130: 00 00 2d 08 00 00 00 00 00 00 31 08 00 00 00 00 
  286. ' $1140: 00 00 32 08 00 00 00 00 00 00 34 08 00 00 00 00 
  287. ' $1150: 00 00 32 08 00 00 00 00 00 00 31 08 00 00 00 00 
  288. ' $1160: 00 00 2d 08 00 00 00 00 00 00 00 00 00 00 00 00 
  289. ' $1170: 00 00 2d 08 00 00 00 00 00 00 31 08 00 00 00 00 
  290. ' $1180: 00 00 32 08 00 00 00 00 00 00 34 08 00 00 00 00 
  291. ' $1190: 00 00 32 08 00 00 00 00 00 00 31 08 00 00 00 00 
  292. ' $11a0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  293. ' $11b0: 00 00 2f 08 00 00 00 00 00 00 36 08 00 00 00 00 
  294. ' $11c0: 00 00 36 08 00 00 00 00 00 00 34 08 00 00 00 00 
  295. ' $11d0: 00 00 34 08 00 00 00 00 00 00 33 08 00 00 00 00 
  296. ' $11e0: 00 00 33 08 00 00 00 00 00 00 21 09 00 00 00 00 
  297. ' $11f0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  298. ' $1200: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  299. ' $1210: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  300. ' $1220: 00 00 00 00 00 00 00 00 00 00 19 01 00 00 00 00 
  301. ' $1230: 00 00 19 01 00 00 00 00 00 00 19 01 00 00 00 00 
  302. ' $1240: 00 00 19 01 00 00 19 01 00 00 00 00 00 00 19 01 
  303. ' $1250: 00 00 00 00 00 00 19 01 00 00 19 01 00 00 00 00 
  304. ' $1260: 00 00 19 01 00 00 00 00 00 00 40 04 00 00 00 00 
  305. ' $1270: 00 00 41 04 00 00 00 00 00 00 48 04 00 00 00 00 
  306. ' $1280: 00 00 41 04 00 00 00 00 00 00 40 04 00 00 00 00 
  307. ' $1290: 00 00 41 04 00 00 00 00 00 00 48 04 00 00 00 00 
  308. ' $12a0: 00 00 41 04 00 00 00 00 00 00 09 08 00 00 09 08 
  309. ' $12b0: 00 00 09 08 00 00 09 08 00 00 09 08 00 00 09 08 
  310. ' $12c0: 00 00 09 08 00 00 09 08 00 00 09 08 00 00 09 08 
  311. ' $12d0: 00 00 09 08 00 00 09 08 00 00 09 08 00 00 09 08 
  312. ' $12e0: 00 00 09 08 00 00 09 08 00 00 28 08 00 00 00 00 
  313. ' $12f0: 00 00 25 08 00 00 00 00 00 00 28 08 00 00 00 00 
  314. ' $1300: 00 00 27 08 00 00 00 00 00 00 28 08 00 00 00 00 
  315. ' $1310: 00 00 25 08 00 00 00 00 00 00 2a 08 00 00 00 00 
  316. ' $1320: 00 00 27 08 00 00 00 00 00 00 2c 06 00 00 00 00 
  317. ' $1330: 00 00 00 00 00 00 00 00 00 00 2d 06 00 00 00 00 
  318. ' $1340: 00 00 2c 06 00 00 00 00 00 00 00 00 00 00 00 00 
  319. ' $1350: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  320. ' $1360: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  321. ' $1370: 00 00 28 06 00 00 00 00 00 00 2c 06 00 00 00 00 
  322. ' $1380: 00 00 2d 06 00 00 00 00 00 00 2f 06 00 00 00 00 
  323. ' $1390: 00 00 2d 06 00 00 00 00 00 00 2c 06 00 00 00 00 
  324. ' $13a0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  325. ' $13b0: 00 00 00 00 00 00 00 00 00 00 25 06 00 00 00 00 
  326. ' $13c0: 00 00 25 06 00 00 00 00 00 00 00 00 00 00 00 00 
  327. ' $13d0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  328. ' $13e0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  329. ' $13f0: 00 00 00 00 00 00 00 00 00 00 2c 06 00 00 00 00 
  330. ' $1400: 00 00 00 00 00 00 00 00 00 00 2a 06 00 00 00 00 
  331. ' $1410: 00 00 00 00 00 00 00 00 00 00 28 06 00 00 00 00 
  332. ' $1420: 00 00 00 00 00 00 00 00 00 00 2d 06 00 00 00 00 
  333. ' $1430: 00 00 00 00 00 00 00 00 00 00 2f 06 00 00 00 00 
  334. ' $1440: 00 00 2d 06 00 00 00 00 00 00 00 00 00 00 00 00 
  335. ' $1450: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  336. ' $1460: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  337. ' $1470: 00 00 2a 06 00 00 00 00 00 00 2d 06 00 00 00 00 
  338. ' $1480: 00 00 2f 06 00 00 00 00 00 00 31 06 00 00 00 00 
  339. ' $1490: 00 00 2f 06 00 00 00 00 00 00 2d 06 00 00 00 00 
  340. ' $14a0: 00 00 00 00 00 00 00 00 00 00 2f 06 00 00 00 00 
  341. ' $14b0: 00 00 00 00 00 00 00 00 00 00 31 06 00 00 00 00 
  342. ' $14c0: 00 00 2f 06 00 00 00 00 00 00 00 00 00 00 00 00 
  343. ' $14d0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  344. ' $14e0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  345. ' $14f0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  346. ' $1500: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  347. ' $1510: 00 00 00 00 00 00 00 00 00 00 19 00 00 00 00 00 
  348. ' $1520: 00 00 00 00 00 00 00 00 00 00 04 07 00 00 00 00 
  349. ' $1530: 00 00 10 00 00 00 04 07 00 00 02 00 00 00 10 00 
  350. ' $1540: 00 00 04 04 00 00 00 00 00 00 10 00 00 00 04 04 
  351. ' $1550: 00 00 02 00 00 00 10 00 00 00 04 00 00 00 00 00 
  352. ' $1560: 00 00 10 00 00 00 04 00 00 00 02 00 00 00 10 00 
  353. ' $1570: 00 00 04 02 00 00 00 00 00 00 10 00 00 00 0f 02 
  354. ' $1580: 00 00 0d 00 00 00 10 00 00 00 04 07 00 00 05 00 
  355. ' $1590: 00 00 0c 07 00 00 04 07 00 00 06 00 00 00 00 07 
  356. ' $15a0: 00 00 04 04 00 00 07 00 00 00 0c 04 00 00 04 04 
  357. ' $15b0: 00 00 08 00 00 00 00 04 00 00 04 00 00 00 09 00 
  358. ' $15c0: 00 00 0c 00 00 00 04 00 00 00 0a 00 00 00 00 00 
  359. ' $15d0: 00 00 04 02 00 00 09 02 00 00 0c 02 00 00 04 02 
  360. ' $15e0: 00 00 0b 00 00 00 00 02 00 00 04 07 00 00 10 00 
  361. ' $15f0: 00 00 11 00 00 00 04 07 00 00 10 00 00 00 12 00 
  362. ' $1600: 00 00 04 04 00 00 10 00 00 00 13 00 00 00 04 04 
  363. ' $1610: 00 00 10 00 00 00 14 00 00 00 04 00 00 00 10 00 
  364. ' $1620: 00 00 15 00 00 00 04 00 00 00 10 00 00 00 16 00 
  365. ' $1630: 00 00 04 02 00 00 10 00 00 00 17 00 00 00 04 02 
  366. ' $1640: 00 00 10 00 00 00 00 00 00 00 04 07 00 00 10 00 
  367. ' $1650: 00 00 11 00 00 00 04 07 00 00 10 00 00 00 12 00 
  368. ' $1660: 00 00 04 04 00 00 10 00 00 00 13 00 00 00 04 04 
  369. ' $1670: 00 00 10 00 00 00 14 00 00 00 04 00 00 00 10 00 
  370. ' $1680: 00 00 15 00 00 00 04 00 00 00 10 00 00 00 16 00 
  371. ' $1690: 00 00 04 02 00 00 10 00 00 00 17 00 00 00 04 02 
  372. ' $16a0: 00 00 10 00 00 00 00 00 00 00 04 07 00 00 05 00 
  373. ' $16b0: 00 00 0c 07 00 00 04 07 00 00 06 00 00 00 00 07 
  374. ' $16c0: 00 00 04 04 00 00 07 00 00 00 0c 04 00 00 04 04 
  375. ' $16d0: 00 00 08 00 00 00 00 04 00 00 04 00 00 00 09 00 
  376. ' $16e0: 00 00 0c 00 00 00 04 00 00 00 0a 00 00 00 00 00 
  377. ' $16f0: 00 00 04 02 00 00 09 02 00 00 0c 02 00 00 04 02 
  378. ' $1700: 00 00 0b 00 00 00 00 02 00 00 04 07 00 00 10 00 
  379. ' $1710: 00 00 11 00 00 00 04 07 00 00 10 00 00 00 12 00 
  380. ' $1720: 00 00 04 04 00 00 10 00 00 00 13 00 00 00 04 04 
  381. ' $1730: 00 00 10 00 00 00 14 00 00 00 04 00 00 00 10 00 
  382. ' $1740: 00 00 15 00 00 00 04 00 00 00 10 00 00 00 16 00 
  383. ' $1750: 00 00 04 02 00 00 10 00 00 00 17 00 00 00 04 02 
  384. ' $1760: 00 00 10 00 00 00 00 00 00 00 04 07 00 00 10 00 
  385. ' $1770: 00 00 11 00 00 00 04 07 00 00 10 00 00 00 12 00 
  386. ' $1780: 00 00 04 04 00 00 10 00 00 00 13 00 00 00 04 04 
  387. ' $1790: 00 00 10 00 00 00 14 00 00 00 04 00 00 00 10 00 
  388. ' $17a0: 00 00 15 00 00 00 04 00 00 00 10 00 00 00 16 00 
  389. ' $17b0: 00 00 04 02 00 00 10 00 00 00 17 00 00 00 04 02 
  390. ' $17c0: 00 00 10 00 00 00 00 00 00 00 01 00 00 00 18 00 
  391. ' $17d0: 00 00 10 00 00 00 01 00 00 00 02 00 00 00 10 00 
  392. ' $17e0: 00 00 01 00 00 00 18 00 00 00 10 00 00 00 01 00 
  393. ' $17f0: 00 00 02 00 00 00 10 00 00 00 01 00 00 00 18 00 
  394. ' $1800: 00 00 10 00 00 00 01 00 00 00 02 00 00 00 10 00 
  395. ' $1810: 00 00 01 00 00 00 18 00 00 00 10 00 00 00 01 00 
  396. ' $1820: 00 00 0d 00 00 00 10 00 00 00 04 07 00 00 05 00 
  397. ' $1830: 00 00 0c 07 00 00 04 07 00 00 06 00 00 00 00 07 
  398. ' $1840: 00 00 04 04 00 00 07 00 00 00 0c 04 00 00 04 04 
  399. ' $1850: 00 00 08 00 00 00 00 04 00 00 04 00 00 00 09 00 
  400. ' $1860: 00 00 0c 00 00 00 04 00 00 00 0a 00 00 00 00 00 
  401. ' $1870: 00 00 04 02 00 00 09 02 00 00 0c 02 00 00 04 02 
  402. ' $1880: 00 00 0b 00 00 00 00 02 00 00 00 00 00 47 00 03 
  403. ' $1890: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 57 6f 
  404. ' $18a0: 6c 66 67 61 6e 67 20 31 39 39 31 20 28 63 29 43 
  405. ' $18b0: 72 75 73 61 64 65 72 73 
  406. ' 6328  Bytes.
  407. INLINE music%,6328
  408. '
  409. ' Set up program
  410. '
  411. DIM r%(16)              ! variable to hold register contents
  412. ON ERROR GOSUB bye_bye  ! in case of any bombs - routine to kill everything
  413. super%=GEMDOS(&H20,L:0) ! must be in supervisor mode
  414. music_on(1)             ! start music with tune number 1
  415. POKE &H484,BCLR(PEEK(&H484),0)  ! key click off
  416. '
  417. ' Set-up screen texts
  418. '
  419. DEFMOUSE 0
  420. HIDEM
  421. CLS
  422. PRINT "Crusaders music from GFA v3.6 by MUG U.K™ (24/10/1992)"
  423. PRINT "------------------------------------------------------"
  424. PRINT
  425. PRINT "Just to show that good music needn't be for 68000 programmers ONLY !!"
  426. PRINT
  427. PRINT "Bring your GFA BASIC programs to life with music that is NOT of the"
  428. PRINT "tacky '~XBIOS(32,L:crap_tune%)' type !!"
  429. PRINT
  430. PRINT "The music in this folder were all composed by The Crusaders."
  431. PRINT
  432. PRINT "They were hacked from the two screens by them in the NTM Demo by ZUUL and"
  433. PRINT "the others are from various screens in the Imagination Demo by The Dynamic Duo."
  434. PRINT
  435. PRINT "Press any key/mouse button to stop."
  436. '
  437. REPEAT                  ! Infinite loop that tests
  438.   EXIT IF MOUSEK        ! for the mouse buttons
  439. UNTIL INKEY$<>""        ! and the keyboard
  440. '
  441. bye_bye
  442. '
  443. ' +----------------------------------------------+
  444. ' | Music On - requires a tune number to be sent |
  445. ' +----------------------------------------------+
  446. '
  447. PROCEDURE music_on(x|)
  448.   IF LONG{&H4DA}=music%+8   ! Is it our vbl routine already here ??
  449.     music_off               ! It is, so get rid of it !!
  450.   ENDIF
  451.   '
  452.   r%(0)=x|                  ! Tune no. xxxx
  453.   RCALL music%,r%()         ! Initialise routine
  454.   {&H4DA}=music%+8          ! Set-up VBL
  455. RETURN
  456. '
  457. ' +-----------+
  458. ' | Music OFF |
  459. ' +-----------+
  460. '
  461. PROCEDURE music_off
  462.   {&H4DA}=0                 ! Clear VBL
  463.   WAVE 0,0                  ! Cut out any lingering noise
  464. RETURN
  465. '
  466. ' +--------------------------------------------------+
  467. ' | In the event of a bomb or something come here !! |
  468. ' +--------------------------------------------------+
  469. '
  470. PROCEDURE bye_bye
  471.   music_off               ! switch off music
  472.   POKE &H484,BSET(PEEK(&H484),0)  ! reinstate key click
  473.   ~GEMDOS(&H20,L:super%)  ! user mode
  474.   CLS
  475.   ON ERROR                ! re-instate GEM error routine
  476.   EDIT                    ! quit
  477. RETURN
  478.