Надпись (Label) Конструктор

Копировать     Выделить всё

// Игра Тетрис написана с использованием элемента управления Надпись (Label).
Перем Ф, Форма1, Панель2, Панель4, Таймер1, ПолеВыбора1, Цвет, ПаузаВключена, Интервал;
Перем МКубикиИгровогоПоля, МНомераКубиковНовойФигуры, МКубикиПадающейФигуры, МНовыеНомера, МУдаляемых;
Перем СмещениеХ, СмещениеУ, ИнтервалБыстрый, Сдвиг, Математика, ВремяПредыдущегоНажатия, НомерФигуры, ЧислоТиков, МНомерНовойФигуры;
Перем НомерСледующейФигуры, НачисленоОчков, ЗаполненоЛиний, НадписьЛинии, НадписьОчки, Форма2;

Функция СлучайноеОт1До7()
	Рез = 0;
	Пока Рез < 1 или Рез > 7 Цикл
		Рез = Ф.Математика().Целое(Ф.Математика().Случайное() * 10);
	КонецЦикла;
	Возврат Рез;
КонецФункции

Процедура Старт()
	НомерФигуры = СлучайноеОт1До7();
	СоздатьФигуру(НомерФигуры);
	НомерСледующейФигуры = СлучайноеОт1До7();
	СледующаяФигура(НомерСледующейФигуры);
	ПолеВыбора1.Доступность = Ложь;
	Сдвиг = 0;
	Таймер1.Начать();
	ЧислоТиков = 0;
	НадписьЛинии.Текст = "Линии: ";
	НадписьОчки.Текст = "Очки: ";
КонецПроцедуры

Процедура ПолеВыбора1_ИндексВыбранногоИзменен() Экспорт
	Таймер1.Интервал = ПолеВыбора1.Элементы(ПолеВыбора1.ИндексВыбранного).Значение;
КонецПроцедуры

Процедура Таймер1_ПриСрабатыванииТаймера() Экспорт
	ЧислоТиков = ЧислоТиков + 1;
	Падаем = Истина;
	Если Сдвиг = 1 Тогда // Сдвигаем влево.
		Если ЧислоТиков > 1 Тогда
			Сдвиг = 0;
			Таймер1_ПриСрабатыванииТаймера();
		Иначе
			Возврат;
		КонецЕсли;

		Сдвигаем = Истина;
		МНовыеНомера.Очистить();
		Для А = 0 По МКубикиПадающейФигуры.ВГраница() Цикл
			Кубик = МКубикиПадающейФигуры[А];
			НомерКубика = Кубик.Метка.Элемент("НомерКубика");
			ЦветКубика = Кубик.Метка.Элемент("ЦветКубика");
			НомерФигуры = Кубик.Метка.Элемент("НомерФигуры");
			НомерКубикаСлева = НомерКубика - 1;
			Если НомерКубикаСлева = 0 Тогда
				Прервать;
			КонецЕсли;
			КубикСлева = МКубикиИгровогоПоля[НомерКубикаСлева];
			Если Математика.ОстатокДеления(НомерКубика, 10) = 1 Тогда
				Сдвигаем = Ложь;
			Иначе
				МНовыеНомера.Добавить(НомерКубикаСлева);
				ЦветКубикаСлева = КубикСлева.ЦветФона;
			
				Если (МКубикиПадающейФигуры.Найти(КубикСлева) = Неопределено) и (Не (ЦветКубикаСлева = Цвет[0])) Тогда
					Сдвигаем = Ложь;
					Прервать;
				КонецЕсли;
				Сдвиг = 0;
			КонецЕсли;
		КонецЦикла;
		
		Если Сдвигаем Тогда
			Для А = 0 По МКубикиПадающейФигуры.ВГраница() Цикл
				СкрытьКубик(МКубикиПадающейФигуры[А].Метка.Элемент("НомерКубика"));
			КонецЦикла;
			МКубикиПадающейФигуры.Очистить();
			
			Для А = 0 По МНовыеНомера.ВГраница() Цикл
				ПоказатьКубик(МНовыеНомера[А], ЦветКубика, НомерФигуры);
				МКубикиПадающейФигуры.Добавить(МКубикиИгровогоПоля[МНовыеНомера[А]]);
			КонецЦикла;
		КонецЕсли;
	ИначеЕсли Сдвиг = 2 Тогда // Сдвигаем вправо.
		Если ЧислоТиков > 1 Тогда
			Сдвиг = 0;
			Таймер1_ПриСрабатыванииТаймера();
		Иначе
			Возврат;
		КонецЕсли;

		Сдвигаем = Истина;
		МНовыеНомера.Очистить();
		Для А = 0 По МКубикиПадающейФигуры.ВГраница() Цикл
			Кубик = МКубикиПадающейФигуры[А];
			НомерКубика = Кубик.Метка.Элемент("НомерКубика");
			ЦветКубика = Кубик.Метка.Элемент("ЦветКубика");
			НомерФигуры = Кубик.Метка.Элемент("НомерФигуры");
			НомерКубикаСправа = НомерКубика + 1;
			КубикСправа = МКубикиИгровогоПоля[НомерКубикаСправа];
			Если Математика.ОстатокДеления(НомерКубика, 10) = 0 Тогда
				Сдвигаем = Ложь;
			Иначе
				МНовыеНомера.Добавить(НомерКубикаСправа);
				ЦветКубикаСправа = КубикСправа.ЦветФона;
			
				Если (МКубикиПадающейФигуры.Найти(КубикСправа) = Неопределено) и (Не (ЦветКубикаСправа = Цвет[0])) Тогда
					Сдвигаем = Ложь;
					Прервать;
				КонецЕсли;
				Сдвиг = 0;
			КонецЕсли;
		КонецЦикла;
		
		Если Сдвигаем Тогда
			Для А = 0 По МКубикиПадающейФигуры.ВГраница() Цикл
				СкрытьКубик(МКубикиПадающейФигуры[А].Метка.Элемент("НомерКубика"));
			КонецЦикла;
			МКубикиПадающейФигуры.Очистить();
			
			Для А = 0 По МНовыеНомера.ВГраница() Цикл
				ПоказатьКубик(МНовыеНомера[А], ЦветКубика, НомерФигуры);
				МКубикиПадающейФигуры.Добавить(МКубикиИгровогоПоля[МНовыеНомера[А]]);
			КонецЦикла;
		КонецЕсли;
	ИначеЕсли Сдвиг = 3 Тогда // Поворот.
		Если ЧислоТиков > 1 Тогда
			Сдвиг = 0;
			Таймер1_ПриСрабатыванииТаймера();
		Иначе
			Возврат;
		КонецЕсли;

		Кубик = МКубикиПадающейФигуры[0];
		НомерФигуры = Кубик.Метка.Элемент("НомерФигуры");
		Если НомерФигуры = 4 Тогда
			Сдвиг = 0;
			Возврат;
		КонецЕсли;
		
		Для А = 0 По МКубикиПадающейФигуры.ВГраница() Цикл
			СкрытьКубик(МКубикиПадающейФигуры[А].Метка.Элемент("НомерКубика"));
		КонецЦикла;
		
		// Найдем клетку (колонку и строку) в которой покажем повернутую фигуру.
		// Это самая левая колонка и самая верхняя для фигуры строка.
		СмещениеКолонки = 10;
		СмещениеСтроки = 20;
		Для А = 0 По МКубикиПадающейФигуры.ВГраница() Цикл
			Кубик = МКубикиПадающейФигуры[А];
			НомерКубика = Кубик.Метка.Элемент("НомерКубика");
			НомерКолонки = Математика.ОстатокДеления(НомерКубика, 10);
			Если НомерКолонки < 0 Тогда
				НомерКолонки = НомерКубика;
			КонецЕсли;
			СмещениеКолонки = Математика.Меньшее(СмещениеКолонки, НомерКолонки);
			
			НомерСтроки = Математика.Целое(НомерКубика / 10);
			СмещениеСтроки = Математика.Меньшее(СмещениеСтроки, НомерСтроки);
		КонецЦикла;
		
		// Корректировка положения при повороте.
		Если НомерФигуры = 1 Тогда // Тогда Z
			СмещениеКолонки = СмещениеКолонки - 1;
			СмещениеСтроки = СмещениеСтроки - 1;
		ИначеЕсли НомерФигуры = 8 Тогда // Тогда Z1 
			СмещениеКолонки = СмещениеКолонки - 1;
		
		ИначеЕсли НомерФигуры = 2 Тогда // Тогда S
			СмещениеКолонки = СмещениеКолонки - 2;
			СмещениеСтроки = СмещениеСтроки - 2;
		ИначеЕсли НомерФигуры = 9 Тогда // Тогда S1 
			СмещениеКолонки = СмещениеКолонки - 1;
		
		ИначеЕсли НомерФигуры = 3 Тогда // Тогда J
			СмещениеКолонки = СмещениеКолонки - 2;
		ИначеЕсли НомерФигуры = 10 Тогда // Тогда J1 
			СмещениеСтроки = СмещениеСтроки - 1;
		ИначеЕсли НомерФигуры = 11 Тогда // Тогда J2
			СмещениеКолонки = СмещениеКолонки - 2;
			СмещениеСтроки = СмещениеСтроки - 1;
		ИначеЕсли НомерФигуры = 12 Тогда // Тогда J3
			СмещениеСтроки = СмещениеСтроки - 1;
			
		ИначеЕсли НомерФигуры = 5 Тогда // Тогда L
			СмещениеКолонки = СмещениеКолонки - 2;
		ИначеЕсли НомерФигуры = 13 Тогда // Тогда L1
			СмещениеСтроки = СмещениеСтроки - 1;
		ИначеЕсли НомерФигуры = 14 Тогда // Тогда L2
			СмещениеКолонки = СмещениеКолонки - 2;
			СмещениеСтроки = СмещениеСтроки - 1;
		ИначеЕсли НомерФигуры = 15 Тогда // Тогда L3
			СмещениеСтроки = СмещениеСтроки - 1;

		ИначеЕсли НомерФигуры = 6 Тогда // Тогда I
			СмещениеКолонки = СмещениеКолонки - 2;
		ИначеЕсли НомерФигуры = 16 Тогда // Тогда I1
			СмещениеСтроки = СмещениеСтроки - 1;

		ИначеЕсли НомерФигуры = 7 Тогда // Тогда T
			СмещениеСтроки = СмещениеСтроки - 1;
		ИначеЕсли НомерФигуры = 17 Тогда // Тогда T1
			СмещениеКолонки = СмещениеКолонки - 2;
		ИначеЕсли НомерФигуры = 18 Тогда // Тогда T2
			СмещениеКолонки = СмещениеКолонки - 1;
			СмещениеСтроки = СмещениеСтроки - 1;
		ИначеЕсли НомерФигуры = 19 Тогда // Тогда T3
			СмещениеКолонки = СмещениеКолонки - 1;
		КонецЕсли;
		
		МКубикиПадающейФигуры.Очистить();
		
		НомерСтаройФигуры = НомерФигуры;
		НомерФигуры = МНомерНовойФигуры[НомерФигуры];
		
		Если (НомерФигуры = 1) и (СмещениеКолонки = -1) Тогда
			НомерФигуры = 8;
			СмещениеКолонки = 9;
			СмещениеСтроки = (НомерКубика / 10) - 3;
		ИначеЕсли (НомерФигуры = 2) и (СмещениеКолонки = -1) Тогда
			НомерФигуры = 9;
			СмещениеКолонки = 7;
			СмещениеСтроки = (НомерКубика / 10) - 4;
		ИначеЕсли (НомерФигуры = 8) и (СмещениеКолонки = -1) Тогда
			СмещениеКолонки = 7;
		ИначеЕсли (НомерФигуры = 9) и (СмещениеКолонки < -1) Тогда
				СмещениеКолонки = 6;
		ИначеЕсли (НомерФигуры = 10) и (СмещениеКолонки = -2) Тогда
			СмещениеКолонки = 7;
			СмещениеСтроки = (НомерКубика / 10) - 3;
		ИначеЕсли (НомерФигуры = 10) и (СмещениеКолонки = -1) Тогда
			НомерФигуры = 3;
			СмещениеКолонки = -2;
			СмещениеСтроки = (НомерКубика / 10) - 2;
		ИначеЕсли (НомерФигуры = 11) и (СмещениеКолонки = 0) Тогда
			СмещениеКолонки = 8;
		ИначеЕсли (НомерФигуры = 12) и (СмещениеКолонки = -2) Тогда
			СмещениеКолонки = 7;
		ИначеЕсли (НомерФигуры = 12) и (СмещениеКолонки = -1) Тогда
			НомерФигуры = 11;
			СмещениеКолонки = -1;
			СмещениеСтроки = (НомерКубика / 10) - 2;
		ИначеЕсли (НомерФигуры = 3) и (СмещениеКолонки = 0) Тогда
			СмещениеКолонки = 8;
			СмещениеСтроки = (НомерКубика / 10) - 2;
		ИначеЕсли (НомерФигуры = 13) и (СмещениеКолонки = -1) Тогда
			НомерФигуры = 5;
			СмещениеКолонки = -2;
			СмещениеСтроки = (НомерКубика / 10) - 1;
		ИначеЕсли (НомерФигуры = 13) и (СмещениеКолонки = -2) Тогда
			СмещениеКолонки = 7;
			СмещениеСтроки = (НомерКубика / 10) - 2;
		ИначеЕсли (НомерФигуры = 14) и (СмещениеКолонки = 0) Тогда
			СмещениеКолонки = 8;
			СмещениеСтроки = (НомерКубика / 10) - 2;
		ИначеЕсли (НомерФигуры = 15) и (СмещениеКолонки = -2) Тогда
			СмещениеКолонки = 7;
		ИначеЕсли (НомерФигуры = 5) и (СмещениеКолонки = 0) Тогда
			СмещениеКолонки = 8;
		ИначеЕсли (НомерФигуры = 15) и (СмещениеКолонки = -1) Тогда
			НомерФигуры = 14;
			СмещениеКолонки = -2;
			СмещениеСтроки = (НомерКубика / 10) - 2;
		ИначеЕсли (НомерФигуры = 16) и (СмещениеКолонки = -2) Тогда
			НомерФигуры = 6;
			СмещениеКолонки = 9;
			СмещениеСтроки = (НомерКубика / 10) - 4;
		ИначеЕсли (НомерФигуры = 16) и (СмещениеКолонки = 7) Тогда
			НомерФигуры = 6;
			СмещениеКолонки = 9;
			СмещениеСтроки = (НомерКубика / 10) - 4;
		ИначеЕсли (НомерФигуры = 16) и (СмещениеКолонки = -1) Тогда
			НомерФигуры = 6;
			СмещениеКолонки = -1;
			СмещениеСтроки = (НомерКубика / 10) - 3;
		ИначеЕсли (НомерФигуры = 6) и (СмещениеКолонки = 0) Тогда
			СмещениеКолонки = 7;
			СмещениеСтроки = (НомерКубика / 10) - 3;
		ИначеЕсли (НомерФигуры = 17) и (СмещениеКолонки = 0) Тогда
			СмещениеКолонки = 9;
			СмещениеСтроки = (НомерКубика / 10) - 4;
		ИначеЕсли (НомерФигуры = 18) и (СмещениеКолонки = -2) Тогда
			СмещениеКолонки = 8;
			СмещениеСтроки = (НомерКубика / 10) - 4;
		ИначеЕсли (НомерФигуры = 19) и (СмещениеКолонки = -1) Тогда
			СмещениеКолонки = 7;
			СмещениеСтроки = (НомерКубика / 10) - 2;
		ИначеЕсли (НомерФигуры = 18) и (СмещениеКолонки = -1) Тогда
			НомерФигуры = 17;
			СмещениеКолонки = -1;
			СмещениеСтроки = (НомерКубика / 10) - 2;
		КонецЕсли;
		
		СоздатьПовернутуюФигуру(НомерФигуры, СмещениеКолонки, СмещениеСтроки);
		
		Падаем = Истина;
		МНовыеНомера.Очистить();
		Для А = 0 По МКубикиПадающейФигуры.ВГраница() Цикл
			Кубик = МКубикиПадающейФигуры[А];
			ЦветКубика = Кубик.Метка.Элемент("ЦветКубика");
			НомерКубикаСнизу = Кубик.Метка.Элемент("НомерКубика") + 10;
			
			Если НомерКубикаСнизу <= 200 Тогда
				КубикСнизу = МКубикиИгровогоПоля[Кубик.Метка.Элемент("НомерКубика") + 10];
				НомерКубика = Кубик.Метка.Элемент("НомерКубика");
				МНовыеНомера.Добавить(НомерКубикаСнизу);
				ЦветКубикаСнизу = КубикСнизу.ЦветФона;
			
				Если (МКубикиПадающейФигуры.Найти(КубикСнизу) = Неопределено) и (Не (ЦветКубикаСнизу = Цвет[0])) Тогда
					Падаем = Ложь;
					Прервать;
				КонецЕсли;
			Иначе
				Падаем = Ложь;
				Прервать;
			КонецЕсли;
		КонецЦикла;
		
		Если Падаем Тогда
		Иначе
			Сдвиг = 0;
			СоздатьФигуру(НомерСледующейФигуры);
			НомерСледующейФигуры = СлучайноеОт1До7();
			СледующаяФигура(НомерСледующейФигуры);
		КонецЕсли;
		Таймер1.Интервал = ПолеВыбора1.Элементы(ПолеВыбора1.ИндексВыбранного).Значение;
	Иначе
		Падаем = Истина;
		МНовыеНомера.Очистить();
		Для А = 0 По МКубикиПадающейФигуры.ВГраница() Цикл
			Кубик = МКубикиПадающейФигуры[А];
			ЦветКубика = Кубик.Метка.Элемент("ЦветКубика");
			НомерФигуры = Кубик.Метка.Элемент("НомерФигуры");
			НомерКубикаСнизу = Кубик.Метка.Элемент("НомерКубика") + 10;
			
			Если НомерКубикаСнизу <= 200 Тогда
				КубикСнизу = МКубикиИгровогоПоля[Кубик.Метка.Элемент("НомерКубика") + 10];
				НомерКубика = Кубик.Метка.Элемент("НомерКубика");
				МНовыеНомера.Добавить(НомерКубикаСнизу);
				ЦветКубикаСнизу = КубикСнизу.ЦветФона;
			
				Если (МКубикиПадающейФигуры.Найти(КубикСнизу) = Неопределено) и (Не (ЦветКубикаСнизу = Цвет[0])) Тогда
					Падаем = Ложь;
					Прервать;
				КонецЕсли;
			Иначе
				Падаем = Ложь;
				Прервать;
			КонецЕсли;
		КонецЦикла;
		
		Если Падаем Тогда
			Для А = 0 По МКубикиПадающейФигуры.ВГраница() Цикл
				СкрытьКубик(МКубикиПадающейФигуры[А].Метка.Элемент("НомерКубика"));
			КонецЦикла;
			МКубикиПадающейФигуры.Очистить();
			
			Для А = 0 По МНовыеНомера.ВГраница() Цикл
				ПоказатьКубик(МНовыеНомера[А], ЦветКубика, НомерФигуры);
				МКубикиПадающейФигуры.Добавить(МКубикиИгровогоПоля[МНовыеНомера[А]]);
			КонецЦикла;
		Иначе
			// Здесь нужны только основные фигуры.
			Если НомерФигуры = 1 Тогда
				НомерСоздаваемойФигуры = 1;
			ИначеЕсли НомерФигуры = 2 Тогда
				НомерСоздаваемойФигуры = 2;
			ИначеЕсли НомерФигуры = 3 Тогда
				НомерСоздаваемойФигуры = 3;
			ИначеЕсли НомерФигуры = 4 Тогда
				НомерСоздаваемойФигуры = 4;
			ИначеЕсли НомерФигуры = 5 Тогда
				НомерСоздаваемойФигуры = 5;
			ИначеЕсли НомерФигуры = 6 Тогда
				НомерСоздаваемойФигуры = 6;
			ИначеЕсли НомерФигуры = 7 Тогда
				НомерСоздаваемойФигуры = 7;
			ИначеЕсли НомерФигуры = 8 Тогда
				НомерСоздаваемойФигуры = 1;
			ИначеЕсли НомерФигуры = 9 Тогда
				НомерСоздаваемойФигуры = 2;
			ИначеЕсли НомерФигуры = 10 Тогда
				НомерСоздаваемойФигуры = 3;
			ИначеЕсли НомерФигуры = 11 Тогда
				НомерСоздаваемойФигуры = 3;
			ИначеЕсли НомерФигуры = 12 Тогда
				НомерСоздаваемойФигуры = 3;
			ИначеЕсли НомерФигуры = 13 Тогда
				НомерСоздаваемойФигуры = 5;
			ИначеЕсли НомерФигуры = 14 Тогда
				НомерСоздаваемойФигуры = 5;
			ИначеЕсли НомерФигуры = 15 Тогда
				НомерСоздаваемойФигуры = 5;
			ИначеЕсли НомерФигуры = 16 Тогда
				НомерСоздаваемойФигуры = 6;
			ИначеЕсли НомерФигуры = 17 Тогда
				НомерСоздаваемойФигуры = 7;
			ИначеЕсли НомерФигуры = 18 Тогда
				НомерСоздаваемойФигуры = 7;
			ИначеЕсли НомерФигуры = 19 Тогда
				НомерСоздаваемойФигуры = 7;
			КонецЕсли;
			
			ПроверкаЗаполненияЛинии();
			
			НачисленоОчков = НачисленоОчков + 50;
			НадписьОчки.Текст = "Очки: " + НачисленоОчков;
			
			СоздатьФигуру(НомерСледующейФигуры);
			НомерСледующейФигуры = СлучайноеОт1До7();
			СледующаяФигура(НомерСледующейФигуры);
		КонецЕсли;
		Таймер1.Интервал = ПолеВыбора1.Элементы(ПолеВыбора1.ИндексВыбранного).Значение;
	КонецЕсли;
	
	Сдвиг = 0;
КонецПроцедуры

Процедура УбратьПустыеЛинии(НомерНачалаРяда)
	// Удалим пустые строки.
	НомерКубикаНачалаРяда = НомерНачалаРяда;
	РядПуст = Истина;
	Для А = НомерКубикаНачалаРяда По НомерКубикаНачалаРяда + 9 Цикл
		Эл = Панель2.ЭлементыУправления.Элемент(А - 1);
		Если Не (Эл.Метка.Элемент("ЦветКубика").Имя = "Черный") Тогда
			РядПуст = Ложь;
		КонецЕсли;
	КонецЦикла;
	Если РядПуст Тогда
		// Ряд выше переместим на ряд ниже
		А2 = НомерКубикаНачалаРяда - 10;
		В2 = 191 - А2;
		Пока А2 > 0 Цикл
			Для А = А2 По Панель2.ЭлементыУправления.Количество - В2 Цикл
				Эл = Панель2.ЭлементыУправления.Элемент(А - 1);
				ПоказатьКубик(Эл.Метка.Элемент("НомерКубика") + 10, Эл.Метка.Элемент("ЦветКубика"), Эл.Метка.Элемент("НомерФигуры"));
				СкрытьКубик(Эл.Метка.Элемент("НомерКубика"));
			КонецЦикла;
			А2 = А2 - 10;
			В2 = В2 + 10;
		КонецЦикла;
	КонецЕсли;
КонецПроцедуры

Процедура ПроверкаЗаполненияЛинии()
	Таймер1.Остановить();
	
	НомерКубикаНачалаРяда = 191;
	Для А3 = 1 По 20 Цикл
		РядЗаполнен = Истина;
		Пока РядЗаполнен Цикл
			Для А = НомерКубикаНачалаРяда По НомерКубикаНачалаРяда + 9 Цикл
				Эл = Панель2.ЭлементыУправления.Элемент(А - 1);
				Если Эл.Метка.Элемент("ЦветКубика").Имя = "Черный" Тогда
					РядЗаполнен = Ложь;
				КонецЕсли;
			КонецЦикла;
			Если РядЗаполнен Тогда
				// Начислим очки.
				// 1 линия — 100 очков. 
				// если сгорает ряд одного цвета, то очков побольше
				// за каждую сброшенную фигурку 50 очков
				НачисленоОчков = НачисленоОчков + 100;
				ЗаполненоЛиний = ЗаполненоЛиний + 1;
				НадписьЛинии.Текст = "Линии: " + ЗаполненоЛиний;
				НадписьОчки.Текст = "Очки: " + НачисленоОчков;
				
				// Нужно сжечь ряд.
				Для А = НомерКубикаНачалаРяда По НомерКубикаНачалаРяда + 9 Цикл		
					Эл = Панель2.ЭлементыУправления.Элемент(А - 1);
					СкрытьКубик(Эл.Метка.Элемент("НомерКубика"));
				КонецЦикла;
				УбратьПустыеЛинии(НомерКубикаНачалаРяда);
			КонецЕсли;
			Если РядЗаполнен Тогда
				Панель2.Обновить();
				Приостановить(500);
			КонецЕсли;
			
		КонецЦикла;
		
		// Для завершения игры.
		ВсеКлеткиЧерные = Истина;
		Для А = 0 По Панель2.ЭлементыУправления.Количество - 1 Цикл
			Эл = Панель2.ЭлементыУправления.Элемент(А);
			Если Не (Эл.Метка.Элемент("ЦветКубика").Имя = "Черный") Тогда
				ВсеКлеткиЧерные = Ложь;
			КонецЕсли;
		КонецЦикла;
		Если ВсеКлеткиЧерные Тогда
			Ф.Предупреждение("Игра окончена", , "Игра окончена");
			Возврат;
		КонецЕсли;
		
		НомерКубикаНачалаРяда = НомерКубикаНачалаРяда - 10;
	КонецЦикла;
	
	Таймер1.Начать();
КонецПроцедуры // ПроверкаЗаполненияЛинии

Процедура СоздатьПовернутуюФигуру(Номер_Фигуры, Смещение_Колонки, Смещение_Строки)
	// Сохраним данные для случая отката.
	МДо = Новый Массив();
	Для А = 0 По Панель2.ЭлементыУправления.Количество - 1 Цикл
		Эл = Панель2.ЭлементыУправления.Элемент(А);
		Если Не (Эл.Метка.Элемент("ЦветКубика").Имя = "Черный") Тогда
			МДо.Добавить(Эл.Метка.Элемент("НомерКубика"));
		КонецЕсли;
	КонецЦикла;
	
	МКубикиПадающейФигуры.Очистить();
	МНомераКубиковНовойФигуры.Очистить();
	
	НомерФигуры = Номер_Фигуры;
	СмещениеКолонки = Смещение_Колонки;
	СмещениеСтроки = Смещение_Строки * 10;
	
	Если НомерФигуры = 1 Тогда // Тогда Z 
		ДобавитьКубикВНовуюФигуру(СмещениеКолонки, СмещениеСтроки, 1, 2, 12, 13);
	ИначеЕсли НомерФигуры = 2 Тогда // Тогда S 
		ДобавитьКубикВНовуюФигуру(СмещениеКолонки, СмещениеСтроки, 2, 3, 11, 12);
	ИначеЕсли НомерФигуры = 3 Тогда // Тогда J 
		ДобавитьКубикВНовуюФигуру(СмещениеКолонки, СмещениеСтроки, 21, 2, 12, 22);
	ИначеЕсли НомерФигуры = 5 Тогда // Тогда L 
		ДобавитьКубикВНовуюФигуру(СмещениеКолонки, СмещениеСтроки, 1, 11, 21, 22);
	ИначеЕсли НомерФигуры = 6 Тогда // Тогда I 
		ДобавитьКубикВНовуюФигуру(СмещениеКолонки, СмещениеСтроки, 1, 11, 21, 31);
	ИначеЕсли НомерФигуры = 7 Тогда // Тогда T 
		ДобавитьКубикВНовуюФигуру(СмещениеКолонки, СмещениеСтроки, 1, 2, 3, 12);
	ИначеЕсли НомерФигуры = 8 Тогда // Тогда Z1 
		ДобавитьКубикВНовуюФигуру(СмещениеКолонки, СмещениеСтроки, 2, 11, 12, 21);
	ИначеЕсли НомерФигуры = 9 Тогда // Тогда S1 
		ДобавитьКубикВНовуюФигуру(СмещениеКолонки, СмещениеСтроки, 12, 22, 23, 33);
	ИначеЕсли НомерФигуры = 10 Тогда // Тогда J1 
		ДобавитьКубикВНовуюФигуру(СмещениеКолонки, СмещениеСтроки, 1, 2, 3, 13);
	ИначеЕсли НомерФигуры = 11 Тогда // Тогда J2
		ДобавитьКубикВНовуюФигуру(СмещениеКолонки, СмещениеСтроки, 1, 2, 11, 21);
	ИначеЕсли НомерФигуры = 12 Тогда // Тогда J3
		ДобавитьКубикВНовуюФигуру(СмещениеКолонки, СмещениеСтроки, 1, 11, 12, 13);
	ИначеЕсли НомерФигуры = 13 Тогда // Тогда L1
		ДобавитьКубикВНовуюФигуру(СмещениеКолонки, СмещениеСтроки, 3, 11, 12, 13);
	ИначеЕсли НомерФигуры = 14 Тогда // Тогда L2
		ДобавитьКубикВНовуюФигуру(СмещениеКолонки, СмещениеСтроки, 1, 2, 12, 22);
	ИначеЕсли НомерФигуры = 15 Тогда // Тогда L3
		ДобавитьКубикВНовуюФигуру(СмещениеКолонки, СмещениеСтроки, 1, 2, 3, 11);
	ИначеЕсли НомерФигуры = 16 Тогда // Тогда I1
		ДобавитьКубикВНовуюФигуру(СмещениеКолонки, СмещениеСтроки, 1, 2, 3, 4);
	ИначеЕсли НомерФигуры = 17 Тогда // Тогда T1
		ДобавитьКубикВНовуюФигуру(СмещениеКолонки, СмещениеСтроки, 1, 11, 12, 21);
	ИначеЕсли НомерФигуры = 18 Тогда // Тогда T2
		ДобавитьКубикВНовуюФигуру(СмещениеКолонки, СмещениеСтроки, 2, 11, 12, 13);
	ИначеЕсли НомерФигуры = 19 Тогда // Тогда T3
		ДобавитьКубикВНовуюФигуру(СмещениеКолонки, СмещениеСтроки, 11, 2, 12, 22);
	КонецЕсли;
	
	ВернутьПозицию = Ложь;
	
	Для А = 0 По МНомераКубиковНовойФигуры.ВГраница() Цикл
		Если МНомераКубиковНовойФигуры[А] < 0 Тогда
			СоздатьФигуру(НомерСледующейФигуры);
			Возврат;
		КонецЕсли;
	КонецЦикла;
	
	Для А = 0 По МНомераКубиковНовойФигуры.ВГраница() Цикл
		Номер = МНомераКубиковНовойФигуры[А];
		КубикПоля = МКубикиИгровогоПоля[Номер];
		Если Не (КубикПоля.ЦветФона = Цвет[0]) Тогда // Место для появления новой фигуры занято.
			ВернутьПозицию = Истина;
		Иначе
			ПоказатьКубик(Номер, Цвет[НомерФигуры], НомерФигуры);
			МКубикиПадающейФигуры.Добавить(МКубикиИгровогоПоля[Номер]);
		КонецЕсли;
	КонецЦикла;
	
	Если ВернутьПозицию Тогда
		Для А = 0 По МНомераКубиковНовойФигуры.ВГраница() Цикл
			НомерКубика = МНомераКубиковНовойФигуры.Получить(А);
			Кубик = Панель2.ЭлементыУправления.Элемент(НомерКубика - 1);
			// Если МНомераКубиковНовойФигуры и МДо совпадают, то их оставить, остальные в черный цвет.
			Если МДо.Найти(НомерКубика) = Неопределено Тогда
				СкрытьКубик(НомерКубика);
			КонецЕсли;
		КонецЦикла;

		Если Номер_Фигуры = 16 Тогда
			НомерФигурыСоСмещением = 6;
		ИначеЕсли Номер_Фигуры = 6 Тогда
			НомерФигурыСоСмещением = 16;
		ИначеЕсли Номер_Фигуры = 8 Тогда
			НомерФигурыСоСмещением = 1;
		ИначеЕсли Номер_Фигуры = 1 Тогда
			НомерФигурыСоСмещением = 8;
		ИначеЕсли Номер_Фигуры = 4 Тогда
			НомерФигурыСоСмещением = 4;
		ИначеЕсли Номер_Фигуры = 2 Тогда
			НомерФигурыСоСмещением = 9;
		ИначеЕсли Номер_Фигуры = 9 Тогда
			НомерФигурыСоСмещением = 2;
		ИначеЕсли Номер_Фигуры = 3 Тогда
			НомерФигурыСоСмещением = 12;
		ИначеЕсли Номер_Фигуры = 10 Тогда
			НомерФигурыСоСмещением = 3;
		ИначеЕсли Номер_Фигуры = 11 Тогда
			НомерФигурыСоСмещением = 10;
		ИначеЕсли Номер_Фигуры = 12 Тогда
			НомерФигурыСоСмещением = 11;
		ИначеЕсли Номер_Фигуры = 5 Тогда
			НомерФигурыСоСмещением = 15;
		ИначеЕсли Номер_Фигуры = 13 Тогда
			НомерФигурыСоСмещением = 5;
		ИначеЕсли Номер_Фигуры = 14 Тогда
			НомерФигурыСоСмещением = 13;
		ИначеЕсли Номер_Фигуры = 15 Тогда
			НомерФигурыСоСмещением = 14;
		ИначеЕсли Номер_Фигуры = 7 Тогда
			НомерФигурыСоСмещением = 19;
		ИначеЕсли Номер_Фигуры = 17 Тогда
			НомерФигурыСоСмещением = 7;
		ИначеЕсли Номер_Фигуры = 18 Тогда
			НомерФигурыСоСмещением = 17;
		ИначеЕсли Номер_Фигуры = 19 Тогда
			НомерФигурыСоСмещением = 18;
		КонецЕсли;
		
		СоздатьФигуруСоСмещением(НомерФигурыСоСмещением, Смещение_Колонки, Смещение_Строки);
	КонецЕсли;
	
КонецПроцедуры // СоздатьПовернутуюФигуру

Процедура ДобавитьКубикВНовуюФигуру(СмещениеКолонки, СмещениеСтроки, НомерКубика1, НомерКубика2, НомерКубика3, НомерКубика4)
	МНомераКубиковНовойФигуры.Добавить(НомерКубика1 + СмещениеКолонки + СмещениеСтроки);
	МНомераКубиковНовойФигуры.Добавить(НомерКубика2 + СмещениеКолонки + СмещениеСтроки);
	МНомераКубиковНовойФигуры.Добавить(НомерКубика3 + СмещениеКолонки + СмещениеСтроки);
	МНомераКубиковНовойФигуры.Добавить(НомерКубика4 + СмещениеКолонки + СмещениеСтроки);
КонецПроцедуры

Процедура СоздатьФигуруСоСмещением(НомерФигуры, Смещение_Колонки, Смещение_Строки)
	МКубикиПадающейФигуры.Очистить();
	МНомераКубиковНовойФигуры.Очистить();
	СмещениеКолонки = Смещение_Колонки;
	СмещениеСтроки = Смещение_Строки * 10;
	
	Если НомерФигуры = 6 Тогда
		СмещениеКолонки = СмещениеКолонки + 1;
	ИначеЕсли НомерФигуры = 16 Тогда
		СмещениеКолонки = СмещениеКолонки - 1;
	ИначеЕсли НомерФигуры = 1 Тогда
		СмещениеКолонки = СмещениеКолонки + 0;
	ИначеЕсли НомерФигуры = 8 Тогда
		СмещениеКолонки = СмещениеКолонки + 0;
	ИначеЕсли НомерФигуры = 2 Тогда
		СмещениеКолонки = СмещениеКолонки + 0;
	ИначеЕсли НомерФигуры = 9 Тогда
		СмещениеКолонки = СмещениеКолонки - 1;
		СмещениеСтроки = (Смещение_Строки - 2) * 10;
	ИначеЕсли НомерФигуры = 3 Тогда
		СмещениеКолонки = СмещениеКолонки + 1;
	ИначеЕсли НомерФигуры = 10 Тогда
		СмещениеКолонки = СмещениеКолонки - 1;
	ИначеЕсли НомерФигуры = 11 Тогда
		СмещениеКолонки = СмещениеКолонки + 1;
	ИначеЕсли НомерФигуры = 12 Тогда
		СмещениеКолонки = СмещениеКолонки + 0;
	ИначеЕсли НомерФигуры = 4 Тогда
		СмещениеКолонки = СмещениеКолонки + 0;
	ИначеЕсли НомерФигуры = 5 Тогда
		СмещениеКолонки = СмещениеКолонки + 1;
	ИначеЕсли НомерФигуры = 13 Тогда
		СмещениеКолонки = СмещениеКолонки + 0;
	ИначеЕсли НомерФигуры = 14 Тогда
		СмещениеКолонки = СмещениеКолонки + 1;
	ИначеЕсли НомерФигуры = 15 Тогда
		СмещениеКолонки = СмещениеКолонки - 1;
	ИначеЕсли НомерФигуры = 7 Тогда
		СмещениеКолонки = СмещениеКолонки + 0;
	ИначеЕсли НомерФигуры = 17 Тогда
		СмещениеКолонки = СмещениеКолонки + 1;
	ИначеЕсли НомерФигуры = 18 Тогда
		СмещениеКолонки = СмещениеКолонки + 0;
	ИначеЕсли НомерФигуры = 19 Тогда
		СмещениеКолонки = СмещениеКолонки + 0;
	КонецЕсли;
	
	Если НомерФигуры = 1 Тогда // Тогда Z 
		ДобавитьКубикВНовуюФигуру(СмещениеКолонки, СмещениеСтроки, 1, 2, 12, 13);
	ИначеЕсли НомерФигуры = 2 Тогда // Тогда S 
		ДобавитьКубикВНовуюФигуру(СмещениеКолонки, СмещениеСтроки, 2, 3, 11, 12);
	ИначеЕсли НомерФигуры = 3 Тогда // Тогда J 
		ДобавитьКубикВНовуюФигуру(СмещениеКолонки, СмещениеСтроки, 21, 2, 12, 22);
	ИначеЕсли НомерФигуры = 5 Тогда // Тогда L 
		ДобавитьКубикВНовуюФигуру(СмещениеКолонки, СмещениеСтроки, 1, 11, 21, 22);
	ИначеЕсли НомерФигуры = 6 Тогда // Тогда I 
		ДобавитьКубикВНовуюФигуру(СмещениеКолонки, СмещениеСтроки, 1, 11, 21, 31);
	ИначеЕсли НомерФигуры = 7 Тогда // Тогда T 
		ДобавитьКубикВНовуюФигуру(СмещениеКолонки, СмещениеСтроки, 1, 2, 3, 12);
	ИначеЕсли НомерФигуры = 8 Тогда // Тогда Z1 
		ДобавитьКубикВНовуюФигуру(СмещениеКолонки, СмещениеСтроки, 2, 11, 12, 21);
	ИначеЕсли НомерФигуры = 9 Тогда // Тогда S1 
		ДобавитьКубикВНовуюФигуру(СмещениеКолонки, СмещениеСтроки, 12, 22, 23, 33);
	ИначеЕсли НомерФигуры = 10 Тогда // Тогда J1 
		ДобавитьКубикВНовуюФигуру(СмещениеКолонки, СмещениеСтроки, 1, 2, 3, 13);
	ИначеЕсли НомерФигуры = 11 Тогда // Тогда J2
		ДобавитьКубикВНовуюФигуру(СмещениеКолонки, СмещениеСтроки, 1, 2, 11, 21);
	ИначеЕсли НомерФигуры = 12 Тогда // Тогда J3
		ДобавитьКубикВНовуюФигуру(СмещениеКолонки, СмещениеСтроки, 1, 11, 12, 13);
	ИначеЕсли НомерФигуры = 13 Тогда // Тогда L1
		ДобавитьКубикВНовуюФигуру(СмещениеКолонки, СмещениеСтроки, 3, 11, 12, 13);
	ИначеЕсли НомерФигуры = 14 Тогда // Тогда L2
		ДобавитьКубикВНовуюФигуру(СмещениеКолонки, СмещениеСтроки, 1, 2, 12, 22);
	ИначеЕсли НомерФигуры = 15 Тогда // Тогда L3
		ДобавитьКубикВНовуюФигуру(СмещениеКолонки, СмещениеСтроки, 1, 2, 3, 11);
	ИначеЕсли НомерФигуры = 16 Тогда // Тогда I1
		ДобавитьКубикВНовуюФигуру(СмещениеКолонки, СмещениеСтроки, 1, 2, 3, 4);
	ИначеЕсли НомерФигуры = 17 Тогда // Тогда T1
		ДобавитьКубикВНовуюФигуру(СмещениеКолонки, СмещениеСтроки, 1, 11, 12, 21);
	ИначеЕсли НомерФигуры = 18 Тогда // Тогда T2
		ДобавитьКубикВНовуюФигуру(СмещениеКолонки, СмещениеСтроки, 2, 11, 12, 13);
	ИначеЕсли НомерФигуры = 19 Тогда // Тогда T3
		ДобавитьКубикВНовуюФигуру(СмещениеКолонки, СмещениеСтроки, 11, 2, 12, 22);
	КонецЕсли;
	
	Для А = 0 По МНомераКубиковНовойФигуры.ВГраница() Цикл
		Номер = МНомераКубиковНовойФигуры[А];
		КубикПоля = МКубикиИгровогоПоля[Номер];
		ПоказатьКубик(Номер, Цвет[НомерФигуры], НомерФигуры);
		МКубикиПадающейФигуры.Добавить(МКубикиИгровогоПоля[Номер]);
	КонецЦикла;
КонецПроцедуры // СоздатьФигуруСоСмещением

Процедура СоздатьФигуру(НомерФигуры)
	Если НомерФигуры = 8 Тогда
		НомерФигуры = 1;
	ИначеЕсли НомерФигуры = 9 Тогда
		НомерФигуры = 2;
	ИначеЕсли НомерФигуры = 10 Тогда
		НомерФигуры = 3;
	ИначеЕсли НомерФигуры = 11 Тогда
		НомерФигуры = 3;
	ИначеЕсли НомерФигуры = 12 Тогда
		НомерФигуры = 3;
	ИначеЕсли НомерФигуры = 13 Тогда
		НомерФигуры = 5;
	ИначеЕсли НомерФигуры = 14 Тогда
		НомерФигуры = 5;
	ИначеЕсли НомерФигуры = 15 Тогда
		НомерФигуры = 5;
	ИначеЕсли НомерФигуры = 16 Тогда
		НомерФигуры = 6;
	ИначеЕсли НомерФигуры = 17 Тогда
		НомерФигуры = 7;
	ИначеЕсли НомерФигуры = 18 Тогда
		НомерФигуры = 7;
	ИначеЕсли НомерФигуры = 19 Тогда
		НомерФигуры = 7;
	КонецЕсли;
	
	МКубикиПадающейФигуры.Очистить();
	МНомераКубиковНовойФигуры.Очистить();
	Если НомерФигуры = 1 Тогда // Тогда Z 
		ДобавитьКубикВНовуюФигуру(4, 0, 1, 2,12, 13);
	ИначеЕсли НомерФигуры = 2 Тогда // Тогда S 
		ДобавитьКубикВНовуюФигуру(4, 0, 2, 3,11, 12);
	ИначеЕсли НомерФигуры = 3 Тогда // Тогда J 
		ДобавитьКубикВНовуюФигуру(4, 0,21, 2,12, 22);
	ИначеЕсли НомерФигуры = 4 Тогда // Тогда O 
		ДобавитьКубикВНовуюФигуру(4, 0, 1,11, 2, 12);
	ИначеЕсли НомерФигуры = 5 Тогда // Тогда L 
		ДобавитьКубикВНовуюФигуру(4, 0, 1,11,21, 22);
	ИначеЕсли НомерФигуры = 6 Тогда // Тогда I 
		ДобавитьКубикВНовуюФигуру(4, 0, 1,11,21, 31);
	ИначеЕсли НомерФигуры = 7 Тогда // Тогда T 
		ДобавитьКубикВНовуюФигуру(4, 0, 1, 2, 3, 12);
	КонецЕсли;
	Для А = 0 По МНомераКубиковНовойФигуры.ВГраница() Цикл
		Номер = МНомераКубиковНовойФигуры[А];
		КубикПоля = МКубикиИгровогоПоля[Номер];
		Если Не (КубикПоля.ЦветФона = Цвет[0]) Тогда // Место для появления новой фигуры занято.
			Таймер1.Остановить();
			ПолеВыбора1.Доступность = Истина;
			Ф.Предупреждение("Игра окончена", , "Игра окончена");
			МКубикиПадающейФигуры.Очистить();
			Возврат;
		Иначе
			ПоказатьКубик(Номер, Цвет[НомерФигуры], НомерФигуры);
			МКубикиПадающейФигуры.Добавить(МКубикиИгровогоПоля[Номер]);
		КонецЕсли;
	КонецЦикла;
КонецПроцедуры // СоздатьФигуру

Функция Пауза()
	Если Таймер1.Активен Тогда
		Таймер1.Остановить();
		ПаузаВключена = Истина;
		Форма1.Текст = "Тетрис (OneScript) ПАУЗА";
	Иначе
		Если МКубикиПадающейФигуры.Количество() > 0 Тогда
			Таймер1.Начать();
			ПаузаВключена = Ложь;
			Форма1.Текст = "Тетрис (OneScript)";
		КонецЕсли;
	КонецЕсли;
КонецФункции

Процедура ПоказатьКубик(НомерКубика, ЦветКубика, НомерФигуры)
	Кубик = МКубикиИгровогоПоля[НомерКубика];
	Кубик.ЦветФона = ЦветКубика;
	
	Кубик.Метка.Удалить("ЦветКубика");
	Кубик.Метка.Добавить(ЦветКубика, "ЦветКубика");
	Кубик.Метка.Удалить("НомерФигуры");
	Кубик.Метка.Добавить(НомерФигуры, "НомерФигуры");
КонецПроцедуры

Процедура СкрытьКубик(НомерКубика)
	Кубик = МКубикиИгровогоПоля[НомерКубика];
	Кубик.ЦветФона = Цвет[0];
	
	Кубик.Метка.Удалить("ЦветКубика");
	Кубик.Метка.Добавить(Цвет[0], "ЦветКубика");
	Кубик.Метка.Удалить("НомерФигуры");
	Кубик.Метка.Добавить(0, "НомерФигуры");
КонецПроцедуры

Процедура СледующаяФигура(НомерФигуры)
	Панель4.ЭлементыУправления.Очистить();
	Если НомерФигуры = 1 Тогда // Тогда Z 
		СоздатьСледующийКубик(НомерФигуры, 0, 0);
		СоздатьСледующийКубик(НомерФигуры, 1, 0);
		СоздатьСледующийКубик(НомерФигуры, 1, 1);
		СоздатьСледующийКубик(НомерФигуры, 2, 1);
	ИначеЕсли НомерФигуры = 2 Тогда // Тогда S 
		СоздатьСледующийКубик(НомерФигуры, 0, 1);
		СоздатьСледующийКубик(НомерФигуры, 1, 0);
		СоздатьСледующийКубик(НомерФигуры, 1, 1);
		СоздатьСледующийКубик(НомерФигуры, 2, 0);
	ИначеЕсли НомерФигуры = 3 Тогда // Тогда J 
		СоздатьСледующийКубик(НомерФигуры, 0, 2);
		СоздатьСледующийКубик(НомерФигуры, 1, 0);
		СоздатьСледующийКубик(НомерФигуры, 1, 1);
		СоздатьСледующийКубик(НомерФигуры, 1, 2);
	ИначеЕсли НомерФигуры = 4 Тогда // Тогда O 
		СоздатьСледующийКубик(НомерФигуры, 0, 0);
		СоздатьСледующийКубик(НомерФигуры, 0, 1);
		СоздатьСледующийКубик(НомерФигуры, 1, 0);
		СоздатьСледующийКубик(НомерФигуры, 1, 1);
	ИначеЕсли НомерФигуры = 5 Тогда // Тогда L 
		СоздатьСледующийКубик(НомерФигуры, 0, 0);
		СоздатьСледующийКубик(НомерФигуры, 0, 1);
		СоздатьСледующийКубик(НомерФигуры, 0, 2);
		СоздатьСледующийКубик(НомерФигуры, 1, 2);
	ИначеЕсли НомерФигуры = 6 Тогда // Тогда I 
		СоздатьСледующийКубик(НомерФигуры, 0, 0);
		СоздатьСледующийКубик(НомерФигуры, 0, 1);
		СоздатьСледующийКубик(НомерФигуры, 0, 2);
		СоздатьСледующийКубик(НомерФигуры, 0, 3);
	ИначеЕсли НомерФигуры = 7 Тогда // Тогда T 
		СоздатьСледующийКубик(НомерФигуры, 0, 0);
		СоздатьСледующийКубик(НомерФигуры, 1, 0);
		СоздатьСледующийКубик(НомерФигуры, 2, 0);
		СоздатьСледующийКубик(НомерФигуры, 1, 1);
	КонецЕсли;
КонецПроцедуры

Функция СоздатьСледующийКубик(НомерФигуры, НомерКолонки, НомерСтроки)
	Кубик = Панель4.ЭлементыУправления.Добавить(Ф.Надпись());
	Кубик.Границы = Ф.Прямоугольник((НомерКолонки * 23) + СмещениеХ[НомерФигуры], (НомерСтроки * 23) + СмещениеУ[НомерФигуры], 24, 24);
	Кубик.СтильГраницы = Ф.СтильГраницы.Одинарная;
	Кубик.ЦветФона = Цвет[НомерФигуры];

	Возврат Кубик;
КонецФункции

Процедура Форма1_КлавишаНажата() Экспорт
	ВремяТекущегоНажатия = ТекущаяУниверсальнаяДатаВМиллисекундах();
	Если Не((ВремяТекущегоНажатия - ВремяПредыдущегоНажатия) > ИнтервалБыстрый) Тогда
		Возврат;
	КонецЕсли;
	КодНажатойКлавиши = Ф.АргументыСобытия.КодКлавиши;
	
	Если КодНажатойКлавиши = 80 Тогда // P
		Пауза();
	КонецЕсли;
	Если Не ПаузаВключена Тогда
		Если КодНажатойКлавиши = 27 Тогда // Esc
			// Диалог о прекращении игры.
			Таймер1.Остановить();
			Если Форма2.ПоказатьДиалог() = Ф.РезультатДиалога.Нет Тогда
				Таймер1.Начать();
				Возврат;
			КонецЕсли;
			НадписьЛинии.Текст = "Линии: ";
			НадписьОчки.Текст = "Очки: ";

			Таймер1.Остановить();
			ОчиститьПоля();
			ПолеВыбора1.Доступность = Истина;
			МКубикиПадающейФигуры.Очистить();
		ИначеЕсли КодНажатойКлавиши = 113 Тогда // F2
			ОчиститьПоля();
			Старт();
		ИначеЕсли КодНажатойКлавиши = 37 Тогда // Влево.
			Таймер1.Интервал = ИнтервалБыстрый;
			Сдвиг = 1;
		ИначеЕсли КодНажатойКлавиши = 39 Тогда // Вправо.
			Таймер1.Интервал = ИнтервалБыстрый;
			Сдвиг = 2;
		ИначеЕсли КодНажатойКлавиши = 38 Тогда // Поворот.
			Сдвиг = 3;
		ИначеЕсли КодНажатойКлавиши = 40 Тогда // Вниз.
			Таймер1.Интервал = ИнтервалБыстрый;
		КонецЕсли;
	КонецЕсли;
	ВремяПредыдущегоНажатия = ВремяТекущегоНажатия;
КонецПроцедуры

Процедура ОчиститьПоля()
	Для А = 0 По Панель2.ЭлементыУправления.Количество - 1 Цикл
		Эл = Панель2.ЭлементыУправления.Элемент(А);
		Эл.ЦветФона = Цвет[0];
	КонецЦикла;
	МУдаляемых.Очистить();
	Для А = 0 По Панель4.ЭлементыУправления.Количество - 1 Цикл
		МУдаляемых.Добавить(Панель4.ЭлементыУправления(А));
	КонецЦикла;
	Панель4.ЭлементыУправления.Очистить();
	Для А = 0 По МУдаляемых.ВГраница() Цикл
		Эл = МУдаляемых[А];
		Эл.Освободить();
	КонецЦикла;
КонецПроцедуры

Процедура Форма1_ПриЗакрытии() Экспорт
	Таймер1.Остановить();
КонецПроцедуры

ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptForms\OneScriptForms\bin\Debug\OneScriptForms.dll");
Ф = Новый ФормыДляОдноСкрипта();
Форма1 = Ф.Форма();
Форма1.НачальноеПоложение = Ф.НачальноеПоложениеФормы.ЦентрЭкрана;
Форма1.Размер = Ф.Размер(410, 536);
Форма1.Текст = "Тетрис (OneScript)";
Форма1.ЦветФона = Ф.Цвет("Черный");
Форма1.ОсновнойЦвет = Ф.Цвет("Зеленый");
Форма1.КлавишаПредпросмотр = Истина;
Форма1.СтильГраницыФормы = Ф.СтильГраницыФормы.Диалоговая;
Форма1.КнопкаМинимизации = Истина;
Форма1.КнопкаМаксимизации = Ложь;

Форма1.КлавишаВниз = Ф.Действие(ЭтотОбъект, "Форма1_КлавишаНажата");
СтрКартинка = "/9j/4AAQSkZJRgABAQEAeAB4AAD/2wBDAAgGBgcGBQgHBwcJCQgKDBQNDAsLDBkSEw8UHRofHh0aHBwgJC4nICIsIxwcKDcpLDAxNDQ0Hyc5PTgyPC4zNDL/2wBDAQkJCQwLDBgNDRgyIRwhMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjL/wAARCAIYAZoDASIAAhEBAxEB/8QAHwAAAQUBAQEBAQEAAAAAAAAAAAECAwQFBgcICQoL/8QAtRAAAgEDAwIEAwUFBAQAAAF9AQIDAAQRBRIhMUEGE1FhByJxFDKBkaEII0KxwRVS0fAkM2JyggkKFhcYGRolJicoKSo0NTY3ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqDhIWGh4iJipKTlJWWl5iZmqKjpKWmp6ipqrKztLW2t7i5usLDxMXGx8jJytLT1NXW19jZ2uHi4+Tl5ufo6erx8vP09fb3+Pn6/8QAHwEAAwEBAQEBAQEBAQAAAAAAAAECAwQFBgcICQoL/8QAtREAAgECBAQDBAcFBAQAAQJ3AAECAxEEBSExBhJBUQdhcRMiMoEIFEKRobHBCSMzUvAVYnLRChYkNOEl8RcYGRomJygpKjU2Nzg5OkNERUZHSElKU1RVVldYWVpjZGVmZ2hpanN0dXZ3eHl6goOEhYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4uPk5ebn6Onq8vP09fb3+Pn6/9oADAMBAAIRAxEAPwDhy/mRkKC+ONu7Ht3/AC/zinojrKqgZbPGDx1pEJV9m0ZIzjIP4/5/LtQGWOR2DBmkXHXnt9f8/qASTyjH39/IyBn24zUEeSd5z2YDnA/P+f8AkuYs4yV+UDaq46f4n/P1e2dw/dcBQAAw9aAIWVmTc7bgX+4Aeehx1qURAIAvJIOTz3HH6/0pyKS+WkxzkEKPbt+dOcjZnIALjk9SKAFRPLZgxywJx1yPU/8A16heQ5b5w2TwCPcf1P6e9LHCXZwqk7l2k5IABIz/AJ/nUscaqFWLJJbJ28Z+p9P8/UAjt0Mc7Bj1OcA44zQWbaG3MXfouc46CpVjjRWZT97q2SSef8/56gcBAgzkMoPB6cfrQBXIEQHzn733gvLf5zQpkkkYJ82R8o/z/nmiSV8JGGVTnIAXPOP/AK9PhSRgGbJ3HgMecDigBxR4xtkf94cE7TnHFNMcruoyURFGFHIP/wBf/P1lVEUkxKXZuNwPA9f8/wCSNEwx8zbgoJyvYf560AIImihDb8yPjDdcjj/P+eYWBYoiEhsbjz+PP51PJGCVPDKAB7ducGmqwCYO8nHA29OP/rUAROV2GNBvxxjdgnt/Xr70qI6yqoGWzxg8daVQSWkIJYnGCf1/n/nq0MscjsGDNIuOvPb6/wCf1AJJ5Rj7+/kZAz7cZqCPJO857MBzgfn/AD/yXMWcZK/KBtVcdP8AE/5+r2zuH7rgKAAGHrQBCysybnbcC/3ADz0OOtTJHt2bCdxPJGeM/wD66VFJfLSY5yCFHt2/Ons2F3qcZbAOeSMdvzoARnYybN5OfvCNulI2+ONByxwFwCeSepJ/CkjTa5ck79uQCen+cf57JIHxubfjPyn245oAaVPGdwOOdvG0e1S7ykQWMgEnGdxPPHJ/z/8AWTAJb5iqDkKOtKqjKlQ4+UEMecce3+f6AD5pWhhDEMMkquCck/X8Kqwbt7fe57Mc7vc/4VM0RY87nKrzxwv+RTBlY8qqAjt07Dv/AJ70AShvJjU5LMepY9P856VCkm9cK2eMctgfr/nj8kYsE+bYOd36Y/OnRuY34VcgbuTnv14oAlOYth5dhjAH5c1GDMGbLDAHJJ/zzjH+ejySqDbsHIBO7jPf/P8AkJGxBBVVOSCG25Pt/n+VAAp2nJ3nGDuJ6dOnPp/n0Fbb+8ffwTgKScc5/H9KkGZZfvA8Z6cY6ZPv7UJsDt1LbSSQAMc/5/8ArUAMHmSDdl8Z5JyAOn5d6hYK0jRhWYKxJ6nJ+neppZFIRePmcZ6DilhKx7hkMx5xnAGSPT6UAPTDclVGMYLA9cf0prOu4BA+44UsfX86cFUiRWIDAHjjA/L/AD/SN5drERjaM84HP/6//rdOwAM7GTZvJz94Rt0pG3xxoOWOAuATyT1JP4UkabXLknftyAT0/wA4/wA9kkD43Nvxn5T7cc0ANKnjO4HHO3jaPapd5SILGQCTjO4nnjk/5/8ArJgEt8xVByFHWlVRlSocfKCGPOOPb/P9AB80rQwhiGGSVXBOSfr+FVYN29vvc9mOd3uf8KmaIsedzlV544X/ACKYMrHlVQEdunYd/wDPegCUN5ManJZj1LHp/nPSq+/zIsKC+ONu7Ht3/L/OKViwT5tg53fpj86VCVfZtGSM4yD+P+fy7UAAbDGI4yOqgnB/z/n2aFYAMVwGPTOSc9z/AJ7/AJuY7XDYB3EDORz3x3/rSttEkcrkAowO0n/Pr/nuATM5WNVaTDgfd59u9VFJdlPzKvTAJ54HP6/57yF2kOADtJ3N/tfU+mKVf9UoEfVt2Qeowe1ADCHcnD7VVccD079aiCJtHydvU1YClyuSFXGMcHHTv34qwEXAzO3T+7QAyMscF3EhVgCF4A46f/WpEBYnzdjccLyT+p61EGZkDjOeoxnrjgVKi7lkwR6ZYdeo/wA/5yAPWWKOFmDncxwBnA4//XTI5Xd22qqoThnJ5brz/wDqoljyVAOUUHAXpk/59Kj3IHAQn5RklgM8+lACSHey7l4UZz69ac8ETjzJeVILcnOetMeN1IGPmyc5GMCrCruU+Z8wXqFGV/P/AD1oARY/vkhsHhVGB+frTCZJHVVGCcnap6fjSNO37t2yMgsVx/Sq8LlYsqZMDABYYGDQBNsUZQ7SoyoGcg5FSpmXd8uI8nGzv/Sq8EjY2gAYznJOT1/X/P1maVgmJCoz/CM8Lj0z/nJ/EARpSArhTjBxxx3GfrmgO62oL98Hp+NMUljglgG6Y4OM9/8AP/12opldSSTj16dMUAKZWaRgkYHTGzgn9fr+n4zeWGmyxDDbjHr15qJH8p1jUEgc5H/66cjvOxUrwBjAUgc85b0oAkMjiJlASPODzkFv8g0kIDMRmNVReAOeuc/j1p2GfLeZGoA9c9fQetLHFFtVU2YBwCD9evvzQA2MFcOVOC25ucH8etCAsT5uxuOF5J/U9aZIfmOxs7eV9ST9Kei7lkwR6ZYdeo/z/nIA9ZYo4WYOdzHAGcDj/wDXTI5Xd22qqoThnJ5brz/+qiWPJUA5RQcBemT/AJ9Kj3IHAQn5RklgM8+lACSHey7l4UZz69ac8ETjzJeVILcnOetMeN1IGPmyc5GMCrCruU+Z8wXqFGV/P/PWgBFj++SGweFUYH5+tMJkkdVUYJydqnp+NI07fu3bIyCxXH9KrwuViypkwMAFhgYNAE2xRlDtKjKgZyDkVKmZd3y4jycbO/8ASq8EjY2gAYznJOT1/X/P1maVgmJCoz/CM8Lj0z/nJ/EAUHfGShC5Od23JHBFOLosag5bPAGOf5e9QoCxyqsfbHvgZ/AelWQAoUs5HydCM/5/WgBk84STZGmGTC4I6nj1pod9gLSKzg7eAMDjp/8AWpoVIz8yluS3DYJP4UiAzR55xjPXAFABEA7AMB855J/D/P8Anl+xQdka4kPOQenSok/1rHzAoPIAGSRVhtyFY1TliN+WBOKAEYCJVA2qTgFjkk1Fs/dtK2AQxC7uSTxj/CoXcsNiqzEvkYbAH/1uaR2KheAANrAZzj/P9fzALA3ICI87icD5evQ1IwMZXgeYxxu47+3pyKhjdzGGEoGRk4A+Xp/P/PuO+/5V5U4G7AAA45x75/X8wBD5m9AAVTO7Oe2O579KdJMUdlVvmxtzwef8mozhlDAZYnHHfrThGsaBmwuSSoPOeKAHQiQncwxxgdufy6dPyH4vjUxxqkeCeoyBnH0qETSBCwAVs5zxwAOp9qmRWEQY8Z7kZJ7npQAkkjB1Z5fmAAJKcBu2P0/z1UBWgjXduJxuz2yB/PNLiKPYWlLY5HynCk1I4VUYtw3bjvj/APVQBGwbawDAHPL4yRxjuaUuixqDls8AY5/l71EFJbKgtnk8dScfp17VYAChSzkfJ0Iz/n9aAGTzhJNkaYZMLgjqePWiMsQC7iQqQCF4A46f/WqMKkZ+ZS3JbhsEn8KaGZow4znqMZ644FAEoMhJR5AMrkIOvTGf/r0rEs4ztWP+6xJJ4H6dahyXLqGJA4yB+tSRZeRcnnORkdBz6+w/z3AJEMMcpLEpsUkheP8APX9aj892l/doGYc7ic468elOkjPklVZQXPzbO4z+v6ioX8sDbg7nONrAY/z/AJ+oA+cllKHDbjyR24//AF1CQm49evr/APWp8isVZ+Wz0yOvNM2y/wB9R+NAD5ZXVDjacHAGevTnipYwQgMsp+Y9M9vxpnlRFj8oLEnIycY/XnmnzbndFIIA4UbfXjP+f/1gELzOxVsJznAC5HP9aIGk8tWKYZuFO3kY/wD10edkyKiow25zz9O1OMaMF3OyqM5bPYf5/wA5oAij/eGUHLeoPP8AXjPP+es5bAA7bjjuO/OPpilCpHDIkShlwMFv4j74+tNMflqznDODtU44J9RQBWuJGbKgAsR909R/kU4ZJZSCwOOe3+ealZFUHdIwHUkjJP41GGWSYKrfLyxyOOf8/wCe4ABgQ2AgZjgngbR649amaJI4w27LMSWLnj2/z3/GooEWR2AXdgjO7GCTx3qZwhw2/wAzA9Mj8BQAhVQ7FsnnJK8k9z296j3PtxGCEwR/kVPPHhAzDBY8hePwP+e9RgKqMdpZyMjj354oAj27EK7cuR6EAdanQlBkbmMnPTr/AJFRoN7MSevcjqTn8KkZVwuQoyOaAIxl8iTKZPAzyfpTo5Bs+WQBNxHXrx1PWlk2JlgWZl5Htmm/ZcoBISFA4HTpnOe9ADWk8uEhdm7OACeeD1qaMEIDLKfmPTPb8aYIlbnAZVyBxjg89qfNud0UggDhRt9eM/5//WAQvM7FWwnOcALkc/1ogaTy1Yphm4U7eRj/APXR52TIqKjDbnPP07U4xowXc7Kozls9h/n/ADmgCKP94ZQct6g8/wBeM8/56zlsADtuOO4784+mKUKkcMiRKGXAwW/iPvj600x+WrOcM4O1Tjgn1FAFa4kZsqACxH3T1H+RThkllILA457f55qVkVQd0jAdSSMk/jUYZZJgqt8vLHI45/z/AJ7gAGBDYCBmOCeBtHrj1qZokjjDbssxJYuePb/Pf8aigRZHYBd2CM7sYJPHepnCHDb/ADMD0yPwFAEbK8l15W75ep4yc5/+vUruIspEzKwODnsMf/qqQK4kOFXzGzgAYxnH+f8APMBYKGJycnHJ6569KAIm84sFUtjfnnHfv7064YmLaxGAdoGRz74/z/iqyO6xtJjhc/dxz/8Aqp4SAMTtLSEnABOAe2fzoARSQiHjJUYB5yOP6GgucNtGVB5wcjoP14FSOGkIBfgDkAdTx39KRowSE25jUZ+poApgOz7znaFwMjkmnlmjTJ+UgYP4U53iQ8li7dT+vFM3KIcuDuZs7CeaAJk2TyhGOVAGEGRx3pzFC8gXAxk7cZx0xz/ShCgjXzGxuGSqk8kj+X+PvUkQ3S+UmRkZIGCcfSgCF2Vf4c5P3ic9O+PTmmbHY8sCASTjFSOFNwyADn72G7f4UOxbaFTC9MA/xZ7+vUUANHzMoI2L0xn6HmnuXddqbT2GT/ninRIflxnPfI9s/wCf85B5b7t3Ix6dv8mgCJiiguBlw23djoTTnZA20Nlg2RkfSjAlkUKNoxvzkcZPWnCJFX93ksRwVJPQD9KAIiTPcbFfKAY6d8/SpncRZSJmVgcHPYY//VT0Qo2EALHOOAOuM1CWChicnJxyeuevSgCJvOLBVLY355x37+9SSyusZxtODgDPXpzxSLI7rG0mOFz93HP/AOqniKIsflBY5yMnGP155oAA7qoywPG4nP6UluXdPMd9iqOinpT5kjaTLLhtoCjkEnpTnBEBjQbUOckAnPPT/Pr+YBHNKcMq7dq45AyT0Pao43dndmjBVecbeOemPzpzSBJEUKpJPIPbI9qAPMRs8bjng4xzQA13Y3Q3kk46ev0GfT+dIbdtx/doefSp444o5P3bF2OQzHHHGP8AGoDuLE+VCOfQ0ATEDYApO51HU9eMn/P+SkgkY4VskA5ZugB/l/n8ZcKJNrZZhxjjn+mKhO8o4UKQTnnPagBQAvb5T0PXd1/SnFA7kcJggAAZ659vb/Pdk7tuwHy2OTngZ6AU8DcrkkAOTn3+pP1oAjmkGFIyODgDr/nH+fVzEKMAsSSeQfTtRJCpjJeTcxBwDzk/l/n+bH+ZkO8YTdkA/wBKAEkUNkMScE7j1z6CmPEcYDAAAnAOBVlk2LGSV4DABjjnnJ/z/wDrgkVSx3ENxgjnmgB6Qog2jc6jk7eR+f5/n+cixqylNpYbuBjr1/z/AJNR/wDLNQF3Fic4HXr6fWnGfCgKF5ztwhwD3NABdlZVVnYt2AB468cenOP88teRklyAGIz1HHpUYclQQjMeRxk/545qaIFB85ZSD1Tjnn/6/wCXegBELRplxyeQB6c9u3/1z+L2wTvfruz17DPr9aZGwkGMYUjh5ACSPzqKeV5XIjQfMOMAYx/kUASqEYsN+4E8ljkt+XalJEhJbf7hRj8/Skt0KxFmb7owoA7nP+fxpOWTIKYbnABx3zz/AJ/xAH5dg6E8k7Rk+gP+c0kgkY4VskA5ZugB/l/n8XptO1vnOe20YPf/AD1qM7yjhQpBOec9qAFAC9vlPQ9d3X9KcUDuRwmCAABnrn29v892Tu27AfLY5OeBnoBTwNyuSQA5Off6k/WgCOaQYUjI4OAOv+cf59XMQowCxJJ5B9O1EkKmMl5NzEHAPOT+X+f5sf5mQ7xhN2QD/SgBJFDZDEnBO49c+gpjxHGAwAAJwDgVZZNixkleAwAY455yf8//AK4JFUsdxDcYI55oAekKINo3Oo5O3kfn+f5/nIsaspTaWG7gY69f8/5NR/8ALNQF3Fic4HXr6fWnGfCgKF5ztwhwD3NADnIkcu0mRjsMAj/D/P1asTlwP4jkpGO3Oc5FIrFrTOMAtjJbOeePbvShvm3PL8jLyAMbh6UAOUsu71HBY+2P8/40IQoVgGYlVPX2yTUCfMTzwewGcA4/M1YZU3YZjlepJ/zxQBArKZShGeMn1PI7U59pLZAG1iMDJ7jj+dK3lxsvlkgds9+R279/89VghxKdoJyxbpx1/wDr0AR7PnbIIPO7nPTt+VRrHDv+dx0LHg+2KmZ4huXzQVBJPHX1zSIp3LtVsAg5x75xQA/5AMbQMnj5sn/PP+e8wJU5PBOFbnOTx19vyqHc6tuAIUnA6cjj/P8AnljySOFyG2q2OQOementQAnyCSTYu1egI75Pv/n+qhZ3G0ZWPdn2/wAkUeXMx5XaoPGcHJ9P1FOfHy4i3SE/3jjOOp4+n+eoAqvuwigY6Z49s8f5/wAUkaLoQCWIwAT8xHH5U7zmVBuc72wuO34cVVUSSMsjNhR2HNAFosFTcCTztY4+lNIGDhcPjqWyT/8AW6frTnKqI41Yjgbjw2c/X3pAQHBJYjvzg9jnI7UALgMcs/AXoMjPA/T/AD9UWJy4H8RyUjHbnOcinuCICNpUZAJLZ5P6d6YG+bc8vyMvIAxuHpQA5Sy7vUcFj7Y/z/jTcAoApO51HU9eMn/P+TEnzE88HsBnAOPzNWcKJNrZZhxjjn+mKAGnABdmJKk89OwwP1/z3ayuI9uSxJ4UdOv6/wCfxf8AKFUsW9vzx+f1pGJWX5AB8uOff6UAR7WXLHBIJ3MOg6+3vUhCnaMAA5yccnAPt/n+bGZ1twpIzkhVU8fU0seWO4sPlB+bknGT0/OgAcqkZXOMY3HGM9/61F9of0b8qnMSlW3S4UHPX/D3z/nrReFfMbGzqf4RQBchydmFIHdlyf0H1/z3bJwEVQcsSTlcFutHmt8yDAGSCM9RkUx29WBCrgc/X/69ABtPzAIx4yDjtzk/0qUn5sHe425AA6/hUJZQoJfg5LbjgnjjH4f59ZWkCvuVc5BAYjjgUABjOx3JHznv357/AOT/AIrEi5wXfgYweMnqf8/5MbSEM7Mysy/cXOc/hSRur7o8rgdTjk0ASMqzkM0m7O4FiQceg/yP/rrGih/3e489QP54pqEzyAHCxoATg8+9NeZU2hC3TJ/2jigB7O7B1jIGRwe/9fekAxnEgLY67s4HPH1NNSN2X5mC4bhQe/fpQ0Zb5Sw2rywUnafr70AOiZ2Y5PyE8YJ5HP8An86jaWQleVyOig/z9eTUhiBjChiNwOACPmPPU+nX/PUVFMjMoJx8oBFABJnGMs2B0A9Pf/P+JCnznbjC8YPXvRJjYWkctnt7f5NIhJ3M0a9AAAOe/wDXFADwm6M/KQMZIIwT6fjz70u0jj5CeSc84Hvj60KFUEkLhsHaxPP0A/xpwA+6yjLHlUHT8aABN+FByCSSdoJI/KopOAiqDliScrgt1qxNLiMouwZY7gp7DpVR29WBCrgc/X/69ABtPzAIx4yDjtzk/wBKlJ+bB3uNuQAOv4VCWUKCX4OS244J44x+H+fWVpAr7lXOQQGI44FAAYzsdyR8579+e/8Ak/4rEi5wXfgYweMnqf8AP+TG0hDOzMrMv3FznP4Ukbq+6PK4HU45NAEjKs5DNJuzuBYkHHoP8j/66xoof93uPPUD+eKahM8gBwsaAE4PPvTXmVNoQt0yf9o4oAezuwdYyBkcHv8A196QDGcSAtjruzgc8fU01I3ZfmYLhuFB79+lDRlvlLDavLBSdp+vvQBLGMqrFc7n+UhgMjOO/NRfM7uRyd3c4xwMfhS8KB8xwvQkD1/lmogUfCD51Aycf1/z/wDXAJo1bKswOAOxHt1oRTJGFCgKeCwP9P8AP+LUceY6gFn5/hxjp3x7/wCe6l2IdAQuM4A5+hoAVwqt1J24JGRyff8AyetLiJI1QZGSAcZJ6/5/+v3haQKqBNxUc9OrcdvxqTzHSNZeQ3TLDp/9fNADiIxuLA53HgE8ZpxHlx5K4YnAzjk9qYvlxxK0uGZuT2xxzUKu8xYJ9W7/AORQBMRuZXkkIA46d8+maa/yqqg7WIGFx0HHJz3PNOCIh3iUbgBlivt/+qmxJGHXGC7EHH5df8KAF+ZI1KuA5AIbHPTsPr/OmwAs52kkDkfLyTwKc3lKWYHc/TluT05/L/Pq/wAvYqp0XOPqaAImAB6demTzwakGBGuHDZOeoGOP/rUx22ttiwMA5Y847HinqSyonysCuTkjngZ/Dr+dADioGPnC985PHT86OSVAYbScgEAcZpwPyhVfC8bm2fyp6yYDP93gAMeSRn0oAaVO4FlYksMHIBI6fWq/zO7kcnd3OMcDH4VJM+ZWYnAB+X5eg7dargo+EHzqBk4/r/n/AOuATRq2VZgcAdiPbrTockJhSB3Zcn9B9f8APeNHHmOoBZ+f4cY6d8e/+e7hK3zIMAZIIz1GRQADO5wqZPvwfx/P/Pd03yrI/wA27HDMvT86aJWjddhXoMMO5z0prHK43AAnJ5/x696AEKndyhbkg8fl+f8An3eCVQbt33uRjHr+dR7sq77iCMjk8Dnn/P8AkvLrsyql9hPTnnOOtAD1jLyBuUCjHI5Hvx/j/wDXYE4H7tB7Y/8ArUryF2Ad1VDnOD19Pz/z7wm5kycRr19KAJJ1QK6xnDE/p7+n+fxha3UuSz/Qk9cf/r6+9ThWmm2Fv3YP3cZz0H9aUkykKuOvO4f5/wA4oAjEa5UF3kxk8jO48jNTNAcgyt82SD7f5/z7pCDvOGXC8s34Ulw+PuKc848wD09KAGM+d+AO4ywyWwKEJijwG2s3cnGM88dv/wBdKq+XuIB3Z4J7/wCR/n1b5I+TG525zkD39uvNACcbAo53Hsf5/wCe9EMCuCQecDaSOTyef6f55seUmQmQq/d7AnnP+f8AOXIURGwQccsePw5/CgBpCs3zsAOpJ/x/zxmod4lk+SEMMEncv+e3+fVyZcgIzkFuWxn1/oP5+tOt18uNwMPtHfkZIoAVow5IkK4AHygEdjx+v+e5wi7YWUlu4IOP8iho+AoDYb5nbHB65600qUMeEc8HaB37HPrQAMVOBgEKowNuc5/T/wDXTlRFDGTndy3Q5x/IUxY5HLrv2knqxxxUjIhzGhEm3PzDoee9ADgSxZzjJAxnA9egH4URMN4HynBOSOfp3+tRyQ+Y8ryvyeMA5HT0/wA/4yzokSBA/JJJIP3uv+f88gFeZy8ZWMYU9/U+vHbFQtbqXJZ/oSeuP/19ferLQ+ZPtK4CgDJHXtikJMpCrjrzuH+f84oAjEa5UF3kxk8jO48jNTNAcgyt82SD7f5/z7pCDvOGXC8s34Ulw+PuKc848wD09KAGM+d+AO4ywyWwKEJijwG2s3cnGM88dv8A9dKq+XuIB3Z4J7/5H+fVvkj5MbnbnOQPf2680AJxsCjncex/n/nvRDArgkHnA2kjk8nn+n+ebHlJkJkKv3ewJ5z/AJ/zlyFERsEHHLHj8OfwoAaQrN87ADqSf8f88ZqHeJZPkhDDBJ3L/nt/n1cmXICM5BblsZ9f6D+frTrdfLjcDD7R35GSKAIpUDzNuxkLgBR0PGf5/wCe7RDCrYYcqenIHX+X+frYKrEu8ZJYjJPb6ev+fWmN9xpZHIU8gY9vbr2/yeQBY4d6HaWVScksevTj+VJJ5cYbZgtkgA9Dn1/PpUyAogyCzON2M4wOOarndIzLn92MnbnjjH/16AEYNIV3ElQfm6e3SkaVWYDeOOAADgcZ+hqXZuK5B2ggnHAzSxJsJbHyg/KN2cGgCBgGcEpnkYzxn/63X/PWeOJQiEFj8uDn36n+dKwiUEyMcgjJJ7dT/PvRNKkgVWG4tg4yc89jQAjyLGgJBLMcYPYflj3/ABoj87YS7bM5yOM8/wD66Y6jYTMcHPAz1OM9OfX/AD3sYB8tGwVxuIIHt/n/ADyAR4hXbvJ5Hce2O3b/AD9TLbt2eFBAH59qUQs7gsnzkjAznbxyenvUTKcOpUJ8xOd3JOeTQAuCwUNnDYyGPDZqXdn5F3Ekcnd2/wAOlNWONB5kjsCAAEA+lOZS0bkkJvUkj1/CgBrOu1R5gJUAnA+lSGQpHyuWJyFxjI6+lEUECuM8BRn2zkUwENIzqOT09+g4zQBWZRLIxZtxAIGPX1+mCKBDCrYYcqenIHX+X+frOF8qIMw+ZsZ9v8/5601vuNLI5CnkDHt7de3+TyALHDvQ7SyqTklj16cfypsyoEZYzhif09/T/P4zoCiDILM43YzjA45qBVaaXYW/dg/dxnPQf1oAdtiRQSxJ29e+Qf1quYN6gu2Tzu5PGTjH/wBap5GZ2CIxUNwc88Zx/n/69ObCDy1647g855/z+FAEHlJ5bKJWwRgYOQBzxVgwllJPyp1Veh6//r/z1YIyHVMoXI6DoOO3+f8A68s7ARt95iBgnA2n2oAhcqh2LggAncei5/n/AJ9arvI4kYeSvU/wmp1Xc29wBnI+XAA/zx/nq/fKTnI5+v8AhQA5Qy7sfMQvAPoO/wBKAPLQHgFs5P49v8//AF3Y3NuZvLXGB833vf8AUf56xFvlUJGWGSPm46HqaAAOqb4053kE5Huf8/55MOx3NgsxBO7t/gMf59Vt4+fNfBJPJPFO5ZAoT5j0wOB9aAAud5fKfMRyCR27e9ORVRsuXZlPAzz3/wAaj3As23A2nG5iPm/+tUkaqSTngfxZ+v8An/PIAP8Adj/E4Xnr+lIluCHDAKuQWJHJwOPf0/8ArihAzM3zKSRy27JFSbnKNgIWb5jnnHXpQAu1cKAo2qDkH/Duev8Anq1vJjj2jaFPbp6/5/zy5tyAkEAEnJIpNg5BzuZgNuTz7/rQAjvuAABHLegzweTVZ3aZ9u92wMnB4x0x+lW5EXIeQnnJIyOfr/nmo4oyVkJ4AIJwRz1/+vQARR7QoZxkjcep6g1IVyuxFVVY8ljg+n8/8+rk2R5IYlm6FiOffPSkVju2/I/Q5znPXrQA140VzksAp+bkc/40koXczDB3ceh78fjRvkwSyjkgdxQzeXFgrmRl4A6UAB3BGCxtxnJJ4FRgeWgPALZyfx7f5/8AruG6QEklIxkZPGT2/wAn/wDXEW+VQkZYZI+bjoepoAA6pvjTneQTke5/z/nkw7Hc2CzEE7u3+Ax/n1W3j5818Ek8k8U7lkChPmPTA4H1oAC53l8p8xHIJHbt705FVGy5dmU8DPPf/Go9wLNtwNpxuYj5v/rVJGqkk54H8Wfr/n/PIAP92P8AE4Xnr+lIluCHDAKuQWJHJwOPf0/+uKEDMzfMpJHLbskVJuco2AhZvmOecdelAC7VwoCjaoOQf8O56/56tbyY49o2hT26ev8An/PLm3ICQQASckik2DkHO5mA25PPv+tADJMsykkbC3Q9+e/+elMdkywYkhfboM/l/n65fMVVwcEzM2QCcdT+v/1/zhkjlZ9jDaCegGTigADtMi/3SApBPUfh1+lPG5Qy+YRuXaPlzkY/lTyDGqqCASRg47Ux2wNxUDOFRS33jxz196AEADjkggfMuOB2/Pt/nrMm3AEaYUHLNyelQhg5yX3FgGOM9afIEES7yE6ZOOlACFS4YqDjJbJNTbVQqSdz8c5+6OMD/P8A+uNcsiNvGG46duv+f85lG+RhliRjhQMY6fnQAAbRkjgkngYC/wD68/57t35bKITwCCQeRx7Uh4cgkHAyBxgU9IwxOxfkACkkdf8A63+fqAQSuPmJOAzZODnIOKiii3lXYbFb5mySTjqPpU8ipyqdS2STn1x+HX/PeTy0Ij3DfvUEHJ54oAI1BXgFsnuMAdOfzpQA7M7lWOMhQCOO38v89wyoxC7gu3nkE89zjpiml5HhBVuuOPXj3oAVdiZGMFhyRn8RTMHdwA2BnnIz0x9aeBJ5gDNwuMnbjP8ASmM8r4McWVHy9eM57/8A1v1oASRW3Jv2BSRwO/Pf86Y7JlgxJC+3QZ/L/P1yr4iKjlpiQRzjqf8AP5/nHJHKz7GG0E9AMnFAAHaZF/ukBSCeo/Dr9KkUMobHzELwD6Dv9KcQY1VQQCSMHHakA3NuZvLXGB833vf9R/nqANRWDLk8bicAd/T60oBDO7ABlxjPbqOf8+tA+dQEG1QT87cd8dPfP60jsFLiMNJwDuwOfbNACeYkcqyg5Y8Zxnrn/P8AnlPnbBPRRgDsfXjv/n8WpG0kmWCjaOF64qcsFdztyo/u8kmgBhJ2qP3eUBGATwfek8w5/wBZ+tB+VhGR82Dknjb9Pejc/wDeX86AGbUeaTC7R025A/z2/wA9bAUSR88IOAqnAORnJpkO5W3BmI/u7f19c9aVnYKUUKG+8NxOTQA5nMqiPhd+fuk5xk1FOqYCIWDE4wPT3H5/56uk2ohU8K2ADj5mOP5c1GVYsuNmeqhhkD8KAHLCNmAuBjknr36e3/1/xmWPPLEhRnJDcdf8/nS5EaBVLMWYHp6f0H9aJHWKMEBcgYXeOCc//qoAghAKFlKgAZZ+BU2wBG2hmXGMAnHQ9/wqtGfNgdS29T3BxuP+FWn+VcuTvIJAXtQAxt0j5k3lQOVHOfX8Kf5kgb5YkJbI6Ec89PyqIuWHHU9MdTn39Of895S5VwzsRwQq57n2/OgCIsz4d9xzuIyT/LFOhZtm3Ycuckkc45P9aYsm/gIcjpxwOP8AP+er1P3t0gB/iVCcAdu/6f5IAjkSAkxnnhVyefw/D/PewqhV3AYZufmwM/zNQITw7sBgDAPBJ+tODyNIuDgn9P8A69ABcShF2oyhR1YOP89/891RvLkVsbmAbOOf1qqyh9ivJlV5b3z/AJ/z3t7AWZiXYg85ORx/QUAQvucFG+70Iz1/z+NPCiSPnhBwFU4ByM5NOO2OYkMrvnkqB+OKjZ2ClFChvvDcTk0AOZzKoj4Xfn7pOcZNRTqmAiFgxOMD09x+f+erpNqIVPCtgA4+Zjj+XNRlWLLjZnqoYZA/CgBywjZgLgY5J69+nt/9f8ZljzyxIUZyQ3HX/P50uRGgVSzFmB6en9B/WiR1ijBAXIGF3jgnP/6qAIIQChZSoAGWfgVNsARtoZlxjAJx0Pf8KrRnzYHUtvU9wcbj/hVp/lXLk7yCQF7UAMbdI+ZN5UDlRzn1/Cn+ZIG+WJCWyOhHPPT8qiLlhx1PTHU59/Tn/PeUuVcM7EcEKue59vzoAiVmbdKPvHI3EfzqQqIm/d4ySMsRn0NIpZ49wT5Qc/7tN5kbzGw+FPBXHPb8KAAFXJlfuMDgA4+lQhEe4YhBgEDaWxn/ADx/nrIx3yHkll+UyHpSwpk/MzlD/ABjP17+tADvKI27+pxj5eoP40kgVFXj593O3nHXPNSxvulyFzggDGOWH+FVribcViVmIB5VRkE89/Qc0AShVyokOWZc7cZwKeQwxsVc/XJOQOKjRN7Akhfkw7gdvb2okkUMAoC5J6kdf8P8/UAdEpRR5a8sRls5zyM/zpH88oFbBAYL0AI6HtSors5YA8ryTwTTN5WMrECcE7jjg55oAaQdwRVBy+TjgHue9TkylMld275RnGMeuPf2qP5iuCfLBHIxkkfT/P8AiHb8uwck45xnp0/WgB8Sln+VBtGNxB2jJ561OWCktxgdBtJAPbmqwdRhFlG4/eYjkdqaw/dCSQkLuBxQAoJkuSpYFhkgAHgZGf5/57uLnyiABtyW5Azjt/n/ABqKER/OWyzN8xBPXkflVkpHGh3EouOoOdx7D2oAgXcAZFOWxjdj8cen86kKiJv3eMkjLEZ9DRkspKrlFPU9v/r0zmRvMbD4U8Fcc9vwoAAVcmV+4wOADj6VDtR5ZMLtHTbuA/z2/wA9ZGO+Q8ksvymQ9KWHcrBgzEf3dv6+uetADJQhljAUKeuRgf57f56yxL8pRPlBBJKnk98Z/GmEHzTgsuOo65Hpk1K0hBLEAFhgl+lACeZ5YZUCgDheTnJz6Ux0SOM7mbceeOv+fwpRlF3tjIzljyAOgx71EQCnBypOPm7/AP1qACKHgsVJducsOO5/r+X15XyRn72PxqaP92m9m+bH8CkDnP8An8aUFyBnj2xQA3cY5N7OGfGfu9P8/wBaSFXUs78k4GDk8+uf8/4vWPdiZxtAPCnnIx/+qlYogXIxnJYkYHbA5P8An+YBGWLyI3yjnAOOfTNIdxDEBVXPLNxnt+XSlB888hOg6L069fXP9aUgSSGJMjd3IwBx7/5/qALtYMWXEhUHGOaZcKzsC+FCDCgen5f5/nLIyqglJUg9+Mt/knFMZwISQVXOdxZcdz/hQA0ERKDhyCMcjrTHcMASGPXO4Y+mf8/0oV1KMfmkx12jjn/JpUjldi0rOO4A4+lACwbEQqA7YGPl78df8/8A65XYBxxvckjJFNUL8xck8gkg5PFOYLLhFZgo4+960AJGUOAwdtxyQTxTgu9yNh29QO/fn2H+NDqGP7psg8BsZz1BNJk4cxZx0ycHPXrQALEhTD7TtAwuR0P+e9DuE8tE+UnJOBzx71GXZSyBTlgOcEA/j2FKoTeHMjsR78H6UAOhiRYTvVdx7AZPf/61SKpaMEHAyOnPX/P/AOvuyHcHyokdhzz/AJ96YGfy9uCcnBLKccZ4xQA7ekbZUZYZO49vX8f8/VsKupZ35JwMHJ59c/5/xFUeZ8/8J3HI6/5J/lUjFEC5GM5LEjA7YHJ/z/MAjLF5Eb5RzgHHPpmkO4hiAqrnlm4z2/LpSg+eeQnQdF6devrn+tKQJJDEmRu7kYA49/8AP9QBdrBiy4kKg4xzTLhWdgXwoQYUD0/L/P8AOWRlVBKSpB78Zb/JOKYzgQkgquc7iy47n/CgBoIiUHDkEY5HWmO4YAkMeudwx9M/5/pQrqUY/NJjrtHHP+TSpHK7FpWcdwBx9KAFg2IhUB2wMfL346/5/wD1yuwDjje5JGSKaoX5i5J5BJByeKcwWXCKzBRx971oAhYmVQgPQlsHB/z/AJ/GXLRoiKc4AGTjv3qQBCSE3OhPJ457d/p/nNRNcESnaSrbifl52rz7f5zQAwHIYbtx7A9x3z7U/b8xLyZfbnhfp37U4KViLOrfdA5AA/H8aWNTxKQVJOFHJ9Dk+3SgBF3qv7uRQuDg8dfXrUIjUOPlLbuuSQCT+NSmVfNKKS4BG7HYA1DNcKZfmkZmAztHUfl7mgB+9twAVjg7sg+/UVGVySTH0O4cfz/z/KnMsjgIi7NwyW3D/Pp/nq7yo44xkYJxuySc57UAPUggARkDqSDyc47Z/wA/zRyxJDIdob6Gl82NCMqC2P5cdPoaVFjRt7LliQAPc4oAVWBQhY1zn16d/wBOv+eQJlEYsuSMhj34/lTcBRk5bACqCeM9ziiQMMBmxxnBbrx79BQBKPL+QryCAeQQagO6dyxPAkySwzwKapaXl1bG0DHqfw7UZh2bUQYzuPzUAWDghAoOBgbsZxx7f/X/AMUkVEyzHPAI5/z7f56skVkhUFQFLjA3DJprb2DEkDaOFBGOOnP4j/69ACSMZvkAVcEnb1H5+v8An6vy0aIinOABk4796dGAUACsQxyRx0/z/nmmNcESnaSrbifl52rz7f5zQAwHIYbtx7A9x3z7U/cY5N7OGkxn7vT/AD/WnBSsRZ1b7oHIAH4/jSLHuAmcbQDwp5yMf/qoAZ8/lqZWzjgLyc/1/wD10v7yW43sflBJ4yR06Y/z/i4xmYspBVQPvYI544x+VPO0KzKvIwFwuB15POKAIpXLqy7VwBzkZ/D9KU7mb5QGYr948gZpPMDkKoQqDxxyePX/AD1pX2xKoGSQCOFx/P8Az/UAQJuAG9WBPIVs/h/n/wDXL5kw6xj/AL4/+tR5e1CpKlk65I+Uk/8A1/0qL7TB2cGgB8ZY4LuJCrAELwBx0/8ArUiAsT5uxuOF5J/U9aiDMyBxnPUYz1xwKlRdyyYI9MsOvUf5/wA5AHrLFHCzBzuY4Azgcf8A66ZHK7u21VVCcM5PLdef/wBVEseSoByig4C9Mn/PpUe5A4CE/KMksBnn0oASQ72XcvCjOfXrTngiceZLypBbk5z1pjxupAx82TnIxgVYVdynzPmC9Qoyv5/560AIsf3yQ2DwqjA/P1phMkjqqjBOTtU9PxpGnb927ZGQWK4/pVeFysWVMmBgAsMDBoAm2KModpUZUDOQcipUzLu+XEeTjZ3/AKVXgkbG0ADGc5Jyev6/5+szSsExIVGf4Rnhcemf85P4gCNKQFcKcYOOOO4z9c0B3W1Bfvg9PxpikscEsA3THBxnv/n/AOu1FMrqSScevTpigBTKzSMEjA6Y2cE/r9f0/Gbyw02WIYbcY9evNRI/lOsagkDnI/8A105HedipXgDGApA55y3pQBIZHETKAkecHnILf5BpIQGYjMaqi8Ac9c5/HrTsM+W8yNQB656+g9aWOKLaqpswDgEH69ffmgBsYK4cqcFtzc4P49aEBYnzdjccLyT+p60yQ/MdjZ28r6kn6U9F3LJgj0yw69R/n/OQB6yxRwswc7mOAM4HH/66ZHK7u21VVCcM5PLdef8A9VEseSoByig4C9Mn/PpUe5A4CE/KMksBnn0oASQ72XcvCjOfXrTngiceZLypBbk5z1pjxupAx82TnIxgVYVdynzPmC9Qoyv5/wCetACLH98kNg8KowPz9aYTJI6qowTk7VPT8aRp2/du2RkFiuP6VXhcrFlTJgYALDAwaAJtijKHaVGVAzkHIqVMy7vlxHk42d/6VXgkbG0ADGc5Jyev6/5+szSsExIVGf4Rnhcemf8AOT+IAoO+MlCFyc7tuSOCKcXRY1By2eAMc/y96hQFjlVY+2PfAz+A9KsgBQpZyPk6EZ/z+tADJ5wkmyNMMmFwR1PHrTQ77AWkVnB28AYHHT/61NCpGfmUtyW4bBJ/CkQGaPPOMZ64AoAIgHYBgPnPJP4f5/zy/YoOyNcSHnIPTpUSf61j5gUHkADJIqw25CsapyxG/LAnFACMBEqgbVJwCxySai2fu2lbAIYhd3JJ4x/hULuWGxVZiXyMNgD/AOtzSOxULwABtYDOcf5/r+YBYG5ARHncTgfL16GpGBjK8DzGON3Hf29ORUMbuYwwlAyMnAHy9P5/59x33/KvKnA3YAAHHOPfP6/mAIfM3oACqZ3Zz2x3PfpTpJijsqt82NueDz/k1GcMoYDLE4479acI1jQM2FySVB5zxQA6ESE7mGOMDtz+XTp+Q/F8amONUjwT1GQM4+lQiaQIWACtnOeOAB1PtUyKwiDHjPcjJPc9KAEkkYOrPL8wABJTgN2x+n+eqgK0Ea7txON2e2QP55pcRR7C0pbHI+U4UmpHCqjFuG7cd8f/AKqAI2DbWAYA55fGSOMdzSl0WNQctngDHP8AL3qIKS2VBbPJ46k4/Tr2qwAFClnI+ToRn/P60AMnnCSbI0wyYXBHU8etEZYgF3EhUgELwBx0/wDrVGFSM/Mpbktw2CT+FNDM0YcZz1GM9ccCgCUGQko8gGVyEHXpjP8A9elYlnGdqx/3WJJPA/TrUOS5dQxIHGQP1qSLLyLk85yMjoOfX2H+e4BIhhjlJYlNikkLx/nr+tR+e7S/u0DMOdxOcdePSnSRnySqsoLn5tncZ/X9RUL+WBtwdznG1gMf5/z9QB85LKUOG3Hkjtx/+uoSE3Hr19f/AK1PkVirPy2emR15pm2X++o/GgB8srqhxtODgDPXpzxUsYIQGWU/Meme340zyoix+UFiTkZOMfrzzT5tzuikEAcKNvrxn/P/AOsAheZ2KthOc4AXI5/rRA0nlqxTDNwp28jH/wCujzsmRUVGG3Oefp2pxjRgu52VRnLZ7D/P+c0ARR/vDKDlvUHn+vGef89Zy2AB23HHcd+cfTFKFSOGRIlDLgYLfxH3x9aaY/LVnOGcHapxwT6igCtcSM2VABYj7p6j/IpwySykFgcc9v8APNSsiqDukYDqSRkn8ajDLJMFVvl5Y5HHP+f89wADAhsBAzHBPA2j1x61M0SRxht2WYksXPHt/nv+NRQIsjsAu7BGd2MEnjvUzhDht/mYHpkfgKAEKqHYtk85JXknue3vUe59uIwQmCP8ip548IGYYLHkLx+B/wA96jAVUY7SzkZHHvzxQBHt2IV25cj0IA61OhKDI3MZOenX/IqNBvZiT17kdSc/hUjKuFyFGRzQBGMvkSZTJ4GeT9KdHINnyyAJuI69eOp60smxMsCzMvI9s037LlAJCQoHA6dM5z3oAa0nlwkLs3ZwATzwetTRghAZZT8x6Z7fjTBErc4DKuQOMcHntT5tzuikEAcKNvrxn/P/AOsAheZ2KthOc4AXI5/rRA0nlqxTDNwp28jH/wCujzsmRUVGG3Oefp2pxjRgu52VRnLZ7D/P+c0ARR/vDKDlvUHn+vGef89Zy2AB23HHcd+cfTFKFSOGRIlDLgYLfxH3x9aaY/LVnOGcHapxwT6igCtcSM2VABYj7p6j/IpwySykFgcc9v8APNSsiqDukYDqSRkn8ajDLJMFVvl5Y5HHP+f89wADAhsBAzHBPA2j1x61M0SRxht2WYksXPHt/nv+NRQIsjsAu7BGd2MEnjvUzhDht/mYHpkfgKAI2V5Lryt3y9Txk5z/APXqV3EWUiZlYHBz2GP/ANVSBXEhwq+Y2cADGM4/z/nmAsFDE5OTjk9c9elAETecWCqWxvzzjv396dcMTFtYjAO0DI598f5/xVZHdY2kxwufu45//VTwkAYnaWkJOACcA9s/nQAikhEPGSowDzkcf0NBc4baMqDzg5HQfrwKkcNIQC/AHIA6njv6UjRgkJtzGoz9TQBTAdn3nO0LgZHJNPLNGmT8pAwfwpzvEh5LF26n9eKZuUQ5cHczZ2E80ATJsnlCMcqAMIMjjvTmKF5AuBjJ24zjpjn+lCFBGvmNjcMlVJ5JH8v8fepIhul8pMjIyQME4+lAELsq/wAOcn7xOenfHpzTNjseWBAJJxipHCm4ZABz97Ddv8KHYttCphemAf4s9/XqKAGj5mUEbF6Yz9DzT3Luu1Np7DJ/zxTokPy4znvke2f8/wCcg8t927kY9O3+TQBExRQXAy4bbux0JpzsgbaGywbIyPpRgSyKFG0Y35yOMnrThEir+7yWI4KknoB+lAERJnuNivlAMdO+fpUzuIspEzKwODnsMf8A6qeiFGwgBY5xwB1xmoSwUMTk5OOT1z16UARN5xYKpbG/POO/f3qSWV1jONpwcAZ69OeKRZHdY2kxwufu45//AFU8RRFj8oLHORk4x+vPNAAHdVGWB43E5/Skty7p5jvsVR0U9KfMkbSZZcNtAUcgk9Kc4IgMaDahzkgE556f59fzAI5pThlXbtXHIGSeh7VHG7s7s0YKrzjbxz0x+dOaQJIihVJJ5B7ZHtQB5iNnjcc8HGOaAGu7G6G8knHT1+gz6fzpDbtuP7tDz6VPHHFHJ+7YuxyGY444x/jUB3FifKhHPoaAJiBsAUnc6jqevGT/AJ/yUkEjHCtkgHLN0AP8v8/jKNqy4LHcOCT/AJIxSrLGqSSeWTghc9sn/P8AKgCEAL2+U9D13df0pxQO5HCYIAAGeufb2/z3asrs3DoiZ25I5JOOP/rUSEs6qOVDZGTg9fb/AD9aAGzSDCkZHBwB1/zj/Pq5iFGAWJJPIPp2pyxxsiyOoxnn1wMfWnIgYbymUx8qluOnWgCvIobIYk4J3Hrn0FMeI4wGAABOAcCrDFpGC5DfOFIHTHvSbQsmAc7SM7R37/596AGpCiDaNzqOTt5H5/n+f5yLGrKU2lhu4GOvX/P+TTkEknUZjXAAIwDxj8qYWYgMi8Kfl5yABg/jQAl2VlVWdi3YAHjrxx6c4/zy15GSXIAYjPUcelCblgYyMRk9DjucU0ySzEBeRtx06H6/X/PqAPQtGmXHJ5AHpz27f/XP4vbBO9+u7PXsM+v1o8v5oyeCvbsOmaduk2t8wWNhxgZz6c+n+fqARKEYsN+4E8ljkt+XalJEhJbf7hRj8/SiJlMoDTYVc5wuMHI/XpTgvDNwMt0J7dRQAmXYOhPJO0ZPoD/nNJIJGOFbJAOWboAf5f5/GQZExLPjOcKFGBz+NOWWNUkk8snBC57ZP+f5UAQgBe3ynoeu7r+lOKB3I4TBAAAz1z7e3+e7Vldm4dETO3JHJJxx/wDWokJZ1UcqGyMnB6+3+frQA2aQYUjI4OAOv+cf59XMQowCxJJ5B9O1OWONkWR1GM8+uBj605EDDeUymPlUtx060AV5FDZDEnBO49c+gpjxHGAwAAJwDgVYYtIwXIb5wpA6Y96TaFkwDnaRnaO/f/PvQA1IUQbRudRydvI/P8/z/ORY1ZSm0sN3Ax16/wCf8mnIJJOozGuAARgHjH5VGZwoCoFwc7cKTj3oAc5Ejl2kyMdhgEf4f5+rVicuB/EclIx25znIpFYtaZxgFsZLZzzx7d6UN8255fkZeQBjcPSgByll3eo4LH2x/n/GhCFCsAzEqp6+2SagT5ieeD2AzgHH5mrDKm7DMcr1JP8AnigCBWUylCM8ZPqeR2pz7SWyANrEYGT3HH86VvLjZfLJA7Z78jt37/56rBDiU7QTli3Tjr/9egCPZ87ZBB53c56dvyqNY4d/zuOhY8H2xUzPENy+aCoJJ46+uaRFO5dqtgEHOPfOKAH/ACAY2gZPHzZP+ef895gSpyeCcK3Ocnjr7flUO51bcAQpOB05HH+f88seSRwuQ21WxyBz0z09qAE+QSSbF2r0BHfJ9/8AP9VCzuNoyse7Pt/kijy5mPK7VB4zg5Pp+opz4+XEW6Qn+8cZx1PH0/z1AFV92EUDHTPHtnj/AD/ikjRdCASxGACfmI4/KnecyoNzne2Fx2/DiqqiSRlkZsKOw5oAtFgqbgSedrHH0ppAwcLh8dS2Sf8A63T9ac5VRHGrEcDceGzn6+9ICA4JLEd+cHsc5HagBcBjln4C9BkZ4H6f5+qLE5cD+I5KRjtznORT3BEBG0qMgEls8n9O9MDfNueX5GXkAY3D0oAcpZd3qOCx9sf5/wAabgFAFJ3Oo6nrxk/5/wAmJPmJ54PYDOAcfmatAKsmCx3Dgk/5IxQAw4ALsxJUnnp2GB+v+e7WVxHtyWJPCjp1/X/P4yNsbBJOG6DPH6U9XRp1BUvgbjt9Ovp/nigCttZcscEgncw6Dr7e9SEKdowADnJxycA+3+f5tNwzv+62oD8xJH3Rx60rudnDhiyjJ/woARyqRlc4xjccYz3/AK1F9of0b8qmjjV1KlR8oBHP06f5/wDruxbAY9PegAtwWXptUKcsD1/zn/PckVSE+bdswcHj/Go0lG9lY4UE4APXkYNJJLI53KzEK2UAHQdBQAu5QyIikZ5JznP+f8+6SRkDHRiR945x/nNNhMqhmY9WwMkfnTYhuuJAOeMMQe3HOenf/PcAsxAFNxYyKBnOcD2Hv/n1pkrsQGcYJc46dOg/Ck34AOVySMEde39RUUxkztAYMwIAxn6ZoAarMxkk8sjOWBZ/cf40sUh80qHC87t2Mnt/n/PKIrDAxn5cMfQmnCYqWG4BsYG4HgUATbyAQz8kYVQB8o+v+ev5xZ3MSwxu6KTz07n8f1/OUJCluH/vEfvCc8f1+n/1smAcdywHGcZJ9eaAI1i8yTCqSA2Ac/5z1o3BWVI9rKTznHHPfijcXIKbVGc4JoRSmMjLN/E2OM0AORpJpQhBIxuVcjAycZqbaN/MwTaMghKiiOyMMDlzxy3t39v896Qg5YyY2kgDHOf85oAsReXtKx8hTk5HIP8AWo5dm8qpJVecY7j+lRqyruH3FRgAuO+eeaQyqsT7HHPC8eozz1oAnhRgcNuXC8n16e3Tn/PdJFUhPm3bMHB4/wAaZCgWLzpCcsQPQf56U2SWRzuVmIVsoAOg6CgBdyhkRFIzyTnOf8/590kjIGOjEj7xzj/OabCZVDMx6tgZI/OmxDdcSAc8YYg9uOc9O/8AnuAWYgCm4sZFAznOB7D3/wA+tMldiAzjBLnHTp0H4Um/AByuSRgjr2/qKimMmdoDBmBAGM/TNADVZmMknlkZywLP7j/GlikPmlQ4Xnduxk9v8/55RFYYGM/Lhj6E04TFSw3ANjA3A8CgCbeQCGfkjCqAPlH1/wA9fzaCTlg43EZ5bO0c8fU9KcEhS3D/AN4j94Tnj+v0/wDrZjKGQAbhsAywBOD9R60ASxjKqxXO5/lIYDIzjvzUXzO7kcnd3OMcDH4UvCgfMcL0JA9f5ZqIFHwg+dQMnH9f8/8A1wCaNWyrMDgDsR7daEUyRhQoCngsD/T/AD/i1HHmOoBZ+f4cY6d8e/8AnupdiHQELjOAOfoaAFcKrdSduCRkcn3/AMnrS4iSNUGRkgHGSev+f/r94WkCqgTcVHPTq3Hb8ak8x0jWXkN0yw6f/XzQA4iMbiwOdx4BPGacR5ceSuGJwM45PamL5ccStLhmbk9scc1CrvMWCfVu/wDkUATEbmV5JCAOOnfPpmmv8qqoO1iBhcdBxyc9zzTgiId4lG4AZYr7f/qpsSRh1xguxBx+XX/CgBfmSNSrgOQCGxz07D6/zpsALOdpJA5Hy8k8CnN5SlmB3P05bk9Ofy/z6v8AL2KqdFzj6mgCJgAenXpk88GpBgRrhw2TnqBjj/61MdtrbYsDAOWPOOx4p6ksqJ8rArk5I54Gfw6/nQA4qBj5wvfOTx0/OjklQGG0nIBAHGacD8oVXwvG5tn8qesmAz/d4ADHkkZ9KAGlTuBZWJLDByASOn1qv8zu5HJ3dzjHAx+FSTPmVmJwAfl+XoO3Wq4KPhB86gZOP6/5/wDrgE0atlWYHAHYj261JbAsvTaoU5YHr/nP+e8KOPMdQCz8/wAOMdO+Pf8Az3eko3FWOFBOAD15GDQA8DM+1QD935unYfX1/wA95JFDI6bySxI5FQmYmbg4VsAHvjOMflQ8pddkbHYV5HqT7/TFACMyRqSE+bgAhs4/z/h+Ksh2bjnGMDJ68en41EhmabcxJULnnHbtikkJaePJBY8jnoenpwOaAJoFJ+UvuOeVTj68/T/PNTbYv7q/99CodwU/w8HJDduh6/nTkb92vPYfxUAMZYlchPvBsgDv9f8AP/1081hNtjPABGSuc46U0ebJNhXKopJ+nTmpFQhFIyY2wMjPzH15oAaqoyKr4wCM+35f55qVCiqTCu1dufmOSTn/APVSE722tn7mQq9unv6H/PdszgIDg7QePfsDn/PWgBypsBfJdwMgkDOfp6Uwxoi4fIyMsQck0AqIlbaDuKgnPt2/WmFAwwQSMjcQcfhn60AM8xZHXYCFyCTngf5/z7ujKtO20ZUAndn8v5/rSMikKZGGMbuQafFHFtAX5mIBY5xjPH4/5/EAlYxE7gxZl6vnjr/KnSKPsokk5DYIGeMfUUiYfcQo2sQMbuM8YGf8/rTbkq0fzrvZTgA/Tp9OlACIQFztBZxgHPGe1NQbn3MGwOp4Jzxxn8RSfPlRHksMc8cGnDfGS0hy7HgHqOnf8/zoAkb5UVWPX27dP6/57o5jXBC/Njdn0x/+v9fzTKum5gPmxgZ9MGmo0buSM4Y4J5O4/wCFACxwKypvI+bou71we1OWMNgjIUYK7hkfgP8APWmkhmKsC23jGQPpntQvBOMBSABjJ9OntQA+Td5cfHyjGwAjGev9f894vNYTbYzwARkrnOOlO8skKEbkcl/QdOP8/wD1xUIRSMmNsDIz8x9eaAGqqMiq+MAjPt+X+ealQoqkwrtXbn5jkk5//VSE722tn7mQq9unv6H/AD3bM4CA4O0Hj37A5/z1oAcqbAXyXcDIJAzn6elMMaIuHyMjLEHJNAKiJW2g7ioJz7dv1phQMMEEjI3EHH4Z+tADPMWR12Ahcgk54H+f8+7oyrTttGVAJ3Z/L+f60jIpCmRhjG7kGnxRxbQF+ZiAWOcYzx+P+fxAJWMRO4MWZer546/yqDcJXwkStwS2V71YTD7iFG1iBjdxnjAz/n9abGNhmxhtpJweRkg0AQSoHmbdjIXACjoeM/z/AM92iGFWww5U9OQOv8v8/WwVWJd4ySxGSe309f8APrTG+40sjkKeQMe3t17f5PIAscO9DtLKpOSWPXpx/Kkk8uMNswWyQAehz6/n0qZAUQZBZnG7GcYHHNVzukZlz+7GTtzxxj/69ACMGkK7iSoPzdPbpSNKrMBvHHAABwOM/Q1Ls3Fcg7QQTjgZrR07Q7q9s5by3MJihkKFGdtyng56Hg5/z3AMhgGcEpnkYzxn/wCt1/z1njiUIhBY/Lg59+p/nV9tGuV5cxMe58w+p9qjns7hhh1iIzk/vD/hTsK6KjyLGgJBLMcYPYflj3/GiPzthLtsznI4zz/+uq2oyCxtmnumTAPADnk47DHrVqKRZ44uhQjcQQPQdf8AP/10MMQrt3k8juPbHbt/n6mW3bs8KCAPz7UohZ3BZPnJGBnO3jk9PeomU4dSoT5ic7uSc8mgBcFgobOGxkMeGzUu7PyLuJI5O7t/h0pqxxoPMkdgQAAgH0pzKWjckhN6kkev4UANZ12qPMBKgE4H0qQyFI+VyxOQuMZHX0oiggVxngKM+2cimAhpGdRyenv0HGaAKzKJZGLNuIBAx6+v0wRQIYVbDDlT05A6/wAv8/WcL5UQZh8zYz7f5/z1prfcaWRyFPIGPb269v8AJ5AFjh3odpZVJySx69OP5UpWJWwn3g2QB3+v+f8A68iAogyCzON2M4wOOagHmyS4RyqKSfp05oAkcQg5LdVxnvxTHkaNUC/fyDyMgdvpTX3YWOJs5UAkA/NnH86lWN/mIbcy/fb0HHHpQAn3mffjLcc9xjinxiJGHkg78jLEnGPb86AfkRT8qswB9TnGf5/57hOI2UA4I5J569vy/nQABBJJl2ypPAxwB/U0m+QHgfrUcTK6s20Hbu4z04HWpRINo+n96gBgVuV39RjBXORTXcFU+fc+AWY+npSy5OD90MQoAPLDIOf8+tNAfIwByP73f1+lAEsS4QlicAAHjHbuf8M0BIRyzEsOeCeB6/THf/JYBgxrtJODwTzTinyNI/BI+6TkZ7f5H/6wCPaJUUbidrAggH09amYLHFGzEL82UDDOajVY9+XycZO5j1J9fT/P4u+RiWBOA4554GO3HP8An8QCPKMw2sXYDsOv/wBanqGCYCEkt0P4f5/GlVEL7Y0JAIzk/wCNBYliFYBRwSPX60AHmyLgDcWztGAKjUSnO1CW3df89eadGijgMSQMMSD8vTn60yPLux3ZXHTH0zz/AJ60ASRoVB3jcMgkZ6HjHT6ihGbLbFMUZyN2ck+/SopGJYfOCA3yqF46/wD6qkKHy1Byc9T0B45/z/kgDJ5XlbbGcj7oJOOmPb3p9sgjBMjFtgJIzjJ4psW0yBtwXgH1z0qVRknkDHOc5oAYCWBJck5x0GO3PuOf895I8EKdjNg/3/wH4fQU1R02uM5HHXaMc8/lTkV2Q87snJxjp7+lADW3NLIu4AnggjOf85pjuCqfPufALMfT0p0vCYAYKz4+8D3HpTAHyMAcj+939fpQBLEuEJYnAAB4x27n/DNASEcsxLDngngev0x3/wAlgGDGu0k4PBPNOKfI0j8Ej7pORnt/kf8A6wCPaJUUbidrAggH09amYLHFGzEL82UDDOajVY9+XycZO5j1J9fT/P4u+RiWBOA4554GO3HP+fxAI8ozDaxdgOw6/wD1qeoYJgISS3Q/h/n8aVUQvtjQkAjOT/jQWJYhWAUcEj1+tAB5si4A3Fs7RgCnkxrCAxGSMt2zx1qKNFHAYkgYYkH5enP1qVFUxjBO59oxk8++fxoASTLMpJGwt0Pfnv8A56Ux2TLBiSF9ugz+X+frl8xVXBwTMzZAJx1P6/8A1/zhkjlZ9jDaCegGTigADtMi/wB0gKQT1H4dfpTxuUMvmEbl2j5c5GP5U8gxqqggEkYOO1MdsDcVAzhUUt948c9fegBAA45IIHzLjgdvz7f567mnP5fh+9MLFPmIypx/CtYYYOcl9xYBjjPWtuyGPDt4MY+Y8f8AAVpx3JlsZX2HVLizjuxdJDDKWEbT3iR7tpwcZb1rKWw1a8mnSG6GyFgjzNdBYwT0AcnBz7V01zPYQeEdG+22L3WXudmyfy9v7znsc54/Kuf0rSZ9Y+1HNymlWzedNHFlyTyAqju+OM9hVMlHLa3b39lqEllqPmCeE4ZHfdjIB4+oxXWaW5+yJtQkhQR19vauZ8VXtxqGuXFzcWzWzNtCwuCCiBQFHPsBXUaRHus12r8u0KcjrUstEkru8hSMAszZ5YjOffHt+taFv4Y124WOdNE1FoZAJA8dtI4YHkYOMEH2z1ra8AwQz+P9KhkBZBK8mA2MsiMyk454Kjj8+Kw21/Vl10a2b2X+0jJvE4wWzj8sYOMYxjjGOKQyPyZIGkhuIjHOjFXjcYKEdc5wc5HTFNXDu7SFTg8cYHbp69P89++0S303WtCt9S1bSkury+1xbKSZ5pY9yyEOzFVYAn5mAAAA464OaPiTSdMtPD813Y2Ztns9ZfTCfOL+aipku+eNxZSflAA3YwetAHGI8ag/KRvHUfr+dNzhuFzt4Oc+2BXb6TpFlBfaRY6xY6TbXUskcM0N5eTy3blypJ2xYWLIkAVXAPqT1qr4d0fTZ/iXNoN3btd2i3NzAPMd1ZQm8q25SvPyAHtz06GgDkQXmkIZUVFbGQeG5/r+NDFcfMcrnC45xj6fj/nOeu0uDSvEVnrSW+lx6bJZ2sl9byxyyOSqdUfexDZDD5gFwRnBBxWzoWg6BquneGLabR4/P1ZbpJrlJ5AyCEMAyqWI3E7TyMcHjB4APNcySouR8rAAg9x+A/SnBW5Xf1AGCuciuj8RWVj/AGH4e1bTrQWCagbnfbpI0iqI5NqYLZJODzzg4yAOh5uXJAP3QxCgA8sODn/PrQAo3/K3mk992M84ApCQqMrOGO7Cr0AJ796XLCMHAG35i+7v6fr+tRKGCKQM9OSeSP8AH/P1AJIAWI+YnvkL7Cn7ITyzcHjGf0/l/nrHtKxtuHJI7gjtUgjMjAkbQOnOc5/z/nuAMO0mSME4IIwckjgfiP8AP4i2w2jlulIVjY85KscDnGBnP+f85l8u1PPy8/7R/wDiaAKzmMSu/CBTjBPf/OP89QbVQMQUywLEjPsPw/z9VdAVBdm2Zzt28d+T/n+dCRxAqEVidwPB6/8A1qAJPMwkbqmF4HPGO5xTd/7xXZixwCuFPX1qQwqq7pCCcjj09v1H+esYf95tQ/KMAEck/wD1uaAGwu7tty3P3iBnJ4Jp4JlkEZYKidVx0/H6VGpESZZtrnqTyR+XfmkDAoQPmz2xn6/1oAfNPECAgwM5Pzc4zxQsZZSZmxkdMdf1pIYlLnII69O54H5df89Z9oGFYnA4b3H/ANfpQBE6RttQupUc4IwBz+tPAjMIJPyFuOcZ6cnjp0pvmvLLiMYUNgsentnj/P8AOQDcw8xycLyABx3oAZGqM4KAMEAAIPBP9KU7QC7Es2cfj6f59aUMm390fmb5c4PH/wBakORtX5iACePr60AMidtwJZcBcquPcH8sfrUq9nbAYjjA3Fv/AK350iYXczcseDz16HB9qcH5Du21Svy7ueOMYH50AO3NySSzN/CMKAPwp0kv7tkVuRgYC8AY55/xqONsthTuwQxO0emKjnlL5CnCk8HP3v8A6wNAEbOikZcDHOCMf5HSkG1UDEFMsCxIz7D8P8/VvkRhVYjKgDnH1P5fnT0jiBUIrE7geD1/+tQBJ5mEjdUwvA54x3OKbv8A3iuzFjgFcKevrUhhVV3SEE5HHp7fqP8APWMP+82oflGACOSf/rc0ANhd3bblufvEDOTwTTwTLIIywVE6rjp+P0qNSIkyzbXPUnkj8u/NIGBQgfNntjP1/rQA+aeIEBBgZyfm5xnihYyykzNjI6Y6/rSQxKXOQR16dzwPy6/56z7QMKxOBw3uP/r9KAInSNtqF1KjnBGAOf1qeOV9qmOJTuGBwQT16flUPmvLLiMYUNgsentnj/P85gxQozuehCjPU49PzoAYrM26UfeORuI/nUhURN+7xkkZYjPoaRSzx7gnyg5/3abzI3mNh8KeCuOe34UAAKuTK/cYHABx9KhCI9wxCDAIG0tjP+eP89ZGO+Q8ksvymQ9KWFMn5mcof4AMZ+vf1oAd5RG3f1OMfL1B/GtKGaK18O3nmuqbpCMZzyVWqMb7pchc4IAxjlh/hTj4dvNasXubWePyYZCsiFujYHPTp701uKWxhXWoI8KRG4Zo487EJOFzycDtmqK6zd2SMlnqFzbqxyVhlZAT68VuP4PuBt3yx9PmwT/hVebwmQf4en9802yUjkL+7mvZzPcTyTyt1eRyzHHua7TT/NOnxqcFchegGOh/Ksm/0K0sIGnuP9WPRuSfQc1s2uIbQRwZYKTk9j6VJZbs7h7C/jvIGKXEEiyRnAxvU7gcH3x/nrrr4vle+fUf7L0n+01yy3ixvuEmMGXZv8vfn5s7cbucVifMQCT5fGemTg/40p2gKEGMnvjuP/r/AOe4B0cXjS+it1ge1s5pBqI1JpZFcSNcBs7jhtoHAGAAMe/NUdY8Xz6jpN9YyWNmkN1eG+3RrJlJSNrFfnIwRng5+8cdsZeUwsYkU+pYcimNGvliWQALuHbr+NAG+/jKa41ddWutJ02fVI2ik+0t54Z2TAViFkCZ4HQAe1aXgzVLe7+JY1y7ktLBXeWabdMI4wzIwJG9snLNnAJ5JxgA1xkKxZdmBZjzz17ce1WTHGiHd8q4zwc5PTHtQBtX+s3dtHfWkNjplg978tw+mOZC8fUoreY6qhyMhMdAD0xUll4zvbFdHW2sNPj/ALIMn2diJf8AlopDhvnwc53cYwQMYHB5/JdWKruQcZPb1/PNMGZDvbDAKeNuBnFAGne+IHvdKsdKeztY4LOSV4GiEhZBIxZl5YgjJGMgngc9c4jGMSu/CBTjBPf/ADj/AD1l43FV/gypfoue+BUbICgLs2zOdu3jvyf8/wA6ABgriIFNpxkk8Z/r6f56ilZCWUZ6hW/z3/z9TYBGQjsFC8/LnPtzTRHCMkA7sEcHp/8AXoAkjdWhJjG4YyTjAPH/ANf/AD3Gcuql2+UEAgAntyKkWAFRuJVQuApOew5/l/nrGzqCojxzyeen09+aAGmZvNyN3txnAGP8aseU3cS/lVfH7ze/IwNu7H8qTzlb5jddeej0ATyK5bHmfvG9EyB0/SkjUNMUV+FG5iecc/5/z1ewITzmymTgDGcj/P8An1hMgWTaoIZxzn8Pr/n9QCSaQ4UqpXOMEtkn3qNFYfM3LMobJ5Of/wBef89V2s25t3zHgnOeP6D29/zcXLMCJCSQAMpzjPYUAM8rAGAfML9Sx46VKVGzbyAOvPUkf5/z1RFiVgSobdyASevH+Ap7klQCDuLbgo44oARZYkaRVYY5Y88Y7VCMyFiikZPJz3yB3+p/Op0iOW3NtQgbueozz+f/AOunqA2AoChWz0zjj+ZyP89QCG32LOzRtnHzE8EZzSiNmjUKBlvvNwO4qVnABG1t2Mlevpnp/nn82lzsClcLlWGT9PbpQBE8RCKViBUv8oJ/X9TTEj3ux3Y3DqOcflmmt+8cJhmxyWyRgf5NTxRBdoZvnY5IA6c8UAKBH/qosuAMkt7D19OtJ5SNLvdwxCDB/wA/5/rM2duABGOpyMnA/l2pHjQADCkBc5GTk0AMdYUhWNcktjI5z0Hp/n+rPLMhQfwBckj1qVyp5GeBjb14pEV8bQsecckn2oAiYlmaNPlOeDw2P8/568kahpiivwo3MTzjn/P+eoCFjZiwzu5IGeMdP8+v5sMgWTaoIZxzn8Pr/n9QCSaQ4UqpXOMEtkn3qNFYfM3LMobJ5Of/ANef89V2s25t3zHgnOeP6D29/wA3FyzAiQkkADKc4z2FADPKwBgHzC/UseOlSlRs28gDrz1JH+f89URYlYEqG3cgEnrx/gKe5JUAg7i24KOOKAEWWJGkVWGOWPPGO1QjMhYopGTyc98gd/qfzqdIjltzbUIG7nqM8/n/APrp6gNgKAoVs9M44/mcj/PUAht9izs0bZx8xPBGc07cMIcb3PfHtUjOACNrbsZK9fTPT/PP5s4lVUUlQBggEgc0ARMTKoQHoS2Dg/5/z+MuWjREU5wAMnHfvUgCEkJudCeTxz27/T/Oaia4IlO0lW3E/LztXn2/zmgBgOQw3bj2B7jvn2p+35iXky+3PC/Tv2pwUrEWdW+6ByAB+P40saniUgqScKOT6HJ9ulACLvVf3cihcHB46+vWtnSZXtdAvpIndWO8llzk/KM1imVfNKKS4BG7HYA1tae/maHenfuwW79PlFNEy2MO9fWoYmllS+jjHV3jZQPxIrAudUvh/wAvcv8A31XW+KYF+2Xsi6bep+/JMxlzGQW6gbeM/XvUd9omnve2CmJbe3kvBE0UyGOXBGcbtxDLnjcOeRzVMlHnGoXlxclRPM8gXoGOcV2tmWNqoZTtB/Gud8RwXMMluLrS4LCTDDbGCpcA9SpJx6A98d66TTVjS3R2XLHAUfXFQWjW0iy/tbUIbCOa2t5J3CRtMHKs5IAXKq2M57jHXkd9H/hErw3V7ZQajp15qVruzaQeaJXKEhgu5FDEdcKckA4z3q+F8p4v0M/eUX0C89vnX/GuuttUX/hZd7YwaNCJ7y8ntXu7Z5ftESszKZVLMyqwHzZCjgHoDQM86SQnBVVCgZ3nNRSSM8m9uctlQw5P69K9I8Tz2cPgzQbK9kvdQt0mvEjktrpYlcRSlFbBRwRt+7joMjnNTeKY7vwv4Ku9Nsb+7K22uqkL7yGVDAJgOOmGOeMcjOBQB5r55G1DjcMhe2MVGskruTheT8uQa9P0m+vLu00a+1q4z4khjf8AsSGW8eMXikYBlGMDJyFYlfN4Ukj5jjeErrUdS8T6teauZ7nW7axuJLOK5UlkuEOVVUPcEsQgHHYDFAHGzEyKqoAFznJHy9P8/wCertzxJtT5wMhSOe3euy0LUL/XdH8Qx65eTXdnDp7zRm5kYiK4BAiIY8qxJYAA/NyMEU2K8l/4Q+zg8N6hFYX0c7nUCbtLV7gZPlssjEbkUbgQD1OdvOaAOMXzCrHBYZ6k8YpXVyceb+8bHRMgdP0rrfHytFf6K0rB55tGt2uJRIH81/mG8sMhzwPmycgDrXJkER+c2UycAYzkf5/z6gAVIUZlJUHC8ZP/AOuo9pVo135kcgAY/p/n9eZQpkBOCqqu7PXJ4/z/AJ5ieVVCyclgeG9eR6/5/qATOQke0Att4L57+gFV0Dvtd/mwQoz246D9f89XAM7Ak9PmX2P0/r7/AJruIQKX6NnBXjJ9/WgBDGGJZwSCuByenFJsmx94/wDff/1qeFUkO/J6HIxnoenbt/nrMGiAA8gdP9r/ABoAhLTPFg/M+e4wMf57UQQsxMhJJJzkjjFOTy5ZHYou1SAB6gf/AK/89KVnbHl5HJxjYOAMUAJuZ9wUBtxwB0wPX9elReYCWUMNoGd2c7iMfpzTp/KWLaqg4wAc9PTn/P8Ai6GH5cIBgck5zkdPw9P88gCxgMxPUY5JH0/z/nlEK+eQjjJOSuOgp6xp3xtHGTx2/XvTFG9pACVQZOSCOPagCVNwGEfDHgHbnpS7WEYYEjgc8E9B0pECHayqCCAeeM9P8aj2M7IHUHHQA4zQA/ClTxuJX5cc5zjrUkkagAyAcH36f4U3dPwygAZCj5QRg44/U1DhtxZwuQ+OmeRQA+Jd8r88FSwAzz0P9akUxxDeq4J4BycZ/wAKig83B2rjefUdPX/PrQ5O4s0a8cKCMk/5zQBIsg3ARvkMN3Q+o/OkPnbpGJzjI6A/5/8Ar1IilI/mG1s4zkk/kKjuJCqbQQuPvEqRz/n+dAC7mjUDG52yAOmKjCO3+tVlROT6t6/5/T1WMhUiZRw2GUkY+XHvTGJZ8MQCwyRjqT2oAbl3jbyUBQNgEnI6c0sELMTISSSc5I4xUqoGGJB8qYwp+uKaztjy8jk4xsHAGKAE3M+4KA244A6YHr+vSovMBLKGG0DO7OdxGP05p0/lLFtVQcYAOenpz/n/ABdDD8uEAwOSc5yOn4en+eQBYwGYnqMckj6f5/zy1SvnEI2STyoXnH+TUixp3xtHGTx2/XvUanLthSV3HGR79qAJVYxsYxIqyDjnBxj6n2pyo7ZVd24Dk4zwP8/zpkbqHym0AjOSME/lSNLIke3f80jAAZzx7/5/+sAP2psbcVBIIXJHJ460wkYw2NhJAEfUnPeo0XB8x0BJIA3ZAA4HH5UO4Mm854PJzigB7M2NqqVLHO4ICRxjuaeGGBGEZ2Aztxz/ACpI3xEoTBkz2H09KXKxD5iS3QkHvgcZoAdPIFKiNVBAAAPJNQpK+1d7fPnA4AGMfypodDIVK4VZMnHfB9TSh1Z2YbUUEKCfQev+f/rACqmB821i55UHk5HT9K2rAJH4evDwoJbOT0O0VkRiNSzM43EchSAVHp1z/n8orqDUrnT3jgine3MpLFELDdgcZ+mPzprcUtjOuZE5+dfzrIuWX+8Pzq9Jol7/AM+0/P8A0zNVzoF0wyySr/2zNNslIwLo8139iAtmH3IGA6kjJ/D/AD3rlrjw+YozJLMyKOpMZGK6m1jWGBASu4jaS3IGev6VJZesdTvNLLyWN5NbSNwDBKVdl44JHOMgflUtz4i8QT272761qksTKUkR7mQhgRgg8nOfx61RgDhhII48dFBGCRkckUpwBhlJYv8AxdeaALkfiHWbFI7S01e/t4134ihuXRUyc9AcDnNPGsa60flJquohC7TFFuH2q27fu6/e3/NnrnmqMbqHym0AjOSME/lSNLIke3f80jAAZzx7/wCf/rAFufX9ae6iuH1O+eeAHyZZLl90e4fNtOeM9D602fVdSvLqO9ub+6luojiKVpmLJtJxgnJBB5GD3/Oki4PmOgJJAG7IAHA4/Kh3Bk3nPB5OcUAa11quqahCIdR1O8uo1fd5c1yzqCMgEBieeTWlYavpa6La2hhNrqEbyNPN/ZcF6bgHG3/WsNmACMDg9eprnI3xEoTBkz2H09KXKxD5iS3QkHvgcZoA1PEutjVtStZLaB4rayt0srVJTl2jTOGftuPPTgZ9snF3TPFg/M+e4wMf57UB0MhUrhVkycd8H1NPTy5Xdii7VIAHqB/+v/PSgBiPLtKscqQSuFxkn/P601IpJJRvPK9lHAP+PP61KSskyRFQMfeJ456fy/z6O3+V9wBVx0C5yeB/SgBCSHCccAAqBjJ9KjL7XVeA7HJ5zsBx6H3p4EaoQygs3JA9fpUVvGG5VQS3TnOM+30/z6gDo9rFcHdg/kM1NsHt/wB8/wD2NN8rkg4JOSR09Of58UuyHP3k/I0AV41KysdwwwwSFzjOPb2qU/uowG/iADBerMabBuE0hxwB+Of8KdI7Hq+MHgY6+/60AR7T8oB2noBjO386nPyx4wXduMuR8x4/rScncAwCY6nkkf4daFVdy7WycZG5cde+D/n+oBI8oii3HI5ODwSzfT/P61ViJkZy5Lhshiw+9/8AWqWQNIFEj7sDIUc4Pr/n/wDW1fkTcqHI9Gyenv8A55oAlGI41L/OxA46AcHFRK29CBluOQMHJHr/AJ/+uhLFOUPXdycjHFLFtjbmPP8AFhuO/wCg5oAkOI/LaTnbjAHftxTN0rMQyZwM5PQc/wCf89ZDuVQVRi2QD3H0/wA//rapAblAxLDqTz+Hv/nNACAKWO9t5IHbjHoeOev+e4pUfM77VBOB1zznnH/16lwZJcYXBH3QevbOfShQm7lgSQSAAT35oAj3NIV2sDk8Adun59ahkVNzRl2OHy3P+f8AP62ZHxGqLkB3AO3OMUQDy9zN95skADpkjvzQAJHG54TPAP3sZ46UOyBhtctIcZyCACf8inBCyODwRn5ent1/z/jG0ixthAOudxOce4/z/wDXAByysUI8vf1G3J/GmH91GA38QAYL1ZjREhDtITzgkAY5ye/+f/rkjser4weBjr7/AK0AR7T8oB2noBjO386nPyx4wXduMuR8x4/rScncAwCY6nkkf4daFVdy7WycZG5cde+D/n+oBI8oii3HI5ODwSzfT/P61UiZmMjFycg5Zh94/wAsVNIGkCiR92BkKOcH1/z/APrjKbotqqMscHLf5wOf1oAlhkRWYKWIA2jjgdMdKdI6DYpZAeANpxjj/Ipo/cW8agqJGI+Xpx/n/PozyzJuyyqW+YnsefegBFYyuuJVKqD1PTtkfl+lI7RuSgBKqAxJPXH+Sf8APCKojj3KrsS+Tj+XH+f6OgicytIcqP4QSQT0H5df89ACaM7UPG3jHyHjtkn9D+dQSEKow2cEuc/nj2pV+cgLtPIywPAxUUqh+dx2dywyW+lACRgsrZeRiVJOTx29P8/0dFGfNLfIRjJz26f5/wA8JsRCu7IwAoFJtYsy7VK8D5gef/rUASqxZTsQheMsR1PXGe3/ANYV0eiXM1noV+Y3zuLE7hnJ2Dn8KwWdvKVAM4OWyDsz/n/PptaeMeH7sfLwG+70+6KcdyZbGJc67fAH51/74FUdQ1LW7RFe4hkhR/utJAVDfTIrTsLPRbmKVtV1SW0cNhFSItkY68A967PT4NBufB1zbz6k99pUWQZrhChix2UkA8dvyqmSjxLVNWvL5FjnkygOcKMZrrbGULb58tGO3HK/59q4rUFgW8lW2d3gDkRs64YrngketdlYoVgUouGJGWbtUMtGzpNjeaxdi1thAZ3+5HJMkRcnAxhiMknsOau3nhjWIReSSQ2zNaRs08UF1FLJEoOGyqsWwD1OOO+Kr+FCG8YaOSxOdQg25HUCRcf1rsbS+020+Jd/5VneRahPez20V29ysqwyyOUEixbFyAT0LdCepAoGedozREfKSpBXlsAAY9PpUjkmNTs9htOORXZ6FajR/D3i+O4s9NvLzTZYokkltEm2O0jRuQWGSMAEA8cZx1FZ3iW2S78L+GtT8iGK8u1u0neGIRKwSXCfKmFBAJ5xk9+nAByrs+4EuNqjoTnH0/L9KV9pjXdnk85PXH+f1/LvfE2pppMnh5bbS9GzNpsF5cFtNhPnu2chvl4Hy/w7TyfbEV94fXTviJqVlpdtaNaabGbxv7QLPDHGI1c7gvzMAWAAGSeM55oA4kTCMcbVJBACtjn/ADz+dQtKAi5OPnLEH6/pXoMsGmX3g7xFNFJBezae0BgnXS4bLaGkZSV8s5YMueGAxgcZ6XtJ1S00Dwn4SvJrnULWJ57qWWLT1X/SysoA8w7lyMBR0PGRxwaAPMoYiQ3myuCRznJHOPT/AD1/BIUzK5ifO4YJKYHbOOPauu1bSTceONKS5m32uuyQ3gaNPLcLO5zlSW2kEsMZbtz2Fw3sI8eroI0vSv7M+3/2f5As03eXv8vPmY8zdjnduzuGfagDhChEkbhgSp9OTgjoMVOqlAX3DOch8YwMZPHrU+rWCab4ivdPtyWhtbuSBGkwTtVyATjvx/8AqqJ3Y5GdoPU4H5fXmgCDhlLAFVPODyWqeIbBudmcryDwAv0/WmoWITa2W7k9v/r4zRtXb9/POD8uP1/z/iASRsPKLMoA25OCMBc5/wA//XqA3xycc8/88qlfeUKGQBGOCB3H4UwRJgfKR/wH/wCvQBDE7+a0rfKn9D6cd8VYRnmOAWK4PAHGCev160kBJA4VVX5flHfA68e9SrLGqSSeWTghc9sn/P8AKgBrAtKI1U5OASTjHucf5/qrskUPLkKDjocn/OB/k8xLK7Nw6ImduSOSTjj/AOtRISzqo5UNkZOD19v8/WgBxmxExZjGWOScjkYH/wBeoYnDg7FZ+N3JwD6dfwqZY42RZHUYzz64GPrTkQMN5TKY+VS3HTrQBCkBkbfLkqRkLu4A/CnrsDNnB/hOO3fGaGLSMFyG+cKQOmPek2hZMA52kZ2jv3/z70AP3RzhQqgLjdx704hMBYcqF+UHpknH6UiCSTqMxrgAEYB4x+VMLMQGReFPy85AAwfxoAeB1EYwqjruIz06+1Qs7rwvzFlIJyP19qE3LAxkYjJ6HHc4ppklmIC8jbjp0P1+v+fUAl2xK4LqSwPU5HPpj0pYl3yZRASTn73H+eKPL+aMngr27DpmnbpNrfMFjYcYGc+nPp/n6gDNzbpNuMs20tkHrjp+lAH70BiTnDE8E5+n5UkTKZQGmwq5zhcYOR+vSnBeGbgZboT26igCSRtke5kKktkkkZx6dD3qNGeY4BYrg8AcYJ6/XrThkTEs+M5woUYHP405ZY1SSTyycELntk/5/lQA1gWlEaqcnAJJxj3OP8/1V2SKHlyFBx0OT/nA/wAnmJZXZuHREztyRySccf8A1qJCWdVHKhsjJwevt/n60AOM2ImLMYyxyTkcjA/+vUUDo54BYAbst09uPyqVY42RZHUYzz64GPrQIy6hwCF42r1HagBGdCi4LLnAYngDj/P+ekW0ySea2AMHaCvripmC5IbGIxwowMn8f6//AKmny1VGBG7gFlGFA9BQAuDEFyAccjgngf5/z2VmbAaU7mYbfw6/5/zhEIzleAUHOBk5wf8AP+cRyMzj5d2STk46fj+n4UASggxsFUj5QuQvTimNKUXMYbgADIzz9KaX2wxnJ+8o47cd/wBO1OCk7SMjLADH05JNAFffIHVnJYg/dXuf8/59Hws7SNIVbGDgD37/AJA/l+SkhdoVVbj6DP8A+qpIiSg4AVcDC8c8dfzoAkLSNuBUApwqAEd/88/5GvayRQ+HbovIo6hiT/FtHGayI8bfmkUZ4+/24zknvTZNO1DWbaVLJXkhgIZ1DKAoPAOCRnp/+qmhSV0ZFzcQkHEq/nUOpeILy906HT5LlfskP3IURUUfXAGfxq43ha+z88EgHsyH+tQSeF5u8Ug9csv9DTbJSOTuSCeDXd2bu1qqjIABA46n2/z/APWw7rQYLaEy3AdFX7xLD/GtzT23RoFYMScDgngVJZqadqc+jXUVzZiM3Cj5XkhSXa3BGNykAgjgjmr3/CX64Lie5D20dx8+6aKygSUlwQSHVAwPJ5BB5rE3YdsSdem1hk5/l/n8FUAkMFyWwPuk+h4/yaAL1lrmoWWk3mmQPEtpd4+0b4Y238cfMy54xkc8HkYJoutavtS06x0yYxLYWgzABbxpsz1IIAY5788nk5NU2C5IbGIxwowMn8f6/wD6mny1VGBG7gFlGFA9BQB3fiDxW9tZ6EujarZXP9n2cUTRmwLOkqjmRGli4Hyp0IPA471xtjq2q2V7NewXDpPMGWZpQH84PncHD5Dg5ycg8/TiuhGcrwCg5wMnOD/n/OI5GZx8u7JJycdPx/T8KANdvEervY3FlH9jhtbpQlwkNhboJcZIyVQYIzkHqDyMGmW+u6laaZDYxzW8lvCzNElxaRz7GYjITzFO0Hg4HGRmssvthjOT95Rx247/AKdqcFJ2kZGWAGPpySaALGo6hc6pfLcXtwJmjjWCNQoRUVR8qqqjCgegGO9aZ8Xa4WNyb2EXBj8v7ULaLz9pXaD5u3fnbxu3Z96wCQu0Kqtx9Bn/APVU1uSQOFVV+X5R3wOvHvQBWJeSRPLRlAweeQT1HarImLtsRmKkgHA+8c/y7/lSBt0rBFUA8nHXHA/n/Kp1dGnUFS+BuO306+n+eKAGODGqgoxcnvgZPoPx/wA+rlURKcnB27znPHt9elQm4Z3/AHW1AfmJI+6OPWldzs4cMWUZP+FACpMCchjtAKh849M9ag+2Lnm4P/fNTRxq6lSo+UAjn6dP8/8A13YtgMenvQA6FPvfN0BJPf09/wDIpsiqQnzbtmDg8f41GHXzmLnpwOvTNJJLI53KzEK2UAHQdBQAu5QyIikZ5JznP+f8+6SRkDHRiR945x/nNNhMqhmY9WwMkfnTYhuuJAOeMMQe3HOenf8Az3ALMQBTcWMigZznA9h7/wCfWmSuxAZxglzjp06D8KTfgA5XJIwR17f1FRTGTO0BgzAgDGfpmgBqszGSTyyM5YFn9x/jSxSHzSocLzu3Yye3+f8APKIrDAxn5cMfQmnCYqWG4BsYG4HgUATbyAQz8kYVQB8o+v8Anr+cWdzEsMbuik89O5/H9fzlCQpbh/7xH7wnPH9fp/8AWyYBx3LAcZxkn15oAjWLzJMKpIDYBz/nPWjcFZUj2spPOccc9+KNxcgptUZzgmhFKYyMs38TY4zQA5GkmlCEEjG5VyMDJxmpto38zBNoyCEqKI7IwwOXPHLe3f2/z3pCDljJjaSAMc5/zmgCxF5e0rHyFOTkcg/1qOXZvKqSVXnGO4/pUasq7h9xUYALjvnnmkMqrE+xxzwvHqM89aAJ4UYHDblwvJ9ent05/wA90kVSE+bdswcHj/GmQoFi86QnLED0H+elNklkc7lZiFbKADoOgoAXcoZERSM8k5zn/P8An3SSMgY6MSPvHOP85psJlUMzHq2Bkj86bEN1xIBzxhiD245z07/57gFmIApuLGRQM5zgew9/8+tIzsWVnGCXOMenTt2pm/AByuSRgjr2/qKTcfPUPuUYJ/Tjn8KAFbYCzsBszgZHPYUwlmCrgAKOBzjPHNOkfft+ZiS+Tkg+npUY2ZyQwHC8kDPfHP8AP/CgCaNgE+Ucn2/PP/1qcZmUlAoBGPxPpz/n+jcEtGCSMDk55H5fSjciqY0O5mG0tnsfX2oAjRskLtzzxhc9B/n/AD0lkcBBGF3Nkbi46cdvypqScswZcYwBnAPrjFKWZUBYglm3BBn6c880ARgu5AK7cgDAHP8AjUgVduGfAznPGT/nH6Uu5gd0u8AsMADv0/pUTON7MRuI4AHpQAA7x8rOqg7icYwvFbXhmR7ZtSeKQq3lpkj6N/SsbzAiqdikA/KqgdeOvPtWr4dB2akSMExp/Jqa3FLYyrnVr4Z/0lvyFVNVk17ToopLtpYVmGYw+0Ej6da6Hwoultr6f2kfmGPs4b7m/wB/f0//AFVd8XjwvHrkp1mDVvtDAEFCNhXttyelUyEeS6jf3V2FWeZnVTkA112jMU09dvBIwD07iuT1w2R1KY6cJRZ7v3Ql+9j3rrdH/wCPFPlzx1J4zUFo1tI05tX1GLTkuba3lnYLH9oVwGZioCnYpIznqePetWTwperfXdhZ6tYXd/ah91lCZRK+w/Oq7kAYjk4BJIBxmq/hc7fF+iICmft8GSHyfvj04rqLPUQ3xPv7G10aGOa7vri0e8t3l+0RhiymVCzMqMoy2Qo4BHANAzzuNt4Z5Nu3/cB9v5UbmaMBl4X7qpxjkYJHtXfeDob7S5fFxsZrmSwt9Muo4r6LcsUksZ+Rgw43YJYYJIDceppfEG4uroeGhc3EsxOiW8pV2LbpGyGbnucDJ74GaAOLjnkX7saqMZJxzjOD/kVft4bm7uFtrO3kuJnPyRRxlnbAzwBntz9Aa9I1y8XSfEUFjpGtavZWiRw/YLSxtFkhkUgEMh80ebuZjkkEk5HOKh09bGHxl4xWCxktbRNHuN1okiZXhC4BUuqnduGBkDpgYxQB59faVqWl7Bf2E1r5hPlfaYmj3bQM4yOeo/P6VWZzt8tQkp4zz3x2/IV2EpsvE/gqWe2guLCHw4kaxQS3KzLL5znexOxWDEgHqRxgKM0txfXGj/D7RbrRppLR7qedb6a2chmkVsRK7jkfISQucHJOD1oA40KzrkjaeAAB1H86lhT73zdAST39Pf8AyK6bxU5m0HwvqF+rf2vdQSm6cjEkkauFhZx3yvRjywHU4rlFdfOYuenA69M0AShP3wAbOQByAP05p0ihkdN5JYkcioXkDyJknZnjrnrgfpQ8pddkbHYV5HqT7/TFACMyRqSE+bgAhs4/z/h+Ksh2bjnGMDJ68en41EhmabcxJULnnHbtikkJaePJBY8jnoenpwOaAJoFJ+UvuOeVTj68/T/PNTbYv7q/99CodwU/w8HJDduh6/nTkb92vPYfxUAQrGiBdo54IOMH/PWneawm2xngAjJXOcdKcwZ3Kx5QI2ScdPp/nvQqEIpGTG2BkZ+Y+vNADVVGRVfGARn2/L/PNSoUVSYV2rtz8xySc/8A6qQne21s/cyFXt09/Q/57tmcBAcHaDx79gc/560AOVNgL5LuBkEgZz9PSmGNEXD5GRliDkmgFRErbQdxUE59u360woGGCCRkbiDj8M/WgBnmLI67AQuQSc8D/P8An3dGVadtoyoBO7P5fz/WkZFIUyMMY3cg0+KOLaAvzMQCxzjGePx/z+IBKxiJ3BizL1fPHX+VOkUfZRJJyGwQM8Y+opEw+4hRtYgY3cZ4wM/5/Wm3JVo/nXeynAB+nT6dKAEQgLnaCzjAOeM9qag3PuYNgdTwTnjjP4ik+fKiPJYY544NOG+MlpDl2PAPUdO/5/nQBI3yoqsevt26f1/z3RzGuCF+bG7Ppj/9f6/mmVdNzAfNjAz6YNNRo3ckZwxwTydx/wAKAFjgVlTeR83Rd3rg9qcsYbBGQowV3DI/Af5600kMxVgW28YyB9M9qF4JxgKQAMZPp09qAHybvLj4+UY2AEYz1/r/AJ7xeawm2xngAjJXOcdKd5ZIUI3I5L+g6cf5/wDrioQikZMbYGRn5j680ANVUZFV8YBGfb8v881KhRVJhXau3PzHJJz/APqpCd7bWz9zIVe3T39D/nu2ZwEBwdoPHv2Bz/nrQA5U2Avku4GQSBnP09KjZFjXnhsZJz1pQVESttB3FQTn27frTGB2HAzyAxHuOlAELTucbYs8d+Me38/89HLI2xcBs7gBvU4z3+n+fwlZSqBiUVwBjPAHHT6e/wBaFYkjLYUHqOPbjNADSWKoMszqR04AwKUAjaQUUMoUkj9KsNiNAFUKMjkjH4/z/wAjispLzM/GCQC3UY9h+v8AngAbBy+4sNqjHTPb/wCtTkwJTIV34B25HzHv36f5/BuSFCopKhsZcHHbml2N5eW2jJJ4HJxzQAx5JZW6EYJ5Pfuf6f56TRokafIoJKjGV5/CnQIQzHgcbcEfoPypTIFY4BAQ8ZXjP/1v6igBG4cZWMZHTOCfr9K0tJuI7a31GSeVABEmSDwPv8VkxKZ5yJGPD8AnA6+/Qf5+ly28PXOvxzJaSpGYlB2s5/edemBzjmmtxPYwri9gPR/0NU9T1u61CKOO6vJZ0j+4JCTt+lbT+CrsffuYT9Cf8KqyeDpR1mj/AO+j/hTbJSRxtywY8V3Okj/QYlXaWxyWGcdOn6Vk3vh2Gyt2nuJECL/tnJ9ulaumzILOERIX3RhjnkLnn+n0qSzWsr26sZvNsLyezc5jZ7eby2bIHGR2yBx7VZufEGtyQTRTa5qEkEilGjku5GDgjBBycEGs2Pds81kIUYwFXJzx/n/9VRTbmwzcluoz0/z/AJ9gB39ragti1jFPcCzkO+SDzWEbtwcsucE8Dn/ZH4WLvXdT1IRG9vLq6ZGwn2p3cAn7wGTx0H5D8KzKVQMSiuAMZ4A46fT3+tCsSRlsKD1HHtxmgDRtvEetWVqttaapfxRrkCOG5dETucAHuSapWtzdWV1Dd2t09vMv3ZUcqykgggEcjOT/AJJp7YjQBVCjI5Ix+P8AP/I4rKS8zPxgkAt1GPYfr/ngAvz69q2qRNDf6pdXNuDkJNM8gBwRkAk89abY6xqWnSSNZX13bK68rbzNEXxkjIBHTPf/ABqhkhQqKSobGXBx25pdjeXltoySeBycc0AOvL281G5ae5mmlmJ+aWaQuz4Hck5OBgf54EjRAu0c8EHGD/nrT4EIZjwONuCP0H5UpDO22PKBGyTjp9P896AGGOLcz9ecEke3r3oeRo1QL9/IPIyB2+lOONixpliyYzt4P5/55pVjf5iG3Mv329Bxx6UAJ95n34y3HPcY4p8YiRh5IO/IyxJxj2/OgH5EU/KrMAfU5xn+f+e4TiNlAOCOSeevb8v50AAQSSZdsqTwMcAf1NJvkB4H61HEyurNtB27uM9OB1qUSDaPp/eoAaIpCpZm5JK4IyMH1z9P0pjuCqfPufALMfT0p8zExgZJBcAkH6H/AD/kVGA+RgDkf3u/r9KAJYlwhLE4AAPGO3c/4ZoCQjlmJYc8E8D1+mO/+SwDBjXaScHgnmnFPkaR+CR90nIz2/yP/wBYBHtEqKNxO1gQQD6etTMFjijZiF+bKBhnNRqse/L5OMncx6k+vp/n8XfIxLAnAcc88DHbjn/P4gEeUZhtYuwHYdf/AK1PUMEwEJJbofw/z+NKqIX2xoSARnJ/xoLEsQrAKOCR6/WgA82RcAbi2dowBUaiU52oS27r/nrzTo0UcBiSBhiQfl6c/WmR5d2O7K46Y+mef89aAJI0Kg7xuGQSM9Dxjp9RQjNltimKM5G7OSffpUUjEsPnBAb5VC8df/1VIUPlqDk56noDxz/n/JAGTyvK22M5H3QScdMe3vT7ZBGCZGLbASRnGTxTYtpkDbgvAPrnpUqjJPIGOc5zQAwEsCS5JzjoMdufcc/57yR4IU7GbB/v/gPw+gpqjptcZyOOu0Y55/KnIrsh53ZOTjHT39KAGtuaWRdwBPBBGc/5zTHcFU+fc+AWY+npTpeEwAwVnx94HuPSmAPkYA5H97v6/SgCWJcISxOAADxjt3P+GaAkI5ZiWHPBPA9fpjv/AJLAMGNdpJweCeacU+RpH4JH3ScjPb/I/wD1gEe0Soo3E7WBBAPp61YCAIhbgnJVSOvH9OahVY9+XycZO5j1J9fT/P4uHlsS20sA3OMjjGOOPf8Az3AG4DyMWIMeT1IOehx/n/8AU5D/AKQ7uqgKuVB4zzQMiLAAHzZAPSotzPNsVsqvB5x6cfpQA+Vt/BdmwAWJ6Z9BShFXCh1+4MndwP8AP+fZfKAVgQDjORnP/wCr/P4NIJUMypt452f0oAULvIQRyFQ3TGDjj/P4VIwKDnOchRTVZs/KD0+Y+v8An/OKXIJ8sHaAcseAc0AN82TMhO0DBKrkjLf5/wAihYWIDSE8tjr0HB5z9P8APaaIIDvGAcKQXOOf8/yoVl+8xBAOQW9eP8/54AGosgdmYKOMKqn3ra8PZSKfBxgL04x1rFZ3IIBO3bnJ6nGPcf5FbOgqQLrJJO1M+g4NNbilscxcyy5wHcknAAJ5qfV/CeuafoqanMG2HmSNWJaIdi3+eKlsNRTStQN4bdJ5Ejbyg/RXOMN+HNdNqPi++0zQtAv5gtwtyJFuo2UDzACB+BqmRE8avZHcYZ2YZ6E11uhErp0TBM5RRkD6VyupvHLeTyQrtiaRmRcYwpJwK63QyG02IBhkRAcnpx9allo7TwVp9nrHi+y07Ubdbi2njZXUu6EERlgRtYc/KBzng9OhE/hFNJ8QeKbHTbzw/YpBMXBeGe5DDbGzYGZT3X0qr4K1az0jxfaajqd6tva26uXZo5HL5RkAG0HnnPOBgH2pPA+o2Oj+NI9R1G/jSztTL++CSMrjayDYAuedwPIHGe/FIZTttIfVoL7USbWw05ZNpmn3mMuxyI0ADMxA5wM4AySODTNQ0SaysLfUIp7e6sZSy/arfcQsgJJRt4DK2ORkDIORntp2d/Yy+GLrw9c3sNtJHqH2yC6ZJGhm+XyypAXcvHzAlTnoQtMvdQ0608IQaDa3KXrtem+muI1ZY1O0oEG8BmJHzE4AGcDPJABpXPgm3tH1iC51SU3Wl2ouJy9qPs+8qGWNXL5yS2BkDJBwK5zSdIn1e9FtbIgKIWeWQ7Y4Yx1kdugUD/DrgV3N34rivfGMOrQ+KpbXS/NgleydrpWVVC70KKhQ5w3QkHnmsDTNd0q08S6vuVrfT9ViubVSkX/HtHK3ytsHUDABUH6ZxigDMk0F5tOurjT7yyvxaqJJ4rdZVkVDkF9rxqSoxyRnGRnA6T2vhiS50FtZk1fT7a0WcwMJWkDh/wC6AsZ3cHd8ueM5xg40dJmsfD1lrDrfxX9xeWbWaRW0cq7Vfq7M6KAFA4ABJz2AzVmyhtLn4VSpNqUVnt1kmN5UdlZ/JHynapI4JOcHpjjPABy17oOo2c1qoZbi3vVBtJbQs6XBY8hcgNuBwpUgEHt0rSXwm7X39mjU9LfUQPLa0aWQnzNv+rL7dhbOFxvxu4zVyXXrOyh8O21kxvY9DkMxuBmNZ3eQSMihhkBcBdxAzzwMVM9zo6+MDrv9tJ9m+1fbzbi2l+0ZB8zyh8uzO75c78d6AM3TvCdxqdrf3ct7aWv9nMFuVvGkjZOSBwEPPBAHXcMY6VLrPgvUdJtb2aWSyl+xOnnwxy5aEOxVHYbQPmxnAO7DAkDtct9YsrzRvF73FzFaXOrTxyw2zeY5G2RpGG4LjndgdORzgc1q+INb0W8Xxe8GqRn+1Es3tsxSjPlfeU/Lwfl47fMOeuADzOAFiPmJ75C+wp+yE8s3B4xn9P5f56x7SsbbhySO4I7VIIzIwJG0DpznOf8AP+e4Aw7SZIwTggjBySOB+I/z+ItsNo5bpSFY2POSrHA5xgZz/n/OZfLtTz8vP+0f/iaAC4dFiUsSCOfm6DjGKrDaqBiCmWBYkZ9h+H+frJMkJRf7oP14x/8ArpiRxAqEVidwPB6//WoAk8zCRuqYXgc8Y7nFN3/vFdmLHAK4U9fWpDCqrukIJyOPT2/Uf56xh/3m1D8owARyT/8AW5oAbC7u23Lc/eIGcngmngmWQRlgqJ1XHT8fpUakRJlm2uepPJH5d+aQMChA+bPbGfr/AFoAfNPECAgwM5Pzc4zxQsZZSZmxkdMdf1pIYlLnII69O54H5df89Z9oGFYnA4b3H/1+lAETpG21C6lRzgjAHP608CMwgk/IW45xnpyeOnSm+a8suIxhQ2Cx6e2eP8/zkA3MPMcnC8gAcd6AGRqjOCgDBAACDwT/AEpTtALsSzZx+Pp/n1pQybf3R+Zvlzg8f/WpDkbV+YgAnj6+tADInbcCWXAXKrj3B/LH61KvZ2wGI4wNxb/6350iYXczcseDz16HB9qcH5Du21Svy7ueOMYH50AO3NySSzN/CMKAPwp0kv7tkVuRgYC8AY55/wAajjbLYU7sEMTtHpio55S+QpwpPBz97/6wNAEbOikZcDHOCMf5HSkG1UDEFMsCxIz7D8P8/VvkRhVYjKgDnH1P5fnT0jiBUIrE7geD1/8ArUASeZhI3VMLwOeMdzim7/3iuzFjgFcKevrUhhVV3SEE5HHp7fqP89Yw/wC82oflGACOSf8A63NADYXd225bn7xAzk8E09ZX80AYAjBwuM4Pbn16VGpESZZtrnqTyR+XfmnQkMwG4YJ7/wCOfrQA8x+Yv7wszuwOxT046e1SxxrHFuOPXAx7cU5f3ayEkDpjJx3qLAIJ+ULktyBlqAG5+Tc6sATubbjP4+3Wo03yFpNgGRtXPYccD9akmkaRMZKg9QT0Hue3+fwkjCMpY5YDkcg5+mfzz/kACISPmKEnGMAdO/8AT/PZFbEpZ1UBSckDnPFTKoA3YXkkDnA6DmoEdd8rZEhGdu3gE+1AEqYJ2+WME9Mdcmh3VUUFWLHoMZxwKVGLKueWwOE4AP8AkGmL5a4KkjAxwecdeP8A69AEoU/dLohYANlh17jmr9jqFrYW15LISFULgep54FZm1Ds+8WZh2GBwM/yrR0nQrDVxdRXMrI6YaJsjHfg5HHTr/kNbiexyNxqMbZwjVUvtauLq0gtZZXaC3z5SHGFz1rrX0DRI/wDl8B5zzKtU5NL0VAf9LiJPcyLVO5KSOBuHDdBXaaJGv9kRu/GUABI9qr350extWkR4Z3H3UDBiT+HaprG5jl06JxGoYhRtVSO31qC0ae1ZRGigKpYZzx1ofZHkZLMPlQ5x0z/n/PCKWCoCrbuC20cFsAUmz95gEEAYLH9ef/r0AOjYqF4y5Iwinp3/AAoSNVjDtzgZwCP855py/u1kJIHTGTjvUWAQT8oXJbkDLUAL5zBNzKygjnZ1H+eaiikmPzgY7Ln8P/r06aRpExkqD1BPQe57f5/CSMIyljlgORyDn6Z/PP8AkADNu4AsjZGfu9up/wA/5xpw+INRh0dtHMkP9nh3YxtbRM28jBbcVzuwSA2cjseBVNVAG7C8kgc4HQc1AjrvlbIkIzt28An2oAfGvzKMHqOCOvNJMyxQ7i7BmAzu6D2qRGLKueWwOE4AP+QarSpCUX+6Px4x/wDroAsJKxtsyZHdVxjrjnioWnNyd2SVydvPH0/z/hSeXCLcqvpn8f51EI4RkgHdgjg9P/r0ASRurQkxjcMZJxgHj/6/+e4zl1Uu3yggEAE9uRUiwAqNxKqFwFJz2HP8v89Y2dQVEeOeTz0+nvzQA0zN5uRu9uM4Ax/jVjym7iX8qr4/eb35GBt3Y/lSecrfMbrrz0egCRfMkQ4ypDYzjd3/AM/54p0ahpiivwo3MTzjn/P+eqZKPyxAAwSV/TH+f6U0yBZNqghnHOfw+v8An9QCSaQ4UqpXOMEtkn3qNFYfM3LMobJ5Of8A9ef89V2s25t3zHgnOeP6D29/zcXLMCJCSQAMpzjPYUAM8rAGAfML9Sx46VKVGzbyAOvPUkf5/wA9URYlYEqG3cgEnrx/gKe5JUAg7i24KOOKAEWWJGkVWGOWPPGO1QjMhYopGTyc98gd/qfzqdIjltzbUIG7nqM8/n/+unqA2AoChWz0zjj+ZyP89QCG32LOzRtnHzE8EZzSiNmjUKBlvvNwO4qVnABG1t2Mlevpnp/nn82lzsClcLlWGT9PbpQBE8RCKViBUv8AKCf1/U0xI97sd2Nw6jnH5ZprfvHCYZsclskYH+TU8UQXaGb52OSAOnPFACgR/wCqiy4AyS3sPX060nlI0u93DEIMH/P+f6zNnbgARjqcjJwP5dqR40AAwpAXORk5NADHWFIVjXJLYyOc9B6f5/qzyzIUH8AXJI9alcqeRngY29eKRFfG0LHnHJJ9qAImJZmjT5Tng8Nj/P8AnryRqGmKK/CjcxPOOf8AP+eoCFjZiwzu5IGeMdP8+v5sMgWTaoIZxzn8Pr/n9QCSaQ4UqpXOMEtkn3qNFYfM3LMobJ5Of/15/wA9V2s25t3zHgnOeP6D29/zcXLMCJCSQAMpzjPYUAM8rAGAfML9Sx46VMqZ2qDgKcnJ/P8Az/ktRYlYEqG3cgEnrx/gKfITtAIwzNkKegHv/jQAzcrT7VOepy4Bz/ninSDYqKjhTwoJPQZ7fpSrGEDHgdi2R19P0/z2a6ADhkJ5bGeQBgf0oAaUGATtwO7Dlvzp5YyKsYLYJ55xgcen0owMs7KCxGR6U4DKqzKu3AyAuO3p+P8AnsAJcSMkQ2Pudsj12r61DArbtx+XPAO3GB6f/XqYogzyi7RtyeSaiU7k2qzbugI+n6f/AFqAJS+yJVjGADg4GDnHeood8oxhhyV459f8/wCeGsRnyw0jtwcDJwaeocM2C3yqM44PXp7UASkYC+VhSMDLdvYfrWt4eXabwAtjC4yP97/GsmRSsahvMAyABgZwK2PDysI7kkEBgpAPbrTW4pbHK3Pen+JNGt9M03R7iF5XkvbfzZA5BAPHTAHrWrot9Y2eoSJqUPmWdxGYpP8AZyQc/hiuq8RzaBoen6ZeyKLue1h22ERfIfgYY+wwOapkR2PC7v8ArXW6EJHsYgNoVUGMn2FcneHJJ9Tmuw8POV06JUBXcoBI79O9Sy0d18PVju/G9nY3VtZ3FvOGE0dxbJIfliZhgspK/MM8EZx7Vpw2LXegawNVi0ub7PbefANN+zeerg7d2IOsYz8+7oMEcjjF8G6tp+h+I4tVv5J9tqzBEhiVvM3Ky/MxdduNw7HPtT9F1TRfDeo/2tZXF9fX0UbC2jntkijDMNuXIkYkAEnAAyccjmkMrXGkW0fgo68Lx1kN19iEElsMb9u4tu39NvP3eoxjvTdb0Kz0g6QF1G4uY723jvcm1CNHG5448w7mwG4yBkDn0vQeJvsHgZtNtL7UbTUjf/aWktlCJjaE8veHz0AbkdRjHcV/FviCy1mbTZLea/lmtrFLWZ7mJQ7lCf3mQ7ckk5z0x1OeAC+PBkX/AAnj+F31KQS7cpci2yGOzzDld4wMZHBJyBx6c3psNrc3RW9v/scSIWLrC0jOQPlUAYBJx/EVA557V2dv4v8ADx8cnxZcJqwmaFT9kigjKI/lCM/OXywxn+EdunIPG2P9lx3kiXbX/wBlIZYZYUUOrfwOyE4IPdQw/wB7igDSu9GgXQJdbsL2a4gjlFtJHdQCBgSMjZ87B+M5AO4YBIxyOcgVt24/LngHbjA9P/r11Gp69Zv4di0mOW81GVJd8VzfRiM2qAAbIwGY/NjkE7RgYXPI5hTuTarNu6Aj6fp/9agCUvsiVYxgA4OBg5x3qFPMkQ4ypBxnG7v/AJ/zxSMRnyw0jtwcDJwadyjcsQAMElf0x/n+lAANwlaNdxAGQ2cnvSbSrRrvzI5AAx/T/P68ubOVK55IOCPbrz1/WmvKqhZOSwPDevI9f8/1AJnISPaAW28F89/QCq6B32u/zYIUZ7cdB+v+ergGdgSenzL7H6f19/zXcQgUv0bOCvGT7+tACGMMSzgkFcDk9OKTZNj7x/77/wDrU8KpId+T0ORjPQ9O3b/PWYNEAB5A6f7X+NAEDF2B2Io54B9PU0sELMTISSSc5I4xTk8uWR2KLtUgAeoH/wCv/PSlZ2x5eRycY2DgDFACbmfcFAbccAdMD1/XpUXmAllDDaBndnO4jH6c06fyli2qoOMAHPT05/z/AIuhh+XCAYHJOc5HT8PT/PIAsYDMT1GOSR9P8/55RCvnkI4yTkrjoKesad8bRxk8dv170xRvaQAlUGTkgjj2oAlTcBhHwx4B256Uu1hGGBI4HPBPQdKRAh2sqgggHnjPT/Go9jOyB1Bx0AOM0APwpU8biV+XHOc461JJGoAMgHB9+n+FN3T8MoAGQo+UEYOOP1NQ4bcWcLkPjpnkUAPiXfK/PBUsAM89D/WpFMcQ3quCeAcnGf8ACooPNwdq43n1HT1/z60OTuLNGvHCgjJP+c0ASLINwEb5DDd0PqPzpD526Ric4yOgP+f/AK9SIpSP5htbOM5JP5Co7iQqm0ELj7xKkc/5/nQAu5o1AxudsgDpiowjt/rVZUTk+rev+f09VjIVImUcNhlJGPlx70xiWfDEAsMkY6k9qAG5d428lAUDYBJyOnNLBCzEyEkknOSOMVKqBhiQfKmMKfrims7Y8vI5OMbBwBigBNzPuCgNuOAOmB6/r0qLzASyhhtAzuzncRj9OadP5SxbVUHGADnp6c/5/wAXQw/LhAMDknOcjp+Hp/nkAWMBmJ6jHJI+n+f88ojKJzsYFj/Dt6en86esad8bRxk8dv171Gpy7YUldxxke/agCV2OfKWX51JOGbGD0zxRDE5kO7OR83yrnnI/w/SkjdQ+U2gEZyRgn8qRpZEj27/mkYADOePf/P8A9YAeQGlDSSYQc4LAZ56YHSmyyERgoELFsDjp/wDq6/54iRcHzHQEkgDdkADgcflQ7gybzng8nOKAFLSqgRUZicfe6Z4/wpsayk7HZtxX7kYIxU0b4iUJgyZ7D6elLlYh8xJboSD3wOM0ANVEgx1Mh7dcmmq5DcLtycLz29TTQ6GQqVwqyZOO+D6mlDqzsw2ooIUE+g9f8/8A1gCRS2FLsrMQMKDzn/P+fS/aapHp9pdTznLEKEjHXoeKoxKoYkOvmMOgI+X265/z+Wxollp2opdw36F1G3EmSdpGefce1NbilscPPqO7P7kj/gX/ANas25vWkADKx2jAy3QeldrLaeHY843D8HqlJ/YCEkP19VY09SUkcHcPu7YrstF3HTIQdoXaCTnk8dPSobzUNHhhZocySAfKmwj9cVNokpn01J2IDszZ44HJwMdOlSUi4qbmZs/uxkYPAPsfzpWG6T5RITjrnAPbn/PrUkzIIdikNnPCjgfnSFdoaNTgknL+vf8AxoGLbjO4jHTl24x260yd8sy5JLDj07k/5/yVEixxRow3bQdykjBOSOaSPHmKWVmOCTtHB/8Arc0AMIIj+XDuwG1ieBx6f5/xQxs0zIXOc5ADcDk1JyYyAvzY6sOB/wDXqULhGZiuG5AAJIoAhaLJYqMr3JPUcYqUjy4ioI3Acgtwe5pJQysyg7cADg4NIImkjRQ7hU4JJ65NACpGodZMb3bJJ3YAxnP9eKjKBgzShSV6Be+fenvHF5wCABiBgA9MgjP5/wAqHhiihAHXkfeOT3H6UALJkMV4YkEknnDHoAf89qiSKSSUbzyvZRwD/jz+tSB0baAmB0UEcD3/ADOPxqeONEkVVbywTkg5/wAPQD8jQBESQ4TjgAFQMZPpUZfa6rwHY5POdgOPQ+9SSSRK4VY9+WyoACg9OtJJtCkmJVLLwAOn1oAZHtYrg7sH8hmptg9v++f/ALGoo4gyEcnbyffOOv8An/68myHP3k/I0AV41KysdwwwwSFzjOPb2qU/uowG/iADBerMabBuE0hxwB+Of8KdI7Hq+MHgY6+/60AR7T8oB2noBjO386nPyx4wXduMuR8x4/rScncAwCY6nkkf4daFVdy7WycZG5cde+D/AJ/qASPKIotxyOTg8Es30/z+tVYiZGcuS4bIYsPvf/WqWQNIFEj7sDIUc4Pr/n/9bV+RNyocj0bJ6e/+eaAJRiONS/zsQOOgHBxUStvQgZbjkDByR6/5/wDroSxTlD13cnIxxSxbY25jz/FhuO/6DmgCQ4j8tpOduMAd+3FM3SsxDJnAzk9Bz/n/AD1kO5VBVGLZAPcfT/P/AOtqkBuUDEsOpPP4e/8AnNACAKWO9t5IHbjHoeOev+e4pUfM77VBOB1zznnH/wBepcGSXGFwR90Hr2zn0oUJu5YEkEgAE9+aAI9zSFdrA5PAHbp+fWoZFTc0Zdjh8tz/AJ/z+tmR8Rqi5AdwDtzjFEA8vczfebJAA6ZI780ACRxueEzwD97GeOlDsgYbXLSHGcggAn/IpwQsjg8EZ+Xp7df8/wCMbSLG2EA653E5x7j/AD/9cAHLKxQjy9/Ubcn8aYf3UYDfxABgvVmNESEO0hPOCQBjnJ7/AOf/AK5I7Hq+MHgY6+/60AR7T8oB2noBjO386nPyx4wXduMuR8x4/rScncAwCY6nkkf4daFVdy7WycZG5cde+D/n+oBI8oii3HI5ODwSzfT/AD+tVImZjIxcnIOWYfeP8sVNIGkCiR92BkKOcH1/z/8ArjKbotqqMscHLf5wOf1oAlhkRWYKWIA2jjgdMdKdI6DYpZAeANpxjj/Ipo/cW8agqJGI+Xpx/n/PozyzJuyyqW+YnsefegBFYyuuJVKqD1PTtkfl+lI7RuSgBKqAxJPXH+Sf88IqiOPcquxL5OP5cf5/o6CJzK0hyo/hBJBPQfl1/wA9ACaM7UPG3jHyHjtkn9D+dQSEKow2cEuc/nj2pV+cgLtPIywPAxUUqh+dx2dywyW+lACRgsrZeRiVJOTx29P8/wBHRRnzS3yEYyc9un+f88JsRCu7IwAoFJtYsy7VK8D5gef/AK1AEyFnGI1Kjj5yOp64z2/+sK2/DQKi73f7OPbr/hWQz/uVRt2wHMmM7fw/z/8AW1vDPIvG5wQv8jmmtxS2MnTbWG91uztrgbo5JQrgEjI/CtKKz8OXviebQX0WaNhNJCs8dyzEbcjcVPTp71R0aRIvENjJI6oizKSxOAMetN1/xhrKapfw21+EtxM6xvFGgO0MQMNjPTvmrZnHY4fWrUWWo3loJBIsEzxhugbaxGfxxXReHNiaPC5AZgrYB/3sVyl1nk5OfXNdZ4dx/YsALYIDNgdfvGoZojp/Cu3/AISjSRJAs8cl7HCyzoJEKuyg8EY6E/p6Ct0am7fExtJNnphsRq32byv7NtziPzguM7M/d4znP645zQJ7Ww8Qabe3TSrDbXEc7+VGCSVwQACQCDgDrxnPNaaarpi+PX1xDctZNefbWbyV8z74k2Y3Y6gLnPv14pDF1KytLrxtqtnJLHY28d1JHBHbWhYuVbakSRKACxwAOVzzyah1/wALzaX4fj1dTeJG9ybQw6hZm2lLbNyso3NlTg8kjkY+mpB4m0+11HxLcwyX0H9puJre9hhUTwZk8xowu8cEcEhwDtB+lK51PSE8EPoVvdX7zfbxeLLLaoi/6vZs+WVtvrn9O9AFG60K0sPD+h6m9/cuNT3q0S2o/ciMgSc+Z8x3Y2jjI67aTxHoVv4e8US6OL2OV4gge4lh8tU3AEnALEqARzjJORjgZsw3+pyaDpdlNoI1DT0neOxlnhnAy5+ZFaN1DElTgcnOR2wLHxAmtJ/iZqZP7+FHiEoikUfdRAygnODkEdOCvTqKAIrXwxpmpNeRaXrE9zPBE0qvdWghgkROCd+87AQDgsAM8EgnjO0jS4NTneOW4uFk2AwxWlqbiadj1CrwAFUFiSw9gTnG5aaxo2jwahb21zqV9aTo8aaZdQIkBYkAFyrnLLgHKhCSo5AziDTtYtIPCV1pk015YST3CzSXNjGGeaLyyvlONy5Xkn7xHJ4FAFXxF4am0G0066jNwIdQ8zCXduYJ42Rgp3Jk4BBBHOSD0HWsWBDggKDyW9hwB2z6Cuj1bVNIu/DWiaXZNevJprTLumt0RWWRt38LtjGAPpknGMVziMxlcAkLjaQR15oAFQrNjHVQMBs989sintGVV2VF34KjnP8AOms7ecoQ4IPXHHBx/OiSTaMBQWILb/TPHT8KAIlSOIFg+OAoABGf88fr7ZCDjr0XB6+n/wCqo/NEs2xlG3AY/Nngd80+SVyyIAVTrtweRjGOnXpQBJCW2lmUqmMsWIGR/n/PWmG+OTjnn/nlS7FIOc4bPzZ+n9DSiJMD5SP+A/8A16AIYnfzWlb5U/ofTjvirCM8xwCxXB4A4wT1+vWkgJIHCqq/L8o74HXj3qVZY1SSTyycELntk/5/lQA1gWlEaqcnAJJxj3OP8/1V2SKHlyFBx0OT/nA/yeYlldm4dETO3JHJJxx/9aiQlnVRyobIycHr7f5+tADjNiJizGMsck5HIwP/AK9QxOHB2Kz8buTgH06/hUyxxsiyOoxnn1wMfWnIgYbymUx8qluOnWgCFIDI2+XJUjIXdwB+FPXYGbOD/Ccdu+M0MWkYLkN84UgdMe9JtCyYBztIztHfv/n3oAfujnChVAXG7j3pxCYCw5UL8oPTJOP0pEEknUZjXAAIwDxj8qYWYgMi8Kfl5yABg/jQA8DqIxhVHXcRnp19qhZ3XhfmLKQTkfr7UJuWBjIxGT0OO5xTTJLMQF5G3HTofr9f8+oBLtiVwXUlgepyOfTHpSxLvkyiAknP3uP88UeX80ZPBXt2HTNO3SbW+YLGw4wM59OfT/P1AGbm3SbcZZtpbIPXHT9KAP3oDEnOGJ4Jz9PypImUygNNhVznC4wcj9elOC8M3Ay3Qnt1FAEkjbI9zIVJbJJIzj06HvUaM8xwCxXB4A4wT1+vWnDImJZ8ZzhQowOfxpyyxqkknlk4IXPbJ/z/ACoAawLSiNVOTgEk4x7nH+f6q7JFDy5Cg46HJ/zgf5PMSyuzcOiJnbkjkk44/wDrUSEs6qOVDZGTg9fb/P1oAcZsRMWYxljknI5GB/8AXqKB0c8AsAN2W6e3H5VKscbIsjqMZ59cDH1oEZdQ4BC8bV6jtQAjOhRcFlzgMTwBx/n/AD0i2mSTzWwBg7QV9cVMwXJDYxGOFGBk/j/X/wDU0+WqowI3cAsowoHoKAFwYguQDjkcE8D/AD/nsrM2A0p3Mw2/h1/z/nCIRnK8AoOcDJzg/wCf84jkZnHy7sknJx0/H9PwoAlBBjYKpHyhchenFMaUouYw3AAGRnn6U0vthjOT95Rx247/AKdqcFJ2kZGWAGPpySaAK++QOrOSxB+6vc/5/wA+j4WdpGkKtjBwB79/yB/L8lJC7Qqq3H0Gf/1VJESUHACrgYXjnjr+dAEjM7Bg4C7OAoU+v+ef8ie31GTTrKYwRHzJceWD29z+dQJ93/WAMeBhs+mck96YuwPyxYqvzHf+P+f84AtdGMY9SuM7UVs9R8vf61TlsNTYZ8oYJxwy10hkV4xjcu44JPA70meVXjCr69P88fnVXFyo46TR9TkJX7OScZIBXIHvzXU6PbS2emW8UyMsuCdgIyMsSCT71ZTaq7jtbnrj2/z/AJzh29UYGQ4ZxkKO/TH6CpGKylzgyOzk/MzNnt0pZABHhUYbCDvHQ8c/rTYmycqzBQQxJbAPT/P+RUU7lxn7qscr/n/P88ADGuUTOXbkduc+/wCv+ecBbemWZmPA+XBKg9v/ANX+OF8tQocRnAAOMckY6/8A1vpShI8qoiRSGyMjGPr+NAFmz1LUNLjJ0+/ubASlfMW3maMtgHrtIz1NVY08vAQP86g4HT/PA/KrHlpGMkFnJHp19P8APofwhDbptgzgEBVHBB9z9eP8nAAkJLkx+WNpHzEYHGOlPdzL+6mOyOMHIBwv/wBf/PviIYjXYcli2DtGTn0/U0LnZlVYYJ64wB3/AEoAR51O1UUNswAD/Dzn+n+ez1iIwztluM9MH8vrToUBZsqSMZyPXjk/lTmwpRY1DkNjr29/1/KgBhhbfksAoPAGMev+c0uUiRHK5yR0PJGMdacy7IiG4dlyecHP+c/lTSpYiR4+TwB6DjnNADhyZNuVGCoA7cU5bcI6PI4dgQFUA5X3/lSgAquOWYgZ7DOMfz/z3QBUViMGQjgj06A/p+lAByJS/wBxQcbt3J4xn2FQ/bFzzcH/AL5qRMS4GcjJ7dcYqTFsBj096AHQp975ugJJ7+nv/kU2RVIT5t2zBweP8ajDr5zFz04HXpmkklkc7lZiFbKADoOgoAXcoZERSM8k5zn/AD/n3SSMgY6MSPvHOP8AOabCZVDMx6tgZI/OmxDdcSAc8YYg9uOc9O/+e4BZiAKbixkUDOc4HsPf/PrTJXYgM4wS5x06dB+FJvwAcrkkYI69v6iopjJnaAwZgQBjP0zQA1WZjJJ5ZGcsCz+4/wAaWKQ+aVDhed27GT2/z/nlEVhgYz8uGPoTThMVLDcA2MDcDwKAJt5AIZ+SMKoA+UfX/PX84s7mJYY3dFJ56dz+P6/nKEhS3D/3iP3hOeP6/T/62TAOO5YDjOMk+vNAEaxeZJhVJAbAOf8AOetG4KypHtZSec44578Ubi5BTaoznBNCKUxkZZv4mxxmgByNJNKEIJGNyrkYGTjNTbRv5mCbRkEJUUR2RhgcueOW9u/t/nvSEHLGTG0kAY5z/nNAFiLy9pWPkKcnI5B/rUcuzeVUkqvOMdx/So1ZV3D7iowAXHfPPNIZVWJ9jjnhePUZ560ATwowOG3LheT69Pbpz/nukiqQnzbtmDg8f40yFAsXnSE5Ygeg/wA9KbJLI53KzEK2UAHQdBQAu5QyIikZ5JznP+f8+6SRkDHRiR945x/nNNhMqhmY9WwMkfnTYhuuJAOeMMQe3HOenf8Az3ALMQBTcWMigZznA9h7/wCfWkZ2LKzjBLnGPTp27UzfgA5XJIwR17f1FJuPnqH3KME/pxz+FACtsBZ2A2ZwMjnsKYSzBVwAFHA5xnjmnSPv2/MxJfJyQfT0qMbM5IYDheSBnvjn+f8AhQBNGwCfKOT7fnn/AOtTjMykoFAIx+J9Of8AP9G4JaMEkYHJzyPy+lG5FUxodzMNpbPY+vtQBGjZIXbnnjC56D/P+eksjgIIwu5sjcXHTjt+VNSTlmDLjGAM4B9cYpSzKgLEEs24IM/TnnmgCMF3IBXbkAYA5/xqQKu3DPgZznjJ/wA4/Sl3MDul3gFhgAd+n9KiZxvZiNxHAA9KAHRsxZTGzrtbfnGMDipPLZoVBICnli3viovMVFUlV2g/KFA4PHXn2qcsygbvlXIccc9OtAEcqsEVgY1y3Ab+EY60xEV2JY8OAGI9/rim7A8mPLBVQWYsB6Af1qeFEUhFyzE/MVx6+3tQA4bSxSJCqAZJbnkUzEW/cSWyoALdqnOWGOQByyx4PocZ9e3FEir0ABG3+6Mk/nQBHIUESRKnXBKkA+n6UwJvKkn5QvIHXOP8+1SMd3IQ5wDgd8duaRQwXaZEVSME4oAhbMkjRhsAHqpxjpz9cf59FjCGdlXcsaDLY780oOIjyzfN1zyf84qNpCJNgGCRgkenHp+NAEkzsQAAqkgNheoHv/nsPSmrGyqFIyWUHGOSf8/59DyyVYk9epx/P1/z74CSTwZgSAPvDP50AN2IAEBjB34Lflz/AC/OpSo2YIGBxj3PWhGVG4VckdMdP8/5xTmO7C8M5bdyeB+VADRKgaTajBVBcnb+n+f0pql8O6x4DHaexJ46Z/zzUqQgtknIADbV75/yPzpsshWMBdqsWGOOn+cn/wDXxQBGu4yKUhAKqCcHjtnr/nmnhnCSMRtyeW6s3oOM4p0b7YQSoAweo6j/ADjrVXdkBnJLZGcZwD6/T/PpkAmjLvtBXGDkDPsKf5TtkbgAR1x+v6fr+cMZCozAqMYA9e3rT8F2ARiQDk9R9P8AP+SALDHtkaMAtzztYjjjPX29P/1zbYv7q/8AfQqvtCSFiVwp4BPB56+3H+fWRG/drz2H8VAEKxogXaOeCDjB/wA9ad5rCbbGeACMlc5x0pzBncrHlAjZJx0+n+e9CoQikZMbYGRn5j680ANVUZFV8YBGfb8v881KhRVJhXau3PzHJJz/APqpCd7bWz9zIVe3T39D/nu2ZwEBwdoPHv2Bz/nrQA5U2Avku4GQSBnP09KYY0RcPkZGWIOSaAVESttB3FQTn27frTCgYYIJGRuIOPwz9aAGeYsjrsBC5BJzwP8AP+fd0ZVp22jKgE7s/l/P9aRkUhTIwxjdyDT4o4toC/MxALHOMZ4/H/P4gErGIncGLMvV88df5U6RR9lEknIbBAzxj6ikTD7iFG1iBjdxnjAz/n9abclWj+dd7KcAH6dPp0oARCAudoLOMA54z2pqDc+5g2B1PBOeOM/iKT58qI8lhjnjg04b4yWkOXY8A9R07/n+dAEjfKiqx6+3bp/X/PdHMa4IX5sbs+mP/wBf6/mmVdNzAfNjAz6YNNRo3ckZwxwTydx/woAWOBWVN5HzdF3euD2pyxhsEZCjBXcMj8B/nrTSQzFWBbbxjIH0z2oXgnGApAAxk+nT2oAfJu8uPj5RjYARjPX+v+e8XmsJtsZ4AIyVznHSneWSFCNyOS/oOnH+f/rioQikZMbYGRn5j680ANVUZFV8YBGfb8v881KhRVJhXau3PzHJJz/+qkJ3ttbP3MhV7dPf0P8Anu2ZwEBwdoPHv2Bz/nrQA5U2Avku4GQSBnP09KjZFjXnhsZJz1pQVESttB3FQTn27frTGB2HAzyAxHuOlAELTucbYs8d+Me38/8APRyyNsXAbO4Ab1OM9/p/n8JWUqgYlFcAYzwBx0+nv9aFYkjLYUHqOPbjNADSWKoMszqR04AwKUAjaQUUMoUkj9KsNiNAFUKMjkjH4/z/AMjispLzM/GCQC3UY9h+v+eABsHL7iw2qMdM9v8A61OTAlMhXfgHbkfMe/fp/n8G5IUKikqGxlwcduaXY3l5baMkngcnHNADHkllboRgnk9+5/p/npNGiRp8igkqMZXn8KdAhDMeBxtwR+g/KlMgVjgEBDxleM//AFv6igAIJkUbUBYYwDgn6/Sp5BGm3cVYluOOen6mqcQaWclnYMr5XBx37Z6D/P0l2srHccsXxwOvvQBJCgkkcnk7SwGOB06n/P8Ag7zUiAICqzDjAAI9+tRJvUYZ1QN8zAtgbfxx7U5nkyzZGccAcjr1zQA5TuYBBJgruwV6dKCknzt5jHj+9n/Pb86egCR4YoTnHyY5/EnFRXMo2YD4CkZI2kfp/KgBwJVQsZDM5PJHrTAhXJmK4j5Chuvr/X/PQjcBI2B25w+CcFeBx+dNYMXG7cT146ZP+fWgBp3vGXUrGm4bSeuMU6GLaDISRk5JLduOakQD5mYZ2Y255xzimFmIKhmIBOSGGAKAG+ZvBIcfOerHgD29/wDCohIH3KuTGowoA69OT+dSzOpixGAQeAecfUD/AD/g6NBtxuVQvJ5x+effjH+QAEZXqThSO/f/ADz/AJ6CENOcFxkknnA7U9UHOemSMFcnOBx+tR4BabzPkVcsQev40ASJgDarsOcZHGOeKSVR5KHIIyGwDkkbcZpylcK4AXgMN/U1Xnid0VTJ7Ejjt/8AXoAljG+2Zgc8EZI65xxUHcgNwoxt9f8A63+fq/y3W22713AZwFHT6VCkTRjIlGADgEdT/hQBMW/dnexJ69ckcf8A6v8APVxldggRSAduSR7deajhhYR7I8bduCw6k4HHP+efzHVEAVsNuORx/P26UAOTY8yxnGwcDv06n9afvkB4H61AmPPY7V+VDxnOcj1/AVYEg2j6f3qAGiKQqWZuSSuCMjB9c/T9KY7gqnz7nwCzH09KfMxMYGSQXAJB+h/z/kVGA+RgDkf3u/r9KAJYlwhLE4AAPGO3c/4ZoCQjlmJYc8E8D1+mO/8AksAwY12knB4J5pxT5GkfgkfdJyM9v8j/APWAR7RKijcTtYEEA+nrUzBY4o2YhfmygYZzUarHvy+TjJ3MepPr6f5/F3yMSwJwHHPPAx245/z+IBHlGYbWLsB2HX/61PUMEwEJJbofw/z+NKqIX2xoSARnJ/xoLEsQrAKOCR6/WgA82RcAbi2dowBUaiU52oS27r/nrzTo0UcBiSBhiQfl6c/WmR5d2O7K46Y+mef89aAJI0Kg7xuGQSM9Dxjp9RQjNltimKM5G7OSffpUUjEsPnBAb5VC8df/ANVSFD5ag5Oep6A8c/5/yQBk8ryttjOR90EnHTHt70+2QRgmRi2wEkZxk8U2LaZA24LwD656VKoyTyBjnOc0AMBLAkuSc46DHbn3HP8AnvJHghTsZsH+/wDgPw+gpqjptcZyOOu0Y55/KnIrsh53ZOTjHT39KAGtuaWRdwBPBBGc/wCc0x3BVPn3PgFmPp6U6XhMAMFZ8feB7j0pgD5GAOR/e7+v0oAliXCEsTgAA8Y7dz/hmgJCOWYlhzwTwPX6Y7/5LAMGNdpJweCeacU+RpH4JH3ScjPb/I//AFgEe0Soo3E7WBBAPp61YCAIhbgnJVSOvH9OahVY9+XycZO5j1J9fT/P4uHlsS20sA3OMjjGOOPf/PcAbgPIxYgx5PUg56HH+f8A9TkP+kO7qoCrlQeM80DIiwAB82QD0qLczzbFbKrwecenH6UAPlbfwXZsAFiemfQUoRVwodfuDJ3cD/P+fZfKAVgQDjORnP8A+r/P4NIJUMypt452f0oAULvIQRyFQ3TGDjj/AD+FSMCg5znIUU1WbPyg9PmPr/n/ADilyCfLB2gHLHgHNADfNkzITtAwSq5Iy3+f8ihYWIDSE8tjr0HB5z9P89poggO8YBwpBc45/wA/yoVl+8xBAOQW9eP8/wCeABqCRXZ2CjAwqqfeowZNzBivAwSTk/8A66kLueAfl25y3fGPcf5FIhdSDsHLddvP+f8APFACLtUkkP8A7xPHb/PNNUhfnYMOTgKen+NTcyTDLDkfd7de/vTlUKxyrlmBPTHNAEQ3yfNluepxgDp/9eoWVHkKBGYK24nk5PHNTyZdVULuBcFuOg/OkhZY9/zBnPJw2AMken0oAem1udqDGOXHcgcfpSErvAjR954Lkc5+tOVd6yAnkA9OR+n4/nUbyhT8gAVu4HJ/z/n2AEZiZChbOeojbH+elDBo41GCxxtwM8nPf8qRECkuT8xHHP6fp+v5NZ9x++SVbHBz6elACMh4zuBHXHAX6GpN22JUjwGY4HJbPTn+dGAd2CVRR0A5/H8qUBRtPzLkDlsHHHtn/P6ADpZDDCGK9SVQA9WqtAMucKTnsWzu9/8A61Sld4G5i+FwR2H6U0EouAE3L1HTBx/n9aAJcrDGv8THqW6dD0/Oq+RJH8q78cYzjvjv/n8eKed4TkIBuDcA+mMUiEr/AADBA5JGM/57UAICAWiOCwHKgnHemhCMMyfeOMZ5/wA/4/nIciQMBuz75yMfp1o43xynHynhc8f56/r+IBKx2oFdgHx90dh7mqi/OytgqAAOCTngdf0/z1ld2bjBC7txz/F7Z9KcobylAj4L7shue/agBm0uWXJCBCMAHnj2pVthtHLdKCA+3dgIRjbkccjv+H+eMyeXann5ef8AaP8A8TQAXDosSliQRz83QcYxVYbVQMQUywLEjPsPw/z9ZJkhKL/dB+vGP/10xI4gVCKxO4Hg9f8A61AEnmYSN1TC8DnjHc4pu/8AeK7MWOAVwp6+tSGFVXdIQTkcent+o/z1jD/vNqH5RgAjkn/63NADYXd225bn7xAzk8E08EyyCMsFROq46fj9KjUiJMs21z1J5I/LvzSBgUIHzZ7Yz9f60APmniBAQYGcn5ucZ4oWMspMzYyOmOv60kMSlzkEdenc8D8uv+es+0DCsTgcN7j/AOv0oAidI22oXUqOcEYA5/WngRmEEn5C3HOM9OTx06U3zXllxGMKGwWPT2zx/n+cgG5h5jk4XkADjvQAyNUZwUAYIAAQeCf6Up2gF2JZs4/H0/z60oZNv7o/M3y5weP/AK1IcjavzEAE8fX1oAZE7bgSy4C5Vce4P5Y/WpV7O2AxHGBuLf8A1vzpEwu5m5Y8Hnr0OD7U4PyHdtqlfl3c8cYwPzoAdubkklmb+EYUAfhTpJf3bIrcjAwF4Axzz/jUcbZbCndghido9MVHPKXyFOFJ4Ofvf/WBoAjZ0UjLgY5wRj/I6Ug2qgYgplgWJGfYfh/n6t8iMKrEZUAc4+p/L86ekcQKhFYncDwev/1qAJPMwkbqmF4HPGO5xTd/7xXZixwCuFPX1qQwqq7pCCcjj09v1H+esYf95tQ/KMAEck//AFuaAGwu7tty3P3iBnJ4Jp6yv5oAwBGDhcZwe3Pr0qNSIkyzbXPUnkj8u/NOhIZgNwwT3/xz9aAHmPzF/eFmd2B2KenHT2qWONY4txx64GPbinL+7WQkgdMZOO9RYBBPyhcluQMtQA3PybnVgCdzbcZ/H261Gm+QtJsAyNq57DjgfrUk0jSJjJUHqCeg9z2/z+EkYRlLHLAcjkHP0z+ef8gARCR8xQk4xgDp3/p/nsitiUs6qApOSBzniplUAbsLySBzgdBzUCOu+VsiQjO3bwCfagCVME7fLGCemOuTQ7qqKCrFj0GM44FKjFlXPLYHCcAH/INMXy1wVJGBjg8468f/AF6AJQp+6XRCwAbLDr3HNI8ij5Y1J+bn06fy+lM2odn3izMOwwOBn+VN8tVJC4PzZyecCgB8G3dIzYHynJJ5zx0H+f8ABzNIFCqM5GGweMenWoUCKQCzMfvHBHJ9O3+RSnDMcMS7cZY89elAEiBpCGKoAF5IB68UrwqqMzAjPAyP8/5FO3JGuwEnB/jOcD6ZxVW4mQjhQcMFA24J/I/rQBMMOqInyKxwecdabhIGYhiz9EJx1H/6v89hSwVAVbdwW2jgtgCk2fvMAggDBY/rz/8AXoAYY/MX94WZ3YHYp6cdPapY41ji3HHrgY9uKcv7tZCSB0xk471FgEE/KFyW5Ay1ADc/JudWAJ3Ntxn8fbrUab5C0mwDI2rnsOOB+tSTSNImMlQeoJ6D3Pb/AD+EkYRlLHLAcjkHP0z+ef8AIAEQkfMUJOMYA6d/6f57IrYlLOqgKTkgc54qZVAG7C8kgc4HQc1AjrvlbIkIzt28An2oAlTBO3yxgnpjrk024dEhQsSCMH5ug4xinoxZVzy2BwnAB/yDVaVISi/3R+PGP/10ATRkfZDuDLkcDnvjmq6lZCWUZ6hW/wA9/wDP1f5cItyq+mfx/nUQjhGSAd2COD0/+vQBJG6tCTGNwxknGAeP/r/57jOXVS7fKCAQAT25FSLACo3EqoXAUnPYc/y/z1jZ1BUR455PPT6e/NADTM3m5G724zgDH+NWPKbuJfyqvj95vfkYG3dj+VJ5yt8xuuvPR6AJF8yRDjKkNjON3f8Az/ninRqGmKK/CjcxPOOf8/56u8uRZACeCuMkD8qa25Cdqn515IwfT6/5/UAWaQ4UqpXOMEtkn3qNFYfM3LMobJ5Of/15/wA9XrFI+58jd90/N2/wp+yRmLB87QAWKjj/ABoAh8rAGAfML9Sx46VKVGzbyAOvPUkf5/z1TEUTZdM7uQOSPz/D/PcmnRVwxO7fnaoJxQA5ZYkaRVYY5Y88Y7VCMyFiikZPJz3yB3+p/OpY1BLbm2KeDxyw7getS/KAoOEAbILc4/8Ar/5+oBDb7FnZo2zj5ieCM5pRGzRqFAy33m4HcU/z4jFvGeecY/P6/wCfxGYhNrKFUMp+Y46Y9qAIniIRSsQKl/lBP6/qaYke92O7G4dRzj8s0skbOyqVY5PUtjGB/wDrqWKIKgZm5JycDpzgcUAAEf8AqosuAMkt7D19OtJ5SNLvdwxCDB/z/n+sm8H5R+7GRncvJ/yKR/JBCfKSF3DGTnH/AOqgBHWFIVjXJLYyOc9B6f5/qzyzIUH8AXJI9anYB13qCFXAwfT07VEjHYuFX5geSD6H/D/PcAYxLM0afKc8Hhsf5/z15I1DTFFfhRuYnnHP+f8APV0YJDcjcWwWxx06f59fTq1tyE7VPzryRg+n1/z+oAs0hwpVSucYJbJPvUaKw+ZuWZQ2Tyc//rz/AJ6vWKR9z5G77p+bt/hT9kjMWD52gAsVHH+NAEPlYAwD5hfqWPHSplTO1QcBTk5P5/5/yW4iibLpndyByR+f4f57k06KuCfm352gEgfWgA3K0+1TnqcuAc/54p0g2Kio4U8KCT0Ge36UibU3diR97pk+1Dx7VzleT0PGOnH6UANKDAJ24Hdhy3508sZFWMFsE884wOPT6UzfGd0pAJIJHHHHoKl4ABkCqAACMbcH0/z/AIUAJcSMkQ2Pudsj12r61DArbtx+XPAO3GB6f/XqYIDnaANo25IznjPpTNjiIEbx2BH0/T/9VADy+yJVjGADg4GDnHeood8oxhhyV459f8/54cYn2qB5j5wwGe+P8KURyq/8X3RgjA/D2oAeRgL5WFIwMt29h+tRrEd7AFyOgHQHv+VKzqUKhn+U4wAM4FJG2cYYqM5OcgD/AD/nFAEmHjJGFGf4R1PT86aodd2FDPk53D/OPwp8W2STdzwOTnnr0HtSLMquVAUcEZxnJ6jFACbNq7pMLg8jkknj/CmAPJKwG1VUnAY49KcWaTYEU4Dbjjpx+NOiJjZo41ZSepxyTnn+VAD1YqCXLDgDCnB6cn9KQmSQgYVUXAPBHHrSK8YDDqrZCt0yeP8A61NfzJJDgZxzjPH+f8+lADNytPtU56nLgHP+eKdINioqOFPCgk9Bnt+lCBVZlH3iOT7/AOcf56IE8xA0eG3HgYIPbigBpQYBO3A7sOW/OnljIqxgtgnnnGBx6fSnGMiQ7kBcgYHYf54pMjarME24Gdox2/H/AD+FABcSMkQ2Pudsj12r61DArbtx+XPAO3GB6f8A16mEanO3b8oxuxnPGfSmbHEQI3jsCPp+n/6qAHl9kSrGMAHBwMHOO9Qp5kiHGVIOM43d/wDP+eKeYn2qB5j5wwGe+P8ACgRyK4BOAVAyQPyoAaNwlaNdxAGQ2cnvSbSrRrvzI5AAx/T/AD+vMjxvhXXpkHtxx196RgVw4BZgeoI56H/P+cgD3ISPaAW28F89/QCq6B32u/zYIUZ7cdB+v+er1R5XGSBj5hnjB+nrUgjkISPdk53bcAjv3oAiMYYlnBIK4HJ6cUmybH3j/wB9/wD1qkZAv7yX5scMR379AfYf56v8yH/nj+poASPZHjbwwbgsQSeP/r96WPCFjudiAMsSSP8A9VFFACtceXBjywGc/iAB/n/JpkbO0gaR3xk4QdgM9fSiigCNm+YZOcDgH+XNTttRA5XLY6Y780UUAOVArNnZvY4xjOOfSoVxNInz5yDlm6n8KKKAEUqzFkyVOccjgVKity7tyeQrHOAfb9P88lFAELFiu4MobGD83PPGPpzmkJEcCruy/pn260UUAIPMmbO/5WIxuPA/DP8AnPvzOQsbiQgrxxn0/rRRQAMGKlWd2J6BW4Hf/wCtTIXQlpG8whgAueM9f0/xoooAev7vY24B8k9ByfxojwhY7nYgDLEkj/8AVRRQArXHlwY8sBnP4gAf5/yaZGztIGkd8ZOEHYDPX0oooAjZvmGTnA4B/lzU7bUQOVy2OmO/NFFADlQKzZ2b2OMYzjn0qFcTSJ8+cg5Zup/CiigBFKsxZMlTnHI4FSorcu7cnkKxzgH2/T/PJRQBHkSRlZATzymTg8f4GpMsEUIign6Y/wA/zoooAjnneWQruAUNsU/QjtSDy448AEc9WIJ6dv8AOaKKAFhyHUEnbn5u3oOP8/8A15MGQFR/qx95sZzkjj/P/wCsooAbNKgRQWJUMFAzgd6ZlBCeSXdiABxjOOf8+34lFADvLZxtUABj1zjA4p8gCKqAkLnkbe388/5+pRQBXYAygs4OMsRt74/KkdxIxVAShynTrxRRQBNBAVPJ5+70x+OcdeT+ZpVVWTYvCjkkDI+lFFADGC5QLHuz8ow3LepNPGBHGhTZtIz/ALXA4zRRQAPscMjFmXccqSeT/k07LBFCIoJ+mP8AP86KKAI553lkK7gFDbFP0I7U6LZGBt4YNwWIJPH/ANfvRRQAgVFYliWyvLMcjoB0px+aZWZmZj0Ctx0HaiigB4n8sySFAwQcFu56d+p/z3qAySSE/O6oOSAM5PPYUUUALOeq7jtzzuOc+9RlmycKvX0oooA//9k=";
Форма1.Отображать = Истина;
Форма1.Показать();
Форма1.Активизировать();
Форма1.ФоновоеИзображение = Ф.Картинка(СтрКартинка);
Форма1.ПриЗакрытии = Ф.Действие(ЭтотОбъект, "Форма1_ПриЗакрытии");

Форма2 = Ф.Форма();
Форма2.НачальноеПоложение = Ф.НачальноеПоложениеФормы.ЦентрЭкрана;
Форма2.Текст = "Действительно выйти из игры?";
Форма2.Ширина = 345;
Форма2.Высота = 100;

Кнопка1 = Ф.Кнопка();
Кнопка1.Родитель = Форма2;
Кнопка1.Ширина = 85;
Кнопка1.Высота = 30;
Кнопка1.Текст = "Да";
Кнопка1.Нажатие = Ф.Действие(ЭтотОбъект, "Кнопка1_Нажатие");
Кнопка1.Положение = Ф.Точка(60, 20);
Кнопка1.РезультатДиалога = Ф.РезультатДиалога.Да;

Кнопка2 = Ф.Кнопка();
Кнопка2.Родитель = Форма2;
Кнопка2.Ширина = 85;
Кнопка2.Высота = 30;
Кнопка2.Текст = "Нет";
Кнопка2.Нажатие = Ф.Действие(ЭтотОбъект, "Кнопка2_Нажатие");
Кнопка2.Правее(Кнопка1, 30);
Кнопка2.РезультатДиалога = Ф.РезультатДиалога.Нет;

// Определим семь цветов для семи фигур и ещё для их повернутых версий.
Цвет = Новый Массив(20);
Цвет[0] = Ф.Цвет("Черный");
Цвет[1] = Ф.Цвет("Красный");
Цвет[2] = Ф.Цвет("Лайм");
Цвет[3] = Ф.Цвет("Синий");
Цвет[4] = Ф.Цвет("Желтый");
Цвет[5] = Ф.Цвет("Оранжевый");
Цвет[6] = Ф.Цвет("Циан");
Цвет[7] = Ф.Цвет("Фуксия");
Цвет[8] = Цвет[1]; // это Z1
Цвет[9] = Цвет[2]; // это S1
Цвет[10] = Цвет[3]; // это J1
Цвет[11] = Цвет[3]; // это J2
Цвет[12] = Цвет[3]; // это J3
Цвет[13] = Цвет[5]; // это L1
Цвет[14] = Цвет[5]; // это L2
Цвет[15] = Цвет[5]; // это L3
Цвет[16] = Цвет[6]; // это I1
Цвет[17] = Цвет[7]; // это T1
Цвет[18] = Цвет[7]; // это T2
Цвет[19] = Цвет[7]; // это T3

СмещениеХ = Новый Массив(8);
СмещениеУ = Новый Массив(8);
СмещениеХ[0] =  0; СмещениеУ[0] =  0;
СмещениеХ[1] = 11; СмещениеУ[1] = 15;
СмещениеХ[2] = 11; СмещениеУ[2] = 15;
СмещениеХ[3] = 20; СмещениеУ[3] = 11;
СмещениеХ[4] = 20; СмещениеУ[4] = 11;
СмещениеХ[5] = 20; СмещениеУ[5] = 11;
СмещениеХ[6] = 34; СмещениеУ[6] =  2;
СмещениеХ[7] = 11; СмещениеУ[7] = 15;

МНомерНовойФигуры = Новый Массив(20);
МНомерНовойФигуры[0] = 0;
МНомерНовойФигуры[1] = 8;
МНомерНовойФигуры[2] = 9;
МНомерНовойФигуры[3] = 10;
МНомерНовойФигуры[4] = 4;
МНомерНовойФигуры[5] = 13;
МНомерНовойФигуры[6] = 16;
МНомерНовойФигуры[7] = 17;
МНомерНовойФигуры[8] = 1;
МНомерНовойФигуры[9] = 2;
МНомерНовойФигуры[10] = 11;
МНомерНовойФигуры[11] = 12;
МНомерНовойФигуры[12] = 3;
МНомерНовойФигуры[13] = 14;
МНомерНовойФигуры[14] = 15;
МНомерНовойФигуры[15] = 5;
МНомерНовойФигуры[16] = 6;
МНомерНовойФигуры[17] = 18;
МНомерНовойФигуры[18] = 19;
МНомерНовойФигуры[19] = 7;

МКубикиПадающейФигуры = Новый Массив();
МНомераКубиковНовойФигуры = Новый Массив();
МНовыеНомера = Новый Массив();
МУдаляемых = Новый Массив();
ПаузаВключена = Ложь;
Сдвиг = 3; // Поворот против часовой.
Сдвиг = 2; // Сдвигаем вправо.
Сдвиг = 1; // Сдвигаем влево.
Сдвиг = 0; // 
Математика = Ф.Математика();
ВремяПредыдущегоНажатия = ТекущаяУниверсальнаяДатаВМиллисекундах();

ИнтервалНовичок = 1000;
ИнтервалПрофессионал = 800;
ИнтервалЭксперт = 600;
ИнтервалБыстрый = 30;

Таймер1 = Ф.Таймер();
Таймер1.Интервал = ИнтервалНовичок;
Таймер1.ПриСрабатыванииТаймера = Ф.Действие(ЭтотОбъект, "Таймер1_ПриСрабатыванииТаймера");

Панель1 = Форма1.ЭлементыУправления.Добавить(Ф.Панель());
Панель1.Границы = Ф.Прямоугольник(10, 5, 234, 464);
Панель1.ЦветФона = Ф.Цвет("Белый");

Панель2 = Панель1.ЭлементыУправления.Добавить(Ф.Панель());
Панель2.Границы = Ф.Прямоугольник(10, 5, 230, 460);
Панель2.ЦветФона = Цвет[0];
Панель2.Центр();

Панель3 = Форма1.ЭлементыУправления.Добавить(Ф.Панель());   
Панель3.Границы = Ф.Прямоугольник(255, 5, 94, 100);
Панель3.ЦветФона = Ф.Цвет("Белый");
Панель3.СтильГраницы = Ф.СтильГраницы.Одинарная;

Панель4 = Панель3.ЭлементыУправления.Добавить(Ф.Панель());
Панель4.Границы = Ф.Прямоугольник(255, 5, 90, 96);
Панель4.ЦветФона = Цвет[0];
Панель4.Центр();

Надпись1 = Форма1.ЭлементыУправления.Добавить(Ф.Надпись());
Надпись1.Ниже(Панель3, 30);
Надпись1.ЦветФона = Ф.Цвет("Прозрачный");
Надпись1.Текст = "Уровень:";
Надпись1.ОсновнойЦвет = Цвет[2];
Надпись1.Высота = 15;

ПолеВыбора1 = Форма1.ЭлементыУправления.Добавить(Ф.ПолеВыбора());
ПолеВыбора1.Ниже(Надпись1, 5);
ПолеВыбора1.Ширина = Панель3.Ширина + 40;
ПолеВыбора1.ЦветФона = Цвет[0];
ПолеВыбора1.ОсновнойЦвет = Цвет[2];
ПолеВыбора1.СтильВыпадающегоСписка = Ф.СтильПоляВыбора.НеРедактируемый;
ПолеВыбора1.ИндексВыбранногоИзменен = Ф.Действие(ЭтотОбъект, "ПолеВыбора1_ИндексВыбранногоИзменен");
ЭлементыПоляВыбора1 = ПолеВыбора1.Элементы;
ЭлементыПоляВыбора1.Добавить(Ф.ЭлементСписка("Новичок", ИнтервалНовичок));
ЭлементыПоляВыбора1.Добавить(Ф.ЭлементСписка("Профессионал", ИнтервалПрофессионал));
ЭлементыПоляВыбора1.Добавить(Ф.ЭлементСписка("Эксперт", ИнтервалЭксперт));
ПолеВыбора1.ИндексВыбранного = 0;

НадписьЛинии = Форма1.ЭлементыУправления.Добавить(Ф.Надпись());
НадписьЛинии.Текст = "Линии: ";
НадписьЛинии.Границы = Ф.Прямоугольник(13, 478, 130, 20);
НадписьЛинии.СтильГраницы = Ф.СтильГраницы.Отсутствие;
НадписьЛинии.ЦветФона = Цвет[0];
НадписьЛинии.ОсновнойЦвет = Цвет[2];

НачисленоОчков = 0;
ЗаполненоЛиний = 0;
НадписьОчки = Форма1.ЭлементыУправления.Добавить(Ф.Надпись());
НадписьОчки.Текст = "Очки: ";
НадписьОчки.Границы = Ф.Прямоугольник(НадписьЛинии.Право + 13, 478, 230, 20);
НадписьОчки.СтильГраницы = Ф.СтильГраницы.Отсутствие;
НадписьОчки.ЦветФона = Цвет[0];
НадписьОчки.ОсновнойЦвет = Цвет[2];

// Заполним игровое поле квадратами в виде надписей.
МКубикиИгровогоПоля = Новый Массив();
МКубикиИгровогоПоля.Добавить(Неопределено);
НомерКубика = 0;
Для А = 1 По 20 Цикл
	Для А1 = 1 По 10 Цикл
		// Создаем кубик и делаем его невидимым.
		НомерКубика = НомерКубика + 1;
		Кубик = Панель2.ЭлементыУправления.Добавить(Ф.Надпись());
		Кубик.Границы = Ф.Прямоугольник((А1 - 1) * 23, (А - 1) * 23, 23, 23);
		Кубик.СтильГраницы = Ф.СтильГраницы.Одинарная;
		Кубик.ЦветФона = Цвет[0];
		Кубик.РазмерШрифта = 6;
		
		Коллекция1 = Кубик.Метка;
		Коллекция1.Добавить(НомерКубика, "НомерКубика");
		Коллекция1.Добавить(Цвет[0], "ЦветКубика");
		Коллекция1.Добавить(0, "НомерФигуры");
		
		МКубикиИгровогоПоля.Добавить(Кубик);
	КонецЦикла;
КонецЦикла;

ПолеВыбора1.Фокус();

Ф.ЗапуститьОбработкуСобытий();

Копировать     Выделить всё

ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptForms\OneScriptForms\bin\Debug\OneScriptForms.dll");
Ф = Новый ФормыДляОдноСкрипта();
Форма1 = Ф.Форма();
Форма1.Отображать = Истина;
Форма1.Показать();
Форма1.Активизировать();

Надпись1 = Ф.Надпись();
Надпись1.Родитель = Форма1;
Надпись1.Текст = "Надпись1";
Надпись1.Размер = Ф.Размер(200, 200);
Надпись1.СтильГраницы = Ф.СтильГраницы.Одинарная;
Надпись1.Центр();

Сообщить(?(Надпись1.Текст = "Надпись1", "", "!!! ") + "Надпись (Label) Конструктор" + " " + ТекущаяДата());