declare pfunction sndPlaySound returning integer in dll \windows\mmsystem.dll

@ 20,0 say center('You must have a sound driver, such as SPEAKER.DRV' ,79) 
@ 21,0 say center('or a sound card, installed to play .WAV files',79)

sSoundFile = '*'
do while .not. empty(sSoundFile)
  sSoundFile = dbfmenu('Sound Files,*.WAV','Select a WAV File')
  if .not. empty(sSoundFile)
    sndPlaySound(@sSoundFile,9)
  endif
enddo