home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 1: Collection A / 17Bit_Collection_A.iso / files / 36.dms / 36.adf / music2.bas < prev    next >
BASIC Source File  |  1988-05-22  |  1KB  |  57 lines
  1. 5     screen 0,4
  2.  
  3. 10    dim n(113,2)
  4.  
  5. 20    '
  6.  
  7. 30    for i=1 to 8:read n(i,1),n(i,2)
  8.  
  9. 40    n(i+8,1)=n(i,1):n(i+8,2)=n(i,2):next
  10.  
  11. 50    for i=17 to 42:read n(i,1),n(i,2)
  12.  
  13. 60    n(i+50,1)=n(i,1):n(i+50,2)=n(i,2):next
  14.  
  15. 70    for i= 43 to 66:read n(i,1),n(i,2):next
  16.  
  17. 80    for i=93 to 113:read n(i,1),n(i,2):next
  18.  
  19. 85    ?"Press 'ESC' to stop repeating."
  20.  
  21. 90    ?at(5,10)"Dance of Sugar-Plum Fairy"
  22.  
  23. 100   audio 15,1
  24.  
  25. 110   for i = 1 to 113
  26.  
  27. 115   if n(i,1)=0 then 125
  28.  
  29. 120   x=sound(15,0,80*n(i,2),64,4.5*n(i,1))
  30.  
  31. 125   for y=1 to 160*n(i,2):next
  32.  
  33. 130   next:get a$:if a$<>chr$(27) then 110
  34.  
  35. 140   end
  36.  
  37. 2000  data 144,4,72,4,128,4,64,4,121,4,60,4,153,4,76,4
  38.  
  39. 2010  data 144,4,60,2,72,2,60,4,64,4,76,4,72,4,81,2
  40.  
  41. 2020  data 81,2,81,4,85,2,85,2,85,4,91,2,91,2,91,4
  42.  
  43. 2030  data 96,2,72,2,91,2,72,2,96,4,60,1,64,1,72,1
  44.  
  45. 2040  data 81,1,85,4,60,2,72,2,60,4,64,4,45,4,47,4
  46.  
  47. 2050  data 60,2,60,2,60,4,64,2,64,2,64,4,72,2,72,2
  48.  
  49. 2060  data 72,4,76,2,64,2,72,2,64,2,76,4,96,1,108,1
  50.  
  51. 2070  data 121,1,128,1,72,2,85,2,72,4,76,4,0,4,81,2
  52.  
  53. 2080  data 96,2,81,4,85,4,0,4,91,2,108,2,91,4,96,4
  54.  
  55. 2090  data 0,4,96,1,76,1,64,1,47,1,72,4,0,2
  56.  
  57.