ただ聞くに堪えない音質でどこを調節すればいいのかさっぱり分からないので教えてください。
とりあえず関係ありそうな部分だけ載せます。
と
mci "open new alias rec type waveaudio" mci "set rec channels 2" mci "set rec bitspersample 16" mci "set rec samplespersec 44100" mci "record rec"
です。
mci "stop rec" mci "save rec \"testrecord.wav\"" mci "close rec" sdim buf, 64 lpoke buf, 0, 44100*2*2 bsave "record.wav", buf, 4, 28