;
; $Id: 2B_WuBi,v 1.1.2.1 1999/02/08 05:21:16 yamasita Exp $
;

; FreeWnn is a network-extensible Kana-to-Kanji conversion system.
; This file is part of FreeWnn.
; 
; Copyright Kyoto University Research Institute for Mathematical Sciences
;                 1987, 1988, 1989, 1990, 1991, 1992
; Copyright OMRON Corporation. 1987, 1988, 1989, 1990, 1991, 1992, 1999
; Copyright ASTEC, Inc. 1987, 1988, 1989, 1990, 1991, 1992
;
; Author: OMRON SOFTWARE Co., Ltd. <freewnn@rd.kyoto.omronsoft.co.jp>
;
; This program is free software; you can redistribute it and/or modify
; it under the terms of the GNU General Public License as published by
; the Free Software Foundation; either version 2, or (at your option)
; any later version.
;
; This program is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
; GNU General Public License for more details.
;
; You should have received a copy of the GNU General Public License
; along with GNU Emacs; see the file COPYING.  If not, write to the
; Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
;
; Commentary:
;
; Change log:
;
; Last modified date: 8,Feb.1999
;

(defvar str (list 	0 1 2 3 4 5 6 7 8 9 ? \
		a b c d e f g h i j k l m n o p q r s t u v w x y z))

(if strk0)(str)  (str)	'A'	
'A'	(off strk0)(on strk1)
(if strk1)(str)  (str)	'B'
'B' 	(off strk1)(on strk2)
(if strk2)(str)  (str)	'C'
'C'	(off strk2)(on strk3)
(if strk3)(str)  (str)	'D'
'D'		'^Z'	'T'
'T'	(off strk1)(off strk2)(off strk3)(on strk0)

(if strk1)'R'  '\x08''\x08'	  	'S'	; 'R': back_space
(if strk2)'R'  '\x08'			'S'	; 
(if strk3)'R'  '\x08'			'S'	;
(if strk0)'R'  '\x08'
(if strk3)'S'	(off strk3)(on strk2)
(if strk2)'S'	(off strk2)(on strk1)
(if strk1)'S'	(off strk1)(on strk0)

(unless  strk0)'\x20'	'^Z'	'T'	; 0x89: Tan Transfer
						; 0x20: space key
'\x9f'	'\x9f'		'T'			; 0x9f: Certification
