Использовать звук!

external (INT, "mciSendString", "mciSendStringA", "Winmm.dll");

external (INT, "mciSendString", "mciSendStringA", "Winmm.dll");

mciSendString("open new Type waveaudio Alias recsound", "", 0, 0);
mciSendString("set recsound bitspersample 16", "", 0, 0);
mciSendString("set recsound samplespersec 44100", "", 0, 0);
mciSendString("record recsound", "", 0, 0);



pause(5000);//Это время будет записывать



mciSendString("save recsound c:\111.wav", "", 0, 0);
mciSendString("close recsound", "", 0, 0)

external (INT, "mciSendString", "mciSendStringA", "Winmm.dll");

mciSendString("open new alias ScriptMicrophone type waveaudio wait", "", 0, 0);

char t[4];
loop()
{
mciSendString("status ScriptMicrophone level", address(#t[0]), 16, 3);
textout(0, 100, 50, format(#t[0])+"----------", 0);
}

external (INT, "mciSendString", "mciSendStringA", "Winmm.dll");

mciSendString("open new type waveaudio alias waveLevel", "", 0, 0);

char t[4];
loop()
{
mciSendString("status waveLevel level", address(#t[0]), 16, 3);
textout(0, 100, 50, format(#t[0])+"----------", 0);

if (t[0]>50)
{
key ('x');
}

}

external (INT, "mciSendString", "mciSendStringA", "Winmm.dll");

mciSendString("open new type waveaudio alias waveLevel", "", 0, 0);

char t[4];
loop()
{
mciSendString("status waveLevel level", address(#t[0]), 16, 3);
textout(0, 100, 50, format(#t[0])+"----------", 0);

if (formatsn(format(#t[0]))>50)
{
key ('x');
}

}