STRIP_PAR
while ((c&STRIP_PAR) != '\n');
c &= STRIP_PAR;
} while ((c&STRIP_PAR) != character(value(PROMPT)));
gch = gch & STRIP_PAR;
gch = gch & STRIP_PAR;
gch = gch & STRIP_PAR;
*cp &= STRIP_PAR;