anchor.diff:      (case (read-command-char)
             (1 (main))))
     (when (monsters-dead)
  -    (setf *boss?* 0)
  +    (setf *boss?* 0
  +	  *ha2ne2* t)
       (scr-format "「大勝利！」~%")
       (scr-format "「ハツネツの剣を拾った！装備しますか？」(yes=1 or no=2)~%")
         (case (read-command-char)
  
positive.code: (defparameter *tate* 11) ;;マップサイズ
  (defparameter *yoko* 11)
  (defparameter *lv-exp* 100)
  
  (defstruct player
    (hp 30)
  
negative.code: 	*monster-level* 0
  	*boss?* 0
  	*end* 0
  	*ha2ne2* nil
  	*start-time* (get-internal-real-time)
  	*battle?* nil))
  
  ;;バトル開始
  