ack/lang/basic/lib/chr.c

15 lines
162 B
C
Raw Permalink Normal View History

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