*** empty log message ***

1984-11-29 14:22:02 +00:00
parent 0c0c3b7892
commit ae1e81adb1
36 changed files with 1740 additions and 0 deletions
--- a/lang/basic/lib/chr.c
+++ b/lang/basic/lib/chr.c
@@ -0,0 +1,17 @@
+#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);
+}