'===========================================================================
' Subject: BACH'S "MENUET"                   Date: 11-16-95 (19:25)       
' Author:  David Godding                     Code: QB, QBasic, PDS        
' Origin:  FidoNet QUIK_BAS Echo           Packet: SOUND.ABC
'===========================================================================
'*** Excerpt from 'Menuet,' by Johann Sebastian Bach ****

CLS
DIM MEASURE$(1 TO 8)      'Measure$ contains the notes to be
                          'played in each measure.

MEASURE$(1) = "O4D4O3MLGABO4C"
MEASURE$(2) = "O4D4O3MNG4MLG4"
MEASURE$(3) = "O4MNE4MLCDEF#"
MEASURE$(4) = "O4G4O3MNG4MLG4"
MEASURE$(5) = "O4MNC4MLDCO3BA"
MEASURE$(6) = "O3MNB4MLO4CO3BAG"
MEASURE$(7) = "O3MNA4MLBAGF#"
MEASURE$(8) = "G2.MN"

PRINT : PRINT " ***  An excerpt from 'Menuet,' by Johann Sebastian Bach  ***"

PLAY "T180L803MN"
FOR I = 1 TO 8
   PLAY MEASURE$(I)
NEXT I