'===========================================================================
' Subject: HAPPY BIRTHDAY SONG               Date: 07-10-96 (23:52)       
' Author:  John Fischer                      Code: QB, QBasic, PDS        
' Origin:  FidoNet QUIK_BAS Echo           Packet: SOUND.ABC
'===========================================================================
' > I was wondering if you could give some source code for Qbasic that
' > will play "happy birthday"...

'Happy Birthday to You
PLAY "MNT150L8O4CCL4DCFL2EL8CCL4DCGL2FL8CCL4>C<AFEL2DL8A+A+"
PLAY "L4AFGL2FL8CCL4DCFL2EL8CCL4DCGL2FL8CCL4>C<AFEL2DL8A+A+"
PLAY "L4AFGL2F"