#include "bc_string.h"

/* $Id$ */

int _asc(String* str)
{
	if(str==0 || str->strval==0)
		error(3);
	return( *str->strval);
}