;; | ----------------------------------------------------------------------------
;; | MI_GetType
;; | ----------------------------------------------------------------------------
;; | Function : Returns the type of the variable
;; | Argument : 'Val'   - Variable to check
;; | Returns  : 'Variable Type' - can be either "Integer", "Real", "Character"
;; |                              or "List"
;; | Updated  : April 8, 2002
;; | e-mail   : rakesh.rao@4d-technologies.com 
;; | Web      : www.4d-technologies.com
;; | ----------------------------------------------------------------------------


(defun MI_GetType( Val )

(cond
	((= (type Val) 'INT)
		(setq Val "Integer")
	)
	((= (type Val) 'REAL)
		(setq Val "Real")
	)
	((= (type Val) 'STR)
		(setq Val "Character")
	)
	((= (type Val) 'LIST)
		(setq Val "List")
	)
)
Val
)