procedure THiAsmClass.doCode;
const
cod:array[1..3] of string[4]=('xw','vk','co');
tran:array[1..3] of string[4]=('rf','tj','yy');
var s,st:string;
i,k:integer;
begin
s:=ReadString(_Data,Str);
for i:=1 to Length(s) do
begin
k:= Pos(s[i],cod);
If k>0 then st:=st+tran[k]
else st:=st+s[i];
end;
_hi_onEvent(Result,st);
end;