;
; $Id: 2A_CTRL,v 1.1 1992/05/11 04:33:34 proj Exp $
;

(defvar pf1 (list '\x81') )
(defvar pf2 (list '\x82') )
(defvar pf3 (list '\x83') )

(unless YIN)(pf1)	(on YIN)(off ASCII)
(if YIN)(pf1)		(switch PY)(switch ZY)

(unless ASCII)(pf3)	(on ASCII)(off YIN)
(if ASCII)(pf3)		(switch quan_jiao)(switch ban_jiao) 
