added putc procedure