Hi lightspeed.
you can copy and paste this code into notepad and save it as a .vbs file to your desktop, this vbs file when you click on it will reverse whatever string you input to reverse person.
Set HalBrain = CreateObject("UltraHalAsst.Brain")
MyString = InputBox("", "Reverse Person", "type something here for reverse person")
'PROCESS: REMOVE PUNCTUATION
'This function removes all punctuation and symbols from the User's
'sentence so they won't confuse Hal during processing.
MyString = HalBrain.AlphaNumericalOnly(MyString)
MyString = Trim(MyString)
MyString = " " & MyString & " "
'PROCESS: MODIFY SENTENCE
'The function, HalFormat, from the ActiveX DLL corrects many common
'typos and chat shortcuts. Example: "U R Cool" becomes "You are
'cool." It also fixes a few grammatical errors.
MyString = HalBrain.HalFormat(MyString)
'PROCESS: REVERSE PERSON
'This function reverses first and second person pronouns. Example:
'The user's statement "You are cool" becomes Hal's statement "I am
'cool." Keep this is mind and don't get confused. When we are in
'Hal's brain; In the databases, "I" refers to Hal and in the
'databases, "you" refers to the user. This is true whenever we are
'dealing with a user response "processed" by Hal's brain.
MyString = HalBrain.SwitchPerson(MyString)
'PROCESS: MODIFY SENTENCE
'We now must run HalFormat again, to fix some grammatical errors
'the switch person above might have caused. Example: If the
'original sentence was "How are you"; after the function above it
'became "How are me" which is grammatically wrong. This will fix
'it to "How am I"
'NOTE TO DEVELOPERS: An especially important function performed by
'HalFormat is the removal of extra empty spaces in a sentence
'which may have been caused by other processing. For this reason,
'use Halformat closely before any "Len" comparison in which the
'counting of characters must be accurate.
MyString = HalBrain.HalFormat(MyString)
'PROCESS: CHANGE TO ALL CAPS
'Next, we captitalize the entire sentence for easy comparison.
'Almost all of Hal's thinking is done in caps.
MyString = UCase(MyString)
MsgBox MyString
Jerry[8D]