- *********************************************************
- *
- * Name: BkColor
- * 此程序演示设置不同的背景色
- *
- **********************************************************
- set talk off
- set esca off
- set path to ..
- do LoadSDK && 装入SDK
- set color to w/n
- clea
- for i=0 to 63
- =SetBkColor(i)
- @0,0 say "当前背景色为: "
- ?? ltri(str(i))
- if inke(2)=27
- exit
- endi
- endf
- =SetBkColor(0)
- retu