PSMAX
for (psptr=0; psptr<PSMAX; psptr++) {
if (psptr < PSMAX-1) {
char pstack[PSMAX][PNAMELEN+1]; /* the procedure name stack */
int plstack[PSMAX]; /* the procedure nesting level stack */