anchor.diff:    (replace)
     (princ)
   )
  +(defun C:CHECK (/)
  +  (check)
  +  (princ)
  +)
  
positive.code: ;Dec 04, 2014 : Check function now prompts a list of missing
  ;		panels at the end
  ;		Comments added to various functions
  ;--------------------------------------------------------------
  
  (defun *error* ( errormsg )
  
negative.code:   ;; within the selected set
    (setq pnlNum 1)
    (setq strNum 1)
    (while (and (<= strNum *strTerm) (<= pnlNum *pnlTerm) )
      (setq index 0)
      (setq ssl (sslength ss) )
      (setq chkTxt (strcat (itoa pnlNum) "." (itoa strNum) ) )
  