EXPLEN
for (ep = Expl[EXPLEN - 1]; ep != NULL; ep = nextep) {
memmove(&Expl[1], &Expl[0], (EXPLEN - 1) * sizeof Expl[0]);
for (i = EXPLEN - 1; i >= 0; i--)
EXPL *Expl[EXPLEN]; /* explosion lists */
extern EXPL * Expl[EXPLEN];