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

func PopSel 
*--------------------------------------------------------------------- 
priv Color 
Color='B/W,W+/B,W/W,W+/B,W/B,W+/B,GR/W,W/B,N/W,W+/W,+' 
 
=defiwind("Info",6,20,11,60,"colo (Color) titl '信息'") 
=actiwind("Info") 
 
@2,2 say "您选择的菜单条: " 
?? prmbar(popu(),bar()) 
 
wait'' 
=relewind("Info") 
retu