Decode Karakter işlemi

menu channel,query {
  Yazi Decode Çevirici
  .$iif(%style = normal,$style(1)) Normal:.set %style normal
  .-
  .$iif(%style = sym,$style(1)) Chr:.set %style sym
  .-
  .$iif(%style = decode,$style(1)) Ayri Decode:.set %style decode
  .-
  .$iif(%style = fullcode,$style(1)) Full Decode:.set %style fullcode
}
On *:input:*: {
  if ($Left($1-,1) != /) && (!$ctrlenter) { msg $active $iif(%style = normal,$1-,$symx($1-)) | halt }
}
alias symx { 
  var %t = 1
  if (%style = fullcode) { return $+($!decode,$chr(40),$encode($1-,m),$chr(44),m,$chr(41)) | halt }
  while ($iif(%style = sym,$mid($1-,%t,1),$gettok($1-,%t,32))) || ($iif(%style = sym,$mid($1-,%t,1),$gettok($1-,%t,32)) != $null) {
    var %out = $iif(%style = sym,$+(%out,$+($!chr,$chr(40),$asc($mid($1-,%t,1)),$chr(41),$chr(44))),%out $+($!decode,$chr(40),$encode($gettok($1-,%t,32),m),$chr(44),m,$chr(41)))
    inc %t
  }
  return $iif(%style = sym,$+($,+,$chr(40),$left(%out,$calc($len(%out) - 1)),$chr(41)),%out)
}

Deneme = $+($chr(68),$chr(101),$chr(110),$chr(101),$chr(109),$chr(101))