CTRACE(tfp, "NNTP Response: %s\n", response_text);
CTRACE((tfp, "NNTP Response: %s\n", response_text));
PRIVATE int response ARGS1(CONST char *,command){    int result;    char * p = response_text;    int ich;    if (command) {	int status;	int length = strlen(command);	CTRACE(tfp, "NNTP command to be sent: %s", command);#ifdef NOT_ASCII	{	    CONST char	* p;	    char	* q;	    char ascii[LINE_LENGTH+1];	    for(p = command, q=ascii; *p; p++, q++) {		*q = TOASCII(*p);	    }	    status = NEWS_NETWRITE(s, ascii, length);	}#else	status = NEWS_NETWRITE(s, (char *)command, length);#endif /* NOT_ASCII */	if (status < 0){	    CTRACE(tfp, "HTNews: Unable to send command. Disconnecting.\n");	    NEWS_NETCLOSE(s);	    s = -1;	    return status;	} /* if bad status */    } /* if command to be sent */    for (;;) {	ich = NEXT_CHAR;	if (((*p++ = ich) == LF) ||	    (p == &response_text[LINE_LENGTH])) {	    *--p = '\0';			/* Terminate the string */	    CTRACE(tfp, "NNTP Response: %s\n", response_text);	    sscanf(response_text, "%d", &result);	    return result;	} /* if end of line */	if (ich == EOF) {	    *(p-1) = '\0';	    if (interrupted_in_htgetcharacter) {		CTRACE(tfp, "HTNews: Interrupted on read, closing socket %d\n",			    s);	    } else {		CTRACE(tfp, "HTNews: EOF on read, closing socket %d\n",			    s);	    }	    NEWS_NETCLOSE(s);	/* End of file, close socket */	    s = -1;	    if (interrupted_in_htgetcharacter) {		interrupted_in_htgetcharacter = 0;		return(HT_INTERRUPTED);	    }	    return((int)EOF);	/* End of file on response */	}    } /* Loop over characters */}