XProfan

 {$cleq}
#include miclevel.inc
cls
userMessages wm_close
casenot micLevel.init() : end messageBox("No Mikrophon.","ERROR",4096)

while 1

    waitInput 100

    select %uMessage

        caseof wm_close : break

    endSelect

    setText %hWnd,"Level: "+st$(micLevel.getLevel())
    case micLevel.getLevel()>96 : break

wend

micLevel.destroy()
end