www.pudn.com > jq_transfile.ARJ > BKCOLOR.PRG

********************************************************* 
* 
* 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