*** 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/asc.c
+++ b/lang/basic/lib/asc.c
@@ -0,0 +1,11 @@
+#include "string.h"
+
+/* $Header $ */
+
+int _asc(str)
+String *str;
+{
+	if(str==0 || str->strval==0)
+		error(3);
+	return( *str->strval);
+}