#include "bc_string.h"

/* $Id$ */

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