Remove reset par parameter
h -> height, w -> width, col1 -> color, cst -> color_step to make variable more readable
rename a2 -> ac (array of content)
rename a21 -> ac_men (array of content, men name)
a22 -> ac_word (array of content, word count), a23 -> ac_sc (array of content, history step count)
Add comments and some code rearrange
write it more clear, though R support original write

http://f.dataguru.cn/thread-22731-1-1.html
Still code variable rename