/**************** SubProgram ***************************/

int ASCIItoBin(char *S)
{
 int K=0;

 while (*S!='\0') {K = K*10 + (int)*S - 48; S++;}
 return K;
}