On 15/09/15 18:34, Fred van Stappen wrote:
>
> What sound procedure is unable to work ?
>
> Thanks.
>
> Fre;D
>
I guess he means Procedure Sound in rtl/unix/crt.pp
This does not work for me either, just get the "sound of silence".
Procedure Sound(Hz: Word);
begin
{$ifdef havekiocsound}
if (not OutputRedir) and (hz>0) then
fpIoctl(TextRec(Output).Handle, KIOCSOUND, Pointer(1193180 div Hz));
{$endif}
end;
Regards,
PB
_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal
