Je parle pour vous.

rem ============================================================================
rem      Faites parler vos ordinateurs pour égayer vos programmes
rem               Parler.bas par Papydall
rem ============================================================================
dim t$
t$ = "Bonjour Panoramicien. Je suis contente de vous revoir..."
t$ = t$ + "Ceci est un exemple de ce que vous pouvez réaliser dans vos programmes,"
t$ = t$ + "afin d'expliquer leur rôle ,ou leur fonctionnement..."
t$ = t$ + "Vous voulez peut-être, annoncer un score ou simplement dire BRAVO ? ..."
t$ = t$ + "Pour que ça fonctionne bien et obtenir une voix douce comme la mienne,"
t$ = t$ + "vous devez disposer de la voix de Virginie, ou celle de, Hortense,"
t$ = t$ + "ou encore, celle de Harmonie"
parler(t$)

t$ = "Au lieu d'afficher des messages dans vos programmes, laissez-moi les lire pour vous..."
t$ = t$ + "ça sera plus gaie, n'est-ce pas ? ..."
parler(t$)

t$ = "Si ça ne vous plait pas, hé bien, ne m'appelez pas ! C'est simple..."
t$ = t$ + "Au revoir!"

parler(t$)

end
rem ============================================================================
SUB parler(tex$)
    dim_local f$,g$
    f$ = "c:\temp\parler.vbs"
    g$ = chr$(34)
    FILE_OPEN_WRITE 9999, f$
    file_writeln 9999, "Dim speaks, speech"
    file_writeln 9999, "speaks = " + g$ + tex$ + g$
    file_writeln 9999, "Set speech = CreateObject(" + g$ + "sapi.spvoice" + g$+ ")"
    file_writeln 9999, "speech.Speak speaks"
    FILE_CLOSE 9999
    EXECUTE_WAIT f$ : FILE_DELETE f$
END_SUB
rem ============================================================================