(defmode romkan on)
(defmode katakana)
(defmode zenkaku)
(defmode esc)
;(defmode tcode)
(defmode quote)

2A_CTRL
(if esc "[ESC]")
;(if tcode 1B_TOUPPER 2_TCODE "[ t ]")
(if quote
	(if zenkaku 3B_ZENKAKU "[ Q ]")
	"[ q ]")
(if romkan
	1B_newTOUPPER
	2B_ROMKANA 2B_JIS
	(if (not katakana) "[あr]")
	(if zenkaku 3B_KATAKANA	"[アr]")
	3B_HANKATA "[ｱｲr]")

2B_DAKUTEN
(if (not katakana) 1B_ZENHIRA
	(if zenkaku 3B_ZENKAKU "[あ ]")
	"[Aあ]")

(if zenkaku 1B_ZENKATA 3B_ZENKAKU "[ア ]")
"[ｱｲA]"