(defvar esc (list '\033' '^X'))
(defvar char (all))
(defvar cont (list '^g'))

(unless esc)'\x81'	(switch katakana)
(unless esc)'\x82'	(switch zenkaku)
(unless esc)'\x83'	(switch romkan)
;(unless esc)'\x85'	(switch tcode)
(unless esc)'\x85'	(switch keisen_A)
(unless esc)'\x86'	(switch keisen_B)

(if romkan)(unless quote)(esc)		(on esc)(off romkan)(esc)
(if esc)(char)				(off esc)(on romkan)(char)

(if romkan)q		(on quote)(off romkan)(off zenkaku)
(if romkan)Q		(on quote)(off romkan)(on zenkaku)
(if quote)(cont)	(off quote)(on romkan)