'Ä Area: F-QUICKBASIC ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
'  Msg#: 329                                          Date: 21 Apr 94  17:01:00
'  From: Robert Fisher                                Read: Yes    Replied: No 
'    To: All                                          Mark:                     
'  Subj: Metalica
'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
'Here are the songs "Enter Sandman", "One", and "Wherever I may roam" by
'Metalica!

'*****BMAG editor's note... Metallica RULES!*****

'Here is a little music program I made.                   
'This is a combination of excerpts from                   
'these Metallica songs:                                   
'Enter Sandman, Wherever I May Roam,                      
'and One.                                                 
'This is 2 minutes and 16 seconds long.                   
'If you want it to go very fast, then                     
'get rid of the ' marks by the first                      
'two PLAY "" commands.                                    
'                                                         
'PLAY "T255O3D64C64O2B64A64G64F64"
'PLAY "G64A64B64O3C64D64"
'Enter Sandman                                            
PLAY "O2DDD2DDC16O1BO4"
PLAY "D+16E16G"
PLAY "F16E16D16E16D8D16D16CN0"
FOR I = 1 TO 4
PLAY "O5D16E8O4G8D+8"
FOR DE = 1 TO 2000: NEXT DE
NEXT I
PLAY "O5D8E16.F16.E16.F16.E16F16E16F16E16F16E16F16E1"
PLAY "F16.E16.D16.F16.E16.D16.F16.E16.D16.F16.E16.D16.O6C8.C16 C8.C16C2 "
'<--Goes on line above                          "
PLAY "O5C16O4B16G16A16G16A16G16A16G16A16G8A8G8E2"
PLAY "D8E8D1O3BO4C2C8.C8C8.C2"
SLEEP 1
'Wherever I May Roam                                      
FOR Y = 1 TO 2
A$ = "O5 E2E8E8F8E2 G8G8A8F"
PLAY A$
PLAY "E1"
FOR X = 1 TO 35
PLAY "O6E64O3E64"
NEXT X
PLAY A$
PLAY "E2E8E8F8E2"
FOR X = 1 TO 25
PLAY "O6E64O3E64"
NEXT X
NEXT Y
PLAY "MSA8A8A8A8"
PLAY "MNEFGA"
A$ = "A64G64F64"
FOR Y = 1 TO 2
PLAY A$
PLAY "E4."
PLAY A$
PLAY "E16."
PLAY A$
PLAY "E16."
PLAY A$
PLAY "F16."
PLAY A$
PLAY "E4."
PLAY A$
PLAY "G16."
PLAY A$
PLAY "G16."
PLAY A$
PLAY "A16."
PLAY A$
PLAY "F8."
PLAY A$
PLAY "E2."
FOR X = 1 TO 35
PLAY "O6E64O3E64"
NEXT X
PLAY A$
PLAY "E4."
PLAY A$
PLAY "E16."
PLAY A$
PLAY "E16."
PLAY A$
PLAY "F16."
PLAY A$
PLAY "E4."
PLAY A$
PLAY "G16."
PLAY A$
PLAY "G16."
PLAY A$
PLAY "A16."
PLAY A$
PLAY "F8."
PLAY A$
PLAY "E4."
PLAY A$
PLAY "E16."
PLAY A$
PLAY "E16."
PLAY A$
PLAY "F16."
PLAY A$
PLAY "E2."
FOR X = 1 TO 25
PLAY "O6E64O3E64"
NEXT X
NEXT Y
SLEEP 1
'One                                                      
FOR Y = 1 TO 4
A$ = "O2C8.G8.C8.D+2."
FOR X = 1 TO 3
PLAY A$
NEXT X
PLAY "MNO1G8.MSB8.MNA8.O2MSD8.MN"
NEXT Y
PLAY "C2."