macro main( ) : bool
msgbox("main");
       var    rc, dh = TBFile("ch_ext.dbt", "W", KEY_0, "ch_ext.dbt", "rc.def");
	var	str, ill, n, mkb, i;
	var	t;


	while( dh.next() )	rc = dh.rec;
		if( rc.ill == "" )		continue;
		end;

		if( rc.ill_mkb != "" )	continue;
		end;

		
		str = strlwr( rc.ill );
		ill = str;
		str = strsubst( str, "g", "@"); 
		str = strsubst( str, "j", "@"); 
		str = strsubst( str, "q", "@"); 
		str = strsubst( str, "k", "@"); 		str = strsubst( str, "ê", "@"); 
		str = strsubst( str, "f", "@"); 
		str = strsubst( str, "d", "@"); 
		str = strsubst( str, "i", "@"); 
		str = strsubst( str, "m", "@"); 		str = strsubst( str, "ì", "@"); 
		str = strsubst( str, "c", "@"); 		str = strsubst( str, "ñ", "@"); 
		str = strsubst( str, "n", "@"); 
		str = strsubst( str, "h", "@"); 		str = strsubst( str, "í", "@"); 
		str = strsubst( str, "e", "@"); 		str = strsubst( str, "å", "@"); 
		str = strsubst( str, "t", "@"); 		str = strsubst( str, "ò", "@"); 

		str = strsubst( str, "0", "#"); 		str = strsubst( str, "1", "#"); 
		str = strsubst( str, "2", "#"); 		str = strsubst( str, "3", "#"); 
		str = strsubst( str, "4", "#"); 		str = strsubst( str, "5", "#"); 
		str = strsubst( str, "6", "#"); 		str = strsubst( str, "7", "#"); 
		str = strsubst( str, "8", "#"); 		str = strsubst( str, "9", "#"); 

		str = strsubst( str, "..", "--"); 
		str = strsubst( str, ".", "#"); 
		//---------------------------------------------------------
		//
		str = strsubst( str, "@#####", "~~~~~~"); 
		str = strsubst( str, "@####" , "~~~~~" ); 
		str = strsubst( str, "@###"  , "~~~~"  ); 
		str = strsubst( str, "@##"   , "~~~"   ); 

//		f.size = 0;

if(rc.cid==854) msgbox("rc.cid:",rc.cid,"  ill:", ill);
end;
		mkb = "";
		t=true;

		n=0; while( n<strlen(str ) )
			if( substr(str,n,1) == "~" )	
				if( (not t) and mkb!="" ) 	mkb = string(mkb, "; " );
				end;
								mkb = string(mkb, substr(ill,n,1) );
				t = true;
			else	t = false;
			end;
		n=n+1;end;

		mkb = strsubst( mkb, "ê", "k"); 
		mkb = strsubst( mkb, "ì", "m"); 
		mkb = strsubst( mkb, "ñ", "c"); 
		mkb = strsubst( mkb, "í", "h"); 
		mkb = strsubst( mkb, "å", "e"); 
		mkb = strsubst( mkb, "ò", "t"); 

		mkb = strupr(mkb);


		[##### #############################################################################################]
		(rc.cid, ill);
		[      #############################################################################################]
		(        str);
		[      #############################################################################################]
		(        mkb);
		[ ];



		rc.ill_mkb = mkb;
		if( not dh.update() )	msgbox("err6402: update");	break;
		end;

	end;
end;