program music;
uses tonesnd;
begin
Repeat
Play_Tone(random (128),50+random(50),100);
delay (random(100)+100);
until (GetKEyPressed=KE_KEY0);
delay(100);
end.
Наипростейший генератор музыки. Иногда забавно получается
Что насчет воспроизведения звуков?
Эмулятор: WTK 2.5.2 - все идеально
Телефон: нокиа 6300 - гдето вначале (20-30) молчит, затем все норм