hi

use $istok

and $chr(0208) is $chr(208)

about your alias ayen or skura u can do like this if u want

alias ayen {
  var %x `|abc|def|ghi|jkl|mno|pqrs|tuv|wxyz
  if ($istok(^.*.&.$chr(208).%,$1,46)) var %x $1
  elseif ($1 isnum) var %x 1
  else var %x $findtok(%x,$wildtok(%x,$+(*,$1,*),1,124),1,124)
  return %x
}

about your alias ana u dont need to set %var global make it local and look what can u do if u want

alias ana {
  var %t 1,%proses $replace($1-,0,*,-,^,.,%,_,&,+,$chr(208)),%cutx $left(%proses,$calc($len(%proses) / 2)),%cutx1 $mid(%proses,$calc($len(%proses) / 2 + 1))
  while $mid(%cutx,%t,1) {
    var %cut $mid(%cutx,%t,1),%cut1 $mid(%cutx1,%t,1),%x `|abc|def|ghi|jkl|mno|pqrs|tuv|wxyz
    if ($istok(1.*.^.&.$chr(208).%,%cut,46)) var %line %cut1
    else var %line $mid($gettok(%x,%cut,124),%cut1,1)
    var %lines $+(%lines,%line)
    inc %t
  }
  return $replace(%lines,*,$chr(32),^,0,&,$chr(35),%,$chr(63),$chr(208),$chr(36))
}

is shorter no?