ack/lang/basic/lib/asc.c

11 lines
128 B
C
Raw Normal View History

#include "bc_string.h"
1984-11-29 14:22:02 +00:00
1994-06-24 11:31:16 +00:00
/* $Id$ */
1984-11-29 14:22:02 +00:00
2016-12-12 20:15:25 +00:00
int _asc(String* str)
1984-11-29 14:22:02 +00:00
{
if(str==0 || str->strval==0)
error(3);
return( *str->strval);
}