ack/lang/basic/lib/chr.c

18 lines
186 B
C
Raw Normal View History

1984-11-29 14:22:02 +00:00
#include "string.h"
/* $Header $ */
String *_chr(i)
int i;
{
String *s;
char buf[2];
if( i<0 || i>127)
error(3);
buf[0]=i;
buf[1]=0;
s= (String *) _newstr(buf);
return(s);
}