#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 = 04,01 var %color2 = 09,01 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(%)),%color2 $+ ,$mid(%c,3,$len(%)),%color1 $+ ,$mid(%c,4,$len(%)),%color2 $+ ,$mid(%c,5,$len(%)),%color2 $+ ,$mid(%c,6,$len(%)),%color1 $+ ,$mid(%c,7,$len(%)),%color2 $+ ,$mid(%c,8,$len(%)),%color2 $+ ,$mid(%c,9,$len(%)),%color1 $+ ,$mid(%c,10,$len(%c)), %color2 $+ ,$end(%c))) inc %i } return %text }