anchor.diff:             ((= code #x210) (setf code #x05c))
              ;; M-[
              ((= code #x1f1)
  +            (charms/ll:wtimeout *padwin* 100)
               (let ((code1 (getch-pad)))
                 (cond
   		;; drop mouse escape sequence
  
positive.code: 
  ;; load windows dll
  (cffi:load-foreign-library '(:default "kernel32"))
  
  ;; windows console code page
  (defvar *windows-code-page*
    (cffi:foreign-funcall "GetConsoleOutputCP" :int))
  
  ;; for input
  ;; (we can't use stdscr for input because it calls wrefresh implicitly)
  
negative.code:                     :until (or (= code2 -1)
                                 (= code2 #x04d)	   ; M
                                 (= code2 #x06d)))   ; m
                   (setf code -1)))
                (charms/ll:wtimeout *padwin* 0)))
             ))
          ;; normal key workaround
          (t
  