long TRVS;
long TRNVLS;
long TABNDX;
-long KEY[NLOCATIONS + 1];
+long TKEY[NLOCATIONS + 1];
long LINES[LINSIZ + 1];
long TRAVEL[TRVSIZ + 1];
long KTAB[TABSIZ + 1];
* scanned). If we're at the end of the line or encounter an illegal
* character (not a digit, hyphen, or blank), we return 0. */
- long DIGIT, GETNUM, SIGN;
+ long DIGIT, GETNUM, sign;
if (source != NULL) MAPLIN(source);
GETNUM = 0;
}
if (INLINE[LNPOSN] != 9) {
- SIGN = 1;
+ sign = 1;
} else {
- SIGN = -1;
+ sign = -1;
LNPOSN = LNPOSN + 1;
}
while (!(LNPOSN > LNLENG || INLINE[LNPOSN] == 0)) {
LNPOSN = LNPOSN + 1;
}
- GETNUM = GETNUM * SIGN;
+ GETNUM = GETNUM * sign;
LNPOSN = LNPOSN + 1;
return (GETNUM);
}
while ((loc = GETNUM(database)) != -1) {
long newloc = GETNUM(NULL);
long L;
- if (KEY[loc] == 0) {
- KEY[loc] = TRVS;
+ if (TKEY[loc] == 0) {
+ TKEY[loc] = TRVS;
} else {
TRAVEL[TRVS - 1] = -TRAVEL[TRVS - 1];
}
* message for game.prop(N)=0. Successive prop messages are
* found by chasing pointers. */
for (int I = 1; I <= NLOCATIONS; I++) {
- KEY[I] = 0;
+ TKEY[I] = 0;
}
LINUSE = 1;
fprintf(header_file, "\n");
// content variables
- write_1d(header_file, KEY, NLOCATIONS + 1, "KEY");
+ write_1d(header_file, TKEY, NLOCATIONS + 1, "TKEY");
write_1d(header_file, TRAVEL, TRVSIZ + 1, "TRAVEL");
write_1d(header_file, KTAB, TABSIZ + 1, "KTAB");
write_1d(header_file, ATAB, TABSIZ + 1, "ATAB");