    ((= dir keisen-down) keisen-up)
    (t 0)
    ))
- 
+
 (defun keisen-direction (command)
   (cond
    ((eq command 'keisen-right-move) keisen-right)

  "$B7S@~%-%c%i%/%?$N3FJ}8~$N;^$NM-L5$r(B8$B%S%C%H$GI=8=$9$k!#(B
$B%$%s%G%C%/%9$N>e0L(B4$B%S%C%H$OB@$$@~$NM-L5$r<($7!"2<0L(B4$B%S%C%H$,(B
$B:Y$$@~$NM-L5$r<($9!#(B")
 
(defvar keisen-width 1
  "$B7S@~$NB@$5!#(B1$B$N$H$-:Y$/!"(B2$B0J>e$N$H$-B@$$!#(B")
 
(defun keisen-toggle-width ()
  "$B7S@~$NB@$5$r@Z$j49$($k(B"
  (interactive)

  )

(defun keisen-right-move ()
  "$B7S@~$r0z$-$J$,$i1&J}8~$K0\F0$9$k(B"
  (interactive)
  (keisen-move 0 1))

(defun keisen-left-move ()
  "$B7S@~$r0z$-$J$,$i:8J}8~$K0\F0$9$k(B"
  (interactive)
