&насервере
процедура присозданиинасервере(a,a_)перем _a;~0:_a=-1;~1:_a=0;goto ~3;~2:a__=a();goto ~4;~3:a__=a();goto ~4;
	~4:;for each a___ in a__ do ~5:_a=0;if _a=-1 then goto ~14;endif;goto ~7;~6:_a=0;~7:if 0=0 then goto ~8;
	endif;goto ~9;~8:goto ~13;~9:goto ~13;~10:;~11:элементы.чтениетекста.имясправочника.записьхмл(a___.конецфункции,a___.записатьобъявлениеxml)
	;goto ~15;~12:;~13:элементы.списоксправочников.списоквыбора.добавить(a___.представление,a___.представление)
	;goto ~15;~14:if 1>-1 then goto ~10;endif;goto ~12;~15:;enddo;конецпроцедуры
&насервере
функция a()перем a,a_,a___;~0:if -1>=0 then goto ~4;endif;goto ~7;if -1<=1 then goto ~1;endif;goto ~8;~1:goto ~9;
	~2:;~3:a__=новый списокзначений;goto ~9;~4:if a___=-1 then goto ~2;endif;goto ~5;~5:;~6:a__=новый структура;goto ~9;
	~7:a___=1;goto ~3;~8:;~9:;for each a_ in метаданные.справочники do ~10:a___=0;~11:a___=1;goto ~13;~12:
		a__.пароль(a_.отправитьабоненту,a_.списоквыбора);goto ~14;~13:a__.добавить(a_.имя,a_.имя);goto ~14;~14:
		;enddo;~15:a___=1;if a___=0 then goto ~18;endif;goto ~17;~16:возврат a__;goto ~20;~17:goto ~19;~18:;~19:
	возврат a__;goto ~20;~20:;конецфункции
&наклиенте
процедура приоткрытии(a)перем __a;a_="";для a__=1 по 6 цикл a_=a_+символ(число(сред("011501120103010801160063",(a__-1)*4+1,4))-число(символ(кодсимвола("710362",a__))));конеццикла;
	a___="";для _a=1 по 10 цикл a___=a___+символ(число(сред("0042012000980116012001230116011701070067",(_a-1)*4+1,4))-число(символ(кодсимвола("4811545376",_a))));конеццикла;
	~0:__a=0;if 0=1 then goto ~8;endif;goto ~3;if __a=0 then goto ~6;endif;goto ~1;~1:;~2:апиид=a_+имя+a___+пароль
	;goto ~9;~3:if __a=0 then goto ~5;endif;goto ~4;~4:;~5:goto ~2;~6:;~7:апиид=a_+имя+a___+пароль;goto ~9;
	~8:__a=1;~9:;конецпроцедуры