* 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 GETNUM, sign;
if (source != NULL) MAPLIN(source);
GETNUM = 0;
LNPOSN = LNPOSN + 1;
}
while (!(LNPOSN > LNLENG || INLINE[LNPOSN] == 0)) {
- DIGIT = INLINE[LNPOSN] - 64;
+ long DIGIT = INLINE[LNPOSN] - 64;
if (DIGIT < 0 || DIGIT > 9) {
GETNUM = 0;
break;