anchor.diff:  
   (defun endo-win ()
     (charms/ll:endwin))
  +
  
positive.code:       ((a h 4) (update-map map p 0 -1))
        (q (use-heal p))
        (f (auto-heal-config p))
        (r (setf *end* 2))
        (otherwise
         (scr-format "w,a,s,d,q,rの中から選んでください！~%")))
  
negative.code:     (map-move map p)))
  
  (defun show-map-key ()
    (scr-format "[f]オート回復薬設定 [i]持ち物を見る~%")
    (scr-format "どちらに移動しますか？[↑ ]上 [↓ ]下 [→ ]右 [← ]左 [q]薬を使う [r]終わる: ~%"))
  
  (defun gamen-clear ()
  