ack/lang/basic/lib/asc.c
2016-12-12 21:16:32 +01:00

11 lines
133 B
C

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