home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 1: Collection A / 17Bit_Collection_A.iso / files / 36.dms / 36.adf / music1.bas < prev    next >
BASIC Source File  |  1988-05-22  |  1KB  |  69 lines
  1. 10    screen 0,4
  2.  
  3. 20    ?at(0,10);
  4.  
  5. 30    ?:?"Press 'ESC' to end music":?
  6.  
  7. 40    ?"<after> tune has finished"
  8.  
  9. 50    on error goto 320
  10.  
  11. 60    audio 15,1
  12.  
  13. 70    read l,p
  14.  
  15. 80    if p=0 then 100
  16.  
  17. 90    x=sound(15,0,L/2.2,64,p*2)
  18.  
  19. 100   for x=1 to L:next
  20.  
  21. 110   goto 70
  22.  
  23. 120   '
  24.  
  25. 130   ' line 150 causes vibrato effect
  26.  
  27. 140   '
  28.  
  29. 150   data 680,13000
  30.  
  31. 160   '
  32.  
  33. 170   data 300,430,300,406,300,380,600,240,300,380,600,240,300,380,1080,240
  34.  
  35. 180   data 300,0
  36.  
  37. 190   data 300,226,300,210,300,198,300,186,300,240,600,210,300,186,300,240,600,210,1080,240
  38.  
  39. 200   data 300,0
  40.  
  41. 210   data 300,430,300,406,300,380,600,240,300,380,600,240,300,380,1080,240
  42.  
  43. 220   data 300,0
  44.  
  45. 230   data 300,284,300,320,300,340,300,284,350,240,700,186,300,240,300,250,310,284,1080,210
  46.  
  47. 240   data 300,0
  48.  
  49. 250   data 300,430,300,406,300,380,600,240,300,380,600,240,300,380,1080,240
  50.  
  51. 260   data 300,0
  52.  
  53. 270   data 300,226,300,210,300,198,300,186,300,240,600,210,300,186,300,250,600,210,1080,240
  54.  
  55. 280   data 500,0
  56.  
  57. 290   data 300,240,300,210,310,186,300,240,300,210,720,186,300,210,300,240,300,210
  58.  
  59. 300   data 310,186,300,240,300,210,720,186,300,210,300,240,300,210
  60.  
  61. 310   data 310,186,300,240,650,210,310,186,300,250,650,210,650,240,400,320,300,0,400,480
  62.  
  63. 320   get a$:if a$=chr$(3) or a$=chr$(27) then end
  64.  
  65. 330   for x=1 to 1000:next
  66.  
  67. 340   restore 150:resume 60
  68.  
  69.