alias inctext {
  if $1 {
    var %a = ABCDEFGHIJKLMNOPQRSTUVWXYZ, %b = 1, %c
    :loop
    %c = $+(%c,$mid($gettok($iif($left($1,%b) islower,$lower(%a),%a),1,$asc($left($1,%b))),1,1))
    inc %b
    if (%b <= $len($1)) goto loop
    return %c
  }
}