From: Eric S. Raymond <esr@thyrsus.com>
Date: Tue, 6 Jun 2017 18:41:03 +0000 (-0400)
Subject: Goto elimination.
X-Git-Tag: 1.1~599
X-Git-Url: https://jxself.org/git/?p=open-adventure.git;a=commitdiff_plain;h=19553e69fc15a5c9a27c2c623f0669be2e9a07c4

Goto elimination.
---

diff --git a/misc.c b/misc.c
index e6ee7d1..7bf07df 100644
--- a/misc.c
+++ b/misc.c
@@ -282,15 +282,13 @@ long I, L, WORD;
  *  kludgey workaround, you can increment a letter by 5 by adding 50 to
  *  the next pair of digits. */
 
-
 	WORD=0;
 	I=1;
-	L=LETTRS;
-L10:	WORD=WORD+I*(MOD(L,50)+10);
-	I=I*64;
-	if(MOD(L,100) > 50)WORD=WORD+I*5;
-	L=L/100;
-	if(L != 0) goto L10;
+	for (L=LETTRS; L != 0; L=L/100) {
+		WORD=WORD+I*(MOD(L,50)+10);
+		I=I*64;
+		if(MOD(L,100) > 50)WORD=WORD+I*5;
+	}
 	I=64L*64L*64L*64L*64L/I;
 	WORD=WORD*I;
 	return(WORD);