 ;
 , , ;
//_____________________________________________________________________________
 ()  
	   (.()=0)  (.()=0) 
	      ;
	  ; 
    =(.,2)+"000000000"; ="";
	.("raion");	
	 ()=0 
		=(.,2)+((()+"               ",15));
		 .(,1)=1 
		    =(());
			 (())=((.NAME,))   
				=(.NAME);
				=.CODE;
				=;
			
				("  .");
			;	   
			
			("  .");
		;
	;	        
	.("gorod");    
	 ()=0 
		=(.,2)+((()+"               ",15));
		 .(,1)=1 
		    =(());  
			 (())=((.NAME,))   
				=(.NAME);
				=.CODE;
				=;
			
				("  .");
			;	
        
			("  .");
		;	
	;   
	.("np");    
	 ()=0 
		=(,8)+((()+"               ",15));  
		 .(,1)=1        
		    =(());  
			 (())=((.NAME,)) 
				=.CODE;    
			
				(".  .");
			;
        
			(".  .");
		;	
	;                 
	.("CODNAME");
	 ()=0 
		=(,11)+((()+"               ",15));  
		 .(,1)=1 
		    =(());
			 (())=((.NAME,))   
//				=.INDEX;    
//				=(.NAME);
//				=.GNINMB;
//				=.CODE;
//				=(".");
//				 .((.SOCR))=1 
//					=.();  
//				     
//				 	.();
//				 	.=.SOCR;
//				 	.=.SOCR;
//				 	.();
//					=.();  
//					("    "+.SOCR);
//				;	  
			
				("  .");
			;
        
			("  .");
		;	
	;


 ()                                                                     
 ;
	   (.()=0)  (.()=0) 
	      ;
	  ; 

.("raion");
	 ()=0 
		=(.,2)+((()+"               ",15)); 
		 .(,1)=1      
		    =("");
			.("","",40,0," ",40);
			.("","",4,0," ",10);
		    =(());
			  (())=((.NAME,))   //   
				.();
				.=.NAME;
				.=.GNINMB; 
				.();
			;       
			 .()=1                                                    //  .  ,    
				=(.(1,""));
				=.(1,"");
			 .()>1                                                                                                             //  
				 .(," ")=1 
					=(.(,""));
					=.(,"");
				;                                           
			;			
		;
	;	
//	();


                                                                                                 
 ()                                                                     
 ;
	   (.()=0)  (.()=0) 
	      ;
	  ; 

.("np");
	 ()=0 
		=(,8)+((()+"               ",15)); 
		 .(,1)=1      
		    =("");
			.("","",40,0," .",40);
			.("","",10,0,"",10);
			.("","",6,0," ",20);
			.("","",4,0," ",10);
		    =(());
			  (())=((.NAME,))   //   
				.();
				.=.NAME;
				.=.SOCR;
				.=.INDEX;
				.=.GNINMB; 
				.();
			;       
			 .()=1                                                    //  .  ,    
				=(.(1,""));
				=.(1,"");    
				=.(1,"");
				=(".");
				 .((.(1,"")))=1 
					=.();  
				
				 	.();
				 	.=.(1,"");
				 	=(.,"/","_");
				 	.=(," ","_");
//				 	.=.(1,"");
				 	.();                                                       
					=.();  
				;
			 .()>1                                                                                                             //  
				 .(," .")=1 
					=(.(,""));
					=.(,"");
					=.(,"");
					=(".");
					 .((.(,"")))=1 
						=.();  
					
					 	.();
					 	.=.(,"");
					 	=(.,"/","_");
					 	.=(," ","_");
//					 	.=.(,"");
					 	.();                                                       
						=.();  
					;
				;                                           
			;			
		;
	;	


  ()                                                                     
 , ;
	   (.()=0)  (.()=0) 
	      ;
	  ; 

	.("CODNAME");
	 ()=0 
		=(,11)+((()+"               ",15));  
		 .(,1)=1 
		    =(());
		    =("");
			.("","",40,0," ",40);
			.("","",10,0,"",10);
			.("","",6,0," ",20);
			.("","",4,0," ",10);  
			.("","",15);
		    =(());
			 (())=((.NAME,))   //   
				.();
				.=.NAME;
				.=.SOCR;
				.=.INDEX;
				.=.GNINMB; 
				.=.CODE;
				.();
			;       
			 .()=1                                                    //  .  ,    
				=(.(1,""));
				=.(1,"");    
				=.(1,"");  
				= .(1,""); 
				=(".");
				 .((.(1,"")))=1 
					=.();  
				
				 	.();
				 	.=.(1,"");
				 	=(.,"/","_");
				 	.=;
//				 	.=.(1,"");
				 	.();                                                       
					=.();  
				;
			 .()>1                                                                                                             //  
				 .(," ")=1 
					=(.(,""));
					=.(,"");
					=.(,"");
					= .(,""); 
					=(".");
					 .((.(,"")))=1 
						=.();  
					
					 	.();
					 	.=.(,"");
					 	=(.,"/","_");
					 	.=;
//					 	.=.(,"");
					 	.();                                                       
						=.();  
					;
				;                                           
			;			
		;
	;	

	.("CODE");
	=("");
	.("","",40,0," ",40);
	.("","",6,0," ",20);
	.("","",4,0," ",10);
	 .((),0)=1    
		 .CODE=                                                
			.();
			.=.NAME;
			.=.INDEX;
			.=.GNINMB;   
			.();
		;          
		 .()>1 
			 .(," ")=1 
				=.(,"");
				=.(,"");
			;                                           
		
			=.(1,"");
			=.(1,"");
		;
	;                       


 ()
	(, "   ");
	();
 //
//-----------------------------------------------------------
 ()
	 = ..1;
	 = (""); 

//-----------------------------------------------------------
 ()
	(2,"*");
	.(1);
	..(1,"");
	..(2," ");
	..(3," ");
	..(4," ");
	..(5," ");
	.(", ",2);
	
	 (.,2) = "20" 
		..(1);
		
		..(0);
		 = "";
	;	
	 = ();

//-----------------------------------------------	
 (,);
	 =1            
		..(1);
		..(1);
		.(", ",2);
	 =2 
		..(0);
		..(0);
		.(", ",2);
	 =3 
		..(0);
		..(0);
		.(", ",2);
	 =4 
		..(0);
		..(0);
		.(", ",2);
	 =5 
		..(0);
		..(0);
		.(", ",2);
	;
 
//****************************************
 ()
	(,
	,"   ("+()+")",0);
 //
//-----------------------------------------------------------
 ()
	 .() = 0 
	     = ("");
	
		("",);
	;                                       

//-----------------------------------------------------------
 ()
	 (. = "77")  (. = "78") 
	
		..(1);
		..(1);
		..(1);
		..(1);
	;

//-----------------------------------------------------------
 ()
		 = ();
	    ="";
		=();
		 (,1)="\" 
			 = (,()-1);
		
			 = ;
		;
		=("xbase");
		 .(+"\kladr\kladr.cdx")=1 
			.(+"\kladr\kladr.dbf",+"\kladr.cdx",1);   
			
        .(+"\kladr\kladr.dbf");
		.("raion","SUBSTR(CODE,1,2)+SUBSTR(UPPER(NAME),1,15)",0,0,"(SUBSTR(CODE,6,6)='000000') .AND. (SUBSTR(CODE,3,3)#'000')");
		.("gorod","SUBSTR(CODE,1,2)+SUBSTR(UPPER(NAME),1,15)",0,0,"(SUBSTR(CODE,9,3)='000') .AND. (SUBSTR(CODE,6,3)#'000')");
		.("np","SUBSTR(CODE,1,8)+SUBSTR(UPPER(NAME),1,15)",0,0,"SUBSTR(CODE,9,3)#'000'");
		.(+"\kladr\kladr.cdx");
	;	
	.(1);  
       .()=0 
			(" "++"\kladr\kladr.dbf  !");
			;
	;    
	=("xbase");
	 .(+"\kladr\street.cdx")=1 
		.(+"\kladr\street.dbf",+"\street.cdx",1);
	   
		.(+"\kladr\street.dbf");
		.("CODNAME","SUBSTR(CODE,1,11)+SUBSTR(UPPER(NAME),1,15)",0,0,"");
		.("CODE","CODE",0,0,"");	
		.(+"\kladr\street.cdx");
	;	
	.(1);  
       .()=0 
			(" "++"\kladr\street.dbf  !");
			;
	;    

