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

   ((> keisen-width 1) (message "$B:Y$$7S@~$r;HMQ$7$^$9(B") (setq keisen-width 1))
   (t (message  "$BB@$$7S@~$r;HMQ$7$^$9(B") (setq keisen-width 2))
   ))
 
(defun keisen-opposite-direction (dir)
  (cond
   ((= dir keisen-right) keisen-left)

   ((eq command 'keisen-down-move) keisen-down)
   ((eq command t) keisen-last-direction) ; 93.8.5 by T.Masui
   (t 0)))

(defun keisen-new-string ()		; 92.7.13 by K.Handa -- Big change
  (let (pos factor str old-direction new-direction)
    (setq old-direction (keisen-direction last-command))
