/*-------------------------------------------------
Generacja w kraju
-------------------------------------------------*/
makro string Gen
int I, iZon;
float F, P, Q;
string S,S1,S2;
{
	P = 0; 
	Q = 0;
	S1 = "Kraj";
	iZon = 1;
	do
		S2 = Zon[iZon].AreaName;
		S2 = getstr(S2,1,4);
		if( S1==S2 )
			P = Zon[iZon].Pgen;
			Q = Zon[iZon].Qgen;
			iZon = Prm[].N_Zon;
		endif
		iZon = iZon + 1;
	while( iZon<Prm[].N_Zon );
	S = sprintf("      Generacja: %4.0f MW", P);
	I = return S;
}