//# txt\Global.txt
//*****    *****
  ;
  ,  ;
 glUser , glPass ;
  ;
  ;
  ;
  ;
///////////////////////////////////////////////////////////////////////////
//      
 _ ;
 _ ;
 _ ;
///////////////////////////////////////////////////////////////////////////
//      
  ;
  ;
  ;
  ;
//  3.1
  ;
  ;
//     ___  .._________
  ;
  ;
  ;
 OraSession ;
 OraDatabase ;
  ;
 _ ;
 PersonName ;
//---------------------  .-------------------------------------
 1900 ;
  ,  ,  ;
 ;
 ;
 _ , _ , _ ;
  ;
//********************************************
//--------------
  ;
  ;
//******************************************** 
 ;
  ; 
 ; 
 ;
//********************************************    
 ()                //
	 = ();
    ="";
	=();
	 (,1)="\" 
		 = (,()-1);
	
		 = ;
	;
	=("xbase");
	 .(+"\kladr\kladr.cdx")=1 
		.(+"\kladr\kladr.dbf",+"\kladr\kladr.cdx",1);   
		
        .(+"\kladr\kladr.dbf");
	     .()=1 
			.("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);  
     (.(+"\kladr\kladr.dbf")=1)  (.()=0) 
		(" "++"\kladr\kladr.dbf  !");
		;
	;    
	=("xbase");
	 .(+"\kladr\street.cdx")=1 
		.(+"\kladr\street.dbf",+"\kladr\street.cdx",1);
	   
		.(+"\kladr\street.dbf");
	     .()=1 
			.("CODNAME","SUBSTR(CODE,1,11)+SUBSTR(UPPER(NAME),1,15)",0,0,"");
			.("CODE","CODE",0,0,"");	
			.(+"\kladr\street.cdx");
		;	
	;	
	.(1);  
     (.(+"\kladr\street.dbf")=1)  (.()=0) 
		(" "++"\kladr\street.dbf  !");
		;
	;    
      
//********************************************    

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

//********************************************    

 (, , , ) 
	="";
	 = .();
	 >0  // 
		.(,);
		// = ((,2));
		// = ((,4,2));
		// = ((,2));
		 = ();
		 = 0;
		 = 0;
	
		 = 12;
		 = 0;
		 = 0;
	;


//********************************************
 (  ) 
	 ( ( (  ) - 1 )/3 ) + 1;

//********************************************
//      (  )
 () 
	 ;

//********************************************
 (, ) 
	 ()="" 
		=.(.()).().();
	     ;
	
		=.(.()).().();
		=.(.()).().();
		 *;
	;

//********************************************
//    
 (, , ) 
	 ;

	 () <> "" 
		 = 1;
		;
	;

	 //  
	 = .("");
	 () <> 0 
		("",, , .(""),
 					.(""),-1);
	
		 .("") = 1 
			 = ("");
			.("", " ");
			.("", "  ");
			.("", " ");
			.("", "  ");
			.("", "  (. )");
			.("", "- ()  ");
			 .(, "",,, 1) = 0 
				;
			;
		 .("") = 2 
			 = ("");
			.("", " ");
			.("", " ");
			 .(, "",,, 1) = 0 
				;
			;
		
			 = .("");
		;

		 = ;
		 = 1;
		 = (.(""));
		  <> 0 
			 = ;
		;

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

		("."++"#");
		 = 0;
		 = 0;
		 = 0;
	;

//*********************************************************
 (,,,,) 
		 0;

//********************************************
///////////////////////////////////////////////////////////////////////////
//
 () 
	 (.(5)) = 1 
		//   
		 1;
	;

	 = ;
	(".", );
	 ;
 //
///////////////////////////////////////////////////////////////////////////
//
 () 
	 , , , , ;
	 , ;
     ()=1 
         "";
	 ()<>""   
		 = 
	
		 = .;
    ;

	 = (, " ");
	  = 0 
		 ;
	
		 = (, );
		 = (, +1);
		 = ();
		 = (, 1)+".";

		 = (, " ");
		  = 0 
			 +;
		
			 = (, +1);
			 = ();
			 = (, 1)+".";
			 ++;
		;
	;

///////////////////////////////////////////////////////////////////////////
//
 () 
	 = (".");
	 .() = 0  
		("     "+);
		 0;
	;
	 .();
  //

///////////////////////////////////////////////////////////////////////////
//
 (, , ="")  
	=0;
	 (",",)=0 
		 = ();
		 = ..();
	 
		 = (".");
		 .()=1 
		     ="" 
		         = .().;
		     ="" 
		         = .().;
			;
       
			 = ();
			 = ..();
		; 
	;
	 ;
  //
//*******************************************
 ()    // VV 25.04.

	=.( 1 );
	=.( 2 );
	=.( 3 );

	  = 4  .()  
		 = "";
		.( ,  );

		  = "" 
			=.;
			.( "", (  ) );

		  = "" 
			=(.);
			.( "",  );

		  = "" 
			=.;
			.( "", (  ) );

		  = "" 
			=.;
			.( "",  );

		  = "" 
			=..();
			.( "", (  ) );

		  = "" 
			=..();
			.( "", (  ) );

		  = "" 
			=..();
			.( "", (  ) );

		  = "" 
			=..;
			.( "", (  ) );

		  = "" 
			=..;
			.( "", (  ) );

		  = "" 
			=..();
			.( "", (  ) );

		  = "" 
			=.;
			.( "", (  ) );

		  = "" 
			=..();
			.( "", (  ) );

		  = "" 
			=..();
			.( "", (  ) );

		  = "" 
			=..();
			.( "", (  ) );

		  = "" 
			=..();
			.( "", (  ) );

		  = "" 
			=.;
			.( "", (  ) );

		  = "" 
			=.;
			.( "", (  ) );

		  = "" 
			=( ..(  ) );
			.( "", (  ) );

		  = "" 
			=( ..(  ) );
			.( "", (  ) );

		  = "" 
			=( ..(  ) );
			.( "", (  ) );

		  = "" 
			=..();
			.( "", (  ) );
			
		  = "" 
			 = ("");
			.( "", ( . ) );

		  = "" 
			 = ("");
			.( "", . );

		  = "" 
			 = ("");
			.( "", ( . ) );

		  = "" 
			 = ("");
			.( "", . );

		  = "" 
			 = ("");
			.( "", ( . ) );

		  = "" 
			 = ("");
			.( "", . );

		  = "" 
			 = ("");
			.( "", ( . ) );

		  = "" 
			 = ("");
			.( "", ( ..) );

		  = "" 
			 = ("");
			.( "", ( .. ) );

		  = "" 
			 = ("");
			.( "", . );

		  = "" 
			 = ("",);
			.( "", /100 );

		  = "" 
			= ("",);
			.( "", /100 );

		  = "" 
			.( "", 0.2 );

		  = "" 
			.( "", 0.05 );

		  = "" 
			= ("",  );
			.( "", /100 );

		  = "" 
			 = ("",  );
			.( "", /100 );

		  = "" 
			 = ("",  );
			.( "", /100 );

		  = "" 
			 = ("",  );
			.( "", /100 );

		  = "" 
			 = ("", );
			.( "", /100 );

		  = "" 
			 = ("", );
			.( "", /100 );

		  = "" 
			 = ("", , );
			.( "", /100 );

		  = "" 
			 = ("", , );
			.( "", /100 );

		  = "" 
			 = ("", );
			.( "", /100 );

		  = "" 
			 = ("", );
			.( "", /100 );

		  = "" 
			 = ("", );
			.( "", /100 );

		  = "" 
			 = ("", );
			.( "", /100 );

		  = "" 
			=..(  );
			.( "", /100 );

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

//_____________________________________________________________________________

 (,  = "",  = " ",  = 0,  = 0) 
	 ;

	 .() = 0 
		;
	 .() = 1 
	//	;
	;

	  = 1 
		 = ("."+.());
		.(.());

		//   
		 .(1) = 0 
			//-     
			("  !");
			;
		;
	;

	 = ("");
	.(, "");
	.(, "");
	.(, "");
	.((..()), "");
	(".", );

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

	 = -1;
	 (  = -1 ) 
		 ( () <> 1 ) 
			.("",);
			 .() = 1 
				 = 1;
			
				 = .;
			;
		
			 = 0;
		;
	;
	  = 1 
		( ?(  = "", ., . ) );
	
		( 1. );
	;

///////////////////////////////////////////////////////////////////////////
//
 (,) 
     ;
	 .() = 1 
	     = "" + ..() + "%";
	
		 = "<???>";
	;

	 ;
 //
///////////////////////////////////////////////////////////////////////////
//
 () 
	 = .();
	 = ("."+);
	.();
	 .("  "+(,7),)= 1 
		 = .();
	;
 //
///////////////////////////////////////////////////////////////////////////
//    , , ,
//   
 (,) 
	 = ("."+);
	.(,0);
	.();
	 .()=1 
		 (<>"")  (.=0) 
		     .();
		;
		 (<>"") 
		 (.=..) 
			 .();
		;
	;
	("     0%   <"+.()+">.");
	 "";
  //
//******************************************************

 (, ,="") 
	.();
	.("",,,,,6);
	.("",,,,,20);
	 = +",";
	 = (,",");
	 = ("");
	  > 0 
		 = (,-1); 
		 =  (?((,"")>0, (,2), ));
		 (.()=1)  ((,"")=0) 
		    .();
			.();
			 .()=1 
			    1 = .();
				 (,1.)>0 
				    ;
				;
				.();
				. = 1;
				. = 1.;
			;
		
			.();
			. = ;
			. = .;
		;
		 = (,()-);
	     = (,",");
	;

//******************************************************
 ()  //1 -  , 0 -  
	 	((()) = "")  ((()) = "")
	// (() = "")
	 (() = "") 
		 = 1;
	
		 = 0;
	;
	 ;

//******************************************************
 () 
	(,"!");
	(0);

//******************************************************
 () 
	 ( < .)  (()=0) 
		 0;
	
		 1;
	;

//******************************************************
//   
 (, =0)
	 ;

	=0; // ,    

	//    ( )
	 <>1 
		//,         -
		=("");
		=.('01.01.1980',
					'01.01.2200',);
		 .()=1 
		     .() = 0 
		    	 = 1; ;
		    ;
		;

	;

	 ;





//******************************************************
 (, , ,  ,  ,  //  
	, , , , 	 // : , ,  , 
	) 

	 [4], [4],[4], [4],[4];
	 ;
	 =1  4 
		[] = 0;
	;


	.();
	.("",);


	 .()  = 1 
		 .()=1  ; ;
		 =..();
		 = ..();
		 = ..();
		  =2   = ;    //   
		  =1   = "";     //  
		  =3   = ;     //   
		;

		//	(" .= " + . + "  =" + . + " =" + );
		//  

		 (.=  )  (. =) 
			[1] = ..();
			[1] = 1;
			= ..();
			[1] = ;
			[1] = ;
			 =[1] ;
			=[1];
			[1] = .;  = [1];
			//("1: = " + [1] + " =" + [1] + ": " + . + " " + .);
			 0;
		 (.= )  (. =..) 
			[2] = ..();
			[2] = 1;
			[2] = 1;
			[2] = ; //(.());
			[2] = ; //(..());
			[2] = .;
			//("2: = " + [2] + " =" + [2] + ": " + .  + " " + .);
			//;
		 (((..)= 0)  ( =1))   (. =) 
			[3] = ..();
			[3] = 1;
			[3] = 1;
			[3] = ; //(.());
			[3] = ; //(..());
			[3] = .;
			//("3: = " + [3] + " =" + [3] + ": " + .  + " " + .);
			//;
		 (((..)= 0)  ( =1))   (. =..) 
			[4] = ..();
			[4] = 1;
			[4] = 1;
			[4] = ; //(.());
			[4] = ; //(..());
			[4] = .;
			//("4: = " + [4] + " =" + [4] + ": " + .  + " " + .);
			//;
			//
		;
	;

	 [2] = 1 
		=[2];
		 =[2] ;
		=[2];
		 = [2];
		 1;
	 [3] = 1 
		=[3];
		 =[3] ;
		=[3];
		 = [3];
		 1;
	 [4] = 1 
		=[4];
		 =[4] ;
		=[4];
		 = [4];
		 1;
	;
	 0;



//******************************************************
//    
 (,)
 , , ;

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

	//      -   .   (08.02.99)
	 (.()="")  (.()="") 
		=.;
		 .() > 0 
			 .()>0 
				 .()=0 
					.();
				
					.();
				;
			;
		;
	 (() > 0)  (=1) 
		("       .
						|  "++"   
						| .    
						| !",5);
		(0); //  
	;


//******************************************************
 (, _, _, _) 
	 = (-1900) + _/24 + _/(24*60) + _/(24*3600);
	//();
	();

//******************************************************

 (,=0) 
	 , , ;
	=12; =0; =0;
	 = ?(.()="",.,.);
	 =1 
		(.(), , , );
		.(, , );
	;
	 () = 0  
		(" :  !!!");
	;
	(_, _, _);
	 =1 		
		.=((), _, _, _);
		. = ();
		.=.;		
		. = .;
	
		.=((), _, _, _);
		. = ();
	;
	=0;
	// =0 
	//	 = ("."+.());
	//	.(.());
	//	.();
	//;

//******************************************************
 ()
	//("   "+);
	 (.) = 0  
		("  :  !!!!"); ;
	;
	 (.=)  
		//  
		 = ("");
		.(,,);
		 .()=1 
		     (.() = 0)  (.() = "") 
		    	.(1); 
		    ;
		;
	;

//******************************************************
 (, ) 
	 = 1;
	//   
	 (.) = 0  
		 = 0;
	;
	 (.) = 1  
		("   !!!");   = 0;
	;
	 (.) = 1  
		("   !!!");   = 0;
	;
	=","++",";
	 = .(.());

	  = 1  .() 
		 = .();
		 = .;
		 = .;
		 = .;
		 =  .();
		 ((,","++",")>0) 
			(()=1) 
				("   "++"!");  = 0;
		;
	;

	  = 1  .() 
		 = .();
		 = .;
		 = .;
		 = .;
		.();
		 .()=1 
			 =  .();
			 ((,","++",")>0) 
				(()=1) 
					("   "++"!");  = 0;
			;
		;
	;
	 ;

//******************************************************
 (, , ) 
	=0;
	 = (".");
	.();
	.();
	=0;  //  
	 .()=1 
		 .() = 0 
			 = .();
			=+1;
		;
		  = 2 
			;
		;
	;
	.(0);

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

	 ="" 
		="";
	 ="" 
		="";
	 ="" 
		="";
	
		;
	;
	 (, )=0 
		;
	;
	 =1 
		.(,"");
	  ..() = 1 
		.(,.);
	
		.(,);
	;


//******************************************************
//*********************************************************************
//  '',   
//  '',   ''  .
// - ,  - .   = 1   , 
//,    
//
 (,,=1) 
	 = .();
	 = (".");
	.(,0);
	 (.()=1)  (.()=1) 
		 = .();
		.();
		.(,1);
		 (.()=1) 
			 (.);
		  = 1 
		    ("  "++"   "++"  <>");
		;
	  = 1 
	    ("   '"++"'   <>");
	;
	 "";

//*********************************************************************
//*********************************************************************
 (,,) 
	 ((())<6)  (. <> ..) 
		 ""
	;
	="";
	 = .();
	 = ("."+);
//	 = ("");
	 = (,"",0);
	//	.(-10,+10,"",);
	  <> "" 
		.(-10,+10);
		 .()=1 
			 = ("[."++"]");
			//	();
			 (()=()) 
			(.<>.) 
				 = +" "++"  "+(.)+
				"  "+.+;
			;
		;
    ;
	 ;

//*********************************************************************

 (,)
	 ( = "")  (()=0) 
		("     !");
		;
	;
	 = .;
	 = ..;
	 = ..;
	 = ..;
	// = "!!! "+()+" "+()+".  "+()+
	//"   "++"  "+;
	//();

//******************************************************
 ()
	 = (.);
	  = 0 
		(" !");
		;
	;
	// = "!!! "+()+" "+()+".  "+()+
	//" /.-   . "+.()+"  "+(.)+"  "+.;
	//();

//******************************************************
//******************************************************
//******************************************************
 _(1,2,,) 
//    -     
//   ..    .
	 = ("");
	.("1",1);
	.("2",2);
	.("",);
	.("",);
	(".",);

//******************************************************
//******************************************************
//******************************************************
 () 
	=;
	 = (".");
	 ()<>"" 
		(1);
	 (.()=2)  
		 = .();
	;
	 = .(.);
	 (.()=1) 
		(=0) 
		(1);
	;
	.(.());
	 = .( (),1,1);
	 =0 
	    ("      <"++"> !");
	;
	();

//**************************************
 () 
	 = (".");
	// .()
 	 = .((),0,1);
	 ( = 0)  (.()=1)
		(1);
	;
	.(.());
	 = .( (),1,1);
	 =0 
	    ("      <"++"> !");
	;
	();

//*********************************************
 (1,2,3,4,5,6,7,8,9,10);
	.();
	. = 1; . = 2;
	.45 = 3; .45 = 4;
	. = 5; . = 6;
	.60 = 7; .62 = 8;
	.62 = 9; .76 = 10;

//**************************************
 ()
	//                        19  45  45 46 46  60  62  62 76
	("002"  ,"     ",""     ,""     ,"46.01",""     ,"60.06","62.10",""     ,"76.07");
	("01.01","19.06",""     ,""     ,"47" 	,""     ,"60.06","62.13",""     ,"76.03");
	("01.02","19.06",""     ,""     ,"47"  	,""     ,"60.06","62.13",""     ,"76.03");
	("01.03","19.06",""     ,""     ,"47" 	,""     ,"60.06","62.13",""     ,"76.03");
	("01.04","19.06",""     ,""     ,"47"   ,""     ,"60.06","62.13",""     ,"76.03");
	("01.05","19.06",""     ,""     ,"47"   ,""     ,"60.06","62.13",""     ,"76.03");
	("04.01","19.07",""     ,""     ,"48.03",""     ,"60.07","62.13",""     ,"76.03");
	("04.02","19.07",""     ,""     ,"48.03",""     ,"60.07","62.13",""     ,"76.03");
	("04.03","19.07",""     ,""     ,"48.03",""     ,"60.07","62.13",""     ,"76.03");
	("10.01","19.01",""     ,""     ,"48.05",""     ,"60.01","62.01",""     ,"76.01");
	("10.02","19.02",""     ,""     ,"48.05",""     ,"60.02","62.03",""     ,"76.02");
	("10.03","19.03",""     ,""     ,"48.05",""     ,"60.03","62.09",""     ,"76.03");  //
	("10.04","19.05",""     ,""     ,"48.05",""     ,"60.05","62.13",""     ,"76.03");  //
	("10.05","19.08",""     ,""     ,"48.05",""     ,"60.08","62.13",""     ,"76.03");
	("12.01","19.08",""     ,""     ,"48.04",""     ,"60.08","62.13",""     ,"76.03");
	("12.02","19.08",""     ,""     ,"48.04",""     ,"60.08","62.13",""     ,"76.03");

	("40.01",""     ,"45.05","45.01","46.01","46.02",""     ,"62.01","62.02",""     );
	("40.02",""     ,"45.06","45.02","46.01","46.02",""     ,"62.03","62.04",""     );
	("40.03",""     ,"45.07","45.03","46.01","46.02",""     ,"62.05","62.06",""     );
	("40.04",""     ,"45.08","45.04","46.01","46.02",""     ,"62.07","62.08",""     );
	("40.05",""     ,"45.09",""     ,"46.01",""     ,""     ,"62.13",""     ,""     );

	("41.01","19.01","45.05","45.01","46.01","46.02","60.01","62.01","62.02","76.01");  // 
	("41.02","19.02","45.06","45.02","46.01","46.02","60.02","62.03","62.04","76.02");  // 
	("41.03","19.03","45.07","45.03","46.01","46.02","60.03","62.05","62.06","76.03");  //
	("41.04","19.04","45.08","45.04","46.01","46.02","60.04","62.07","62.08","76.03");  //
	("41.05","19.05","45.09",""     ,"46.03",""     ,"60.05","62.13",""     ,"76.03");  //
	("41.06","19.08","45.09",""     ,"46.01",""     ,"60.08","62.13",""     ,"76.03");  //
 
//*********************************************
 ()
	 =1 
		(0);
	    ;
	;
	 .(()+"SYSLOG\dconnect.all")=1  
		=1;
	    (" 30    .
		| !",5);
	; 
 //
//************************************** 

//_ =+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+
//    .. _
//:        1  
 () 
	//       ""
	 = ( (., ((.) - (., ",")) ) );
	
		("  !!!  " + (()) );
		("","  ,  ", );
	   
		("    " + );
	;

//_ =+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=

 ()
	 .(()+"SYSLOG\dconnect.all")=1 
	    ("   !",2);
		(0);
	;
	();
	(()+" // "+(.)+" // "+());
	();	
	("",30);
	//_ =+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+
		//   13/12/2000  .. _
		//          "",
		//      "",
		//         
		 ( ( () ) = "" ) 
			  ( ( () ) = "" )            
			// 1 1 . = 1.2 . 
			//      ""
			("",((.)));
		;
    //_ =+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=

//**************************************
 () 
	( ((1999, 11, 04)-(1999,9,12))*17);

//**************************************
 () 
 UserPass, UName;
	 <>1 
       	=("");
		OraSession = CreateObject("OracleInProcServer.XOraSession");
      	OraDatabase = OraSession.OpenDatabase("tcpa", "user_connect/beveril", 0);
       	OraDynaset = OraDatabase.DbCreateDynaset("select name from v_person1s order by 1", 0);
       	 =1  OraDynaset.RecordCount 
       		.(OraDynaset.Fields("name").Value,OraDynaset.Fields("name").Value);
       		OraDynaset.DbMoveNext();
       	;
        UserPass='';
       	//.(_," !");
   	   	//(UserPass," !",100);

   	   	(".",);
   	   	_ ="'"+ glUser+"'";
   	   	UserPass = glPass;
   	   	glUser = ""; glPass = "";
        
   	   	SQL_P="select LOGIN,name from person where name="+_;
    	OraDynaset = OraDatabase.DbCreateDynaset(SQL_P, 0);
    	UName=OraDynaset.Fields("LOGIN").Value;
    	PersonName=OraDynaset.Fields("name").Value;

    	OraSession = CreateObject("OracleInProcServer.XOraSession");
    	OraDatabase = OraSession.OpenDatabase("tcpa", UName+"/"+UserPass, 0);
    	=PersonName;

       	=1;
   	;

//**************************************
 (,)   //   
	 = ;
	(".#"+,);
	..(""+,0);

//***************************************
 () 
	 (. <> )  (. <> ) 
		(. <> )   //  !!!!
         1;
	
		 0;
	;

//***************************************
 (1="",2="",3="",4="",1="",2="",3="",4="") 
	.();
	.(1);
	.(2);
	.(3);
	.(4);
	.(1);
	.(2);
	.(3);
	.(4);
                                 
//*********************************************
 (, ="", , , , , =0, ="", =0, ="", =0) 
	.();
	. = ;
	. = ;
	. = ;
	. = ;
	. = ;
	. = ;
	. = ;
	. = ;
	. = ;
	. = ;
	. = ;
	 = .();
	.(,,,"6,7,8,9,10,11,12,13");

//*********************************************

//*********************************************

 (, , ="",="",="",="",=0,=0,
	1="",2="",3="",4="",1="",2="",3="",4="",="",=0) 
	 , ;
	 = (, .);
	 = (, .);
	 (()=0)  (()=0)
		;
	;
	//(": "+"  "++"  "++"  "++" , = "+("[(,""12.2= "")]")
	//+("  : [1     ]//[2     ]//[3     ]//[4     ]")+("  : [1     ]//[2     ]//[3     ]//[4     ]"));
	=0;
	=0;
	..();
	 ()=0 
		... = ;
		...(1,1);
		...(2,2);
		...(3,3);
		...(4,4);
		 = .;
		 = .;
	;
	 ()=0 
		... = ;
		...(1,1);
		...(2,2);
		...(3,3);
		...(4,4);
		 = ?(=0,.,1);
		 = ?(=0,.,1);
	;
	 ( = 1)  (<>0) 
		.. = ;
	;
	.. = ;
	 () <> "" 
	 (=1) 
		.. = ;
		..  = ;
	;
	.. = ;
	.. = ;
	.. = ;


//*********************************************
 (,) 
	 ?(()="","",+());

//**************************************
 () 
	 ?(<0,-,);

//************************************************   
 () 
     ()=0  =(());  ;
 //
//=============================================================================
 ()    //  
	 .() = 1 
		 ("  ,    ."
		++"?","+") = "" 
			.();
		;
	;      

//*********************************************
 (,) 
	.(,0);
	 .()=1 
	     = .();
	
		=();
	;
     ;
 //
//*********************************************
 () 
	 .(, 0)=1  
		 ..()=1  
			 .;
		    
			 ("  <>    """"     <"++">");
			 "";
		;
	
		 ("  <>      <"++">");
		 "";
	;
 // 

// _()============================================
// .. _ 10.01.2001 .
//    .      
//:  -   
// -   (, , , )
// -  (1   ,    )
// -  (0   ,  )
 _(,  = "",  = 0,  = 0) 
	 = "";
	  = 1 
		 = ("_");
	
		 (. = ..)  
			 = ("__0");
		 (. = ..) 
			 = ("_");
		
			 () = 1 
				 = .;
			
				 = .;
			;
		;   
	; 
	 () = 0 
		 ?( = 0, , ?( = 1, .._, .));
	
		 ?( = 0, ., ..);
	;

// _()========================================
//*****    *****
//      



 = 0;
 = 0;
//**************************************
 = ..;
 = ..;
//**************************************************
 (.)=1 
	("   < > !");

	 = .;
;
//**************************************************
1900 = ("01-01-1900"); //    
 = ": "+(..(()))+", "+(..(()));
 = ..;
 = ..;
 = ..;
 = (".");
//**************************************************
 (.) = 1  . = '01-01-2000'; ;
 =  ("");
 = (".");
//*********************************************
 = ("");
.("");
.("");
.("45");
.("45");
.("");
.("");
.("60");
.("62");
.("62");
.("76");

=("");
 = ("");
.("","");
.("");
.("");
.("","");
.("","");
.("1");
.("2");
.("3");
.("4");
.("1");
.("2");
.("3");
.("4");
.("");
.("","");
.("");
.("");
.(""); 
.("");

=0;
//*********************************************
//    
 = ("");
.("","07");
.("","06");
.("","07");
//.("2","06");
.("","18");
.("","21");
.("","12");
.("","02");
.("","08");
.("","18");
.("","13");
.("","22");
.("","16");             
.("","16");
.("","12");
.("","06");
.("","22");
.("","23");
.("","21"); 
.("","20");
.("","18");
.("","18");
.("","18");
.("","19");
.("","17");  //***
.("","19");
//.("","19");
//.("","19");
//.("","19");
.("","17");
.("","21");
.("","13");
.("","13");
.("","11");
.("","20");
.("","07"); 
.("","20");
.("","17");
.("","17");
.("_","13");
.("","13");
.("","13");
.("","20");
.("","14");
.("","14");
.("","14");
.("","15");
.("","15");
.("","06");          
.("","15");          
.("","13");
.("","23");
.("","16"); //*** 
.("","18");
.("_","13");
.("_","13");
.("_","13");
.("","18");    //***
.("","14");
.("","13");
.("_","16");
//.("","13");
.("","08");
.("88_73","10");
.("","14");
.("","14"); 
//.("","11");
.("","14");      
.("","16");
.("","16");
.("","07");
.("","14");
.("","10");
//.("","13");
.("","17");
