alias inctext {
  var %a $len($1),%r
  while %a {
    if ($mid($1,%a,1) = z) %r = $str($iif($v1 isupper,A,a),$iif(%a = 1,2,1)) $+ %r
    else var %r = $+($left($1,$calc(-1+%a)),$chr($calc(1+$asc($v1))),%r),%a 1
    dec %a
  }
  return $iif($1 isalpha,%r)
}