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

11 lines
128 B
C

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