sub colordecode {
	$_[0] =~ s/%(.)/macro_sub $1/eg;
	return ($_[0]);
}

sub macro_sub ($) {
	if    ($_[0] eq 'U') { return "\c_"; }
	elsif ($_[0] eq 'B') { return "\cB"; }
	elsif ($_[0] eq 'C') { return "\cC"; }
	elsif ($_[0] eq 'O') { return "\cO"; }
	elsif ($_[0] eq 'R') { return "\cV"; }
	elsif ($_[0] eq '%') { return '%';   }
	return '%'.$_[0];
}