XProfan

 {$cleq}
#include miclevel.inc
cls
mensajes de los usuarios wm_close
casenot micLevel.init() : end messageBox("Kein Mikrophon.","ERROR",4096)

mientras que 1

    waitInput 100

    seleccionar %uMessage

        caseof wm_close : romper

    EndSelect

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

wend

micLevel.destroy()
end