proc putnow { text } {
	append text "\n"
	putdccraw 0 [string length $text] $text
}