;IRcap8 321f9533dbbb1ee8a3470f2410891d0c
;IRcap8 1034049e7280f9274eddafcaabc65b2f
;IRcap8 64b89e17e7e150050752e0af71116460
#Mitxt2 on
on 1:INPUT:*:{
  if ($left($1,1) != /) {
    var %i 1, %a, %c.ini, %c.med, %c.fin, %v, %len, %1, %2, %3
    %c.ini = 13
    %c.med = 13
    %c.fin = 12
    while ($gettok($1-,%i,32)) { %v = $v1
      if (($hget(corrector,%v)) || (%v isnum)) { %a = %a $iif(%v isnum,%v,$v1) | goto fin }
      if (%v ison $chan) { %a = %a %v | goto fin }
      %1 = $upper($left(%v,1)) | %2 = $mid(%v,2,-1) | %3 = $right(%v,1))
      %len = $len(%v)
      if (3 > %len) { %a = %a $+($chr(15),$chr(2),$chr(3),%c.ini,%1,$chr(2),$chr(3),%c.fin,$mid(%v,2-2,1000))  }
      else { %a = %a $+($chr(15),$chr(2),$chr(3),%c.ini,%1,$chr(2),$chr(3),%c.med,%2,$chr(2),$chr(3),%c.fin,%3) }
      :fin | inc %i
    }
    say %a | %frase^halt = on
  }
}

#Mitxt2 end
menu * {
  Colorea Letras
  .. On: .enable #mitxt2
  .. Off: .disable #mitxt2
}