ack/lang/basic/lib/chr.c

18 lines
174 B
C
Raw Normal View History

1984-11-29 14:22:02 +00:00
#include "string.h"
1985-01-21 12:47:04 +00:00
/* $Header$ */
1984-11-29 14:22:02 +00:00
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);
1984-11-29 14:22:02 +00:00
return(s);
}