anchor.diff:                 (setf start-pos (1+ end-pos))))))
       nil))
   
  +(defun send-help-item-stat (ch item)
  +  (load-help-item item)
  +  (with-pagination ((link-of ch))
  +    (send-to-char ch "&c~3d. &y~25a&cGroups:&n ~20a &cFlags: &n~a~%"
  +                  (idnum-of item)
  +                  (name-of item)
  +                  (printbits (groups-of item) +help-group-flags+ "NOBITS")
  +                  (printbits (flags-of item) +help-flags+ "NOBITS"))
  +    (send-to-char ch "     &cKeywords: [ &n~a&c ]&n~%~a~%"
  +                  (keywords-of item)
  +                  (text-of item))))
  +
   (defun send-help-item (ch item)
     (load-help-item item)
     (with-pagination ((link-of ch))
  
positive.code: (defconstant +hflag-modified+ (ash 1 2)) ; help topic has been modified
  
  (defparameter +help-flags+ #("!APP" "IMM+" "MOD"))
  
  (defparameter +help-groups+
    #("OLC" "MISC" "NEWB" "SKIL" "SPEL" "CLAS" "CITY" "PLR" "MAGE" "CLE"
      "THI" "WAR" "BARB" "PSI" "PHY" "CYB" "KNIG" "RANG" "BARD" "MONK"
      "MERC" "HEDT" "HGOD" "IMM" "QCTR"))
  
  
  (defvar *help-items* nil)
  
  
negative.code: 
  (defcommand (ch "help" topic) ()
    (dolist (item *help-items*)
      (when (and (not (zerop (logand (ash 1 7) (groups-of item))))
                 (term-matches-keywords topic (keywords-of item))
                 (or (zerop (logand (flags-of item) +hflag-immhelp+))
                     (immortal-level-p ch))
                 (or (zerop (logand (flags-of item) +hflag-unapproved+))
                     (security-is-member ch "Help")))
        (send-help-item ch item)
        (return-from do-help-topic)))
    (send-to-char ch "No items were found matching your search criteria.~%"))
  
  (defcommand (ch "immhelp") (:immortal)
    (send-help-item ch (find 699 *help-items* :key 'idnum-of)))
  
  (defcommand (ch "immhelp" topic) (:immortal)
    (dolist (item *help-items*)
      (when (and (not (zerop (logand (ash 1 23) (groups-of item))))
                 (term-matches-keywords topic (keywords-of item)))
  