anchor.diff:  (defparameter *tate* 11) ;;マップサイズ
   (defparameter *yoko* 11)
   (defparameter *lv-exp* 100)
  +(defparameter *start-time* 0)
  +(defparameter *ha2ne2* nil)
   
   (defstruct player
     (hp 30)
  
positive.code:             (orc-battle p))))
      (cond
        ((= *end* 1)
         (scr-format "~%「あなたは見事もげぞうの迷宮をクリアした！」~%
                    もう一度挑戦しますか？(yes=1 or no=2)~%")
         (case (read-command-char)
           (1 (main))))
        ((= *end* 0)
  
negative.code:     (case (read-command-char)
            (1 (main))))
    (when (monsters-dead)
      (setf *boss?* 0
  	  *ha2ne2* t)
      (scr-format "「大勝利！」~%")
      (scr-format "「ハツネツの剣を拾った！装備しますか？」(yes=1 or no=2)~%")
        (case (read-command-char)
  