;;;Place HEADING text (ht=0.175 x dimscale, color=bylayer[yellow])
;;;
;;;	This program will place a detail subtitle text string at the standard
;;;	size (175 template) and color on the standard layer.
;;;
;;;              
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 4-15-94
;;;>		   EDITED: 08-15-1997
;;;
(defun C:head ( / clayr txht bldsc dscsz pt1 dimsc )
  (setvar "cmdecho" 0)
  (setvar "cecolor" "bylayer")
  (if dimscl nil (load"dimscl"))
  (dimscl)
  (setq clayr (getvar"clayer")
;        dimsc (getvar"dimscale")
        txht (getvar"textsize")
        bldsc (strcat "%%U"(ustr 0 "\nHeading Text ?" nil "T"))
        dscsz (* dimsc 0.175)                     ;dimscale * 0.1 * template
        pt1 (getpoint "\nMiddle Center Point of text ?")
        colr "5"
        modf "NOTE"
  );setq
  (if getstyle (getstyle "A")(progn (load "getstyle")(getstyle "A")))
  (setvar "texteval" 1)
  (if c:mklayr nil (load"mklayr"))
  (c:mklayr)
  (command)
  (if (or(=(substr clayr 7 5)"4NOTE") mjrg)
    (command ".text" "mc" pt1 dscsz (*(/(- 0(getvar"viewtwist"))pi)180) bldsc)
  );if
  (setvar "clayer" clayr)
  (setvar "textsize" txht)
  (getstyle "")
  (setvar "cmdecho" 1)
  (command)
);defun subt