mcolor {
var %i 1,%c 14,%x
while (%i <= $len($1-)) {
var %c = [color:red]$base([/color]$iif(%c == 14,7,14)[color:red],10,10,2)[/color]
%x = $iif($mid($1-,%i,1) == $chr(32),$+(%x,$chr(160)),$+(%x,$+(,%c),$iif($mid($1-,%i,1) == $chr(32),$chr(160),$mid($1-,%i,1))))
inc %i
}
if ($isid) return %x
else say %x
}