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

*┌──────────────────────────────────┐ 
*│      Program: EXP5_7.PRG                                           │ 
*│     Function: 上弹式菜单 PROMPT 用 FILES 参数的范例.               │ 
*└──────────────────────────────────┘ 
CLEAR 
* 定义上弹式菜单, 选择 FILES 参数 
DEFINE POPUP pop5_7 FROM 1,21 TO 8,48 PROMPT FILES MARGIN; 
       SHADOW SCROLL  COLOR SCHEME 9 
ACTIVATE POPUP pop5_7 
RETURN