;
; $Id: mode,v 1.2 1991/11/27 01:33:04 proj Exp $
;
(search @LIBDIR/zh_CN/rk_z)

(defmode ZY   on)
	(defmode ZHUYIN on)
(defmode ASCII	)
	(defmode ban_jiao on)
	(defmode quan_jiao)
(defmode GONG_NENG)
        (defmode select on)
        (defmode YT on) (defmode XY)

2A_CTRL
(if  GONG_NENG
        (if select      1F_select       2F_select       ":")
) 
(if  ZY	 
	(if ZHUYIN
	  (if YT	1Z_ZhuYin  1B_TOUPPER  2Z_ZhuYin  2Z_tail ":Z")
	  (if XY    1Z_ZhuYin_X  1B_TOUPPER  2Z_ZhuYin_X  2Z_tail_X ":Z")
	)
)
(if  ASCII
        (if ban_jiao            "Ƥ:")
        (if quan_jiao           3B_quanjiao    ":")
)
