home *** CD-ROM | disk | FTP | other *** search
/ POINT Software Programming / PPROG1.ISO / basic / bmag / metallic.bas < prev    next >
Encoding:
BASIC Source File  |  1994-04-26  |  2.8 KB  |  121 lines
  1. '─ Area: F-QUICKBASIC ─────────────────────────────────────────────────────────
  2. '  Msg#: 329                                          Date: 21 Apr 94  17:01:00
  3. '  From: Robert Fisher                                Read: Yes    Replied: No 
  4. '    To: All                                          Mark:                     
  5. '  Subj: Metalica
  6. '──────────────────────────────────────────────────────────────────────────────
  7. 'Here are the songs "Enter Sandman", "One", and "Wherever I may roam" by
  8. 'Metalica!
  9.  
  10. '*****BMAG editor's note... Metallica RULES!*****
  11.  
  12. 'Here is a little music program I made.                   
  13. 'This is a combination of excerpts from                   
  14. 'these Metallica songs:                                   
  15. 'Enter Sandman, Wherever I May Roam,                      
  16. 'and One.                                                 
  17. 'This is 2 minutes and 16 seconds long.                   
  18. 'If you want it to go very fast, then                     
  19. 'get rid of the ' marks by the first                      
  20. 'two PLAY "" commands.                                    
  21. '                                                         
  22. 'PLAY "T255O3D64C64O2B64A64G64F64"
  23. 'PLAY "G64A64B64O3C64D64"
  24. 'Enter Sandman                                            
  25. PLAY "O2DDD2DDC16O1BO4"
  26. PLAY "D+16E16G"
  27. PLAY "F16E16D16E16D8D16D16CN0"
  28. FOR I = 1 TO 4
  29. PLAY "O5D16E8O4G8D+8"
  30. FOR DE = 1 TO 2000: NEXT DE
  31. NEXT I
  32. PLAY "O5D8E16.F16.E16.F16.E16F16E16F16E16F16E16F16E1"
  33. PLAY "F16.E16.D16.F16.E16.D16.F16.E16.D16.F16.E16.D16.O6C8.C16 C8.C16C2 "
  34. '<--Goes on line above                          "
  35. PLAY "O5C16O4B16G16A16G16A16G16A16G16A16G8A8G8E2"
  36. PLAY "D8E8D1O3BO4C2C8.C8C8.C2"
  37. SLEEP 1
  38. 'Wherever I May Roam                                      
  39. FOR Y = 1 TO 2
  40. A$ = "O5 E2E8E8F8E2 G8G8A8F"
  41. PLAY A$
  42. PLAY "E1"
  43. FOR X = 1 TO 35
  44. PLAY "O6E64O3E64"
  45. NEXT X
  46. PLAY A$
  47. PLAY "E2E8E8F8E2"
  48. FOR X = 1 TO 25
  49. PLAY "O6E64O3E64"
  50. NEXT X
  51. NEXT Y
  52. PLAY "MSA8A8A8A8"
  53. PLAY "MNEFGA"
  54. A$ = "A64G64F64"
  55. FOR Y = 1 TO 2
  56. PLAY A$
  57. PLAY "E4."
  58. PLAY A$
  59. PLAY "E16."
  60. PLAY A$
  61. PLAY "E16."
  62. PLAY A$
  63. PLAY "F16."
  64. PLAY A$
  65. PLAY "E4."
  66. PLAY A$
  67. PLAY "G16."
  68. PLAY A$
  69. PLAY "G16."
  70. PLAY A$
  71. PLAY "A16."
  72. PLAY A$
  73. PLAY "F8."
  74. PLAY A$
  75. PLAY "E2."
  76. FOR X = 1 TO 35
  77. PLAY "O6E64O3E64"
  78. NEXT X
  79. PLAY A$
  80. PLAY "E4."
  81. PLAY A$
  82. PLAY "E16."
  83. PLAY A$
  84. PLAY "E16."
  85. PLAY A$
  86. PLAY "F16."
  87. PLAY A$
  88. PLAY "E4."
  89. PLAY A$
  90. PLAY "G16."
  91. PLAY A$
  92. PLAY "G16."
  93. PLAY A$
  94. PLAY "A16."
  95. PLAY A$
  96. PLAY "F8."
  97. PLAY A$
  98. PLAY "E4."
  99. PLAY A$
  100. PLAY "E16."
  101. PLAY A$
  102. PLAY "E16."
  103. PLAY A$
  104. PLAY "F16."
  105. PLAY A$
  106. PLAY "E2."
  107. FOR X = 1 TO 25
  108. PLAY "O6E64O3E64"
  109. NEXT X
  110. NEXT Y
  111. SLEEP 1
  112. 'One                                                      
  113. FOR Y = 1 TO 4
  114. A$ = "O2C8.G8.C8.D+2."
  115. FOR X = 1 TO 3
  116. PLAY A$
  117. NEXT X
  118. PLAY "MNO1G8.MSB8.MNA8.O2MSD8.MN"
  119. NEXT Y
  120. PLAY "C2."
  121.