Function List

'#Uses "C:\Users\myusername\Documents\Dragon\wristofdoom.txt"
Sub Main

Select Case Extract = Mid(ListVar1,1,InStr(ListVar1,"\")-1)
    Case "Extract"
        Extract()
    Case Else
        TTSPlayString "unrecognized entry"
    Exit All
End Select

End Sub