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:              );END or
             (getvar "TEXTSTYLE")
             _ST
           );END if
         );END tblsearch
     _SP _ANG
   );END setq
   (if (or (= _J "ALIGN") (= _J "A") (= _J "FIT") (= _J "F"))
     (if (= (type _ANG) 'list)
       (setq _ANG (angle _INS _ANG))
       (setq _J "LEFT")
     );END if
     (setq
       _ANG  (if (= (type _ANG) 'list)
               (angle _INS _ANG)
               (progn
                 (setq _SP _INS)
                 (* pi (/ _ANG 180.0))
               );END progn
             );END if
     );END setq
   );END if
   (cond
     ((or (= _J "LEFT") (= _J "L")) (setq _J72 0 _J73 0))
     ((or (= _J "CENTER") (= _J "C")) (setq _J72 1 _J73 0 _RE t))
  