'===========================================================================
' Subject: FLUTE BOOK MUSIC COLLECTION       Date: 07-16-96 (00:05)       
' Author:  Charles Godard                    Code: QB, QBasic, PDS        
' Origin:  FidoNet QUIK_BAS Echo           Packet: SOUND.ABC
'===========================================================================
'  >Do any of you know how to play QUICKBASIC music in the background of a
'  >program?

'I never could figure out how to play more than about 32 notes in the
'background (the best I can remember).  Had to keep looping back ever
'so often to keep it playing in bg... the MB command does it.

'  >Also, do any of you got any good QUICKBASIC music with the PLAY command,
'  >(Like the Happy Birthday thing I saw)

'I copied these from a flute book, and played with the tempo, octaves,etc.

REM ABC SONG:
PLAY "O3 l4ccggaal2g l4ffeel8ddddl2c l4ggffee l2dl8ggl4gffeel2d l4ccggaal2g l4ffee l4dd l2c"

REM BINGO:
  PLAY "mb O3 L8GGDDEEDDGGAAL4BGBBL8>CCL4C<AAL8BBL4BGGL8AAAGF+DEF+L4GG"
REM SWEET BETSY FROM PIKE:
  PLAY "T220 O3  L4CCEGGFDDCCL2CL4CCEG>CCC<BGG L2G L4G  >CCC <BGEFGA L2G L8CD L4EEE GFD DCCL3C" '1st time thru song
  PLAY "L8CD L4EEE GFD DCC L2C L8CD L4EEE GFD DCC L2C L4C"  'this line is 1st CHORUS
  PLAY "O3  L4CEGGFDDCCL2CL4CCEG>CCC<BGG L2G L4G  >CCC <BGEFGA L2G L8CD L4EEE GFD DCCL3C"  '2nd time thru song
  PLAY "L8CD L4EEE GFD DCC L2C L8CD L4EEE GFD  L4DCCL2C"    '2nd time thur CHORUS
REM shortnin' bread :
 PLAY "T120 O3 <L4F>L8DDL4CD<L8FF>L4DL2CL4<F>DCL8DD<L8AAL4GFN0 "
 PLAY "T180 O4 < F >L8DDL4CD <F> DL2C <L4F >DL8CCL4D <AGF>N0"
 PLAY "T200 O5 <L8FF> DD CC L4D <F> DCD   L8<FF>DDCC L4D <AGFN0"
 PLAY "T250 O5 <L8FF>DDCCL4D<F>DCD L8<FF>DDCCL4D <AGFN0"
REM down at the station:
 PLAY "T 180 O3 L4G L8GA L4BB L8AG AB L4GG L8BB B>CDDDDC<B>CD<L2B"
 PLAY "O3 L8 GGGAL4BBL8AGABL4GG GG>DD <AB> <L2G"
REM Jingle Bells:
 PLAY "T150 O3 L8BBL4BL8BBL4BL8B>D<GAL2B L8>CCCCC<BBBBAABL4A>D<"
 PLAY "O3 L8BBL4BL8BBL4BL8B>D<GAL2B L8>CCCCC<BBB>DDC<AL2G"
REM merrily we roll along:
 PLAY "T 200 O3 L4BAGABBL2BL4AAL2AL4BBL2BL4BAGABBL2BL4AABAL1G"
 PLAY "T 200 O3 L4BAGABBL2BL4AAL2AL4BBL2BL4BAGABBL2BL4AABAL1G"
REM MICHAEL, ROW THE BOAT ASHORE:
 PLAY "O3 L4FA MS L2ML>C<L8AL8>CDL2CL4<A>CL1DL2CL4<A>CMS L2MLC<L8A> L4C<AL2GL4FGL2AGF"
 PLAY "O3 L4 FA MS L2ML>C<L8AL8>CDL2CL4<A>CL1DL2CL4<A>CMS L2MLC<L8A> L4C<AL2GL4FGL2AGF"