ack/lang/basic/lib/chr.c
1994-06-24 11:31:16 +00:00

18 lines
173 B
C

#include "bc_string.h"
/* $Id$ */
String *_chr(i)
int i;
{
String *s;
char buf[2];
if( i<0 || i>127)
error(3);
buf[0]=i;
buf[1]=0;
s= _newstr(buf);
return(s);
}