Just a wild guess... 

set a="SECRETARIA DE ADMINISTRAÃ"_$c(135)_"Ã"_$c(131)_"O^1010^01010101"
set b="SECRETARIA DE ADMINISTRAÇÃO^1010^01010101"
set c=$zcvt(a,"I","UTF8")
if b=c {write "convert from UTF8" } else { write "no idea..." }