;; ! ****************************************************************************
;; ! MI_askstrng
;; ! ****************************************************************************
;; ! Ask a string supplying a default
;; ! e-mail   : rakesh.rao@4d-technologies.com
;; ! Web      : www.4d-technologies.com
;; ! **************************************************************************** 

(defun MI_askstrng (prmpt val / tstr)

	(princ (strcat "\n" prmpt " <" val ">: "))
	(setq tstr (getstring T))
	(if (/= tstr "") tstr val)
)