proc basicreplace {strin section} { ... set output [replacevar $output "%bold" "\002"] set output [replacevar $output "%color" "\003"] set output [replacevar $output "%uline" "\037"] ...