Bueno este es el comando
alias t1 {
var %a 1, %t $replace($1-,$chr(32),$chr(9)), %b $len(%t), %c, %j
while ( %a <= %b ) {
%c = $mid(%t,%a,1)
%j = $+(%j,$iif($r(1,2) == 1,$chr(2),$chr(31)),%c)
inc %a
}
Return $Replace(%j,$chr(9),$chr(32))
}
ahora saca el bold y underline random pero que hago para que salgo random el color ejemplo verde y gris se que es con $chr(3) pero no me sale