diff --git a/tools/sapi_voice.vbs b/tools/sapi_voice.vbs
index db44ee99ab..115781fd71 100644
--- a/tools/sapi_voice.vbs
+++ b/tools/sapi_voice.vbs
@@ -1,380 +1,380 @@
-'***************************************************************************
-'             __________               __   ___.
-'   Open      \______   \ ____   ____ |  | _\_ |__   _______  ___
-'   Source     |       _//  _ \_/ ___\|  |/ /| __ \ /  _ \  \/  /
-'   Jukebox    |    |   (  <_> )  \___|    < | \_\ (  <_> > <  <
-'   Firmware   |____|_  /\____/ \___  >__|_ \|___  /\____/__/\_ \
-'                     \/            \/     \/    \/            \/
-' $Id$
-'
-' Copyright (C) 2007 Steve Bavin, Jens Arnold, Mesar Hameed
-'
-' All files in this archive are subject to the GNU General Public License.
-' See the file COPYING in the source tree root for full license agreement.
-'
-' This software is distributed on an "AS IS" basis, WITHOUT WARRANTY OF ANY
-' KIND, either express or implied.
-'
-'***************************************************************************
-
-Option Explicit
-
-Const SSFMCreateForWrite = 3
-
-' Audio formats for SAPI5 filestream object
-Const SPSF_8kHz16BitMono  = 6
-Const SPSF_11kHz16BitMono = 10
-Const SPSF_12kHz16BitMono = 14
-Const SPSF_16kHz16BitMono = 18
-Const SPSF_22kHz16BitMono = 22
-Const SPSF_24kHz16BitMono = 26
-Const SPSF_32kHz16BitMono = 30
-Const SPSF_44kHz16BitMono = 34
-Const SPSF_48kHz16BitMono = 38
-
-Const STDIN  = 0
-Const STDOUT = 1
-Const STDERR = 2
-
-Dim oShell, oArgs, oEnv
-Dim oFSO, oStdIn, oStdOut
-Dim bVerbose, bSAPI4, bList
-Dim sLanguage, sVoice, sSpeed, sName, sVendor
-
-Dim oSpVoice, oSpFS ' SAPI5 voice and filestream
-Dim oTTS, nMode ' SAPI4 TTS object, mode selector
-Dim oVoice ' for traversing the list of voices
-Dim nLangID, sSelectString
-
-Dim aLine, aData    ' used in command reading
-
-On Error Resume Next
-
-Set oFSO = CreateObject("Scripting.FileSystemObject")
-Set oStdIn = oFSO.GetStandardStream(STDIN, true)
-Set oStdOut = oFSO.GetStandardStream(STDOUT, true)
-
-Set oShell = CreateObject("WScript.Shell")
-Set oEnv = oShell.Environment("Process")
-bVerbose = (oEnv("V") <> "")
-
-Set oArgs = WScript.Arguments.Named
-bSAPI4 = oArgs.Exists("sapi4")
-bList = oArgs.Exists("listvoices")
-sLanguage = oArgs.Item("language")
-sVoice = oArgs.Item("voice")
-sSpeed = oArgs.Item("speed")
-
-
-If bSAPI4 Then
-    ' Create SAPI4 ActiveVoice object
-    Set oTTS = WScript.CreateObject("ActiveVoice.ActiveVoice", "TTS_")
-    If Err.Number <> 0 Then
-        Err.Clear
-        Set oTTS = WScript.CreateObject("ActiveVoice.ActiveVoice.1", "TTS_")
-        If Err.Number <> 0 Then
-            WScript.StdErr.WriteLine "Error - could not get ActiveVoice" _
-                                     & " object. SAPI 4 not installed?"
-            WScript.Quit 1
-        End If
-    End If
-    oTTS.Initialized = 1
-
-    If bList Then 
-        ' Just list available voices for the selected language
-        For Each nLangID in LangIDs(sLanguage)
-            For nMode = 1 To oTTS.CountEngines
-                If oTTS.LanguageID(nMode) = nLangID Then
-                    WScript.StdErr.Write oTTS.ModeName(nMode) & ","
-                End If
-            Next
-        Next
-        WScript.StdErr.WriteLine
-        WScript.Quit 0
-    End If
-
-    ' Select matching voice
-    For Each nLangID in LangIDs(sLanguage)
-        sSelectString = "LanguageID=" & nLangID
-        If sVoice <> "" Then
-            sSelectString = sSelectString & ";Speaker=" & sVoice _
-                            & ";ModeName=" & sVoice
-        End If
-        nMode = oTTS.Find(sSelectString)
-        If oTTS.LanguageID(nMode) = nLangID And (sVoice = "" Or _
-           oTTS.Speaker(nMode) = sVoice Or oTTS.ModeName(nMode) = sVoice) Then
-            sName = oTTS.ModeName(nMode)
-            If bVerbose Then 
-                WScript.StdErr.WriteLine "Using " & sName & " for " & sSelectString
-            End If
-            Exit For
-        Else
-            sSelectString = ""
-        End If
-    Next
-    If sSelectString = "" Then
-        WScript.StdErr.WriteLine "Error - found no matching voice for " _
-                                 & sLanguage & ", " & sVoice
-        WScript.Quit 1
-    End If
-    oTTS.Select nMode
-
-    ' Speed selection
-    If sSpeed <> "" Then oTTS.Speed = sSpeed
-    
-    ' Get vendor information
-    sVendor = oTTS.MfgName(nMode)
-
-Else ' SAPI5
-    ' Create SAPI5 object
-    Set oSpVoice = CreateObject("SAPI.SpVoice")
-    If Err.Number <> 0 Then
-        WScript.StdErr.WriteLine "Error - could not get SpVoice object." _
-                                 & " SAPI 5 not installed?"
-        WScript.Quit 1
-    End If
-    
-    If bList Then 
-        ' Just list available voices for the selected language
-        For Each nLangID in LangIDs(sLanguage)
-            sSelectString = "Language=" & Hex(nLangID)
-            For Each oVoice in oSpVoice.GetVoices(sSelectString)
-                WScript.StdErr.Write oVoice.GetAttribute("Name") & ","
-            Next
-        Next
-        WScript.StdErr.WriteLine
-        WScript.Quit 0
-    End If
-
-    ' Select matching voice
-    For Each nLangID in LangIDs(sLanguage)
-        sSelectString = "Language=" & Hex(nLangID)
-        If sVoice <> "" Then
-            sSelectString = sSelectString & ";Name=" & sVoice
-        End If
-        Set oSpVoice.Voice = oSpVoice.GetVoices(sSelectString).Item(0)
-        If Err.Number = 0 Then
-            sName = oSpVoice.Voice.GetAttribute("Name")
-            If bVerbose Then
-                WScript.StdErr.WriteLine "Using " & sName & " for " & sSelectString
-            End If
-            Exit For
-        Else
-            sSelectString = ""
-            Err.Clear
-        End If
-    Next
-    If sSelectString = "" Then
-        WScript.StdErr.WriteLine "Error - found no matching voice for " _
-                                 & sLanguage & ", " & sVoice
-        WScript.Quit 1
-    End If
-
-    ' Speed selection
-    If sSpeed <> "" Then oSpVoice.Rate = sSpeed
-
-    ' Get vendor information, protect from missing attribute
-    sVendor = oSpVoice.Voice.GetAttribute("Vendor")
-    If Err.Number <> 0 Then
-        Err.Clear
-        sVendor = "(unknown)"
-        ' Some L&H engines don't set the vendor attribute - check the name
-        If Len(sName) > 3 And Left(sName, 3) = "LH " Then
-            sVendor = "L&H"
-        End If
-    End If
-
-    ' Filestream object for output
-    Set oSpFS = CreateObject("SAPI.SpFileStream")
-    oSpFS.Format.Type = AudioFormat(sVendor)
-End If
-
-Do
-    aLine = Split(oStdIn.ReadLine, vbTab, 2)
-    If Err.Number <> 0 Then
-        WScript.StdErr.WriteLine "Error " & Err.Number & ": " & Err.Description
-        WScript.Quit 1
-    End If
-    Select Case aLine(0) ' command
-        Case "QUERY"
-            Select Case aLine(1)
-                Case "VENDOR"
-                    oStdOut.WriteLine sVendor
-            End Select
-        Case "SPEAK"
-            aData = Split(aLine(1), vbTab, 2)
-            If bVerbose Then WScript.StdErr.WriteLine "Saying " & aData(1) _
-                                                      & " in " & aData(0)
-            If bSAPI4 Then
-                oTTS.FileName = aData(0)
-                oTTS.Speak aData(1)
-                While oTTS.Speaking
-                    WScript.Sleep 1
-                Wend
-                oTTS.FileName = ""
-            Else
-                oSpFS.Open aData(0), SSFMCreateForWrite, false
-                Set oSpVoice.AudioOutputStream = oSpFS
-                oSpVoice.Speak aData(1)
-                oSpFS.Close
-            End If
-        Case "EXEC"
-            If bVerbose Then WScript.StdErr.WriteLine "> " & aLine(1)
-            oShell.Run aLine(1), 0, true
-            If Err.Number <> 0 Then
-                If Not bVerbose Then 
-                    WScript.StdErr.Write "> " & aLine(1) & ": "
-                End If
-                If Err.Number = &H80070002 Then ' Actually file not found
-                    WScript.StdErr.WriteLine "command not found"
-                Else
-                    WScript.StdErr.WriteLine "error " & Err.Number & ":" _
-                                             & Err.Description
-                End If
-                WScript.Quit 2
-            End If
-        Case "SYNC"
-            If bVerbose Then WScript.StdErr.WriteLine "Syncing"
-            oStdOut.WriteLine aLine(1) ' Just echo what was passed
-        Case "QUIT"
-            If bVerbose Then WScript.StdErr.WriteLine "Quitting"
-            WScript.Quit 0
-    End Select
-Loop
-
-' Subroutines
-' -----------
-
-' SAPI5 output format selection based on engine
-Function AudioFormat(ByRef sVendor)
-    Select Case sVendor
-        Case "Microsoft"
-            AudioFormat = SPSF_22kHz16BitMono
-        Case "AT&T Labs"
-            AudioFormat = SPSF_32kHz16BitMono
-        Case "Loquendo"
-            AudioFormat = SPSF_16kHz16BitMono
-        Case "ScanSoft, Inc"
-            AudioFormat = SPSF_22kHz16BitMono
-        Case "Voiceware"
-            AudioFormat = SPSF_16kHz16BitMono
-        Case Else
-            AudioFormat = SPSF_22kHz16BitMono
-            WScript.StdErr.WriteLine "Warning - unknown vendor """ & sVendor _
-                                     & """ - using default wave format"
-    End Select
-End Function
-
-' Language mapping rockbox->windows
-Function LangIDs(ByRef sLanguage)
-    Dim aIDs
-
-    Select Case sLanguage
-        Case "arabic"
-            LangIDs = Array( &h401,  &h801,  &hc01, &h1001, &h1401, &h1801, _
-                            &h1c01, &h2001, &h2401, &h2801, &h2c01, &h3001, _
-                            &h3401, &h3801, &h3c01, &h4001)
-            ' Saudi Arabia, Iraq, Egypt, Libya, Algeria, Morocco, Tunisia,
-            ' Oman, Yemen, Syria, Jordan, Lebanon, Kuwait, U.A.E., Bahrain,
-            ' Qatar
-        Case "afrikaans"
-            LangIDs = Array(&h436)
-        Case "bulgarian"
-            LangIDs = Array(&h402)
-        Case "catala"
-            LangIDs = Array(&h403)
-        Case "chinese-simp"
-            LangIDs = Array(&h804) ' PRC
-        Case "chinese-trad"
-            LangIDs = Array(&h404) ' Taiwan. Perhaps also Hong Kong, Singapore, Macau?
-        Case "czech"
-            LangIDs = Array(&h405)
-        Case "dansk"
-            LangIDs = Array(&h406)
-        Case "deutsch"
-            LangIDs = Array(&h407, &hc07, &h1007, &h1407) 
-            ' Standard, Austrian, Luxembourg, Liechtenstein (Swiss -> wallisertitsch)
-        Case "eesti"
-            LangIDs = Array(&h425)
-        Case "english"
-            LangIDs = Array( &h809,  &h409,  &hc09, &h1009, &h1409, &h1809, _
-                            &h1c09, &h2009, &h2409, &h2809, &h2c09, &h3009, _
-                            &h3409)
-            ' British, American, Australian, Canadian, New Zealand, Ireland,
-            ' South Africa, Jamaika, Caribbean, Belize, Trinidad, Zimbabwe,
-            ' Philippines
-        Case "espanol"
-            LangIDs = Array( &h40a,  &hc0a,  &h80a, &h100a, &h140a, &h180a, _
-                            &h1c0a, &h200a, &h240a, &h280a, &h2c0a, &h300a, _
-                            &h340a, &h380a, &h3c0a, &h400a, &h440a, &h480a, _
-                            &h4c0a, &h500a)
-            ' trad. sort., mordern sort., Mexican, Guatemala, Costa Rica,
-            ' Panama, Dominican Republic, Venezuela, Colombia, Peru, Argentina,
-            ' Ecuador, Chile, Uruguay, Paraguay, Bolivia, El Salvador,
-            ' Honduras, Nicaragua, Puerto Rico
-        Case "esperanto"
-            WScript.StdErr.WriteLine "Error: no esperanto support in Windows"
-            WScript.Quit 1
-        Case "finnish"
-            LangIDs = Array(&h40b)
-        Case "francais"
-            LangIDs = Array(&h40c, &hc0c, &h100c, &h140c, &h180c)
-            ' Standard, Canadian, Swiss, Luxembourg, Monaco (Belgian -> walon)
-        Case "galego"
-            LangIDs = Array(&h456)
-        Case "greek"
-            LangIDs = Array(&h408)
-        Case "hebrew"
-            LangIDs = Array(&h40d)
-        Case "hindi"
-            LangIDs = Array(&h439)
-        Case "islenska"
-            LangIDs = Array(&h40f)
-        Case "italiano"
-            LangIDs = Array(&h410, &h810) ' Standard, Swiss
-        Case "japanese"
-            LangIDs = Array(&h411)
-        Case "korean"
-            LangIDs = Array(&h412)
-        Case "lietuviu"
-            LangIDs = Array(&h427)
-        Case "magyar"
-            LangIDs = Array(&h40e)
-        Case "nederlands"
-            LangIDs = Array(&h413, &h813) ' Standard, Belgian
-        Case "norsk"
-            LangIDs = Array(&h414) ' Bokmal
-        Case "norsk-nynorsk"
-            LangIDs = Array(&h814)
-        Case "polski"
-            LangIDs = Array(&h415)
-        Case "portugues"
-            LangIDs = Array(&h816)
-        Case "portugues-brasileiro"
-            LangIDs = Array(&h416)
-        Case "romaneste"
-            LangIDs = Array(&h418)
-        Case "russian"
-            LangIDs = Array(&h419)
-        Case "slovak"
-            LangIDs = Array(&h41B)
-        Case "slovenscina"
-            LangIDs = Array(&h424)
-        Case "srpski"
-            LangIDs = Array(&hc1a) ' Cyrillic
-        Case "svenska"
-            LangIDs = Array(&h41d, &h81d) ' Standard, Finland
-        Case "tagalog"
-            LangIDs = Array(&h464) ' Filipino, might not be 100% correct
-        Case "thai"
-            LangIDs = Array(&h41e)
-        Case "turkce"
-            LangIDs = Array(&h41f)
-        Case "wallisertitsch"
-            LangIDs = Array(&h807) ' Swiss German
-        Case "walon"
-            LangIDs = Array(&h80c) ' Belgian French
-    End Select
-End Function
-
-
+'***************************************************************************
+'             __________               __   ___.
+'   Open      \______   \ ____   ____ |  | _\_ |__   _______  ___
+'   Source     |       _//  _ \_/ ___\|  |/ /| __ \ /  _ \  \/  /
+'   Jukebox    |    |   (  <_> )  \___|    < | \_\ (  <_> > <  <
+'   Firmware   |____|_  /\____/ \___  >__|_ \|___  /\____/__/\_ \
+'                     \/            \/     \/    \/            \/
+' $Id$
+'
+' Copyright (C) 2007 Steve Bavin, Jens Arnold, Mesar Hameed
+'
+' All files in this archive are subject to the GNU General Public License.
+' See the file COPYING in the source tree root for full license agreement.
+'
+' This software is distributed on an "AS IS" basis, WITHOUT WARRANTY OF ANY
+' KIND, either express or implied.
+'
+'***************************************************************************
+
+Option Explicit
+
+Const SSFMCreateForWrite = 3
+
+' Audio formats for SAPI5 filestream object
+Const SPSF_8kHz16BitMono  = 6
+Const SPSF_11kHz16BitMono = 10
+Const SPSF_12kHz16BitMono = 14
+Const SPSF_16kHz16BitMono = 18
+Const SPSF_22kHz16BitMono = 22
+Const SPSF_24kHz16BitMono = 26
+Const SPSF_32kHz16BitMono = 30
+Const SPSF_44kHz16BitMono = 34
+Const SPSF_48kHz16BitMono = 38
+
+Const STDIN  = 0
+Const STDOUT = 1
+Const STDERR = 2
+
+Dim oShell, oArgs, oEnv
+Dim oFSO, oStdIn, oStdOut
+Dim bVerbose, bSAPI4, bList
+Dim sLanguage, sVoice, sSpeed, sName, sVendor
+
+Dim oSpVoice, oSpFS ' SAPI5 voice and filestream
+Dim oTTS, nMode ' SAPI4 TTS object, mode selector
+Dim oVoice ' for traversing the list of voices
+Dim nLangID, sSelectString
+
+Dim aLine, aData    ' used in command reading
+
+On Error Resume Next
+
+Set oFSO = CreateObject("Scripting.FileSystemObject")
+Set oStdIn = oFSO.GetStandardStream(STDIN, true)
+Set oStdOut = oFSO.GetStandardStream(STDOUT, true)
+
+Set oShell = CreateObject("WScript.Shell")
+Set oEnv = oShell.Environment("Process")
+bVerbose = (oEnv("V") <> "")
+
+Set oArgs = WScript.Arguments.Named
+bSAPI4 = oArgs.Exists("sapi4")
+bList = oArgs.Exists("listvoices")
+sLanguage = oArgs.Item("language")
+sVoice = oArgs.Item("voice")
+sSpeed = oArgs.Item("speed")
+
+
+If bSAPI4 Then
+    ' Create SAPI4 ActiveVoice object
+    Set oTTS = WScript.CreateObject("ActiveVoice.ActiveVoice", "TTS_")
+    If Err.Number <> 0 Then
+        Err.Clear
+        Set oTTS = WScript.CreateObject("ActiveVoice.ActiveVoice.1", "TTS_")
+        If Err.Number <> 0 Then
+            WScript.StdErr.WriteLine "Error - could not get ActiveVoice" _
+                                     & " object. SAPI 4 not installed?"
+            WScript.Quit 1
+        End If
+    End If
+    oTTS.Initialized = 1
+
+    If bList Then 
+        ' Just list available voices for the selected language
+        For Each nLangID in LangIDs(sLanguage)
+            For nMode = 1 To oTTS.CountEngines
+                If oTTS.LanguageID(nMode) = nLangID Then
+                    WScript.StdErr.Write oTTS.ModeName(nMode) & ","
+                End If
+            Next
+        Next
+        WScript.StdErr.WriteLine
+        WScript.Quit 0
+    End If
+
+    ' Select matching voice
+    For Each nLangID in LangIDs(sLanguage)
+        sSelectString = "LanguageID=" & nLangID
+        If sVoice <> "" Then
+            sSelectString = sSelectString & ";Speaker=" & sVoice _
+                            & ";ModeName=" & sVoice
+        End If
+        nMode = oTTS.Find(sSelectString)
+        If oTTS.LanguageID(nMode) = nLangID And (sVoice = "" Or _
+           oTTS.Speaker(nMode) = sVoice Or oTTS.ModeName(nMode) = sVoice) Then
+            sName = oTTS.ModeName(nMode)
+            If bVerbose Then 
+                WScript.StdErr.WriteLine "Using " & sName & " for " & sSelectString
+            End If
+            Exit For
+        Else
+            sSelectString = ""
+        End If
+    Next
+    If sSelectString = "" Then
+        WScript.StdErr.WriteLine "Error - found no matching voice for " _
+                                 & sLanguage & ", " & sVoice
+        WScript.Quit 1
+    End If
+    oTTS.Select nMode
+
+    ' Speed selection
+    If sSpeed <> "" Then oTTS.Speed = sSpeed
+    
+    ' Get vendor information
+    sVendor = oTTS.MfgName(nMode)
+
+Else ' SAPI5
+    ' Create SAPI5 object
+    Set oSpVoice = CreateObject("SAPI.SpVoice")
+    If Err.Number <> 0 Then
+        WScript.StdErr.WriteLine "Error - could not get SpVoice object." _
+                                 & " SAPI 5 not installed?"
+        WScript.Quit 1
+    End If
+    
+    If bList Then 
+        ' Just list available voices for the selected language
+        For Each nLangID in LangIDs(sLanguage)
+            sSelectString = "Language=" & Hex(nLangID)
+            For Each oVoice in oSpVoice.GetVoices(sSelectString)
+                WScript.StdErr.Write oVoice.GetAttribute("Name") & ","
+            Next
+        Next
+        WScript.StdErr.WriteLine
+        WScript.Quit 0
+    End If
+
+    ' Select matching voice
+    For Each nLangID in LangIDs(sLanguage)
+        sSelectString = "Language=" & Hex(nLangID)
+        If sVoice <> "" Then
+            sSelectString = sSelectString & ";Name=" & sVoice
+        End If
+        Set oSpVoice.Voice = oSpVoice.GetVoices(sSelectString).Item(0)
+        If Err.Number = 0 Then
+            sName = oSpVoice.Voice.GetAttribute("Name")
+            If bVerbose Then
+                WScript.StdErr.WriteLine "Using " & sName & " for " & sSelectString
+            End If
+            Exit For
+        Else
+            sSelectString = ""
+            Err.Clear
+        End If
+    Next
+    If sSelectString = "" Then
+        WScript.StdErr.WriteLine "Error - found no matching voice for " _
+                                 & sLanguage & ", " & sVoice
+        WScript.Quit 1
+    End If
+
+    ' Speed selection
+    If sSpeed <> "" Then oSpVoice.Rate = sSpeed
+
+    ' Get vendor information, protect from missing attribute
+    sVendor = oSpVoice.Voice.GetAttribute("Vendor")
+    If Err.Number <> 0 Then
+        Err.Clear
+        sVendor = "(unknown)"
+        ' Some L&H engines don't set the vendor attribute - check the name
+        If Len(sName) > 3 And Left(sName, 3) = "LH " Then
+            sVendor = "L&H"
+        End If
+    End If
+
+    ' Filestream object for output
+    Set oSpFS = CreateObject("SAPI.SpFileStream")
+    oSpFS.Format.Type = AudioFormat(sVendor)
+End If
+
+Do
+    aLine = Split(oStdIn.ReadLine, vbTab, 2)
+    If Err.Number <> 0 Then
+        WScript.StdErr.WriteLine "Error " & Err.Number & ": " & Err.Description
+        WScript.Quit 1
+    End If
+    Select Case aLine(0) ' command
+        Case "QUERY"
+            Select Case aLine(1)
+                Case "VENDOR"
+                    oStdOut.WriteLine sVendor
+            End Select
+        Case "SPEAK"
+            aData = Split(aLine(1), vbTab, 2)
+            If bVerbose Then WScript.StdErr.WriteLine "Saying " & aData(1) _
+                                                      & " in " & aData(0)
+            If bSAPI4 Then
+                oTTS.FileName = aData(0)
+                oTTS.Speak aData(1)
+                While oTTS.Speaking
+                    WScript.Sleep 1
+                Wend
+                oTTS.FileName = ""
+            Else
+                oSpFS.Open aData(0), SSFMCreateForWrite, false
+                Set oSpVoice.AudioOutputStream = oSpFS
+                oSpVoice.Speak aData(1)
+                oSpFS.Close
+            End If
+        Case "EXEC"
+            If bVerbose Then WScript.StdErr.WriteLine "> " & aLine(1)
+            oShell.Run aLine(1), 0, true
+            If Err.Number <> 0 Then
+                If Not bVerbose Then 
+                    WScript.StdErr.Write "> " & aLine(1) & ": "
+                End If
+                If Err.Number = &H80070002 Then ' Actually file not found
+                    WScript.StdErr.WriteLine "command not found"
+                Else
+                    WScript.StdErr.WriteLine "error " & Err.Number & ":" _
+                                             & Err.Description
+                End If
+                WScript.Quit 2
+            End If
+        Case "SYNC"
+            If bVerbose Then WScript.StdErr.WriteLine "Syncing"
+            oStdOut.WriteLine aLine(1) ' Just echo what was passed
+        Case "QUIT"
+            If bVerbose Then WScript.StdErr.WriteLine "Quitting"
+            WScript.Quit 0
+    End Select
+Loop
+
+' Subroutines
+' -----------
+
+' SAPI5 output format selection based on engine
+Function AudioFormat(ByRef sVendor)
+    Select Case sVendor
+        Case "Microsoft"
+            AudioFormat = SPSF_22kHz16BitMono
+        Case "AT&T Labs"
+            AudioFormat = SPSF_32kHz16BitMono
+        Case "Loquendo"
+            AudioFormat = SPSF_16kHz16BitMono
+        Case "ScanSoft, Inc"
+            AudioFormat = SPSF_22kHz16BitMono
+        Case "Voiceware"
+            AudioFormat = SPSF_16kHz16BitMono
+        Case Else
+            AudioFormat = SPSF_22kHz16BitMono
+            WScript.StdErr.WriteLine "Warning - unknown vendor """ & sVendor _
+                                     & """ - using default wave format"
+    End Select
+End Function
+
+' Language mapping rockbox->windows
+Function LangIDs(ByRef sLanguage)
+    Dim aIDs
+
+    Select Case sLanguage
+        Case "arabic"
+            LangIDs = Array( &h401,  &h801,  &hc01, &h1001, &h1401, &h1801, _
+                            &h1c01, &h2001, &h2401, &h2801, &h2c01, &h3001, _
+                            &h3401, &h3801, &h3c01, &h4001)
+            ' Saudi Arabia, Iraq, Egypt, Libya, Algeria, Morocco, Tunisia,
+            ' Oman, Yemen, Syria, Jordan, Lebanon, Kuwait, U.A.E., Bahrain,
+            ' Qatar
+        Case "afrikaans"
+            LangIDs = Array(&h436)
+        Case "bulgarian"
+            LangIDs = Array(&h402)
+        Case "catala"
+            LangIDs = Array(&h403)
+        Case "chinese-simp"
+            LangIDs = Array(&h804) ' PRC
+        Case "chinese-trad"
+            LangIDs = Array(&h404) ' Taiwan. Perhaps also Hong Kong, Singapore, Macau?
+        Case "czech"
+            LangIDs = Array(&h405)
+        Case "dansk"
+            LangIDs = Array(&h406)
+        Case "deutsch"
+            LangIDs = Array(&h407, &hc07, &h1007, &h1407) 
+            ' Standard, Austrian, Luxembourg, Liechtenstein (Swiss -> wallisertitsch)
+        Case "eesti"
+            LangIDs = Array(&h425)
+        Case "english"
+            LangIDs = Array( &h809,  &h409,  &hc09, &h1009, &h1409, &h1809, _
+                            &h1c09, &h2009, &h2409, &h2809, &h2c09, &h3009, _
+                            &h3409)
+            ' British, American, Australian, Canadian, New Zealand, Ireland,
+            ' South Africa, Jamaika, Caribbean, Belize, Trinidad, Zimbabwe,
+            ' Philippines
+        Case "espanol"
+            LangIDs = Array( &h40a,  &hc0a,  &h80a, &h100a, &h140a, &h180a, _
+                            &h1c0a, &h200a, &h240a, &h280a, &h2c0a, &h300a, _
+                            &h340a, &h380a, &h3c0a, &h400a, &h440a, &h480a, _
+                            &h4c0a, &h500a)
+            ' trad. sort., mordern sort., Mexican, Guatemala, Costa Rica,
+            ' Panama, Dominican Republic, Venezuela, Colombia, Peru, Argentina,
+            ' Ecuador, Chile, Uruguay, Paraguay, Bolivia, El Salvador,
+            ' Honduras, Nicaragua, Puerto Rico
+        Case "esperanto"
+            WScript.StdErr.WriteLine "Error: no esperanto support in Windows"
+            WScript.Quit 1
+        Case "finnish"
+            LangIDs = Array(&h40b)
+        Case "francais"
+            LangIDs = Array(&h40c, &hc0c, &h100c, &h140c, &h180c)
+            ' Standard, Canadian, Swiss, Luxembourg, Monaco (Belgian -> walon)
+        Case "galego"
+            LangIDs = Array(&h456)
+        Case "greek"
+            LangIDs = Array(&h408)
+        Case "hebrew"
+            LangIDs = Array(&h40d)
+        Case "hindi"
+            LangIDs = Array(&h439)
+        Case "islenska"
+            LangIDs = Array(&h40f)
+        Case "italiano"
+            LangIDs = Array(&h410, &h810) ' Standard, Swiss
+        Case "japanese"
+            LangIDs = Array(&h411)
+        Case "korean"
+            LangIDs = Array(&h412)
+        Case "lietuviu"
+            LangIDs = Array(&h427)
+        Case "magyar"
+            LangIDs = Array(&h40e)
+        Case "nederlands"
+            LangIDs = Array(&h413, &h813) ' Standard, Belgian
+        Case "norsk"
+            LangIDs = Array(&h414) ' Bokmal
+        Case "norsk-nynorsk"
+            LangIDs = Array(&h814)
+        Case "polski"
+            LangIDs = Array(&h415)
+        Case "portugues"
+            LangIDs = Array(&h816)
+        Case "portugues-brasileiro"
+            LangIDs = Array(&h416)
+        Case "romaneste"
+            LangIDs = Array(&h418)
+        Case "russian"
+            LangIDs = Array(&h419)
+        Case "slovak"
+            LangIDs = Array(&h41B)
+        Case "slovenscina"
+            LangIDs = Array(&h424)
+        Case "srpski"
+            LangIDs = Array(&hc1a) ' Cyrillic
+        Case "svenska"
+            LangIDs = Array(&h41d, &h81d) ' Standard, Finland
+        Case "tagalog"
+            LangIDs = Array(&h464) ' Filipino, might not be 100% correct
+        Case "thai"
+            LangIDs = Array(&h41e)
+        Case "turkce"
+            LangIDs = Array(&h41f)
+        Case "wallisertitsch"
+            LangIDs = Array(&h807) ' Swiss German
+        Case "walon"
+            LangIDs = Array(&h80c) ' Belgian French
+    End Select
+End Function
+
+