12 lines
137 B
C
12 lines
137 B
C
#include "bc_string.h"
|
|
|
|
/* $Header$ */
|
|
|
|
int _asc(str)
|
|
String *str;
|
|
{
|
|
if(str==0 || str->strval==0)
|
|
error(3);
|
|
return( *str->strval);
|
|
}
|