//#LoadFromFile ..\txt1\rko_f7.txt
 , 1, ;
//************************************************
 ()
	 = ("");
	=("");
	=("");
	 () = 1 
	     = ("51");
		 = 0;
	;
	 () = 1 
		 = (".");
		.();
		 .()=1 
		     = .();
		;
	;
	 () = 1 
		 = (".");
		.();
		 .()=1 
		     = .();
		;
	;
	 .= 
		_=("_");
	
		_=0;
	;
	=("");

//*********************************************
 ()
	("",);
	("",);
	("",);
	("_",_);
	("",);

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

//************************************************
 ()
	 ()<>"" 
		 0;
	 .()<>"" 
		 0;
	 . = .. 
		 1;
	
		 0;
	;
 //
  () 
//*********************************************
 ()
	..();
	..();
 //
//*********************************************
 () 
	 = (.,2);
	 (("70,73",)>0)  (="76")  ((1)=1) 
		..(1);
	
		..(0); 
		();
	;
	();
  
//************************************************
 ()
	..();
	..();
	..();
	..();
	..();
	..();
	..();
	 (=0)  (("60,76",(.,2))=0) 
	    ();
		..(0);
	
		..(1);
	;
	();

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

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

//***************************************
 _()
	 (("64",(.,2))=1)  (.()=1) 
	     ..= 
			=1;
			 = ....();
	    ;
	;
 //_
//*********************************************
 ()
	 (_=1)  (("60,61,76,64",(.,2))=0)  ((1)=1) 
		();
		..(0); 
	
		..(1); 
	;

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

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

//***************************************
// (,,)
//	 =  ();
//
//***************************************
 ()
	 =0 
		();
		 = ..;
	;
	 = 1;
	();
	();
	_();

//***************************************
 ()
	(1);
     = ("");
    1 = ("");
	 = "51,60,61.01,64.01,70,71.01,73,76.01,76.02,76.03,76.04,76.06,76.07,76.10,76.11,76.13,76.16,76.17,75,68,69";
	1 = "26.01,44.01";
	(,);
	(1,1);
	 = ?(.=,1,0);
	._.();
	();
	();   
	();
 //
//***************************************
 1()
	 1.() = 0 
	 (1) <> "" 
	 1.() = "" 
	     = 1.;
	    	="  "+(1.)+" "+
	    				(1.)+",  "+
	    				(1.)+" "+
	    				((1.," "));
		// = (".");
		//.(1);
		//.();
		// .()=1 
		//     = .();
		//	 = " "+(.)+
		//		" "+(1.)+",  "+(1.)+" "+
		//		((1.," (0)"));
		//;
	 1.() = "" 
		 = 1.;
		//    
		  1.<>.. 
			// -
			 = (".");
			.(1);
			.();
			 .()=1 
				 = .();
				="  " +  ( . ) + " " +
				 ( . ) + ",  " +
				 ( . ) + " " +
				 (  (., " (0)") );
			; 
			 (1)=1 
			     =1;
			;
		;
		 2.() = "" 
			2="";
			2.(1);
		; 
		();
		();
		();
	;
 //1
//***************************************
 2()
	 2.() = 0 
	 (2) <> "" 
	 2.() = "" 
		 ((2.)=0)  
			2 = 2.;
		;
	;
 //2
//*************************************** 
 ()
	//	(2));
	// ,   
	(, );
	=",,";
	 (1)<>"" 
	    =+",1";
	;
	 (2)<>"" 
	    =+",2";
	;
	 (3)<>"" 
	    =+",3";
	;
	 =1 
	    =+",,";
	;
	 =1 
	    =+",,";
	;
	 (, )=0 
	     ("   -   !");
	;
	. = ;
	. = "  : "+;
	();

//***************************************
 ()
	 = ("");
	 = ()+"mxl\rko.mxl";
	 .() = 1 
		.();
	
		.("");
	;
	.();
	("");
	.(0,0,0,0,"","");
	.(1);
	.("   ","");

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

