X-Git-Url: https://jxself.org/git/?a=blobdiff_plain;f=compile.c;h=736c7290fc964b8e91b9dbffd4d362f3bff07ae1;hb=0f126b0cb5f8539f456f2d7f2c06d8f32c2491c2;hp=e383fbfe587938b979552c5e14496ce388faddca;hpb=5632f5eba4206c944c1b1dac2636200039ac6ff5;p=open-adventure.git

diff --git a/compile.c b/compile.c
index e383fbf..736c729 100644
--- a/compile.c
+++ b/compile.c
@@ -2,7 +2,7 @@
 #define RTXSIZ 277
 #define CLSMAX 12
 #define LOCSIZ 185
-#define LINSIZ 12500
+#define LINSIZ 12600
 #define TRNSIZ 5
 #define TABSIZ 330
 #define VRBSIZ 35
@@ -87,47 +87,46 @@ long GETTXT(long SKIP,long ONEWRD, long UPPER) {
  *  end of the line, the word is filled up with blanks (which encode as 0's).
  *  If we're already at end of line when GETTXT is called, we return -1. */
 
-  long CHAR;
-  long GETTXT;
+  long TEXT;
   static long SPLITTING = -1;
 
   if(LNPOSN != SPLITTING)
     SPLITTING = -1;
-  GETTXT= -1;
+  TEXT= -1;
   while (true) {
     if(LNPOSN > LNLENG)
-      return(GETTXT);
+      return(TEXT);
     if((!SKIP) || INLINE[LNPOSN] != 0)
       break;
     LNPOSN=LNPOSN+1;
   }
 
-  GETTXT=0;
+  TEXT=0;
   for (int I=1; I<=5; I++) {
-    GETTXT=GETTXT*64;
+    TEXT=TEXT*64;
     if(LNPOSN > LNLENG || (ONEWRD && INLINE[LNPOSN] == 0))
       continue;
-    CHAR=INLINE[LNPOSN];
-    if(CHAR < 63) {
+    char current=INLINE[LNPOSN];
+    if(current < 63) {
       SPLITTING = -1;
-      if(UPPER && CHAR >= 37)
-        CHAR=CHAR-26;
-      GETTXT=GETTXT+CHAR;
+      if(UPPER && current >= 37)
+        current=current-26;
+      TEXT=TEXT+current;
       LNPOSN=LNPOSN+1;
       continue;
     }
     if(SPLITTING != LNPOSN) {
-      GETTXT=GETTXT+63;
+      TEXT=TEXT+63;
       SPLITTING = LNPOSN;
       continue;
     }
 
-    GETTXT=GETTXT+CHAR-63;
+    TEXT=TEXT+current-63;
     SPLITTING = -1;
     LNPOSN=LNPOSN+1;
   }
 
-  return(GETTXT);
+  return(TEXT);
 }
 
 void BUG(long NUM) {