XProfan

 {$cleq}
#include miclevel.inc
cls
messages de l'utilisateur wm_close
casenot micLevel.init() : end messageBox("Kein Mikrophon.","ERROR",4096)

tandis que 1

    waitInput 100

    sélectionner %uMessage

        caseof wm_close : pause

    EndSelect

    setText %hWnd,"Level: "+str$(micLevel.getLevel())
    cas micLevel.getLevel()>96 : pause

Wend

micLevel.destroy()
end