bigtext {
  if $1 == $null { echo 4 -a Erro! Digite /faixa [texto] | halt }
  %palavra = $$1 | set %ativa say | %pal.tam = $len(%palavra) 
  if (%pal.tam > 6) { echo 4 -a  Error! Big word, max 6 letters | halt } 
  %cont = 1  | %ln = 1 | %ltn = 1 | %letra1 = $chr(160) | %letra2 = $chr(160) | %letra3 = $chr(160) | %letra4 = $chr(160) | %letra5 = $chr(160)
  :meio
  if ($mid(%palavra,%cont,1) = $null) { goto continue } 
  if ($mid(%palavra,%cont,1) = %space) { set %letn $+ %cont | inc %cont 1 | goto meio } 
  set %letr $+ %cont $mid(%palavra,%cont,1) | inc %cont 1 | goto meio
  :continue | %ln = 1 | %ltn = 1
  :etapa2 
  set %letra $+ %ln  %letra [ $+ [ %ln ] ]  $readini $mircdir $+ filetext\text.ini %letr [ $+ [ %ltn ] ]  %ln |  inc %ltn 1 
  if (%ltn > %pal.tam) { inc %ln 1 | %ltn = 1 
  if (%ln > 5) { goto fim } } | goto etapa2
  :fim |  %ativa %letra1 |  %ativa %letra2 |  %ativa %letra3 |  %ativa %letra4 |  %ativa %letra5
  unset %ln %ltn %letra* %letr* %palavra %pal.tam %ativa* | halt
  echo # 
}
