Cross Segmento - TOTVS Backoffice (Linha Protheus) - ADVPL - Funções de arquivos sonoros disponibilizadas

Dúvida 
Quais são as funções para emissão de sinais sonoros disponibilizadas na linguagem ADVPL?
 

Ambiente 
Cross Segmento - TOTVS Backoffice (Linha Protheus) - ADVPL - Todas as versões a partir da release 12.
 

Solução 
Na linguagem ADVPL, estão disponibilizadas as funções Beep e Tone para a emissão de sinais sonoros:

• Beep(): Emite o som de bip padrão na estação onde está sendo executado. Retorna verdadeiro (.T.) caso o som tenha sido emitido com sucesso.

• Tone(): Emite um sinal sonoro na frequência (em Hertz).

Exemplos de código-fonte em ADVPL:

Exemplo da função Beep:

#include "TOTVS.CH"

User Function Exemplo()
    If Beep()
        Conout("Beep enviado")
    Else
        Conout("Beep não enviado")
    EndIf
Return

Exemplo da função Tone:

#include "TOTVS.CH"

User Function xTone()
    Tone()
Return