标题卡拉OK字幕着色显示模拟

　　set talk off
　　set color to 1/0
　　string='卡拉OK'
　　@10，10 say string
　　i=1
　　do while i<=16
　　ch=substr(string，i，1)
　　if ch<>''
　　set color to 0/1
　　@10，10+i-1 say ch
　　endif
　　i=i+1
　　j=1
　　do while j<100
　　j=j+1
　　enddo
　　enddo
　　set color to 1/0
　　return