Find words in unicode

[ssimop]

In a text string I need to find words in unicode.
I wrote the following code. I would welcome any advice for more elegant routines.
Macro temp07

Code:

Copy      Help

str s
s="english"
str s1=s
s1.unicode
s1.ansi(s1 CP_ACP)
if StrCompare(s s1)=0
,out "english"
else
,out "unicode"