ACTFLAG
levprd[nprod] |= ACTFLAG;
levprd[nprod+1] = levprd[nprod] & ~ACTFLAG;
levprd[nprod] = ACTFLAG;
if (ntypes && !(levprd[nprod] & ACTFLAG) &&