declare pfunction MCIExecute returning long in dll \windows\system\mmsystem.dll

sAVIFile = '*'
do while .not. empty(sAVIFile)
  sAVIFile = dbfmenu('Video File,*.AVI','Select Video File')
  if .not. empty(sAVIFile)
    sString = 'open ' + alltrim(sAVIFile) + ' type AVIVideo alias AVIFile'
    MCIExecute(@sString)
    MCIExecute('play AVIFile')
    MCIExecute('close AVIFile')
  endif
enddo
