function do.tell.this(	domain	tcpath2		i.message,
			domain	tcmcs.long	i.percent,
				boolean		is.done)
{	static	domain	tcpath2			s.message
	| Message system. Messages are:
	| 1) annoying interactive (be_verbose  > 1, i.percent < 0)
	| 2) slightly informative (i.percent = 0, be_verbose = 0)
	| 3) informative (i.percent inrange 1-99) with progress bar
	| 4) final (i.percent = 100, is.done = true) and cleaned.
	if isspace(i.message) and not isspace(s.message) then
	    i.message = s.message
	else
	    if i.message = s.message then
		return
	    else
		s.message = i.message
	    endif
	endif
	if i.percent < 1 then
	    mess("tcgenstring", ((be_verbose > 1) or (i.percent < 0)) ? 1 : 0,
					i.message)
	else
	    if not progress.indicator.exists() then
		ret = create.progress.indicator("Current Action", PROGRESS.BAR +
					PROGRESS.NOAUTODESTROY)
	    endif
	    if is.done then
		ret = change.progress.indicator(i.percent, i.message &" - Done")
	    else
		ret = change.progress.indicator(i.percent, i.message)
	    endif
	endif
	if is.done then
	    suspend(3000)
	    clean.mess()
	    destroy.progress.indicator()
	endif
}