Author: 重庆 符云清 Date: 1992-09-11
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