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

(defun MI_askint (prmpt val / x)

	(princ (strcat "\n" prmpt " <" (itoa val) ">: "))
	(setq x (getint))
	(if x
		(setq val x)
	)
val
)