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