anchor.diff:     ((or (= _J "BCENTER") (= _J "BC")) (setq _J72 1 _J73 1 _RE t))
      ((or (= _J "BRIGHT") (= _J "BR")) (setq _J72 2 _J73 1 _RE t))
      (t (setq _J72 0 _J73 0))
  - ) ;_ end of cond
  + );END cond
    (entmakex
      (list
        '(0 . "TEXT")
  
positive.code:          ((and _HIGH (/= _HIGH 0)) _HIGH)
           ((/= 0 (setq _HIGH (cdr (assoc 40 _ST)))) _HIGH)
           (t (getvar "TEXTSIZE"))
         ) ;_ end of cond
       ) ;_ end of cons
       (cons 1 _TEXT)
       (cons 50 _ANG)
       (assoc 41 _ST)
  
negative.code:        (if _RE
           _INS
           _SP
         );END if
       );END cons
       (cons 73 _J73)
     );END list
  );END entmake
  );END defun
  ;;;
  ;;; EOF
  (defun c:1( / p )
  