home *** CD-ROM | disk | FTP | other *** search
/ Fujiology Archive / fujiology_archive_v1_0.iso / !MAGS / !BONUS / COVERDSK / STFORMAT / STF03.ZIP / STF03.MSA / GFADEMOS / 30SOUNDS.LST next >
File List  |  1985-11-20  |  5KB  |  195 lines
  1. ' GFA Basic V2 Sound Effect Player
  2. ' Effects and Code Written By W Smith
  3. ' Pretty bits of no significance by B Capel
  4. '
  5. ' Runs in Medium or Hi resolution
  6. '
  7. Cls
  8. Hidem
  9. Print
  10. Print "   **************************************************************************"
  11. Print "   **                                                                      **"
  12. Print "   **       G F A   B A S I C   S O U N D   E F F E C T   P L A Y E R      **"
  13. Print "   **                                                                      **"
  14. Print "   **               Written By W Smith - ST Format August 1989             **"
  15. Print "   **                                                                      **"
  16. Print "   **************************************************************************"
  17. '
  18. Dim Effect$(30)
  19. For N%=0 To 30
  20.   Effect$(N%)=Space$(60)
  21. Next N%
  22. '
  23. Restore Sounds
  24. '
  25. Print At(23,12);"Please wait - Initialising effects....."
  26. For Index%=0 To 30
  27.   Count%=0
  28.   Sd%=Varptr(Effect$(Index%))
  29.   Repeat
  30.     Read X%
  31.     Poke Sd%+Count%,X%
  32.     Inc Count%
  33.   Until X%=999
  34. Next Index%
  35. '
  36. Do
  37.   '
  38.   Print At(22,12);"                                        "
  39.   Print At(25,12);
  40.   Input "   Choose an effect (1-31) ";Func%
  41.   If Func%>0 And Func%<32
  42.     Void Xbios(32,L:Varptr(Effect$(Func%-1)))
  43.   Endif
  44. Loop
  45. '
  46. Sounds:
  47. ' Effect #0
  48. Data 0,100,1,0,2,200,3,0,4,50,5,0,6,31,7,220
  49. Data 8,16,9,0,10,16,11,127,12,37,13,0,128
  50. Data 0,129,0,137,200,130,128,255,0,999
  51. ' Effect #1
  52. Data 0,42,1,2,2,88,3,4,4,164,5,8,7,199,8,16
  53. Data 9,16,10,16,11,106,12,10,13,4,128,124,129
  54. Data 4,54,164,255,0,999
  55. ' #2
  56. Data 0,0,1,0,2,100,3,0,4,200,5,0,6,31,7,198
  57. Data 8,16,9,16,10,16,11,207,12,88,13,0,128
  58. Data 255,129,6,0,0,130,0,255,0,999
  59. ' #3
  60. Data 2,216
  61. Data 3,4,4,219,5,5,7,254,8,16,11,223,12,118
  62. Data 13,0,128,0,129,0,22,0,255,0,999
  63. ' #4
  64. Data 0,140
  65. Data 1,1,2,216,3,4,4,219,5,5,7,254,8,16
  66. Data 11,207,12,88,13,0,128,0,129,0,41,0,255,0,999
  67. ' #5
  68. Data 2,216
  69. Data 3,4,4,219,5,5,7,254,8,16,11,223,12,118
  70. Data 13,0,128,0,129,0,22,0,255,0,999
  71. ' #6
  72. Data 0,0
  73. Data 1,0,7,254,8,16,11,207,12,88,13,0,128,0
  74. Data 129,0,41,0,255,0,999
  75. ' #7
  76. Data 0,82
  77. Data 1,2,2,251,3,13,4,34,5,0,7,248,8,16
  78. Data 11,0,12,86,13,0,128,0,129,0,11,0,130,0,255,0,999
  79. ' #8
  80. Data 0,210
  81. Data 1,3,2,232,3,3,4,209,5,7,7,248,8,16
  82. Data 9,16,10,16,11,111,12,163,13,0,128,0,255,0,999
  83. ' #9
  84. Data 0,52
  85. Data 1,0
  86. Data 2,0
  87. Data 3,0
  88. Data 4,0
  89. Data 5,0
  90. Data 6,0
  91. Data 7,254
  92. Data 8,16
  93. Data 9,0
  94. Data 10,0
  95. Data 11,0
  96. Data 12,16
  97. Data 13,9
  98. Data 130,100
  99. Data 7,255,8,0,255,0,999
  100. ' #10
  101. Data 0,254
  102. Data 1,0,2,0,3,0,4,0,5,0,6,0
  103. Data 7,254,8,11,9,0,10,0,11,0,12,0
  104. Data 13,0,130,20
  105. Data 0,86,1,1,130,20
  106. Data 0,254,1,0,130,20
  107. Data 0,86,1,1,130,20
  108. Data 8,0,9,0,130,50
  109. Data 7,255,8,0,255,0,999
  110. ' #11
  111. Data 0,0
  112. Data 1,0,2,0,3,0,4,0,5,0,6,15
  113. Data 7,199,8,16,9,16,10,16,11,0,12,16
  114. Data 13,0,130,25
  115. Data 8,0,9,0,130,50
  116. Data 7,255,8,0,255,0,999
  117. ' #12
  118. Data 0,0
  119. Data 1,0,2,0,3,0,4,0,5,0,6,10
  120. Data 7,199,8,16,9,16,10,16,11,0,12,80
  121. Data 13,0,130,20
  122. Data 8,0,9,0,10,0,13,100
  123. Data 7,255,8,0,255,0,999
  124. Block1:
  125. ' #13
  126. Data 0,0
  127. Data 1,0,2,0,3,0,4,0,5,0,6,0
  128. Data 7,254,8,15,9,0,10,0,11,0,12,0
  129. Data 13,0,128,60,129,0,-2,40,130,2
  130. Data 7,255,8,0,255,0,999
  131. ' #14
  132. Data 0,64,1,1,2,56,3,1,8,16,9,16,12,20,13,0,11,20
  133. Data 7,252,255,0,999
  134. ' #15
  135. Data 0,64,1,0,2,120,3,0,8,16,9,16,12,20,13,0,11,20
  136. Data 7,252,255,0,999
  137. ' #16
  138. Data 0,86,1,0,2,86,3,0,8,16,9,15,12,1
  139. Data 13,10,11,50,7,252,128,16,129,9,-1,0
  140. Data 255,0,8,0,255,0,999
  141. ' #17
  142. Data 0,2,1,15,2,2,3,15,8,16,9,16,12,20,13,10
  143. Data 11,20,7,252
  144. Data 128,240,129,1,-16,0,255,10,8,0,9,0,255,0,999
  145. ' #18
  146. Data 0,2,1,0,2,2,3,16,8,13,9,13,7,252
  147. Data 128,15,129,6,-1,0,255,5,8,5,9,5,255,0,999
  148. ' #19
  149. Data 0,0,1,15,8,15,12,0,13,4,11,20,7,252
  150. Data 128,0,129,1,1,15,255,1,8,0,255,0,999
  151. ' #20
  152. Data 0,8,1,2,2,12,3,4,8,16,9,16,12,20,13,9
  153. Data 11,20,7,252
  154. Data 128,200,129,0,-20,0,255,1,8,0,9,0,255,0,999
  155. ' #21
  156. Data 0,0,1,0,8,16,12,70,13,0,11,20,7,252
  157. Data 128,0,129,1,1,255,255,0,999
  158. ' #22
  159. Data 0,100,1,4,2,101,3,4,8,15,9,15
  160. Data 11,0,12,30,7,252
  161. Data 255,5,1,3,3,3,255,5,1,2,3,2,255,5,1,1,3,1
  162. Data 255,5,1,0,3,0
  163. Data 255,5,13,0,8,16,9,16,255,0,999
  164. ' #23
  165. Data 0,8,1,2,8,16,12,25,13,9,11,20,7,252
  166. Data 128,0,129,1,1,15,128,0,129,1,1,15,255,50
  167. Data 8,0,9,0,255,0,999
  168. ' #24
  169. Data 0,32,1,0,2,80,3,0,8,15,9,16,12,1
  170. Data 13,10,11,100,7,252,128,16,129,8,-1,0
  171. Data 255,12,9,0,255,0,999
  172. ' #25
  173. Data 0,20,1,0,2,48,3,0,8,15,9,16,12,1
  174. Data 13,10,11,50,7,252,128,16,129,8,-1,0
  175. Data 255,10,9,0,255,0,999
  176. ' #26
  177. Data 0,27,1,0,2,48,3,0,8,16,9,16,12,10
  178. Data 13,10,11,0,6,30,7,252,255,40
  179. Data 128,15,129,8,-1,0,7,244
  180. Data 255,10,9,0,255,0,999
  181. ' #27
  182. Data 0,100,1,5,2,80,3,1,8,15,11,0,12,70,7,246
  183. Data 128,0,129,6,1,31,255,3,12,40,13,0,8,16,255,0,999
  184. ' #28
  185. Data 0,100,1,5,2,80,3,1,8,15,11,0,12,70,7,246
  186. Data 128,31,129,6,-1,0,255,3,12,40,13,0,8,16,255,0,999
  187. ' #29
  188. Data 0,0,1,13,2,0,3,12,4,0,5,15,6,0
  189. Data 7,192,8,16,9,16,10,16,11,0,12,44
  190. Data 13,2,130,160,999
  191. ' #30
  192. Data 0,0,1,13,2,0,3,12,4,0,5,15,6,0
  193. Data 7,248,8,16,9,16,10,16,11,200,12,200
  194. Data 13,2,130,250,999
  195.