PARMS[26], PLACE[101], PTEXT[101], RTEXT[278],
SETUP = 0, TABSIZ = 330;
signed char INLINE[LINESIZE+1], MAP1[129], MAP2[129];
PARMS[26], PLACE[101], PTEXT[101], RTEXT[278],
SETUP = 0, TABSIZ = 330;
signed char INLINE[LINESIZE+1], MAP1[129], MAP2[129];
long ABBNUM, ACTSPK[36], AMBER, ATTACK, AXE, BACK, BATTER, BEAR, BIRD, BLOOD, BONUS,
BOTTLE, CAGE, CAVE, CAVITY, CHAIN, CHASM, CHEST, CHLOC, CHLOC2,
long ABBNUM, ACTSPK[36], AMBER, ATTACK, AXE, BACK, BATTER, BEAR, BIRD, BLOOD, BONUS,
BOTTLE, CAGE, CAVE, CAVITY, CHAIN, CHASM, CHEST, CHLOC, CHLOC2,
/* Gee, I don't understand. */
L3000: SETPRM(1,WD1,WD1X);
/* Gee, I don't understand. */
L3000: SETPRM(1,WD1,WD1X);
- /* This is a kludge. The command parser we inherited from the base 2.5
- * barfs on numeric tokens. It will fall through to here when it sees
- * seed NNNN. Instead of barfing, go straight to the action processor
- * where it will examine the raw input. This will fo away when we get
- * rid of the obfuscated FORTRANoid input processing.
- */
- if (strncmp(raw_input, "seed", 4) == 0) {
- I=4090; K=34;
- goto Laction;
- } else {
- RSPEAK(254);
- goto L2600;
- }
+ RSPEAK(254);
+ goto L2600;