;; | ----------------------------------------------------------------------------
;; | BL_GetTmpBlk
;; | ----------------------------------------------------------------------------
;; | Function : Return the name of a unused temporary block
;; | Argument : none
;; | Returns  : a block name that can be used like $temp0$
;; | Updated  : March 24, 1999
;; | e-mail   : rakesh.rao@4d-technologies.com 
;; | Web      : www.4d-technologies.com
;; | ----------------------------------------------------------------------------


(defun BL_GetTmpBlk ( / cnt More blk )

(setq
	cnt 1
	More T
	blk nil
)
(while More
	(if (tblsearch "BLOCK" (setq blk (strcat "$temp" (itoa cnt) "$")))
		(setq cnt (1+ cnt))
		(setq More nil) 
	)
)
blk
)