anchor.diff: -(prompt "\nText Override loaded...")
   ;#############################
   ;###   TextOverride Tool   ###
   ;#############################
   ;
  -;version 2.7.4
  +;version 2.8.1
   ;
   ;by Matthew D. Jordan
   ;
  
positive.code: 								(setq eset2 (entget (car (entsel "\nSelect source dimension: ")))))
  				(setq NewDimValue (cdr (assoc 1 eset2)))))
  
  	;set textoverides via entmod
  	(setq i 0)
  	(repeat (sslength eset)
  		(setq temp (entget (ssname eset i)))
  		(setq temp (subst (cons 1 NewDimValue) (assoc 1 temp) temp))
  		(entmod temp)
  		(setq i(+ i 1)))
  
  	(princ))
negative.code: 
  ;Remember, use text overrides only for good, not evil.
  
  ;Note the lack of error handling.
  ;Does that make me a bad person?
  
  
  (defun c:TEXTOVERRIDE (/ temp NewDimValue eset eset2 to_shortcut_list)
  
  	;set shortcuts and text for each variable
  	;("shortcut" "replacement text" )
  	;NB - "literalflag" & "matchflag" are keywords used by this script, do not change them - Thanks!
  	(setq to_shortcut_list '(
  		("c"   "<>  OC"       )
  		("ct"  "<> OC TYP"   )
  		("ctc"  "<> CTC"   )
  		("g"   "<> GAP"         )
  		("gt"  "<> GAP TYP"    )
  		("t"   "<> TYP"        )
  		("th"  "<> THRU."       )
  		("nct" "<>\\POC TYP" )
  		("s"   "<> (SKIN)"      )
  		(""		"<>"              )
  		("p"	"(<>)"            )
  		("m"	"matchflag"		    )
  		("l"	"literalflag"	    )))
  
  	(setq eset (ssget '((0 . "DIMENSION"))))
  	(while (eq eset nil)
  