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

********************************************************* 
* 
* Name: Demos 
*       此程序演示此目录下的部分.prg程序 
* 
********************************************************** 
set talk off 
set esca off 
set sysm off 
set path to .. 
do LoadSDK                    && 装入SDK 
 
clea 
=ShowBmp(0,0,"Demo.bmp") 
priv Color 
Color='W/BG,N/BG,W+/BG,GR+/W,N/W,W+/GR,W+/BG,N+/N,GR+/B,R+/B' 
=DefiMenu("DemoMenu",5,1,16,75,"colo (Color)") 
=defipad(5,5,  "What",    "DemoMenu","\