#module
#defcfunc centered_text str _source, int len
	if len <= 0 : return ""
	source = _source

	source_strlen = strlen(source)
	sdim result, len + 1
	memset result, ' ', len
	poke result, limit((len - source_strlen)/2, 0, len/2), strmid(source, limit((source_strlen - len)/2, 0, source_strlen), len)
	return result
#global