'===========================================================================
' Subject: SEVENTEEN SONG SELECTIONS          Date: 06-22-98 (22:10)       
'  Author: Douglas Bunger                     Code: QB, QBasic, PDS        
'  Origin: www.public.usit.net/dbunger/..   Packet: SOUND.ABC
'===========================================================================
DEFINT A-Z
'=========================================
SUB Music (a)
'=========================================
'a = song selection
'  * it is best to cut the code you need
'

SELECT CASE (a)

    CASE 1
    'Stars And Stripes Forever
    PLAY "MN T240"
    PLAY "O1 C2 O0 B4. O1 C8 O0 A4 O1 C2 D4 E-4 E4 F4 F#4 G4 P4 O0G2"
    PLAY "O3 E4 P8 E8 E4 E4 E4 P8 E8 F4 F4 D8 C#8 MS D8 E8 D4 D4"
    PLAY "O3 ML C32 O2 B16. MS B8 A4 B4 G4 MNO3G4 P8 G8 G4 G4"
    PLAY "O3 G4 P8 G8 G#4 G#4 ML A8 MN G#8 MS A8 O4C8O3 MNB4 A4 G#2."
    PLAY "O3 G#4 G4 P8 G8 MS O4 C4 P8 O3 A8 G4 F#4 G4 E4 MN D4"
    PLAY "O2 G8 F#8 G4 O3 D4 O2 G8 F#8 G4 O3"
    PLAY "O3 G4 P8 G8 MS O4 C4 P8 O3 A8 G4 F#4 G4 E-4 MN D4"
    PLAY "O2 F#8 E8 F#8 E8 F#4 G4 P4 G4 .F8 E2 A4.G8 O1 B2 A2"
    PLAY "O1 G2 O2 F2 E2 D4.E8 F4 A2"
    PLAY "O3 C4 D2 C2"
    PLAY "O2 E1 D2"
    PLAY "O3 G4.F8 E2 A4. G8 O2 B2 A2 G2 O3F2 E2 D4.E8 F4 A4 O4D4.C8"
    PLAY "O3 E4 G4 C4.E8 D1 C1"
   
    CASE 2
    'Da Da Dida Dida
    PLAY "MN T200"
    PLAY "O2 C8 F8 A8 O3 C4 O2A8 O3C4."
    PLAY "O2 C#8 F#8 A#8 O3 C#4 O2A#8 O3C#4."
    PLAY "O2 D8 G8 B8 O3 D4 O2B8 O3D4."

    CASE 3
    'Revilie
    PLAY "MB MN T180"
    PLAY "O2 C8.C16 F8 C8 F8 A8 F4 F8.F16 A8 F8 A8 O3C8 O2 A4 F8.A16 O3 C4"
    PLAY "O2 A8.F16 C4 C8.C16 F4 F8.F16 F4 MF"

    CASE 4
    'Taps
    PLAY "T120 MN MB"
    PLAY "O3L8C.L16C L2F.L8C.L16F"
    PLAY "L2A.L8C.L16F L4A L8C L16F L4A L8C L16F L2A."
    PLAY "O3 L8F.L16A ML O4L2C MN O3L4A L4F L2C."
    PLAY "O3L8C.L16C ML L1F MN L4F"

    CASE 5
    'Beethoven's Fifth
    PLAY "T180 o2 P2 P8 L8 GGG L2 E-"
    PLAY "P24 P8 L8 FFF L2 D"

    CASE 6
    'Football song
    PLAY "MB MN T220 O3"
    PLAY "O3 E2 D#4 E4 F8 F4 E8 F2"
    PLAY "O3 F8 F4 F8 E4 F4 G8 G4 F#8 G2"
    PLAY "O3 A4 O4 C4 O3 B4 A4 G4 E4 C4 D4"
    PLAY "O3 E8 G4 F8 E4 D4 C2. MF"

    CASE 7:
    'Anchors Away
    PLAY "MB T200O3L4"
    PLAY "MB MLCCMBMNEGMLAL8AMNL8EL4L2AO4CL4DO3GO4L1C"

    CASE 8
    'America The Beautiful
    PLAY "T120 O3"
    PLAY "G4 G4. E8 E4 G4 G4. D8 D4 E4 F4 G4 A4 B4 G2."
    PLAY "G4 G4. E8 E4 G4 G4. D8 D4 >D4 C+4 D4 E4 <A4 >D2."
    PLAY "<G4 >E4. E8 D4 C4 C4. <B8 B4 >C4 D4 <B4 A4 G4 >C2."
    PLAY "C4 C4. <A8 A4 >C4 C4. <G8 G4 G4 A4 >C4 <G4 >D4 C2."

    CASE 9
    'Battle Hymn of the Republic
    PLAY "T120 O3 L8"
    PLAY "F. F. F16 F. E16 D. F16 B-. >C16 D. D16 D. C16 <B-4"
    PLAY "B-. A16 G. G16 G. A16 B-. A16 B-. G16 F. G16 F. D16 F4"
    PLAY "F. F16 F. F16 F. E16 D. F16 B-. >C16 D. D16 D. C16 <B-4"
    PLAY "B-4 >C4 C4 <B-4 A4 B-2 P2"
    PLAY "F4. E D. F16 B-. >C16 D2 <B-4 P4 G4. A B-. A16 B-. G16 F2 D4 P4"
    PLAY "F4. E D. F16 B-. >C16 D2 <B-4 B-4 >C4 C4 <B-4 A4 B-2"

    CASE 10
    'The Cassions Go Rolling Along
    PLAY "T145 O2 L8"
    PLAY "G E G4 G E G4 G E G A G E G4"
    PLAY "E F G F4 D G F4 D C2. P8"
    PLAY "G E G4 G E G4 G E G A G E G4"
    PLAY "E F G F4 D G F4 D C2. P8"
    PLAY "G G >C P8 C P <G4 G G A B"
    PLAY ">C <A G2 >C C4 <B A B >C <A >D2. P8"
    PLAY "<G >C4 C4 <B2 A B >C <A G4"
    PLAY "E F G F4 D G F4 D C2"

    CASE 11
    'Star Spangled Banner
    PLAY "T120 O2 L4"
    PLAY "F8 D8 <B- >D F B-2 >D8 C8 <B- D E F2 F8 F8 >D. C8 <B-"
    PLAY "A2 G8 A8 B- B- F D <B- >F8 D8 <B- >D F B-2 >D8 C8"
    PLAY "<B- D E F2 F8 F8 >D. C8 <B- A2 G8 A8 B- B- F D <B-"
    PLAY ">>D8 D8 D D E- F2. E-8 D8 C C D E-2 E- D2 C8 <B-8"
    PLAY "A2 G8 A8 B- D E F2 F B- B- B-8 A8 G G G"
    PLAY ">C E-8 D8 C8 <B-8 B- A2 P4"
    PLAY "F8 F8 B-. >C8 D8 E-8 F2 <B-8 >C8 D. E-8 C <B-2"

    CASE 12
    'Dixie
    PLAY "MBT140O3E8C8C8C16D16E16F16G8G8G8E8A8A8A8.G16A8.G16"
    PLAY "A16B18O4C16D16E4.C16O3G16O4C4.O3G16E16G4.D16E16C4."
    PLAY "MBT140O3E8C8C8C16D16E16F16G8G8G8E8A8A8A8.G16A8.G16"
    PLAY "A16B18O4C16D16E4.C16O3G16O4C4.O3G16E16G4.D16E16C4."
    PLAY "MBT1408O4C8E8D8C8O3A8O4C4O3A8O4D4.O3A8O4D4.O3G8O4C8"
    PLAY "E8D8C8O3A8B8O4C8.O3A16G8E8O4C8O3E8E8D4E8C4."
    PLAY "MBT140E8D4.F8E8G8O4E8.C16D8C4O3E8C4.E8D4.F8E8G8O4E8.C16D8C4."

    CASE 13
    'The Odd Couple
    PLAY "mn t120 l16"
    PLAY "o2 a o3 d8. aa8. g ml a2 a4 mn g8. fg4 f8. ef2 ml d2 d2. mn"
    PLAY "p8. d g8. o4  dd8. c ml d2 d4 mn c8. o3 b- o4 c4 o3 b-8. a ml b-2 g2 g1"
    PLAY "mn p4 ml a4 a8. mn fg8. d ml f2g2"
    PLAY "mn p4 ml a4 a8. mn fg8. a o4 c4 c8. o3 a f4 d4 p4 ml a4 a8. "
    PLAY "ml f l12 ga o4 c l16 mn d4 d8. c o3 a8. gf4 ml g1 g2. p8."
    PLAY "mn t120 l16"
    PLAY "o2 a o3  d8. aa8. g ml a2 a4 mn g8. fg4 f8. ef2 ml d2 d2. mn"
    PLAY "p8. d g8.  o4  dd8. c ml d2 d4 mn c8. o3 b- o4 c4 o3 b-8. a ml b-2 g2 g1"
    PLAY "mn p4 ml a4 a8. mn fg8. d ml f2g2"
    PLAY "mn p4 ml a4 a8. f l12 ga o4 c l16 mn d4 c4 o3  a8. gf8. d"
    PLAY "ml f2 f8. mn df8. d ml f2 f8. mn df8. d ml f1 f1 "
    PLAY "mn d8. aa8. g ml a2 a2 p8 l8 ml dfdf1"

    CASE 14
    'Star Wars
    PLAY "t136 mn o3 l8"
    PLAY "ddgfe-dc o2 b-ag o3 d2. l12 ddd l8 g4 p4 p2 p2 "
    PLAY "t236 l6 o2 ddd l2 ml g o3 dd mn l6 c o2 ba l2 o3 ml gdd"
    PLAY "mn l6 c o2 ba ml l2 o3 gdd mn l6 c o2 b o3 c l2 ml o2 a1a4 p4 mn"
    PLAY "t236 l6 o2 ddd l2 ml g o3 dd mn l6 c o2 ba l2 o3 ml gdd"
    PLAY "mn l6 c o2 ba ml l2 o3 gdd mn l6 c o2 b o3 c l2 ml o2 a1a4 p4 mn"
    PLAY "t136 mn o3 l8"
    PLAY "p4 mn o2 l8 d4 e4.e o3c o2 bag l12 gab l8 a8. e16f+4d8. d"
    PLAY "e4.e o3 c o2 bag o3 d8.o2  a16 ml a4a4 mn d4 e4.e O3 c o2 bag "
    PLAY "l12 gaba8. e16 f+4 o3 d8. d16 l16  g8. fe-8. d c8. o2 b-a8. g"
    PLAY "o3 d2"
    PLAY "t236 l6 o2 ddd l2 ml g o3 dd mn l6 c o2 ba l2 o3 ml gdd"
    PLAY "mn l6 c o2 ba ml l2 o3 gdd mn l6 co2 b o3c l2 ml o2a1a4 p4 mn"
    PLAY "t236 l6 o2 ddd l2 ml g o3 dd mn l6 c o2 ba l2 o3 ml gdd"
    PLAY "mn l6 c o2ba ml l2 o3gdd mn l6 co2bo3c l2 ml o2a1a4 p4 mn"
    PLAY "l6 o3 mn ddd ml l1 gggg4 p4 p4 mn l12 dddg2"

    CASE 15
    'Alex's Theme (Beverly Hills Cop)
    PLAY "mbo3l8f#p8a8.mlf#16mnf#16f#16b8f#ef#p8o4c#8.o3mlf#16mnf#16f#16"
    PLAY "o4dc#o3af#o4c#F#o3f#16mle16mne16e16c#g#mlf#f#4p4p3"
    PLAY "mbo3l8f#p8a8.mlf#16mnf#16f#16b8f#ef#p8o4c#8.o3mlf#16mnf#16f#16"
    PLAY "o4dc#o3af#o4c#F#o3f#16mle16mne16e16c#g#mlf#f#4p4p3"
    PLAY "l8o2f#p8o2f#.o2mle16mne16o2e16o1c#o2c#o1ef#p8o2f#p8p16o1c#1"
    PLAY "6o2c#ef#o1do2p8d.o1mle16mne16o2e16o1c#ef#o2f#p4p16e16c#o1ba"

    CASE 16
    'Bagpipes
    PLAY "T200MN"
    PLAY "O2L8AO3L4DL8DDEFL4EL8DL4DL8O2AO3DEFGAB-L2AP8"
    PLAY "O3L8AO4L4DL8DDCO3B-L4AL8AL4AL8FL4AL8AGFEL4FL8DL4D"
    PLAY "O3L8EL4FL8FGAB-L4AL8AO4L4DP8O3L8DEFGFEDCL2DP8L8DL2EP8L8EFGFEDCL2D"
    PLAY "T200MN"
    PLAY "O2L8AO3L4DL8DDEFL4EL8DL4DL8O2AO3DEFGAB-L2AP8"
    PLAY "O3L8AO4L4DL8DDCO3B-L4AL8AL4AL8FL4AL8AGFEL4FL8DL4D"
    PLAY "O3L8EL4FL8FGAB-L4AL8AO4L4DP8O3L8DEFGFEDCL2DP8L8DL2EP8L8EFGFEDCL2D"
    PLAY "L1D"

    CASE 17
    'Theme from Star Trek
    PLAY "T240MLO4B1.D1.F1.O3A1.P8"
    PLAY "T240O3MLG2G8MNO4C8.MLF2MNF2MLE4.E8C4O3A4O4D4G2P8G4B1P4."
    PLAY "T240O4MLC2C8MNF8.MLB-2MNB-2MLA4.A8F4D4G4O5C2P8C4E1P1"
    PLAY "T160O3G2O4F2.E4T240D4C4O3B4"
    PLAY "MLT160O3B-2B-1G2O4G2.F4T240E4D4C4T180O3B2B1"
    PLAY "MLT160O3B-4A2.B4O4C#D4T240E4F#G"
    PLAY "MLT160O4A2B-1.O3B-2.O4C4"
    PLAY "MLT160O4D4E-4T240F4G4A-4T160B-2B1"
    PLAY "MLT160O3G2O4F2.E4T240D4C4O3B4"
    PLAY "MLT160O3B-2B-1A-4"
    PLAY "MLT160O3G2O4G2.F4T240E4D4C4"
    PLAY "MLT160O3B2B1B-4A2.B4"
    PLAY "MLT160O4C4D4T240E4F4E4T160G2.G4"
    PLAY "MLT160O4B-2.A4G2C1MLD4.F4.A4."
    PLAY "MLT160O5C1"

END SELECT
END SUB