'x=x=x=x=x=x=x=x==billrogers=x=x=x=x=x=x=x=x=x
'RESPOND: TELL QUOTE AT USER'S REQUEST
'If the user asks Hal to tell a quote, Hal will do so on request.
    If HalBrain.TopicSearch(UserSentence, WorkingDir & "XTF_SYS_QuoteDetect.brn") = "True" And GetResponseBlock <> True Then
        GetResponse = GetResponse & HalBrain.ChooseSentenceFromFile(WorkingDir & "XTF_SYS_Quote.brn")
        BlockSave = True  'Don't save User input when requesting a quote.
        DebugInfo = DebugInfo & "The user has requested Hal to tell a quote and Hal has done so: " & GetResponse & VbCrLf
    End If