asc.c 133 B

1234567891011
  1. #include "bc_string.h"
  2. /* $Id$ */
  3. int _asc(str)
  4. String *str;
  5. {
  6. if(str==0 || str->strval==0)
  7. error(3);
  8. return( *str->strval);
  9. }