#colors2 on on *:input:*: { if ($left($1,1) != /) { say $colors2($1-) halt } } #colors2 end menu * { &colors2 .on:/enable #colors2 .off:/disable #colors2 } alias colors2 { var %color1 = 4 var %color2 = 13 var %i = 1, %count = $numtok($1-,32) while (%i <= %count) { var %c = $gettok($1-,%i,32), %text = %text $+(%color1 $+ ,$left(%c,1),%color2 $+ ,$mid(%c,2,$len(%c))) inc %i } return %text }