/***********************************************
 *                                             *
 *  PAL ZELDA MESSAGE FRAGMENTS COUNT PROGRAM  *
 *                                             *
 *         (　ドイツ語版　ｖｅｒ．２　)        *
 *                                             *
 ***********************************************/

/*
#include "inc.h"
*/


#include	"stdio.h"
#define		unshort	  unsigned short
#define		unchar	  unsigned char


unchar sp_tbl[8][6]={
					{' ','i','c','h',' ','\0'},
					{' ','S','c','h','\0'},
					{' ','V','e','r','\0'},
					{' ','z','u',' ','\0'},
					{' ','e','s',' ','\0'},
					{' ',' ',' ',' ','4','\0'},
					{' ',' ',' ','3','\0'}};


unchar sp3_tbl[1][7]={			{'-','K','n','o','p','f','\0'}};

unchar a_tbl[8][5]={
					{'a','b','e','r','\0'},
					{'a','l','l','e','\0'},
					{'a','u','c','h','\0'},
					{'a','n','g','\0'},
					{'a','u','s','\0'},
					{'a','u','f','\0'},
					{'a','n','\0'}};

unchar b_tbl[3][5]={
					{'b','i','s','t','\0'},
					{'b','i','n','\0'},
					{'b','e','i','\0'}};

unchar d_tbl[13][6]={
					{'d','e','r',' ','\0'},
					{'d','i','e',' ','\0'},
					{'d','a','s',' ','\0'},
					{'d','e','n',' ','\0'},
					{'d','e','m',' ','\0'},
					{'d','a',0xdf,'\0'},
					{'d','e','r','\0'},
					{'d','i','e','\0'},
					{'d','a','s','\0'},
					{'d','e','n','\0'},
					{'d','a','\0'}};

unchar e_tbl[12][6]={
					{'e','t','w','a','s','\0'},
					{'e','i','n',' ','\0'},
					{'e','i','n','\0'},
					{'e','n',' ','\0'},
					{'e','r',' ','\0'},
					{'e','s',' ','\0'},
					{'e','n','\0'},
					{'e','r','\0'},
					{'e','s','\0'},
					{'e','i','\0'}};

unchar f_tbl[2][4]={			{'f',0xfc,'r','\0'},
					{'f','e','\0'}};

unchar h_tbl[5][5]={
					{'h','a','b','e','\0'},
					{'h','i','e','r','\0'},
					{'h','a','s','t','\0'},
					{'h','e','r','\0'},
					{'h','i','\0'}};

unchar i_tbl[7][5]={
					{'i','c','h',' ','\0'},
					{'i','c','h','t','\0'},
					{'i','c','h','\0'},
					{'i','s','t','\0'},
					{'i','e',' ','\0'},
					{'i','m','\0'},
					{'i','e','\0'}};

unchar k_tbl[6][8]={
					{'k','a','n','n','s','t',' ','\0'},
					{'k','a','n','n','s','t','\0'},
					{'k','o','m','m','e','n','\0'},
					{'k','a','n','n',' ','\0'}};

unchar l_tbl[1][3]={			{'l','l','\0'}};

unchar m_tbl[7][6]={
					{'m','i','c','h','\0'},
					{'m','e','i','n','\0'},
					{'m','i','t','\0'},
					{'m','a','l','\0'},
					{'m','i','r','\0'}};

unchar n_tbl[5][7]={
					{'n','i','c','h','t',' ','\0'},
					{'n','i','c','h','t','\0'},
					{'n','e','n','\0'},
					{'n','n','\0'}};

unchar o_tbl[3][5]={
					{'o','c','h',' ','\0'},
					{'o','c','h','\0'},
					{'o','r','\0'}};

unchar s_tbl[8][6]={
					{'s','c','h','o','n','\0'},
					{'s','i','c','h','\0'},
					{'s','e','i','n','\0'},
					{'s','c','h','\0'},
					{'s','i','e','\0'},
					{'s','t','\0'}};

unchar t_tbl[3][4]={
					{'t','t','e','\0'},
					{'t','e',' ','\0'},
					{'t','e','\0'}};

unchar u_tbl[4][5]={
					{'u','n','d',' ','\0'},
					{'u','n','d','\0'},
					{'u','n','g','\0'},
					{'u','m','\0'}};

unchar v_tbl[3][4]={
					{'v','o','n','\0'},
					{'v','e','r','\0'},
					{'v','o','r','\0'}};

unchar w_tbl[1][5]={			{'w','i','r','d','\0'}};

unchar z_tbl[1][4]={			{'z','u',' ','\0'}};

unchar aa_tbl[3][8]={
					{'A','m','u','l','e','t','t','\0'},
					{'A','b','e','r','\0'}};

unchar dd_tbl[10][6]={
					{'D','e','i','n','e','\0'},
					{'D','i','c','h',' ','\0'},
					{'D','i','r',' ','\0'},
					{'D','i','r','\0'},
					{'D','e','r','\0'},
					{'D','i','e','\0'},
					{'D','a','s','\0'},
					{'D','u',' ','\0'},
					{'D','u','\0'},
					{'D','a','\0'}};

unchar ee_tbl[4][4]={
					{'E','i','n','\0'}};

unchar hh_tbl[5][7]={
					{'H','y','r','u','l','e','\0'},
					{'H','i','e','r','\0'}};

unchar ii_tbl[2][5]={
					{'I','c','h',' ','\0'}};

unchar mm_tbl[4][15]={
					{'M','a','s','t','e','r','-','S','c','h','w','e','r','t','\0'},
					{'M','a','c','h','\0'}};


unchar rr_tbl[1][7]={			{'R','u','b','i','n','e','\0'}};

unchar ss_tbl[3][4]={
					{'S','c','h','\0'},
					{'S','i','e','\0'}};

unchar vv_tbl[2][4]={
					{'V','e','r','\0'}};

unchar ww_tbl[1][7]={			{'W','e','i','s','e','n','\0'}};

unchar zz_tbl[1][6]={			{'Z','e','l','d','a','\0'}};



unshort	sp_cnt[8];
unshort	sp2_cnt[2];
unshort	sp3_cnt=0;
unshort a_cnt[8];
unshort b_cnt[3];
unshort d_cnt[13];
unshort e_cnt[12];
unshort f_cnt[2];
unshort h_cnt[5];
unshort i_cnt[7];
unshort k_cnt[6];
unshort l_cnt=0;
unshort m_cnt[7];
unshort n_cnt[4];
unshort o_cnt[3];
unshort s_cnt[8];
unshort t_cnt[3];
unshort u_cnt[4];
unshort v_cnt[3];
unshort w_cnt=0;
unshort z_cnt=0;
unshort aa_cnt[3];
unshort dd_cnt[10];
unshort ee_cnt[4];
unshort hh_cnt[5];
unshort ii_cnt[2];
unshort mm_cnt[4];
unshort nn_cnt=0;
unshort rr_cnt=0;
unshort ss_cnt[3];
unshort vv_cnt[2];
unshort ww_cnt=0;
unshort zz_cnt=0;


main(argc,argv)
int  argc;
char *argv[];
{
	FILE *rfp1;
	FILE *rfp2;

	unshort tot=0;
	unshort i,j,k=(-1);
	unchar	*r_pnt;
	unchar	r_buf[150];

	char    name_buf[20];

	if((rfp1=fopen("Tmsgtbl.TBL","r"))==NULL){
		printf("OPEN ERROR  [ Tmsgtbl.TBL ] !!\n"); exit(1);
	}

	cnt_tbl_cls();

	while(fgets(name_buf,20,rfp1)!=NULL){

		name_buf[11]='\0';
j=0;
		if((rfp2=fopen(name_buf,"r"))==NULL){
			printf("OPEN ERROR  [ %s ] !!\n",name_buf); exit(1);
		}

		while(fgets(r_buf,150,rfp2)!=NULL){
j++;
			r_pnt=r_buf;

			while((char)(*r_pnt)!='\0'){

				switch(*r_pnt){

					case '@':
						while(*r_pnt!='@') r_pnt++;
						r_pnt++;
						break;

					case ' ':
						if(*(r_pnt+1)==sp_tbl[0][1] && *(r_pnt+2)==sp_tbl[0][2] &&
						   *(r_pnt+3)==sp_tbl[0][3] && *(r_pnt+4)==sp_tbl[0][4]){
								sp_cnt[0]++;
								r_pnt+=5;
								break;
						}

						for(i=1;i<6;i++){
							if(*(r_pnt+1)==sp_tbl[i][1] && *(r_pnt+2)==sp_tbl[i][2] && *(r_pnt+3)==sp_tbl[i][3]){
								sp_cnt[i]++;
								r_pnt+=4;
								i=99;
							}
						}

						if(i==100) break;

						if(*(r_pnt+1)==sp_tbl[6][1] && *(r_pnt+2)==sp_tbl[6][2]){
								sp_cnt[6]++;
								r_pnt+=3;
								break;
						}
						else {
								r_pnt++;
						}

						break;


					case 0xa4:
						for(i=1;i<42;i++){
							if(*(r_pnt+i)!=0xa4)
								break;
						}

						if(i==42){
								sp2_cnt[0]++;
								r_pnt+=42;
								break;
						}

						r_pnt++;
						break;


					case '-':
						if(*(r_pnt+1)==sp3_tbl[0][1] && *(r_pnt+2)==sp3_tbl[0][2] &&
						   *(r_pnt+3)==sp3_tbl[0][3] && *(r_pnt+4)==sp3_tbl[0][4] &&
						   *(r_pnt+5)==sp3_tbl[0][5]){ 
								sp3_cnt++;
								r_pnt+=5;
					   	}

						r_pnt++;
						break;


					case 'a':
						for(i=0;i<3;i++){
							if(*(r_pnt+1)==a_tbl[i][1] && *(r_pnt+2)==a_tbl[i][2] && *(r_pnt+3)==a_tbl[i][3]){
					   			a_cnt[i]++;
					   			r_pnt+=4;
					   			i=99;
						   	}
					   	}

						if(i==100) break;

						for(i=3;i<6;i++){
							if(*(r_pnt+1)==a_tbl[i][1] && *(r_pnt+2)==a_tbl[i][2]){
								a_cnt[i]++;
								r_pnt+=3;
								i=99;
							}
						}

						if(i==100) break;

						if(*(r_pnt+1)==a_tbl[6][1]){
								a_cnt[6]++;
								r_pnt++;
				   		}

						r_pnt++;
						break;


					case 'b':
						if(*(r_pnt+1)==b_tbl[0][1] && *(r_pnt+2)==b_tbl[0][2] && *(r_pnt+3)==b_tbl[0][3]){
								b_cnt[0]++;
								r_pnt+=4;
								break;
					   	}

						for(i=1;i<3;i++){
							if(*(r_pnt+1)==b_tbl[i][1] && *(r_pnt+2)==b_tbl[i][2]){
								b_cnt[i]++;
								r_pnt+=2;
								i=99;
							}
						}

						r_pnt++;
						break;


					case 'd':
						for(i=0;i<5;i++){
							if(*(r_pnt+1)==d_tbl[i][1] && *(r_pnt+2)==d_tbl[i][2] && *(r_pnt+3)==d_tbl[i][3]){
								d_cnt[i]++;
								r_pnt+=4;
								i=99;
							}
						}

						if(i==100) break;

						for(i=5;i<10;i++){
							if(*(r_pnt+1)==d_tbl[i][1] && *(r_pnt+2)==d_tbl[i][2]){
					   			d_cnt[i]++;
					   			r_pnt+=3;
								i=99;
							}
						}

						if(i==100) break;

						if(*(r_pnt+1)==d_tbl[10][1]){
					   			d_cnt[10]++;
					   			r_pnt++;
						}

						r_pnt++;
						break;


					case 'e':
						if(*(r_pnt+1)==e_tbl[0][1] && *(r_pnt+2)==e_tbl[0][2] &&
						   *(r_pnt+3)==e_tbl[0][3] && *(r_pnt+4)==e_tbl[0][4]){
								e_cnt[0]++;
								r_pnt+=5;
								break;
				   		}

						for(i=1;i<2;i++){
							if(*(r_pnt+1)==e_tbl[i][1] && *(r_pnt+2)==e_tbl[i][2] && *(r_pnt+3)==e_tbl[i][3]){
								e_cnt[i]++;
								r_pnt+=3;
								i=99;
							}
						}

						if(i==100) break;

						for(i=2;i<6;i++){
							if(*(r_pnt+1)==e_tbl[i][1] && *(r_pnt+2)==e_tbl[i][2]){
								e_cnt[i]++;
								r_pnt+=3;
								i=99;
							}
						}

						if(i==100) break;

						for(i=6;i<10;i++){
							if(*(r_pnt+1)==e_tbl[i][1]){
								e_cnt[i]++;
								r_pnt++;
								i=99;
							}
						}

						r_pnt++;
						break;


					case 'f':
						if(*(r_pnt+1)==f_tbl[0][1] && *(r_pnt+2)==f_tbl[0][2]){
								f_cnt[0]++;
								r_pnt+=3;
								break;
					   	}

						if(*(r_pnt+1)==f_tbl[1][1]){
								f_cnt[1]++;
								r_pnt++;
								i=99;
					   	}

						r_pnt++;
						break;
						

					case 'h':
						for(i=0;i<3;i++){
							if(*(r_pnt+1)==h_tbl[i][1] && *(r_pnt+2)==h_tbl[i][2] && *(r_pnt+3)==h_tbl[i][3]){
								h_cnt[i]++;
								r_pnt+=4;
								i=99;
							}
					   	}

						if(i==100) break;

						if(*(r_pnt+1)==h_tbl[3][1] && *(r_pnt+2)==h_tbl[3][2]){
								h_cnt[3]++;
								r_pnt+=3;
								break;
						}

						if(*(r_pnt+1)==h_tbl[4][1]){
								h_cnt[4]++;
								r_pnt++;
						}

						r_pnt++;
						break;


					case 'i':
						for(i=0;i<2;i++){
							if(*(r_pnt+1)==i_tbl[i][1] && *(r_pnt+2)==i_tbl[i][2] && *(r_pnt+3)==i_tbl[i][3]){
								i_cnt[i]++;
								r_pnt+=4;
								i=99;
							}
						}

						if(i==100) break;

						for(i=2;i<5;i++){
							if(*(r_pnt+1)==i_tbl[i][1] && *(r_pnt+2)==i_tbl[i][2]){
								i_cnt[i]++;
								r_pnt+=3;
								i=99;
							}
						}

						if(i==100) break;

						for(i=5;i<7;i++){
							if(*(r_pnt+1)==i_tbl[i][1]){
								i_cnt[i]++;
								r_pnt++;
								i=99;
							}
						}

						r_pnt++;
						break;


					case 'k':
						if(*(r_pnt+1)==k_tbl[0][1] && *(r_pnt+2)==k_tbl[0][2] &&
						   *(r_pnt+3)==k_tbl[0][3] && *(r_pnt+4)==k_tbl[0][4] &&
						   *(r_pnt+5)==k_tbl[0][5] && *(r_pnt+6)==k_tbl[0][6]){
								k_cnt[0]++;
								r_pnt+=7;
								break;
						}

						for(i=1;i<3;i++){
							if(*(r_pnt+1)==k_tbl[i][1] && *(r_pnt+2)==k_tbl[i][2] &&
							   *(r_pnt+3)==k_tbl[i][3] && *(r_pnt+4)==k_tbl[i][4] &&
							   *(r_pnt+5)==k_tbl[i][5]){
								k_cnt[i]++;
								r_pnt+=6;
								i=99;
							}
						}

						if(i==100) break;

						if(*(r_pnt+1)==k_tbl[3][1] && *(r_pnt+2)==k_tbl[3][2] &&
						   *(r_pnt+3)==k_tbl[3][3] && *(r_pnt+4)==k_tbl[3][4]){
								k_cnt[3]++;
								r_pnt+=5;
								break;
						}


					case 'l':
						if(*(r_pnt+1)==l_tbl[0][1]){
								l_cnt++;
								r_pnt++;
						}

						r_pnt++;
						break;


					case 'm':
						for(i=0;i<2;i++){
							if(*(r_pnt+1)==m_tbl[i][1] && *(r_pnt+2)==m_tbl[i][2] && *(r_pnt+3)==m_tbl[i][3]){
								m_cnt[i]++;
								r_pnt+=4;
								break;
							}
						}

						for(i=2;i<5;i++){
							if(*(r_pnt+1)==m_tbl[i][1]&& *(r_pnt+2)==m_tbl[i][2]){
								m_cnt[i]++;
								r_pnt+=3;
								i=99;
							}
					   	}

						if(i==100) break;


					case 'n':
						if(*(r_pnt+1)==n_tbl[0][1] && *(r_pnt+2)==n_tbl[0][2] &&
						   *(r_pnt+3)==n_tbl[0][3] && *(r_pnt+4)==n_tbl[0][4] &&
						   *(r_pnt+5)==n_tbl[0][5]){
								n_cnt[0]++;
								r_pnt+=6;
								break;
						}


						if(*(r_pnt+1)==n_tbl[1][1] && *(r_pnt+2)==n_tbl[1][2] &&
						   *(r_pnt+3)==n_tbl[1][3] && *(r_pnt+4)==n_tbl[1][4]){
								n_cnt[1]++;
								r_pnt+=5;
								break;
						}

						if(*(r_pnt+1)==n_tbl[2][1] && *(r_pnt+2)==n_tbl[2][2]){
								n_cnt[2]++;
								r_pnt+=3;
								break;
						}

						if(*(r_pnt+1)==n_tbl[3][1]){
								n_cnt[3]++;
								r_pnt++;
						}

						r_pnt++;
						break;


					case 'o':
						if(*(r_pnt+1)==o_tbl[0][1] && *(r_pnt+2)==o_tbl[0][2] && *(r_pnt+3)==o_tbl[0][3]){
								o_cnt[0]++;
								r_pnt+=4;
								break;
						}

						if(*(r_pnt+1)==o_tbl[1][1] && *(r_pnt+2)==o_tbl[1][2]){
								o_cnt[1]++;
								r_pnt+=3;
								break;
						}

						if(*(r_pnt+1)==o_tbl[2][1]){
								o_cnt[2]++;
								r_pnt++;
						}

						r_pnt++;
						break;


					case 's':
						if(*(r_pnt+1)==s_tbl[0][1] && *(r_pnt+2)==s_tbl[0][2] &&
						   *(r_pnt+3)==s_tbl[0][3] && *(r_pnt+4)==s_tbl[0][4]){
								s_cnt[0]++;
								r_pnt+=5;
								break;
						}


						for(i=1;i<3;i++){
							if(*(r_pnt+1)==s_tbl[i][1] && *(r_pnt+2)==s_tbl[i][2] && *(r_pnt+3)==s_tbl[i][3]){
								s_cnt[i]++;
								r_pnt+=4;
								i=99;
							}
						}

						if(i==100) break;

						for(i=3;i<5;i++){
							if(*(r_pnt+1)==s_tbl[i][1] && *(r_pnt+2)==s_tbl[i][2]){
					   			s_cnt[i]++;
					   			r_pnt+=3;
					   			i=99;
					   		}
					   	}

						if(i==100) break;

						for(i=5;i<6;i++){
							if(*(r_pnt+1)==s_tbl[i][1]){
					   			s_cnt[i]++;
					   			r_pnt++;
					   		}
				   		}

						r_pnt++;
						break;


					case 't':
						for(i=0;i<2;i++){
							if(*(r_pnt+1)==t_tbl[i][1] && *(r_pnt+2)==t_tbl[i][2]){
								t_cnt[i]++;
								r_pnt+=3;
								i=99;
							}
						}

						if(i==100) break;

						if(*(r_pnt+1)==t_tbl[2][1]){
								t_cnt[2]++;
								r_pnt++;
						}

						r_pnt++;
						break;


					case 'u':
						if(*(r_pnt+1)==u_tbl[0][1] && *(r_pnt+2)==u_tbl[0][2] && *(r_pnt+3)==u_tbl[0][3]){
						   		u_cnt[0]++;
						   		r_pnt+=4;
								break;
						}

						for(i=1;i<3;i++){
							if(*(r_pnt+1)==u_tbl[i][1] && *(r_pnt+2)==u_tbl[i][2]){
						   		u_cnt[i]++;
						   		r_pnt+=3;
								i=99;
							}
						}

						if(i==100) break;

						if(*(r_pnt+1)==u_tbl[3][1]){
								u_cnt[3]++;
								r_pnt++;
						}

						r_pnt++;
						break;


					case 'v':
						for(i=0;i<3;i++){
							if(*(r_pnt+1)==v_tbl[i][1] && *(r_pnt+2)==v_tbl[i][2]){
						   		v_cnt[i]++;
						   		r_pnt+=2;
						   		i=99;
							}
						}

						r_pnt++;
						break;


					case 'w':
						if(*(r_pnt+1)==w_tbl[0][1] && *(r_pnt+2)==w_tbl[0][2] && *(r_pnt+3)==w_tbl[0][3]){
						   		w_cnt++;
						   		r_pnt+=3;
						}

						r_pnt++;
						break;


					case 'z':
						if(*(r_pnt+1)==z_tbl[0][1] && *(r_pnt+2)==z_tbl[0][2]){
						   		z_cnt++;
						   		r_pnt+=2;
						}

						r_pnt++;
						break;


					case 'A':
						if(*(r_pnt+1)==aa_tbl[0][1] && *(r_pnt+2)==aa_tbl[0][2] &&
						   *(r_pnt+3)==aa_tbl[0][3] && *(r_pnt+4)==aa_tbl[0][4] &&
						   *(r_pnt+5)==aa_tbl[0][5] && *(r_pnt+6)==aa_tbl[0][6]){
								aa_cnt[0]++;
								r_pnt+=7;
								break;
						}

						if(*(r_pnt+1)==aa_tbl[1][1] && *(r_pnt+2)==aa_tbl[1][2] && *(r_pnt+3)==aa_tbl[1][3]){
					   			aa_cnt[1]++;
					   			r_pnt+=3;
					   			break;
					   	}

						r_pnt++;
						break;


					case 'D':
						for(i=0;i<2;i++){
							if(*(r_pnt+1)==dd_tbl[i][1] && *(r_pnt+2)==dd_tbl[i][2] &&
							   *(r_pnt+3)==dd_tbl[i][3] && *(r_pnt+4)==dd_tbl[i][4]){
								dd_cnt[i]++;
								r_pnt+=5;
								break;
							}
						}

						if(*(r_pnt+1)==dd_tbl[2][1] && *(r_pnt+2)==dd_tbl[2][2] && *(r_pnt+3)==dd_tbl[2][3]){
								dd_cnt[2]++;
								r_pnt+=4;
								break;
						}

						for(i=3;i<8;i++){
							if(*(r_pnt+1)==dd_tbl[i][1] && *(r_pnt+2)==dd_tbl[i][2]){
					   			dd_cnt[i]++;
					   			r_pnt+=3;
								i=99;
							}
						}

						if(i==100) break;

						for(i=8;i<10;i++){
							if(*(r_pnt+1)==dd_tbl[i][1]){
					   			dd_cnt[i]++;
					   			r_pnt++;
								i=99;
							}
						}

						r_pnt++;
						break;


					case 'E':
						for(i=0;i<1;i++){
							if(*(r_pnt+1)==ee_tbl[i][1] && *(r_pnt+2)==ee_tbl[i][2]){
								ee_cnt[i]++;
								r_pnt+=2;
								i=99;
							}
						}

						r_pnt++;
						break;


					case 'H':
						if(*(r_pnt+1)==hh_tbl[0][1] && *(r_pnt+2)==hh_tbl[0][2] &&
						   *(r_pnt+3)==hh_tbl[0][3] && *(r_pnt+4)==hh_tbl[0][4] &&
						   *(r_pnt+5)==hh_tbl[0][5]){
								hh_cnt[0]++;
								r_pnt+=6;
								break;
						}

						for(i=1;i<2;i++){
							if(*(r_pnt+1)==hh_tbl[i][1] && *(r_pnt+2)==hh_tbl[i][2] && *(r_pnt+3)==hh_tbl[i][3]){
								hh_cnt[i]++;
								r_pnt+=4;
								i=99;
							}
					   	}

						if(i==100) break;

					case 'I':
						if(*(r_pnt+1)==ii_tbl[0][1] && *(r_pnt+2)==ii_tbl[0][2] && *(r_pnt+3)==ii_tbl[0][3]){
								ii_cnt[0]++;
								r_pnt+=3;
								break;
						}

						r_pnt++;
						break;


					case 'M':
						for(i=1;i<14;i++){
							if(*(r_pnt+i)!=mm_tbl[0][i])
								break;
						}

						if(i==14){
								mm_cnt[0]++;
								r_pnt+=14;
								break;
						}

						if(*(r_pnt+1)==mm_tbl[1][1] && *(r_pnt+2)==mm_tbl[1][2] && *(r_pnt+3)==mm_tbl[1][3]){
								mm_cnt[1]++;
								r_pnt+=3;
								break;
						}

						r_pnt++;
						break;


					case 'R':
						if(*(r_pnt+1)==rr_tbl[0][1] && *(r_pnt+2)==rr_tbl[0][2] &&
						   *(r_pnt+3)==rr_tbl[0][3] && *(r_pnt+4)==rr_tbl[0][4] &&
						   *(r_pnt+5)==rr_tbl[0][5]){
								rr_cnt++;
								r_pnt+=5;
						}

						r_pnt++;
						break;


					case 'S':
						for(i=0;i<2;i++){
							if(*(r_pnt+1)==ss_tbl[i][1] && *(r_pnt+2)==ss_tbl[i][2]){
								ss_cnt[i]++;
								r_pnt+=3;
								i=99;
							}
					   	}

						if(i==100) break;

					case 'V':
						for(i=0;i<1;i++){
							if(*(r_pnt+1)==vv_tbl[i][1] && *(r_pnt+2)==vv_tbl[i][2]){
						   		vv_cnt[i]++;
						   		r_pnt+=2;
						   		i=99;
							}
						}

						r_pnt++;
						break;


					case 'W':
						if(*(r_pnt+1)==ww_tbl[0][1] && *(r_pnt+2)==ww_tbl[0][2] &&
						   *(r_pnt+3)==ww_tbl[0][3] && *(r_pnt+4)==ww_tbl[0][4] &&
						   *(r_pnt+5)==ww_tbl[0][5]){
								ww_cnt++;
								r_pnt+=5;
						}

						r_pnt++;
						break;


					case 'Z':
						if(*(r_pnt+1)==zz_tbl[0][1] && *(r_pnt+2)==zz_tbl[0][2] &&
						   *(r_pnt+3)==zz_tbl[0][3] && *(r_pnt+4)==zz_tbl[0][4]){
								zz_cnt++;
								r_pnt+=4;
						}

						r_pnt++;
						break;


					default :
						r_pnt++;
						break;	
				}
			}
		}
		fclose(rfp2);
	}


k++;
	printf("%5x  ､､ SP  %c --> %4d    * %3d  =  %4d\n",k,sp_tbl[5][4],sp_cnt[5],(strlen(sp_tbl[5])-2),(sp_cnt[5]*(strlen(sp_tbl[5])-2)));	
	tot+=sp_cnt[5]*(strlen(sp_tbl[5])-2);
k++;
	printf("%5x  ､､ SP  %c --> %4d    * %3d  =  %4d\n",k,sp_tbl[6][3],sp_cnt[6],(strlen(sp_tbl[6])-2),(sp_cnt[6]*(strlen(sp_tbl[6])-2)));	
	tot+=sp_cnt[6]*(strlen(sp_tbl[6])-2);

k++;
	printf("%5x  ､､ SP 42 --> %4d    * %3d  =  %4d\n\n",k,sp2_cnt[0],(42-1),(sp2_cnt[0]*(42-1)));
	tot+=sp2_cnt[0]*(42-1);

k++;
	printf("%5x%10s --> %4d    * %3d  =  %4d\n\n",k,sp3_tbl[0],sp3_cnt,(strlen(sp3_tbl[0])-1),(sp3_cnt*(strlen(sp3_tbl[0])-1)));
	tot+=sp3_cnt*(strlen(sp3_tbl[0])-1);

	for(i=0;i<5;i++){
k++;
		printf("%5x%10s --> %4d    * %3d  =  %4d\n",k,sp_tbl[i],sp_cnt[i],(strlen(sp_tbl[i])-1),(sp_cnt[i]*(strlen(sp_tbl[i])-1)));	
		tot+=sp_cnt[i]*(strlen(sp_tbl[i])-1);
	}
	printf("\n");

	for(i=0;i<7;i++){
k++;
		printf("%5x%10s --> %4d    * %3d  =  %4d\n",k,a_tbl[i],a_cnt[i],(strlen(a_tbl[i])-1),(a_cnt[i]*(strlen(a_tbl[i])-1)));
		tot+=a_cnt[i]*(strlen(a_tbl[i])-1);
	}

	for(i=0;i<3;i++){
k++;
		printf("%5x%10s --> %4d    * %3d  =  %4d\n",k,b_tbl[i],b_cnt[i],(strlen(b_tbl[i])-1),(b_cnt[i]*(strlen(b_tbl[i])-1)));
		tot+=b_cnt[i]*(strlen(b_tbl[i])-1);
	}

	for(i=0;i<11;i++){
k++;
		printf("%5x%10s --> %4d    * %3d  =  %4d\n",k,d_tbl[i],d_cnt[i],(strlen(d_tbl[i])-1),(d_cnt[i]*(strlen(d_tbl[i])-1)));
		tot+=d_cnt[i]*(strlen(d_tbl[i])-1);
	}

	for(i=0;i<10;i++){
k++;
		printf("%5x%10s --> %4d    * %3d  =  %4d\n",k,e_tbl[i],e_cnt[i],(strlen(e_tbl[i])-1),(e_cnt[i]*(strlen(e_tbl[i])-1)));
		tot+=e_cnt[i]*(strlen(e_tbl[i])-1);
	}

	for(i=0;i<2;i++){
k++;
		printf("%5x%10s --> %4d    * %3d  =  %4d\n",k,f_tbl[i],f_cnt[i],(strlen(f_tbl[i])-1),(f_cnt[i]*(strlen(f_tbl[i])-1)));
		tot+=f_cnt[i]*(strlen(f_tbl[i])-1);
	}

	for(i=0;i<4;i++){
k++;
		printf("%5x%10s --> %4d    * %3d  =  %4d\n",k,h_tbl[i],h_cnt[i],(strlen(h_tbl[i])-1),(h_cnt[i]*(strlen(h_tbl[i])-1)));
		tot+=h_cnt[i]*(strlen(h_tbl[i])-1);
	}

	for(i=0;i<7;i++){
k++;
		printf("%5x%10s --> %4d    * %3d  =  %4d\n",k,i_tbl[i],i_cnt[i],(strlen(i_tbl[i])-1),(i_cnt[i]*(strlen(i_tbl[i])-1)));
		tot+=i_cnt[i]*(strlen(i_tbl[i])-1);
	}

	for(i=0;i<4;i++){
k++;
		printf("%5x%10s --> %4d    * %3d  =  %4d\n",k,k_tbl[i],k_cnt[i],(strlen(k_tbl[i])-1),(k_cnt[i]*(strlen(k_tbl[i])-1)));
		tot+=k_cnt[i]*(strlen(k_tbl[i])-1);
	}

k++;
	printf("%5x%10s --> %4d    * %3d  =  %4d\n",k,l_tbl[0],l_cnt,(strlen(l_tbl[0])-1),(l_cnt*(strlen(l_tbl[0])-1)));
	tot+=l_cnt*(strlen(l_tbl[0])-1);

	for(i=0;i<5;i++){
k++;
		printf("%5x%10s --> %4d    * %3d  =  %4d\n",k,m_tbl[i],m_cnt[i],(strlen(m_tbl[i])-1),(m_cnt[i]*(strlen(m_tbl[i])-1)));
		tot+=m_cnt[i]*(strlen(m_tbl[i])-1);
	}

	for(i=0;i<4;i++){
k++;
		printf("%5x%10s --> %4d    * %3d  =  %4d\n",k,n_tbl[i],n_cnt[i],(strlen(n_tbl[i])-1),(n_cnt[i]*(strlen(n_tbl[i])-1)));
		tot+=n_cnt[i]*(strlen(n_tbl[i])-1);
	}

	for(i=0;i<3;i++){
k++;
		printf("%5x%10s --> %4d    * %3d  =  %4d\n",k,o_tbl[i],o_cnt[i],(strlen(o_tbl[i])-1),(o_cnt[i]*(strlen(o_tbl[i])-1)));
		tot+=o_cnt[i]*(strlen(o_tbl[i])-1);
	}

	for(i=0;i<6;i++){
k++;
		printf("%5x%10s --> %4d    * %3d  =  %4d\n",k,s_tbl[i],s_cnt[i],(strlen(s_tbl[i])-1),(s_cnt[i]*(strlen(s_tbl[i])-1)));
		tot+=s_cnt[i]*(strlen(s_tbl[i])-1);
	}

	for(i=0;i<3;i++){
k++;
		printf("%5x%10s --> %4d    * %3d  =  %4d\n",k,t_tbl[i],t_cnt[i],(strlen(t_tbl[i])-1),(t_cnt[i]*(strlen(t_tbl[i])-1)));
		tot+=t_cnt[i]*(strlen(t_tbl[i])-1);
	}

	for(i=0;i<4;i++){
k++;
		printf("%5x%10s --> %4d    * %3d  =  %4d\n",k,u_tbl[i],u_cnt[i],(strlen(u_tbl[i])-1),(u_cnt[i]*(strlen(u_tbl[i])-1)));
		tot+=u_cnt[i]*(strlen(u_tbl[i])-1);
	}

	for(i=0;i<3;i++){
k++;
		printf("%5x%10s --> %4d    * %3d  =  %4d\n",k,v_tbl[i],v_cnt[i],(strlen(v_tbl[i])-1),(v_cnt[i]*(strlen(v_tbl[i])-1)));
		tot+=v_cnt[i]*(strlen(v_tbl[i])-1);
	}

k++;
	printf("%5x%10s --> %4d    * %3d  =  %4d\n",k,w_tbl[0],w_cnt,(strlen(w_tbl[0])-1),(w_cnt*(strlen(w_tbl[0])-1)));
	tot+=w_cnt*(strlen(w_tbl[0])-1);

k++;
	printf("%5x%10s --> %4d    * %3d  =  %4d\n\n",k,z_tbl[0],z_cnt,(strlen(z_tbl[0])-1),(z_cnt*(strlen(z_tbl[0])-1)));
	tot+=z_cnt*(strlen(z_tbl[0])-1);


	for(i=0;i<2;i++){
k++;
		printf("%5x%10s --> %4d    * %3d  =  %4d\n",k,aa_tbl[i],aa_cnt[i],(strlen(aa_tbl[i])-1),(aa_cnt[i]*(strlen(aa_tbl[i])-1)));
		tot+=aa_cnt[i]*(strlen(aa_tbl[i])-1);
	}

	for(i=0;i<10;i++){
k++;
		printf("%5x%10s --> %4d    * %3d  =  %4d\n",k,dd_tbl[i],dd_cnt[i],(strlen(dd_tbl[i])-1),(dd_cnt[i]*(strlen(dd_tbl[i])-1)));
		tot+=dd_cnt[i]*(strlen(dd_tbl[i])-1);
	}

	for(i=0;i<1;i++){
k++;
		printf("%5x%10s --> %4d    * %3d  =  %4d\n",k,ee_tbl[i],ee_cnt[i],(strlen(ee_tbl[i])-1),(ee_cnt[i]*(strlen(ee_tbl[i])-1)));
		tot+=ee_cnt[i]*(strlen(ee_tbl[i])-1);
	}

	for(i=0;i<2;i++){
k++;
		printf("%5x%10s --> %4d    * %3d  =  %4d\n",k,hh_tbl[i],hh_cnt[i],(strlen(hh_tbl[i])-1),(hh_cnt[i]*(strlen(hh_tbl[i])-1)));
		tot+=hh_cnt[i]*(strlen(hh_tbl[i])-1);
	}

	for(i=0;i<1;i++){
k++;
		printf("%5x%10s --> %4d    * %3d  =  %4d\n",k,ii_tbl[i],ii_cnt[i],(strlen(ii_tbl[i])-1),(ii_cnt[i]*(strlen(ii_tbl[i])-1)));
		tot+=ii_cnt[i]*(strlen(ii_tbl[i])-1);
	}

	for(i=0;i<2;i++){
k++;
		printf("%5x%10s --> %4d    * %3d  =  %4d\n",k,mm_tbl[i],mm_cnt[i],(strlen(mm_tbl[i])-1),(mm_cnt[i]*(strlen(mm_tbl[i])-1)));
		tot+=mm_cnt[i]*(strlen(mm_tbl[i])-1);
	}

k++;
	printf("%5x%10s --> %4d    * %3d  =  %4d\n",k,rr_tbl[0],rr_cnt,(strlen(rr_tbl[0])-1),(rr_cnt*(strlen(rr_tbl[0])-1)));
	tot+=rr_cnt*(strlen(rr_tbl[0])-1);

	for(i=0;i<2;i++){
k++;
		printf("%5x%10s --> %4d    * %3d  =  %4d\n",k,ss_tbl[i],ss_cnt[i],(strlen(ss_tbl[i])-1),(ss_cnt[i]*(strlen(ss_tbl[i])-1)));
		tot+=ss_cnt[i]*(strlen(ss_tbl[i])-1);
	}

	for(i=0;i<1;i++){
k++;
		printf("%5x%10s --> %4d    * %3d  =  %4d\n",k,vv_tbl[i],vv_cnt[i],(strlen(vv_tbl[i])-1),(vv_cnt[i]*(strlen(vv_tbl[i])-1)));
		tot+=vv_cnt[i]*(strlen(vv_tbl[i])-1);
	}

k++;
	printf("%5x%10s --> %4d    * %3d  =  %4d\n",k,ww_tbl[0],ww_cnt,(strlen(ww_tbl[0])-1),(ww_cnt*(strlen(ww_tbl[0])-1)));
	tot+=ww_cnt*(strlen(ww_tbl[0])-1);

k++;
	printf("%5x%10s --> %4d    * %3d  =  %4d\n",k,zz_tbl[0],zz_cnt,(strlen(zz_tbl[0])-1),(zz_cnt*(strlen(zz_tbl[0])-1)));
	tot+=zz_cnt*(strlen(zz_tbl[0])-1);


	printf("\n\n　　　　TOTAL MEMORY　　　　　     =%6d\n\n",tot);

	fclose(rfp1);

}


cnt_tbl_cls()
{
	unshort i;

	for(i=0;i<2;i++){
		b_cnt[i]=0;
		f_cnt[i]=0;
		ii_cnt[i]=0;
		t_cnt[i]=0;
		vv_cnt[i]=0;
	}
	for(i=0;i<3;i++)
		aa_cnt[i]=0;
		o_cnt[i]=0;
		v_cnt[i]=0;
	for(i=0;i<4;i++){
		ee_cnt[i]=0;
		h_cnt[i]=0;
		hh_cnt[i]=0;
		mm_cnt[i]=0;
		n_cnt[i]=0;
		u_cnt[i]=0;
	}
	for(i=0;i<5;i++)
		k_cnt[i]=0;
	for(i=0;i<6;i++){
		i_cnt[i]=0;
		s_cnt[i]=0;
	}
	for(i=0;i<7;i++)
		a_cnt[i]=0;
		m_cnt[i]=0;
	for(i=0;i<8;i++){
		sp_cnt[i]=0;
		ss_cnt[i]=0;
	}
	for(i=0;i<10;i++)
		dd_cnt[i]=0;
	for(i=0;i<12;i++)
		e_cnt[i]=0;
	for(i=0;i<15;i++)
		d_cnt[i]=0;
}