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

********************************************************* 
* 
* Name: Menu 
*       此程序演示菜单函数 
* 
********************************************************** 
set dele on 
set talk off 
on key label escape  quit 
set path to .. 
set mouse off 
set clock to 23,66 
dh='                 ' 
clea 
defi wind jqwin from 0,0 to 24,79 colo 6+/3 titl ' JQ 系 列 软 件 ' 
acti wind jqwin 
define window jqfaxwin from 2,2 to 18,75 titl '    JQFAX 通讯窗口   ; 
        黄朝生制作          JQ软件工作室  ' shadow 
acti windows jqfaxwin  
 
DEFINE MENU mainmenu 
 
defi pad pad1  of MAINMENU prom '\