[fpc-pascal]Yet another bug in Win32 CRT unit

[Pierre Muller]

At 15:58 04/03/2002 , vous avez écrit:
>The "sound" procedure does not produce a sound of the required Hertz,
>instead is imply "dings the bell."
>
>Try this program under Borland Pascal and under Free Pascal 1.04
>
>uses CRT;
>begin
>   sound(1000);
>   delay(1000);
>   sound(500);
>   delay(1000);
>   nosound;
>end.
This is a known missing feature.
(The RTL source only uses MessageBeep(0) call)

   You are very welcome to propose a
patch for adding support for this feautre, but
don't forget tat there are still 
(even if it becomes very rare)
win32 systems that don't have any sound systems
Moreover, I suspect that 
that code will need to be different for win9X/Me
and for winNT/2000/XP....