From 8d02182e1298a8e0be5617f70cf150eda746f59b Mon Sep 17 00:00:00 2001
From: em <none@none>
Date: Mon, 21 Jan 1985 12:37:26 +0000
Subject: [PATCH] Renaming due to 8 character C compiler limit.

---
 lang/basic/lib/file.c   | 2 +-
 lang/basic/lib/random.c | 8 ++++----
 lang/basic/lib/read.c   | 6 +++---
 lang/basic/lib/string.c | 2 +-
 4 files changed, 9 insertions(+), 9 deletions(-)

diff --git a/lang/basic/lib/file.c b/lang/basic/lib/file.c
index cd85c93b6..665cd77a4 100644
--- a/lang/basic/lib/file.c
+++ b/lang/basic/lib/file.c
@@ -18,7 +18,7 @@ int	_chann		= -1;
 FILE	*_chanrd	= stdin;
 FILE	*_chanwr	= stdout;
 
-_setchannel(index)
+_setchan(index)
 int index;
 {
 #ifdef DEBUG
diff --git a/lang/basic/lib/random.c b/lang/basic/lib/random.c
index 07aeae1cf..59e50f119 100644
--- a/lang/basic/lib/random.c
+++ b/lang/basic/lib/random.c
@@ -1,17 +1,17 @@
 /* $Header $ */
 
-_randomize()
+_randomi()
 {
 	int i;
 	double f;
-	_setchannel(-1);
+	_setchan(-1);
 	printf("Random number seed (-32768 to 32767) ? ");
 	_readint(&i);
 	f=i;
-	_setrandom(f);
+	_setrand(f);
 }
 
-_setrandom(f)
+_setrand(f)
 double f;
 {
 	int i;
diff --git a/lang/basic/lib/read.c b/lang/basic/lib/read.c
index 26e7d24a7..18fab2060 100644
--- a/lang/basic/lib/read.c
+++ b/lang/basic/lib/read.c
@@ -126,7 +126,7 @@ String **s;
 	*s= (String *) _newstr(buffer);
 }
 
-extern int _seektable[];
+extern int _seektab[];
 
 _restore(line)
 int line;
@@ -141,9 +141,9 @@ int line;
 	if( line)
 	{
 		/* search number of lines to skip */
-		for(nr=0; _seektable[nr] && _seektable[nr]< line; nr+=2) 
+		for(nr=0; _seektab[nr] && _seektab[nr]< line; nr+=2) 
 #ifdef DEBUG
-		printf("test %d %d\n",_seektable[nr], _seektable[nr+1]);
+		printf("test %d %d\n",_seektab[nr], _seektab[nr+1]);
 #endif
 		;
 		nr /= 2;
diff --git a/lang/basic/lib/string.c b/lang/basic/lib/string.c
index 8808b93eb..913533403 100644
--- a/lang/basic/lib/string.c
+++ b/lang/basic/lib/string.c
@@ -66,7 +66,7 @@ String *s1,*s2;
 	strcat(s->strval,s1->strval);
 	return(s);
 }
-_strcompare(s1,s2)
+_strcomp(s1,s2)
 String *s1,*s2;
 {
 	okr(s1);okr(s2);
-- 
2.34.1