SET SYSMENU TO
 SET SYSMENU AUTOMATIC 
 DEFINE PAD _0MV16ZHR2 OF _MSYSMENU PROMPT '文 件 (\<F)' COLOR SCHEME 3 KEY ALT+F , ''
 DEFINE PAD _0MV16ZHR3 OF _MSYSMENU PROMPT '編 輯 (\<E)' COLOR SCHEME 3 KEY ALT+E , ''
 DEFINE PAD _0MV16ZHR4 OF _MSYSMENU PROMPT '幫 助 (\<H)' COLOR SCHEME 3 KEY ALT+H , ''
 DEFINE PAD _0MV16ZHR5 OF _MSYSMENU PROMPT '退 出 (\<E)' COLOR SCHEME 3 KEY ALT+E , ''
 ON PAD _0MV16ZHR2 OF _MSYSMENU ACTIVATE POPUP 文件F
 ON PAD _0MV16ZHR3 OF _MSYSMENU ACTIVATE POPUP 編輯E
 ON PAD _0MV16ZHR4 OF _MSYSMENU ACTIVATE POPUP 幫助H
 ON PAD _0MV16ZHR5 OF _MSYSMENU ACTIVATE POPUP 退出E
 DEFINE POPUP 文件F COLOR SCHEME 4 SHADOW MARGIN RELATIVE 
 DEFINE BAR _MFI_CLOSE OF 文件F PROMPT '關閉(\<C)' MESSAGE '關閉當前文件' KEY CTRL+C ,  ;
      'CTRL+C'
 DEFINE BAR _MFI_CLALL OF 文件F PROMPT '全部關閉(\<Z)' MESSAGE '全部關閉窗口' KEY CTRL+Z ,  ;
      'CTRL+Z'
 DEFINE POPUP 編輯E COLOR SCHEME 4 SHADOW MARGIN RELATIVE 
 DEFINE BAR _MED_CUT OF 編輯E PROMPT '剪切(\<T)' MESSAGE '移去選定內容并將其放入剪貼板'  ;
      KEY CTRL+X , 'Ctrl+X'
 DEFINE BAR _MED_COPY OF 編輯E PROMPT '復制(\<C)' MESSAGE '將選定內容復制到剪貼板上' KEY  ;
      CTRL+C , 'Ctrl+C'
 DEFINE BAR _MED_PASTE OF 編輯E PROMPT '粘貼(\<P)' MESSAGE '粘貼剪貼板上的內容' KEY  ;
      CTRL+V , 'Ctrl+V'
 DEFINE POPUP 幫助H COLOR SCHEME 4 SHADOW MARGIN RELATIVE 
 DEFINE BAR 1 OF 幫助H PROMPT '技術支持(\<H)' MESSAGE '提供軟件支持信息' KEY CTRL+H ,  ;
      'CTRL+H'
 DEFINE BAR 2 OF 幫助H PROMPT '關于(\<A)' MESSAGE '提供軟件關于信息' KEY CTRL+A ,  ;
      'CTRL+A'
 ON SELECTION BAR 1 OF 幫助H do form 幫助.scx
 ON SELECTION BAR 2 OF 幫助H do form 關于啟動.scx
 DEFINE POPUP 退出E COLOR SCHEME 4 SHADOW MARGIN RELATIVE 
 DEFINE BAR 1 OF 退出E PROMPT '退出系統(\<Q)' MESSAGE '退出系統！' KEY CTRL+Q , 'CTRL+Q'
 ON SELECTION BAR 1 OF 退出E  ;
      DO _0mv16zhrc  IN LOCFILE("\XEROXPRO\FKE" ,"MPX;MPR|FXP;PRG" ,"WHERE is FKE?")

PROCEDURE _0mv16zhrc
 AAC = MESSAGEBOX('真的要退出系統嗎？請保存好數據據后按＜確定＞退出。',33,'疑問')
 IF AAC = 1
    CLOSE ALL
    USE czry
    PACK 
    QUIT 
 ENDIF 
ENDPROC