;;; ;;; ;;; Author: Henry C. Francis ;;; 425 N. Ashe St. ;;; Southern Pines, NC 28387 ;;; http://paracadd.com ;;; All rights reserved. ;;; ;;; COPYRIGHT: ;;; EDITED: ;;; (DEFUN chkxrefsizes ( / xrblklst) (SETQ xristoobig NIL) (SETQ thisblk (TBLNEXT "BLOCK" T)) (IF (EQ (BOOLE 1 4 (CDR (ASSOC 70 thisblk))) 4) (SETQ xrblklst (LIST (CDR (ASSOC 1 thisblk)))) ) (WHILE (SETQ thisblk (TBLNEXT "BLOCK")) (IF (EQ (BOOLE 1 4 (CDR (ASSOC 70 thisblk))) 4) (IF (MEMBER (CDR (ASSOC 1 thisblk)) xrblklst) NIL (SETQ xrblklst (APPEND xrblklst (LIST (CDR (ASSOC 1 thisblk))))) ) ) ) (IF DOS_FILE NIL (check_for_doslib) ) (FOREACH n xrblklst (IF (SETQ thisxrfile (FINDFILE n)) (PROGN (SETQ thisxrinfo (DOS_FILE thisxrfile)) (IF (>(IF (EQ (TYPE(CADR thisxrinfo)) 'REAL) (CADR thisxrinfo) (READ(CADR thisxrinfo)))3000000) (SETQ xristoobig T) ) ) ) ) )