Uses MMSYSTEM
    mciSendString(lpstrCommand CPTR, lpstrReturnString CPTR,
      wReturnLength CWORD, hCallback CWORD) CWORD
®MDBU¯®MDNM¯endUses
method run(var eventInfo Event)
    mciSendString("open c:\\pdoxwin\\working\\midifile.mid
alias music","" ,0, 0)
    mciSendString("open c:\\pdoxwin\\working\\flicfile.flc
alias flic style popup","" ,0, 0)
    mciSendString("play music","" ,0, 0)
    mciSendString("play flic wait","" ,0, 0)
    mciSendString("close flic","" ,0, 0)
    mciSendString("close music","" ,0, 0)
endmethod