Pindex
Pindex(m) = 0;
Pindex(m) = 0;
IthPattern(m, Pindex(m)) = '\0';
if (Pindex(m) > 0) {
Pindex(m) -= 1;
IthPattern(m, Pindex(m)) = '\0';
Pindex(m) = 0;
if (Pindex(m)) {
x += Pindex(m) + Marklen(m) - 1;
Pindex(m) = 0;
Pindex(m) -= 1;
IthPattern(m, Pindex(m)) = '\0';
Pindex(m) = 0;
Pindex(m) = 0;
if (Pindex(m)+1 > MaxName(m)) {
IthPattern(m, Pindex(m)) = c;
IthPattern(m, ++Pindex(m)) = '\0';
Pindex(m) = 0; /* Clear the pattern buffer */
IthPattern(m, Pindex(m)) = '\0';