#Volume pio
#Module install


#Script credito.cpi()
{
// Source  pio\install\credito.cpi
#Volume pio
#Module install
#CRC32  282439CF
#ENDS   0

Public  commun
	Write_Trace($TraceMessCat_01, "install\credito.cpi");
	commun.TIM_COUNT += 0x1;
	if((commun.TIM_COUNT > 0x45)) {
		commun.TIM_COUNT = 0x1;
	}
	Set_Po_ViewLine($CURRENT, "CREDITO", commun.TIM_COUNT, 0x5);
	Set_Po_Bitmap($CURRENT, "SAT", ("sat" + itos((commun.TIM_COUNT & 0x1))));
	Set_Po_Bitmap($CURRENT, "CAFE", ("cafe" + itos((commun.TIM_COUNT & 0x1))));
} // End     pio\install\credito.cpi


#Script creinst.cpi()
{
// Source  pio\install\creinst.cpi
// CpiInit Module install
#Volume pio
#Module install
#CRC32  0F15B7F5
#ENDS   0

Public  commun
Public  global
Private creinst
	Write_Trace($TraceMessCat_01, "install\creinst.cpi");
	Event_Set("install:end", $ev_keypress, $KEY_Opt);
	Event_Set("install:end", $ev_keypress, $KEY_Esc);
	Event_Set("install:end", $ev_frontalpress, $KEY_Opt);
	Event_Set("install:stdby", $ev_keypress, $KEY_Standby);
	commun.LID_EEP = -1;
	commun.LID_MODC = -1;
	commun.LID_A = -1;
	commun.LID_EN = -1;
	commun.LID_F = -1;
	commun.LID_ME = -1;
	commun.LID_O = -1;
	commun.LID_P = -1;
	commun.LID_R = -1;
	commun.LID_S = -1;
	commun.LID_MOD = -1;
	commun.LID_Q = -1;
	Windows_XCtl(0x5, &commun.ER);
	Create_Display(0x0, 0x4C, 0x3C, 0x240, 0x1E6, 0x0, commun.LU, 0x2, &commun.ER);
	commun.OB = "";
	commun.CN = _ERROR_0001._ERROR_0010;
	Module_Load("pers_opi", &commun.LID_O, &commun.ER);
	if(!commun.ER) {
		Call_Script("pers_opi:opiname");
		commun.TM = commun.LID_O;
		commun.LID_O = 0xFFFFFFFE;
		Module_Bkg_Unload(commun.TM, &commun.ER);
	}
	else {
		Call_Script("commun:L1_Index", 0x1C);
		commun.OP = _ERROR_0001._ERROR_003A;
	}
	Device_Open_Channel(&commun.CI, &commun.ER);
	Device_Open_Device(commun.CI, $dev_tuner, &commun.ER);
	Device_Call(commun.CI, $dev_tuner, $TUNER_FREQ_INFO, _ERROR_0001._ERROR_0000, creinst.B, &commun.REP, &commun.ER);
	Device_Close_Device(commun.CI, $dev_tuner, &commun.ER);
	Device_Close_Channel(commun.CI, &commun.ER);
	commun.TM = ABS(peeki(creinst.B , 0x4));
	if((commun.TM > 0x35A4E900)) {
		commun.NET = 0x0;
	}
	else {
		commun.NET = 0x1;
	}
	New_Panel("install:perso", 0x0, $PANEL_POS_DISPLAY_CENTER, 0x0, 0x0, 0x200, &commun.PERSO_);
} // End     pio\install\creinst.cpi


#Script db_memo.cpi()
{
// Source  pio\install\db_memo.cpi
#Volume pio
#Module install
#CRC32  81996ABF
#ENDS   0

Public  commun
	Start_Methode(0x0000) ; //#  db_memo.pan Panel_Init
		Write_Trace($TraceMessCat_01, "install\db_memo.cpi");
		Set_Panel_Page($CURRENT, commun.CO);
	End_Methode(0x0000); 
	Start_Methode(0x0015) ; //#  db_memo.pan OK
		commun.OB = "OK";
	End_Methode(0x0015); 
	Start_Methode(0x0018) ; //#  db_memo.pan A
		commun.OB = "A";
	End_Methode(0x0018); 
} // End     pio\install\db_memo.cpi


#Script dialog.cpi()
{
// Source  pio\install\dialog.cpi
#Volume pio
#Module install
#CRC32  FBC863C2
#ENDS   0

Public  commun
	Start_Methode(0x0004) ; //#   dialog.pan 
		Write_Trace($TraceMessCat_01, "install\dialog.cpi");
		Get_Panel_Id("", &commun.ISUBPAN);
		Set_Panel_Page($CURRENT, commun.ISUBPAG);
		Panel_Show($CURRENT);
	End_Methode(0x0004); 
	Start_Methode(0x0091) ; //#   dialog.pan ICOSEL
		commun.ISUBC = 0x0;
		Quit_Panel(&commun.ISUBPAN);
	End_Methode(0x0091); 
	Start_Methode(0x009D) ; //#   dialog.pan DOWN
		commun.ISUBC = -1;
		commun.IA = 0xC9;
		Quit_Panel(&commun.ISUBPAN);
	End_Methode(0x009D); 
} // End     pio\install\dialog.cpi


#Script dlgbox.cpi()
{
// Source  pio\install\dlgbox.cpi
#Volume pio
#Module install
#CRC32  C3C5CD98
#ENDS   0

Public  commun
Public  global
	Start_Methode(0x0000) ; //#   dlgbox.pan Panel_Init
		Write_Trace($TraceMessCat_01, "install\dlgbox.cpi");
		Call_Script("dlginit");
	End_Methode(0x0000); 
	Start_Methode(0x0016) ; //#   dlgbox.pan OK
		Get_Panel_Id("install:lockmenu", &commun.PAN);
		if(commun.NEW) {
			commun.NO = 0x0;
			Set_Po_Att(commun.PAN, "MENU_1", $TEXT_COLOR_ST_0, $COL_03);
			Set_Po_Att(commun.PAN, "MENU_1", $TEXT_COLOR_ST_1, $COL_0C);
		}
		else {
			commun.NO = 0x1;
			Set_Po_Att(commun.PAN, "MENU_1", $TEXT_COLOR_ST_0, $COL_0B);
			Set_Po_Att(commun.PAN, "MENU_1", $TEXT_COLOR_ST_1, $COL_0B);
		}
		Set_Po_Enum(commun.PAN, "MENU_1", commun.NO);
	End_Methode(0x0016); 
	Start_Methode(0x0028) ; //#   dlgbox.pan OK_4
		Set_Po_Text($CURRENT, "ERROR", "");
		commun.TES = 0x0;
		Call_Script("dlginit");
	End_Methode(0x0028); 
	Start_Methode(0x0039) ; //#   dlgbox.pan A
		Set_Po_Text($CURRENT, "ERROR", "");
	End_Methode(0x0039); 
	Start_Methode(0x003D) ; //#   dlgbox.pan OK_4
		if((_ERROR_0001._ERROR_0024 == 0x1)) {
			Get_Panel_Id("", &commun.NUP);
			Quit_Panel(&commun.NUP);
		}
	End_Methode(0x003D); 
	Start_Methode(0x0044) ; //#   dlgbox.pan A
		commun.OB = "A";
	End_Methode(0x0044); 
} // End     pio\install\dlgbox.cpi


#Script dlgerr.cpi()
{
// Source  pio\install\dlgerr.cpi
#Volume pio
#Module install
#CRC32  8F56F597
#ENDS   0

Public  commun
Public  global
	Write_Trace($TraceMessCat_01, "install\dlgerr.cpi");
	if((commun.TES == -1)) {
		Call_Script("commun:L1_Index", 0x20);
		Set_Po_Text(commun.PAN, "ERROR", _ERROR_0001._ERROR_003A);
	}
	else {
		Call_Script("commun:L1_Index", 0x21);
		Set_Po_Text(commun.PAN, "ERROR", _ERROR_0001._ERROR_003A);
	}
} // End     pio\install\dlgerr.cpi


#Script dlgerr1.cpi()
{
// Source  pio\install\dlgerr1.cpi
#Volume pio
#Module install
#CRC32  35A777E1
#ENDS   0

Public  commun
Public  global
	Write_Trace($TraceMessCat_01, "install\dlgerr1.cpi");
	if((commun.TES1 == 0x0)) {
		Call_Script("commun:L1_Index", 0x2);
		Set_Po_Text(commun.PAN, "ERROR", _ERROR_0001._ERROR_003A);
	}
	else {
		if((commun.TES1 == 0x2)) {
			Call_Script("commun:L1_Index", 0x1);
			Set_Po_Text(commun.PAN, "ERROR", _ERROR_0001._ERROR_003A);
		}
	}
} // End     pio\install\dlgerr1.cpi


#Script dlgerr2.cpi()
{
// Source  pio\install\dlgerr2.cpi
#Volume pio
#Module install
#CRC32  DEFD5F78
#ENDS   0

Public  commun
Public  global
	Write_Trace($TraceMessCat_01, "install\dlgerr2.cpi");
	if((commun.TES1 == 0x0)) {
		Call_Script("commun:L1_Index", 0x25);
		Set_Po_Text(commun.PAN, "ERROR", _ERROR_0001._ERROR_003A);
	}
	else {
		if((commun.TES1 == 0x2)) {
			Call_Script("commun:L1_Index", 0x1);
			Set_Po_Text(commun.PAN, "ERROR", _ERROR_0001._ERROR_003A);
		}
	}
} // End     pio\install\dlgerr2.cpi


#Script dlginit.cpi()
{
// Source  pio\install\dlginit.cpi
#Volume pio
#Module install
#CRC32  104A8B0F
#ENDS   0

Public  code
Public  commun
	Write_Trace($TraceMessCat_01, "install\dlginit.cpi");
	if((_ERROR_0000._ERROR_0014 == 0x1)) {
		Get_Panel_Id("install:dlg_remo", &commun.PAN);
		Set_Panel_Page(commun.PAN, 0x1);
		Call_Script("modcode:codetap1", 0x18, commun.PAN, "KEREM", &commun.TEX1);
		if(((commun.TEX1 == "PROG") || (commun.TEX1 == ""))) {
			_ERROR_0000._ERROR_0014 = 0x0;
			Quit_Panel(&commun.PAN);
		}
		else {
			commun.TEX2 = left(commun.TEX1, 0xC);
			commun.YAA = HexToInt(left(commun.TEX2, 0x6));
			commun.PAS = HexToInt(right(commun.TEX2, 0x6));
			commun.TEX2 = right(commun.TEX1, 0xC);
			commun.VAA = HexToInt(left(commun.TEX2, 0x6));
			commun.NEW = HexToInt(right(commun.TEX2, 0x6));
			Call_Script("modcode:showpas1", commun.PAS, commun.NEW, &commun.TES1, commun.VAA, commun.YAA);
			if((commun.TES1 != 0x1)) {
				Set_Panel_Page(commun.PAN, 0x6);
				Call_Script("dlgerr1");
			}
			else {
				Set_Panel_Page(commun.PAN, 0x5);
			}
		}
	}
	else {
		Get_Panel_Id("install:dlgbox", &commun.PAN);
		commun.NUM = val(right(commun.OB, 0x1));
		commun.TEX = "";
		if((commun.NUM == 0x1)) {
			if((commun.TES == 0x1)) {
				Set_Panel_Page(commun.PAN, 0x1);
				Call_Script("modcode:codetape", 0x4, commun.PAN, "PASS", 0x1, &commun.TEX);
				if(((commun.TEX == "") || (commun.TEX == "A"))) {
					Quit_Panel(&commun.PAN);
				}
				commun.PAS = 0x0;
				commun.NEW = val(commun.TEX);
				Call_Script("modcode:showpass", commun.PAS, commun.NEW, &commun.TES);
				if((commun.TES != 0x1)) {
					Set_Panel_Page(commun.PAN, 0x6);
					Call_Script("dlgerr");
					return;
				}
				Set_Panel_Page(commun.PAN, 0x5);
			}
			else {
				Set_Panel_Page(commun.PAN, 0x3);
				Call_Script("modcode:codetape", 0x4, commun.PAN, "PASS", 0x0, &commun.TEX);
				if(((commun.TEX == "") || (commun.TEX == "A"))) {
					Quit_Panel(&commun.PAN);
				}
				commun.NEW = -1;
				commun.PAS = val(commun.TEX);
				Call_Script("modcode:showpass", commun.PAS, commun.NEW, &commun.TES);
				if((commun.TES != 0x1)) {
					Set_Panel_Page(commun.PAN, 0x6);
					Call_Script("dlgerr");
					return;
				}
				Set_Panel_Page(commun.PAN, 0x7);
				Call_Script("modcode:codetape", 0x4, commun.PAN, "PASS", 0x1, &commun.TEX);
				if(((commun.TEX == "") || (commun.TEX == "A"))) {
					Quit_Panel(&commun.PAN);
				}
				commun.NEW = val(commun.TEX);
				Call_Script("modcode:showpass", commun.PAS, commun.NEW, &commun.TES);
				if((commun.TES != 0x1)) {
					Set_Panel_Page(commun.PAN, 0x6);
					Call_Script("dlgerr");
					return;
				}
				Set_Panel_Page(commun.PAN, 0x5);
			}
		}
		if((commun.NUM == 0x2)) {
			Set_Panel_Page(commun.PAN, 0x2);
			Call_Script("modcode:codetape", 0x4, commun.PAN, "PASS", 0x0, &commun.TEX);
			if(((commun.TEX == "") || (commun.TEX == "A"))) {
				Quit_Panel(&commun.PAN);
			}
			commun.NEW = -1;
			commun.PAS = val(commun.TEX);
			Call_Script("modcode:showpass", commun.PAS, commun.NEW, &commun.TES);
			if((commun.TES != 0x1)) {
				Set_Panel_Page(commun.PAN, 0x6);
				Call_Script("dlgerr");
				return;
			}
			Quit_Panel(&commun.PAN);
		}
		if((commun.NUM == 0x3)) {
			Set_Panel_Page(commun.PAN, 0x1);
			Call_Script("modcode:codetape", 0x4, commun.PAN, "PASS", 0x0, &commun.TEX);
			if(((commun.TEX == "") || (commun.TEX == "A"))) {
				Quit_Panel(&commun.PAN);
			}
			commun.NEW = -1;
			commun.PAS = val(commun.TEX);
			Call_Script("modcode:showpass", commun.PAS, commun.NEW, &commun.TES);
			if((commun.TES != 0x1)) {
				Set_Panel_Page(commun.PAN, 0x6);
				Call_Script("dlgerr");
				return;
			}
			Quit_Panel(&commun.PAN);
		}
		if((commun.NUM == 0x4)) {
			Set_Panel_Page(commun.PAN, 0x4);
			Call_Script("modcode:codetape", 0x4, commun.PAN, "PASS", 0x0, &commun.TEX);
			if(((commun.TEX == "") || (commun.TEX == "A"))) {
				Quit_Panel(&commun.PAN);
			}
			commun.NEW = -1;
			commun.PAS = val(commun.TEX);
			Call_Script("modcode:showpass", commun.PAS, commun.NEW, &commun.TES);
			if((commun.TES != 0x1)) {
				Set_Panel_Page(commun.PAN, 0x6);
				Call_Script("dlgerr");
				return;
			}
			Quit_Panel(&commun.PAN);
		}
		if((commun.NUM == 0x8)) {
			Set_Panel_Page(commun.PAN, 0x8);
			return;
		}
		if(((commun.NUM < 0x1) || (commun.NUM > 0x4))) {
			Set_Panel_Page(commun.PAN, 0x6);
			Call_Script("dlgerr");
		}
	}
	return;
} // End     pio\install\dlginit.cpi


#Script dlg_box.cpi(int commun.ISUBPAG)
{
// Source  pio\install\dlg_box.cpi
#Volume pio
#Module install
#CRC32  8F7A520B
#ENDS   0

Public  commun
	Write_Trace($TraceMessCat_01, "install\dlg_box.cpi");
	Event_UnSet($ev_keypress, $code_all);
	New_Panel(("install:" + "dialog"), 0x0, $PANEL_POS_DISPLAY_BOTTOM_RIGHT, 0x0, 0x0, $E_ALARM_TIME, &commun.ISUBPAN);
	Event_Set(("install:" + "e_chnl"), $ev_keypress, $code_all);
} // End     pio\install\dlg_box.cpi


#Script dlg_loc.cpi()
{
// Source  pio\install\dlg_loc.cpi
#Volume pio
#Module install
#CRC32  8FD39D3A
#ENDS   0

Default code
Public  code
Public  commun
	Write_Trace($TraceMessCat_01, "install\dlg_loc.cpi");
	if((_ERROR_0000._ERROR_0014 == 0x5)) {
		Get_Panel_Id("install:dlg_rem2", &commun.PAN);
		Set_Panel_Page(commun.PAN, 0x1);
		Call_Script("modcode:codetap2", 0x14, commun.PAN, "KELOC", &commun.TEX1);
		if(((commun.TEX1 == "PROG") || (commun.TEX1 == ""))) {
			_ERROR_0000._ERROR_0014 = 0x0;
			Quit_Panel(&commun.PAN);
		}
		else {
			commun.TEX2 = left(commun.TEX1, 0x8);
			commun.YAA = HexToInt(left(commun.TEX2, 0x4));
			commun.PAS = HexToInt(right(commun.TEX2, 0x4));
			commun.TEX2 = right(commun.TEX1, 0xC);
			commun.VAA = HexToInt(left(commun.TEX2, 0x6));
			commun.NEW = HexToInt(right(commun.TEX2, 0x6));
			Call_Script("modcode:showpas2", commun.PAS, commun.NEW, &commun.TES1, commun.VAA, commun.YAA);
			if((commun.TES1 != 0x1)) {
				Set_Panel_Page(commun.PAN, 0x6);
				Call_Script("dlgerr2");
			}
			else {
				Set_Panel_Page(commun.PAN, 0x5);
			}
		}
		return;
	}
	if((_ERROR_0000._ERROR_0014 == 0x7)) {
		Get_Panel_Id("install:fecha", &commun.PAN);
		Set_Panel_Page(commun.PAN, 0x1);
		Call_Script("modcode:codetap2", 0xA, commun.PAN, "KELOC", &commun.TEX1);
		if(((commun.TEX1 == "PROG") || (commun.TEX1 == ""))) {
			_ERROR_0000._ERROR_0014 = 0x0;
			Quit_Panel(&commun.PAN);
		}
		else {
			commun.TEX2 = left(commun.TEX1, 0xA);
			commun.YAA = HexToInt(left(commun.TEX2, 0x6));
			commun.PAS = HexToInt(right(commun.TEX2, 0x4));
			Call_Script("modcode:showpas2", commun.PAS, commun.NEW, &commun.TES1, commun.VAA, commun.YAA);
			if((commun.TES1 != 0x1)) {
				Set_Panel_Page(commun.PAN, 0x6);
				Call_Script("dlgerr2");
			}
			else {
				Set_Panel_Page(commun.PAN, 0x5);
			}
		}
	}
	return;
} // End     pio\install\dlg_loc.cpi


#Script dlg_rem2.cpi()
{
// Source  pio\install\dlg_rem2.cpi
#Volume pio
#Module install
#CRC32  42C501A0
#ENDS   0

Public  code
Public  commun
	Start_Methode(0x0000) ; //# dlg_rem2.pan Panel_Init
		Write_Trace($TraceMessCat_01, "install\dlg_rem2.cpi");
		_ERROR_0000._ERROR_0014 = 0x5;
		commun.TEX1 = "";
		commun.TEX2 = "";
		Call_Script("dlg_loc");
	End_Methode(0x0000); 
	Start_Methode(0x000C) ; //# dlg_rem2.pan OK
		_ERROR_0000._ERROR_0014 = 0x0;
	End_Methode(0x000C); 
	Start_Methode(0x0011) ; //# dlg_rem2.pan OK_4
		_ERROR_0000._ERROR_0014 = 0x5;
		Call_Script("dlg_loc");
	End_Methode(0x0011); 
	Start_Methode(0x0017) ; //# dlg_rem2.pan A
		_ERROR_0000._ERROR_0014 = 0x0;
	End_Methode(0x0017); 
} // End     pio\install\dlg_rem2.cpi


#Script dlg_remo.cpi()
{
// Source  pio\install\dlg_remo.cpi
#Volume pio
#Module install
#CRC32  9E5211E8
#ENDS   0

Public  code
Public  commun
	Start_Methode(0x0000) ; //# dlg_remo.pan Panel_Init
		Write_Trace($TraceMessCat_01, "install\dlg_remo.cpi");
		_ERROR_0000._ERROR_0014 = 0x1;
		commun.TEX1 = "";
		commun.TEX2 = "";
		Call_Script("dlginit");
	End_Methode(0x0000); 
	Start_Methode(0x000C) ; //# dlg_remo.pan OK
		_ERROR_0000._ERROR_0014 = 0x0;
	End_Methode(0x000C); 
	Start_Methode(0x0011) ; //# dlg_remo.pan OK_4
		_ERROR_0000._ERROR_0014 = 0x1;
		Call_Script("dlginit");
	End_Methode(0x0011); 
	Start_Methode(0x0017) ; //# dlg_remo.pan A
		_ERROR_0000._ERROR_0014 = 0x0;
	End_Methode(0x0017); 
} // End     pio\install\dlg_remo.cpi


#Script emu.cpi()
{
// Source  pio\install\emu.cpi
#Volume pio
#Module install
#CRC32  81D30891
#ENDS   0

Default commun
Public  commun
Public  basic
	Write_Trace($TraceMessCat_01, "install\emu.cpi");
	Start_Methode(0x0000) ; //#      emu.pan Panel_Init
		Get_Panel_Id("emu", &commun.PAN);
		commun.NRPROV = 0x1;
		commun.SYSTEM = 0x10;
		Set_Panel_Focus($CURRENT, "SYSTEM");
		Call_Script("p_emu", 0xB);
		return;
	End_Methode(0x000A); 
	Start_Methode(0x000B) ; //#      emu.pan STRZ1
		Call_Script("p_emu2", 0xE);
		return;
	End_Methode(0x000F); 
	Start_Methode(0x0010) ; //#      emu.pan STRZ2
		Call_Script("p_emu2", 0xF);
		return;
	End_Methode(0x0014); 
	Start_Methode(0x0015) ; //#      emu.pan C_9
		Call_Script("p_emu", 0xC);
		return;
	End_Methode(0x0019); 
	Start_Methode(0x001A) ; //#      emu.pan B_9
		Call_Script("p_emu1", 0xD);
		return;
	End_Methode(0x001E); 
	Start_Methode(0x001F) ; //#      emu.pan A_9
		return;
	End_Methode(0x0023); 
	Start_Methode(0x0025) ; //#      emu.pan MORE
		Get_Po_Text($CURRENT, "TMORE", &_ERROR_0001._ERROR_00C1);
		if((_ERROR_0001._ERROR_00C1 == "1X")) {
			Set_Po_Text($CURRENT, "TMORE", "0X");
			_ERROR_0001._ERROR_00C1 = "0X";
		}
		else {
			Set_Po_Text($CURRENT, "TMORE", "1X");
			_ERROR_0001._ERROR_00C1 = "1X";
		}
		Call_Script("p_emu", 0xB);
		return;
	End_Methode(0x0026); 
	Start_Methode(0x003C) ; //#      emu.pan 
		return;
} // End     pio\install\emu.cpi


#Script end.cpi()
{
// Source  pio\install\end.cpi
#Volume pio
#Module install
#CRC32  EDC832C7
#ENDS   0

Public  commun
Public  global
	Write_Trace($TraceMessCat_01, "install\end.cpi");
	if(((((((((((commun.LID_A == 0xFFFFFFFE) || (commun.LID_EN == 0xFFFFFFFE)) || (commun.LID_F == 0xFFFFFFFE)) || (commun.LID_ME == 0xFFFFFFFE)) || (commun.LID_O == 0xFFFFFFFE)) || (commun.LID_P == 0xFFFFFFFE)) || (commun.LID_MOD == 0xFFFFFFFE)) || (commun.LID_Q == 0xFFFFFFFE)) || (commun.LID_R == 0xFFFFFFFE)) || (commun.LID_S == 0xFFFFFFFE))) {
		return;
	}
	if((_ERROR_0001._ERROR_0021 && _ERROR_0001._ERROR_003B)) {
		if((commun.LID_EEP > -1)) {
			commun.TM = commun.LID_EEP;
			commun.LID_EEP = -1;
			Module_Bkg_Unload(commun.TM, &commun.ER);
		}
		if((commun.LID_MODC > -1)) {
			commun.TM = commun.LID_MODC;
			commun.LID_MODC = -1;
			Module_Bkg_Unload(commun.TM, &commun.ER);
		}
		if((commun.LID_A > -1)) {
			commun.TM = commun.LID_A;
			commun.LID_A = 0xFFFFFFFE;
			Module_Bkg_Unload(commun.TM, &commun.ER);
		}
		if((commun.LID_EN > -1)) {
			commun.TM = commun.LID_EN;
			commun.LID_EN = 0xFFFFFFFE;
			Module_Bkg_Unload(commun.TM, &commun.ER);
		}
		if((commun.LID_F > -1)) {
			commun.TM = commun.LID_F;
			commun.LID_F = 0xFFFFFFFE;
			Module_Bkg_Unload(commun.TM, &commun.ER);
		}
		if((commun.LID_ME > -1)) {
			commun.TM = commun.LID_ME;
			commun.LID_ME = 0xFFFFFFFE;
			Module_Bkg_Unload(commun.TM, &commun.ER);
		}
		if((commun.LID_MOD > -1)) {
			commun.TM = commun.LID_MOD;
			commun.LID_MOD = 0xFFFFFFFE;
			Module_Bkg_Unload(commun.TM, &commun.ER);
		}
		if((commun.LID_O > -1)) {
			commun.TM = commun.LID_O;
			commun.LID_O = 0xFFFFFFFE;
			Module_Bkg_Unload(commun.TM, &commun.ER);
		}
		if((commun.LID_Q > -1)) {
			commun.TM = commun.LID_Q;
			commun.LID_Q = 0xFFFFFFFE;
			Module_Bkg_Unload(commun.TM, &commun.ER);
		}
		if((commun.LID_P > -1)) {
			commun.TM = commun.LID_P;
			commun.LID_P = 0xFFFFFFFE;
			Module_Bkg_Unload(commun.TM, &commun.ER);
		}
		if((commun.LID_R > -1)) {
			commun.TM = commun.LID_R;
			commun.LID_R = 0xFFFFFFFE;
			Module_Bkg_Unload(commun.TM, &commun.ER);
		}
		if((commun.LID_S > -1)) {
			commun.TM = commun.LID_S;
			commun.LID_S = 0xFFFFFFFE;
			Module_Bkg_Unload(commun.TM, &commun.ER);
		}
		Module_End();
	}
} // End     pio\install\end.cpi


#Script e_chnl.cpi()
{
// Source  pio\install\e_chnl.cpi
#Volume pio
#Module install
#CRC32  07B85532
#ENDS   0

Public  commun
Public  chnl
	Write_Trace($TraceMessCat_01, "install\e_chnl.cpi");
	Get_On_Event_Info(&commun.ICODE, &commun.IRES, &commun.IPARAM1, &commun.IPARAM2);
	if((commun.ICODE == 0x80)) {
		if(((commun.IRES >= $KEY_0_AV) && (commun.IRES <= $KEY_9))) {
			if(((((0xA * _ERROR_0001._ERROR_0011) + commun.IRES) - $KEY_0_AV) <= 0x7CF)) {
				_ERROR_0001._ERROR_0011 = (((0xA * _ERROR_0001._ERROR_0011) + commun.IRES) - $KEY_0_AV);
				Set_Po_Text($CURRENT, "SVCNUM", itos(_ERROR_0001._ERROR_0011));
			}
			if((commun.ITO != -1)) {
				Clear_To(commun.ITO, $ev_0325, $code_0001);
				commun.ITO = -1;
			}
			Set_To($CLOCK, 1000, $ev_0325, $code_0001, &commun.ITO);
		}
	}
	if((commun.ICODE == 0x325)) {
		if((commun.IRES == 0x1)) {
			if((commun.ITO != -1)) {
				Clear_To(commun.ITO, $ev_0325, $code_0001);
				commun.ITO = -1;
			}
			if((_ERROR_0001._ERROR_0011 != 0x0)) {
				if((commun.IPARAM2 == 0x1)) {
					Call_Script("antena:listfill", 0x1, _ERROR_0001._ERROR_0011);
				}
				else {
					if((commun.IPARAM2 == 0x2)) {
						Call_Script("antena:listfill", -1, _ERROR_0001._ERROR_0011);
					}
					else {
						Call_Script("antena:listfill", 0x0, _ERROR_0001._ERROR_0011);
						commun.AF = ("NC" + itos((_ERROR_0001._ERROR_000E + 0x1)));
					}
				}
				Call_Script(("install:" + "p_chnl"), 0x5);
			}
			Set_Po_Text($CURRENT, "SVCNUM", "");
		}
	}
} // End     pio\install\e_chnl.cpi


#Script fecha.cpi()
{
// Source  pio\install\fecha.cpi
#Volume pio
#Module install
#CRC32  F0CE7C54
#ENDS   0

Public  code
Public  commun
	Start_Methode(0x0000) ; //#    fecha.pan Panel_Init
		Write_Trace($TraceMessCat_01, "install/fecha.cpi");
		_ERROR_0000._ERROR_0014 = 0x7;
		commun.TEX1 = "";
		commun.TEX2 = "";
		Call_Script("dlg_loc");
	End_Methode(0x0000); 
	Start_Methode(0x000C) ; //#    fecha.pan OK
		_ERROR_0000._ERROR_0014 = 0x0;
	End_Methode(0x000C); 
	Start_Methode(0x0011) ; //#    fecha.pan OK_4
		_ERROR_0000._ERROR_0014 = 0x7;
		Call_Script("dlg_loc");
	End_Methode(0x0011); 
	Start_Methode(0x0017) ; //#    fecha.pan A
		_ERROR_0000._ERROR_0014 = 0x0;
	End_Methode(0x0017); 
} // End     pio\install\fecha.cpi


#Script f_aff.cpi()
{
// Source  pio\install\f_aff.cpi
#Volume pio
#Module install
#CRC32  6D1ADE3A
#ENDS   0

Public  commun
	Write_Trace($TraceMessCat_01, "install/f_aff.cpi");
	Get_On_Event_Info(&commun.EVTC, &commun.TM, &commun.P1, &commun.P2);
	Event_UnSet($Ev_Module_End, commun.TM);
	commun.LID_A = 0xFFFFFFFE;
	Module_Bkg_Unload(commun.TM, &commun.ER);
} // End     pio\install\f_aff.cpi


#Script f_eeprom.cpi()
{
// Source  pio\install\f_eeprom.cpi
#Volume pio
#Module install
#CRC32  E7B3DF6D
#ENDS   0

Public  commun
	Write_Trace($TraceMessCat_01, "install/f_eeprom.cpi");
	Get_On_Event_Info(&commun.EVTC, &commun.TM, &commun.P1, &commun.P2);
	Event_UnSet($Ev_Module_End, commun.TM);
	commun.LID_EEP = -1;
	Module_Bkg_Unload(commun.TM, &commun.ER);
} // End     pio\install\f_eeprom.cpi


#Script f_enr.cpi()
{
// Source  pio\install\f_enr.cpi
#Volume pio
#Module install
#CRC32  57E5C452
#ENDS   0

Public  commun
	Write_Trace($TraceMessCat_01, "install/f_enr.cpi");
	Get_On_Event_Info(&commun.EVTC, &commun.TM, &commun.P1, &commun.P2);
	Event_UnSet($Ev_Module_End, commun.TM);
	commun.LID_EN = 0xFFFFFFFE;
	Module_Bkg_Unload(commun.TM, &commun.ER);
} // End     pio\install\f_enr.cpi


#Script f_fmt.cpi()
{
// Source  pio\install\f_fmt.cpi
#Volume pio
#Module install
#CRC32  33041895
#ENDS   0

Public  commun
	Write_Trace($TraceMessCat_01, "install/f_fmt.cpi");
	Get_On_Event_Info(&commun.EVTC, &commun.TM, &commun.P1, &commun.P2);
	Event_UnSet($Ev_Module_End, commun.TM);
	commun.LID_F = 0xFFFFFFFE;
	Module_Bkg_Unload(commun.TM, &commun.ER);
} // End     pio\install\f_fmt.cpi


#Script f_modcod.cpi()
{
// Source  pio\install\f_modcod.cpi
#Volume pio
#Module install
#CRC32  9CD9396C
#ENDS   0

Public  commun
	Write_Trace($TraceMessCat_01, "install/f_modcod.cpi");
	Get_On_Event_Info(&commun.EVTC, &commun.TM, &commun.P1, &commun.P2);
	Event_UnSet($Ev_Module_End, commun.TM);
	commun.LID_MODC = -1;
	Module_Bkg_Unload(commun.TM, &commun.ER);
} // End     pio\install\f_modcod.cpi


#Script f_opi.cpi()
{
// Source  pio\install\f_opi.cpi
#Volume pio
#Module install
#CRC32  BA0D5881
#ENDS   0

Public  commun
	Write_Trace($TraceMessCat_01, "install/f_opi.cpi");
	Get_On_Event_Info(&commun.EVTC, &commun.TM, &commun.P1, &commun.P2);
	Event_UnSet($Ev_Module_End, commun.TM);
	commun.LID_O = 0xFFFFFFFE;
	Module_Bkg_Unload(commun.TM, &commun.ER);
} // End     pio\install\f_opi.cpi


#Script f_ptg.cpi()
{
// Source  pio\install\f_ptg.cpi
#Volume pio
#Module install
#CRC32  2A89A4D1
#ENDS   0

Public  commun
Public  antena
	Write_Trace($TraceMessCat_01, "install/f_ptg.cpi");
	_ERROR_0001._ERROR_0018 = 0x0;
	Get_On_Event_Info(&commun.EVTC, &commun.TM, &commun.P1, &commun.P2);
	Event_UnSet($Ev_Module_End, commun.TM);
	commun.LID_P = 0xFFFFFFFE;
	Module_Bkg_Unload(commun.TM, &commun.ER);
} // End     pio\install\f_ptg.cpi


#Script f_reg.cpi()
{
// Source  pio\install\f_reg.cpi
#Volume pio
#Module install
#CRC32  F3C4B912
#ENDS   0

Public  commun
	Write_Trace($TraceMessCat_01, "install/f_reg.cpi");
	Get_On_Event_Info(&commun.EVTC, &commun.TM, &commun.P1, &commun.P2);
	Event_UnSet($Ev_Module_End, commun.TM);
	commun.LID_R = 0xFFFFFFFE;
	Module_Bkg_Unload(commun.TM, &commun.ER);
} // End     pio\install\f_reg.cpi


#Script f_sca.cpi()
{
// Source  pio\install\f_sca.cpi
#Volume pio
#Module install
#CRC32  EA09E2A7
#ENDS   0

Public  commun
	Write_Trace($TraceMessCat_01, "install/f_sca.cpi");
	Get_On_Event_Info(&commun.EVTC, &commun.TM, &commun.P1, &commun.P2);
	Event_UnSet($Ev_Module_End, commun.TM);
	commun.LID_S = 0xFFFFFFFE;
	Module_Bkg_Unload(commun.TM, &commun.ER);
} // End     pio\install\f_sca.cpi


#Script init_pan.cpi()
{
// Source  pio\install\init_pan.cpi
#Volume pio
#Module install
#CRC32  54816CBE
#ENDS   0

Public  commun
Public  global
	Write_Trace($TraceMessCat_01, "install\init_pan.cpi");
	if((commun.NET == 0x0)) {
		Call_Script("commun:L1_Index", 0x0);
		Set_Po_Text(commun.PERSO_, "M03_01", _ERROR_0001._ERROR_003A);
	}
	else {
		if((commun.NET == 0x1)) {
			Call_Script("commun:L1_Index", 0x1A);
			Set_Po_Text(commun.PERSO_, "M03_01", _ERROR_0001._ERROR_003A);
		}
	}
} // End     pio\install\init_pan.cpi


#Script lockmenu.cpi()
{
// Source  pio\install\lockmenu.cpi
#Volume pio
#Module install
#CRC32  592F9B1F
#ENDS   0

Public  commun
Public  global
	Start_Methode(0x0000) ; //# lockmenu.pan Panel_Init
		Write_Trace($TraceMessCat_01, "install\lockmenu.cpi");
		Get_Panel_Id("lockmenu", &commun.PAN);
		commun.CO = 0x0;
		Set_Panel_Cursor($CURRENT, $Key_Panel_LEFT, $Enable);
		Set_Panel_Cursor($CURRENT, $Key_Panel_RIGHT, $Enable);
		Module_Load("modcode", &commun.LID_MODC, &commun.ER);
		Call_Script("modcode:showpass", 0x0, -1, &commun.TES);
		if((commun.TES == 0x1)) {
			commun.NO = 0x1;
			Set_Po_Att($CURRENT, "MENU_1", $TEXT_COLOR_ST_0, $COL_0B);
			Set_Po_Att($CURRENT, "MENU_1", $TEXT_COLOR_ST_1, $COL_0B);
			Set_Po_Enum($CURRENT, "MENU_1", 0x1);
		}
		else {
			commun.NO = 0x0;
		}
		return;
		Set_Panel_Focus($CURRENT, "MENU_1");
	End_Methode(0x0000); 
	Start_Methode(0x0018) ; //# lockmenu.pan Panel_End
		commun.TM = commun.LID_MODC;
		commun.LID_MODC = -1;
		Module_Bkg_Unload(commun.TM, &commun.ER);
		if((commun.CO == 0x2)) {
			Module_Load("pers_aff", &commun.LID_A, &commun.ER);
			Event_Set("install:f_aff", $Ev_Module_End, commun.LID_A);
		}
		Set_Panel_Cursor($CURRENT, $Key_Panel_LEFT, $Disable);
		Set_Panel_Cursor($CURRENT, $Key_Panel_RIGHT, $Disable);
	End_Methode(0x0018); 
	Start_Methode(0x0025) ; //# lockmenu.pan MENU_1
		if(commun.NO) {
			commun.TES = 0x1;
		}
		else {
			commun.TES = 0x0;
		}
		Get_Panel_Sco(&commun.OB);
		New_Panel("dlgbox", 0x0, $PANEL_POS_DISPLAY_BOTTOM_RIGHT, 0x0, 0x0, $E_ALARM_TIME, &commun.NUP);
	End_Methode(0x0025); 
	Start_Methode(0x0030) ; //# lockmenu.pan MENU_2
		Get_Panel_Sco(&commun.OB);
		if(_ERROR_0001._ERROR_003B) {
			if(commun.NO) {
				commun.CO = 0x3;
				New_Panel("DB_memo", 0x0, $PANEL_POS_DISPLAY_BOTTOM_RIGHT, 0x0, 0x0, $E_ALARM_TIME, &commun.NUP);
			}
			else {
				commun.TES = 0x0;
				New_Panel("dlgbox", 0x0, $PANEL_POS_DISPLAY_BOTTOM_RIGHT, 0x0, 0x0, $E_ALARM_TIME, &commun.NUP);
				if((commun.TES == 0x1)) {
					commun.CO = 0x2;
					Get_Panel_Id("install:lockmenu", &commun.PAN);
					Quit_Panel(&commun.PAN);
				}
			}
		}
		else {
			commun.CO = 0x1;
			New_Panel("DB_memo", 0x0, $PANEL_POS_DISPLAY_BOTTOM_RIGHT, 0x0, 0x0, $E_ALARM_TIME, &commun.NUP);
			Set_Po_JmpPanel(commun.PAN, "MENU_2", "", $Quit_Panel_OFF, $PANEL_POS_DISPLAY_CENTER, 0x0);
		}
	End_Methode(0x0030); 
	Start_Methode(0x0047) ; //# lockmenu.pan MENU_3
		New_Panel("dlg_remo", 0x0, $PANEL_POS_DISPLAY_BOTTOM_RIGHT, 0x0, 0x0, $E_ALARM_TIME, &commun.NUP);
	End_Methode(0x0047); 
	Start_Methode(0x0049) ; //# lockmenu.pan MENU_4
		New_Panel("dlg_rem2", 0x0, $PANEL_POS_DISPLAY_BOTTOM_RIGHT, 0x0, 0x0, $E_ALARM_TIME, &commun.NUP);
	End_Methode(0x0049); 
	Start_Methode(0x004B) ; //# lockmenu.pan MENU_5
		New_Panel("fecha", 0x0, $PANEL_POS_DISPLAY_BOTTOM_RIGHT, 0x0, 0x0, $E_ALARM_TIME, &commun.NUP);
	End_Methode(0x004B); 
} // End     pio\install\lockmenu.cpi


#Script l_aff.cpi(int commun.CO)
{
// Source  pio\install\l_aff.cpi
#Volume pio
#Module install
#CRC32  6BD43198
#ENDS   0

Public  commun
Public  global
	Write_Trace($TraceMessCat_01, "install\l_aff.cpi");
	Get_Panel_Sco(&commun.PERSO);
	if(_ERROR_0001._ERROR_003B) {
		if((commun.LID_A != -1)) {
			return;
		}
		Module_Load("pers_aff", &commun.LID_A, &commun.ER);
		Event_Set("install:f_aff", $Ev_Module_End, commun.LID_A);
		Set_Po_JmpPanel($CURRENT, commun.PERSO, "", $Quit_Panel_ON, $PANEL_POS_DISPLAY_CENTER, 0x0);
	}
	else {
		if((left(commun.PERSO, 0x3) == "M01")) {
			commun.CO = 0x1;
		}
		else {
			commun.CO = 0x2;
		}
		New_Panel("DB_memo", 0x0, $PANEL_POS_DISPLAY_BOTTOM_RIGHT, 0x0, 0x0, $E_ALARM_TIME, &commun.NUP);
		Set_Po_JmpPanel($CURRENT, commun.PERSO, "", $Quit_Panel_OFF, $PANEL_POS_DISPLAY_CENTER, 0x0);
	}
} // End     pio\install\l_aff.cpi


#Script l_enr.cpi()
{
// Source  pio\install\l_enr.cpi
#Volume pio
#Module install
#CRC32  5BEA9AFF
#ENDS   0

Public  commun
Public  global
	Write_Trace($TraceMessCat_01, "install\l_enr.cpi");
	Module_Get_Id("pers_enr", &commun.ER);
	if((commun.ER != -1)) {
		return;
	}
	Get_Panel_Sco(&commun.PERSO);
	if(_ERROR_0001._ERROR_003B) {
		Module_Load("pers_enr", &commun.LID_EN, &commun.ER);
		Event_Set("install:f_enr", $Ev_Module_End, commun.LID_EN);
		Set_Po_JmpPanel($CURRENT, commun.PERSO, "pers_enr:p_enr", $Quit_Panel_ON, $PANEL_POS_DISPLAY_CENTER, 0x0);
		Call_Script("pers_enr:Enr_Init");
	}
	else {
		commun.CO = 0x1;
		New_Panel("DB_memo", 0x0, $PANEL_POS_DISPLAY_BOTTOM_RIGHT, 0x0, 0x0, $E_ALARM_TIME, &commun.NUP);
		Set_Po_JmpPanel($CURRENT, commun.PERSO, "", $Quit_Panel_OFF, $PANEL_POS_DISPLAY_CENTER, 0x0);
	}
} // End     pio\install\l_enr.cpi


#Script l_fmt.cpi()
{
// Source  pio\install\l_fmt.cpi
#Volume pio
#Module install
#CRC32  E5013533
#ENDS   0

Public  commun
	Write_Trace($TraceMessCat_01, "install\l_fmt.cpi");
	if((commun.LID_F != -1)) {
		return;
	}
	Get_Panel_Sco(&commun.PERSO);
	Module_Load("pers_fmt", &commun.LID_F, &commun.ER);
	Event_Set("install:f_fmt", $Ev_Module_End, commun.LID_F);
	Set_Po_JmpPanel($CURRENT, commun.PERSO, "pers_fmt:p_fmt", $Quit_Panel_ON, $PANEL_POS_DISPLAY_CENTER, 0x0);
} // End     pio\install\l_fmt.cpi


#Script l_opi.cpi()
{
// Source  pio\install\l_opi.cpi
#Volume pio
#Module install
#CRC32  88C88C70
#ENDS   0

Public  commun
	Write_Trace($TraceMessCat_01, "install\l_opi.cpi");
	if((commun.LID_O != -1)) {
		return;
	}
	Get_Panel_Sco(&commun.PERSO);
	Module_Load("pers_opi", &commun.LID_O, &commun.ER);
	Event_Set("install:f_opi", $Ev_Module_End, commun.LID_O);
	Set_Po_JmpPanel($CURRENT, commun.PERSO, "pers_opi:droitpan", $Quit_Panel_ON, $PANEL_POS_DISPLAY_CENTER, 0x0);
} // End     pio\install\l_opi.cpi


#Script l_ptg.cpi()
{
// Source  pio\install\l_ptg.cpi
#Volume pio
#Module install
#CRC32  E8C49598
#ENDS   0

Public  commun
Public  antena
	Write_Trace($TraceMessCat_01, "install\l_ptg.cpi");
	if((commun.LID_P != -1)) {
		return;
	}
	Get_Panel_Sco(&commun.PERSO);
	_ERROR_0001._ERROR_0028 = 0x1;
	_ERROR_0001._ERROR_0018 = 0x0;
	Module_Load("pers_ptg", &commun.LID_P, &commun.ER);
	Event_Set("install:f_ptg", $Ev_Module_End, commun.LID_P);
	if(_ERROR_0001._ERROR_0027) {
		Set_Po_JmpPanel($CURRENT, commun.PERSO, "pers_ptg:SatPos", $Quit_Panel_ON, $PANEL_POS_DISPLAY_CENTER, 0x0);
	}
	else {
		Set_Po_JmpPanel($CURRENT, commun.PERSO, "pers_ptg:pointe", $Quit_Panel_ON, $PANEL_POS_DISPLAY_CENTER, 0x0);
	}
} // End     pio\install\l_ptg.cpi


#Script l_reg.cpi()
{
// Source  pio\install\l_reg.cpi
#Volume pio
#Module install
#CRC32  0E1DE7A7
#ENDS   0

Public  commun
	Write_Trace($TraceMessCat_01, "install\l_reg.cpi");
	if((commun.LID_R != -1)) {
		return;
	}
	Get_Panel_Sco(&commun.PERSO);
	Module_Load("pers_reg", &commun.LID_R, &commun.ER);
	Event_Set("install:f_reg", $Ev_Module_End, commun.LID_R);
	Set_Po_JmpPanel($CURRENT, commun.PERSO, "pers_reg:p_reg", $Quit_Panel_ON, $PANEL_POS_DISPLAY_CENTER, 0x0);
} // End     pio\install\l_reg.cpi


#Script l_sca.cpi()
{
// Source  pio\install\l_sca.cpi
#Volume pio
#Module install
#CRC32  5C6DC636
#ENDS   0

Public  commun
	Write_Trace($TraceMessCat_01, "install\l_sca.cpi");
	if((commun.LID_O != -1)) {
		return;
	}
	Get_Panel_Sco(&commun.PERSO);
	Module_Load("pers_sca", &commun.LID_S, &commun.ER);
	Event_Set("install:f_sca", $Ev_Module_End, commun.LID_S);
	if(!commun.A) {
		Module_Load("pers_opi", &commun.LID_O, &commun.ER);
		Event_Set("install:f_opi", $Ev_Module_End, commun.LID_O);
		Set_Po_JmpPanel($CURRENT, commun.PERSO, "pers_opi:cntpan", $Quit_Panel_ON, $PANEL_POS_DISPLAY_CENTER, 0x0);
	}
	else {
		Set_Po_JmpPanel($CURRENT, commun.PERSO, "pers_sca:panscan", $Quit_Panel_ON, $PANEL_POS_DISPLAY_CENTER, 0x0);
	}
} // End     pio\install\l_sca.cpi


#Script l_sca2.cpi()
{
// Source  pio\install\l_sca2.cpi
#Volume pio
#Module install
#CRC32  9D0F1E4B
#ENDS   0

Public  commun
Public  global
	Write_Trace($TraceMessCat_01, "install\l_sca2.cpi");
	commun.A = 0x0;
	Get_Panel_Sco(&commun.PERSO);
	commun.CO = 0x4;
	New_Panel("install:db_memo", 0x0, $PANEL_POS_DISPLAY_BOTTOM_RIGHT, 0x0, 0x0, $E_ALARM_TIME, &commun.PAN);
	if((commun.OB == "A")) {
		return;
	}
	Module_Load("modcode", &commun.LID_MODC, &commun.ER);
	Call_Script("modcode:showpass", 0x0, -1, &commun.TES);
	if((commun.TES == 0x1)) {
		commun.TM = commun.LID_MODC;
		commun.LID_MODC = -1;
		Module_Bkg_Unload(commun.TM, &commun.ER);
	}
	else {
		if(_ERROR_0001._ERROR_0021) {
			if((_ERROR_0001._ERROR_0024 != 0x1)) {
				commun.OB = "PAGE_8";
				New_Panel("install:dlgbox", 0x0, $PANEL_POS_DISPLAY_BOTTOM_RIGHT, 0x0, 0x0, ($E_ALARM_TIME + 0x1), &commun.NUP);
				if((commun.OB == "A")) {
					return;
				}
			}
			commun.OB = "PAGE_3";
			commun.TES = 0x0;
			New_Panel("install:dlgbox", 0x0, $PANEL_POS_DISPLAY_BOTTOM_RIGHT, 0x0, 0x0, ($E_ALARM_TIME + 0x1), &commun.NUP);
			commun.TM = commun.LID_MODC;
			commun.LID_MODC = -1;
			Module_Bkg_Unload(commun.TM, &commun.ER);
			if((commun.TES != 0x1)) {
				return;
			}
		}
	}
	Module_Load("pers_opi", &commun.LID_O, &commun.ER);
	Event_Set("install:f_opi", $Ev_Module_End, commun.LID_O);
	Module_Load("pers_sca", &commun.LID_S, &commun.ER);
	Event_Set("install:f_sca", $Ev_Module_End, commun.LID_S);
	Set_Po_JmpPanel($CURRENT, commun.PERSO, "pers_opi:cntpan", $Quit_Panel_ON, $PANEL_POS_DISPLAY_CENTER, 0x0);
} // End     pio\install\l_sca2.cpi


#Script perso.cpi()
{
// Source  pio\install\perso.cpi
#Volume pio
#Module install
#CRC32  3B2F94A3
#ENDS   0

Public  commun
Public  global
	Start_Methode(0x0000) ; //#    perso.pan Panel_Init
		Write_Trace($TraceMessCat_01, "install\perso.cpi");
		Get_Panel_Id("install:perso", &commun.PERSO_);
		if((commun.PERSO == "")) {
			commun.NUM = 0x1;
			commun.PERSO = "M01_01";
		}
		else {
			commun.NUM = val(mid(commun.PERSO, 0x2, 0x3));
		}
		if((!_ERROR_0001._ERROR_003B || !_ERROR_0001._ERROR_0021)) {
			Set_Po_Att($CURRENT, "M01_01", $TEXT_COLOR_ST_0, $COL_09);
			Set_Po_Att($CURRENT, "M01_02", $TEXT_COLOR_ST_0, $COL_09);
			Set_Po_Att($CURRENT, "M01_03", $TEXT_COLOR_ST_0, $COL_09);
			Set_Po_Att($CURRENT, "M01_06", $TEXT_COLOR_ST_0, $COL_09);
			Set_Po_Att($CURRENT, "M01_09", $TEXT_COLOR_ST_0, $COL_09);
			Set_Panel_Value($CURRENT, $WIDGETS_ACTIVE_ONLY_GROUP_GE, 0x2);
			if((commun.PERSO == "")) {
				commun.PERSO = "M01_04";
			}
		}
		else {
			Set_Panel_Value($CURRENT, $WIDGETS_ACTIVE_ONLY_GROUP_GE, 0x1);
		}
		Set_Panel_Focus(commun.PERSO_, commun.PERSO);
		Call_Script("install:init_pan");
		commun.CREDITO = "\n\n\n\n\n\n\n";
		Call_Script("commun:L1_Index", 0x62);
		commun.CREDITO += _ERROR_0001._ERROR_003A;
		commun.CREDITO += "\nBr0ther\n\n";
		Call_Script("commun:L1_Index", 0x63);
		commun.CREDITO += _ERROR_0001._ERROR_003A;
		commun.CREDITO += "\nFer HA\n\n";
		Call_Script("commun:L1_Index", 0x64);
		commun.CREDITO += _ERROR_0001._ERROR_003A;
		commun.CREDITO += "\nPgete\nBr0ther\n\n";
		commun.CREDITO += "Betatesters\nBr0ther\nJa2m\nFlapSlat\nNenuco\nFer HA\nTda20300\nM.Knight\nMalAngel\nBiosupdate\nIscar\n\n";
		Call_Script("commun:L1_Index", 0x65);
		commun.CREDITO += _ERROR_0001._ERROR_003A;
		commun.CREDITO += "\nIscar\nFlapSlat\nMalAngel\nBaserri\nLeizea\n\n";
		Call_Script("commun:L1_Index", 0x66);
		commun.CREDITO += _ERROR_0001._ERROR_003A;
		commun.CREDITO += "\nAerith\nParanosh\n\n";
		Call_Script("commun:L1_Index", 0x67);
		commun.CREDITO += _ERROR_0001._ERROR_003A;
		commun.CREDITO += "\nM.Knight\n\n";
		Call_Script("commun:L1_Index", 0x68);
		commun.CREDITO += _ERROR_0001._ERROR_003A;
		commun.CREDITO += "\nGalvanico\n\n";
		Call_Script("commun:L1_Index", 0x69);
		commun.CREDITO += _ERROR_0001._ERROR_003A;
		commun.CREDITO += "\nForo I.L.Strong\n\n";
		Call_Script("commun:L1_Index", 0x6A);
		commun.CREDITO += _ERROR_0001._ERROR_003A;
		commun.CREDITO += "\nKamaku\nMilko\nJiauka\nManuk\nWebShidarta\nSa1vad0r\nTete\nGlYcos\nGabri\nPiper7\nGold Box Forum\nHumax\nDynamit\n\n\n\n\n+Cafe Team 2005\n\n\n";
		commun.TIM_COUNT = 0x1;
		Set_To($TIMER, 1000, $Ev_Timer, $code_03EB, &commun.TIM_CRED);
		Event_Set("install:credito", $Ev_Timer, $code_03EB);
		Set_Panel_Page($CURRENT, commun.NUM);
		Panel_Show($CURRENT);
	End_Methode(0x0000); 
	Start_Methode(0x001E) ; //#    perso.pan M01_01
		Call_Script("l_enr");
	End_Methode(0x001E); 
	Start_Methode(0x0023) ; //#    perso.pan M01_02
		Call_Script("l_aff", 0x1);
	End_Methode(0x0023); 
	Start_Methode(0x0028) ; //#    perso.pan M01_03
		Get_Panel_Sco(&commun.PERSO);
	End_Methode(0x0028); 
	Start_Methode(0x0033) ; //#    perso.pan M01_04
		Call_Script("l_reg");
	End_Methode(0x0033); 
	Start_Methode(0x004D) ; //#    perso.pan M01_05
		Get_Panel_Sco(&commun.PERSO);
		if((_ERROR_0001._ERROR_003B && _ERROR_0001._ERROR_0021)) {
			Set_Panel_Page($CURRENT, 0x5);
		}
		else {
			if((commun.LID_O != -1)) {
				return;
			}
			commun.A = 0x0;
			Call_Script("l_sca");
		}
	End_Methode(0x004D); 
	Start_Methode(0x0052) ; //#    perso.pan M01_06
		Call_Script("l_opi");
	End_Methode(0x0052); 
	Start_Methode(0x0057) ; //#    perso.pan M01_07
		Call_Script("l_ptg");
	End_Methode(0x0057); 
	Start_Methode(0x0067) ; //#    perso.pan M01_08
		Call_Script("l_fmt");
	End_Methode(0x0067); 
	Start_Methode(0x006C) ; //#    perso.pan M05_01
		Call_Script("l_aff", 0x4);
	End_Methode(0x006C); 
	Start_Methode(0x0071) ; //#    perso.pan M05_02
		Call_Script("l_aff", 0x5);
	End_Methode(0x0071); 
	Start_Methode(0x0077) ; //#    perso.pan M05_03
		if((commun.LID_S != -1)) {
			return;
		}
		commun.A = 0x1;
		Call_Script("l_sca");
	End_Methode(0x0077); 
	Start_Methode(0x0081) ; //#    perso.pan M05_04
		Call_Script("l_aff", 0x7);
	End_Methode(0x0081); 
	Start_Methode(0x008B) ; //#    perso.pan M05_05
		Call_Script("l_sca2");
	End_Methode(0x008B); 
	Start_Methode(0x0099) ; //#    perso.pan M05_06
		Call_Script("p_setup", 0xC9);
	End_Methode(0x0099); 
	Start_Methode(0x00AA) ; //#    perso.pan M05_07
		if((commun.LID_S != -1)) {
			return;
		}
		Get_Panel_Sco(&commun.PERSO);
		commun.A = 0x1;
		Module_Load("pers_sca", &commun.LID_S, &commun.ER);
		Event_Set("install:f_sca", $Ev_Module_End, commun.LID_S);
		New_Panel("pers_sca:db_sca", 0x0, $PANEL_POS_DISPLAY_BOTTOM_RIGHT, 0x0, 0x0, (0x200 + 0x800), &commun.NUP);
	End_Methode(0x00AA); 
	Start_Methode(0x00AF) ; //#    perso.pan RETOUR
		Set_Panel_Focus($CURRENT, commun.PERSO);
		Set_Panel_Page($CURRENT, 0x1);
	End_Methode(0x00AF); 
	Start_Methode(0x00B5) ; //#    perso.pan A_SYMBOL
		Call_Script("p_setup", 0xCA);
	End_Methode(0x00B5); 
	Start_Methode(0x00BA) ; //#    perso.pan AGG
		Call_Script("p_setup", 0xCB);
	End_Methode(0x00BA); 
	Start_Methode(0x00BF) ; //#    perso.pan LIST1
		Call_Script("p_setup", 0xCC);
	End_Methode(0x00BF); 
	Start_Methode(0x00C4) ; //#    perso.pan UP
		Call_Script("p_setup", 0xCD);
	End_Methode(0x00C4); 
	Start_Methode(0x00C9) ; //#    perso.pan DOWN
		Call_Script("p_setup", 0xCE);
	End_Methode(0x00C9); 
	Start_Methode(0x00CA) ; //#    perso.pan M01_09
		Call_Script("emu");
	End_Methode(0x00CA); 
	Start_Methode(0x00D0) ; //#    perso.pan Panel_End
		Clear_To(commun.TIM_CRED, $Ev_Timer, $code_03EB);
		Event_UnSet($Ev_Timer, $code_03EB);
	End_Methode(0x00D0); 
} // End     pio\install\perso.cpi


#Script p_chnl.cpi(int commun.IA)
{
// Source  pio\install\p_chnl.cpi
#Volume pio
#Module install
#CRC32  C45F45CA
#ENDS   0

Public  commun
Public  chnl
Public  global
Public  basic
	Write_Trace($TraceMessCat_01, "install\p_chnl.cpi");
	if((commun.IA == 0x0)) {
		if(((commun.ISUBM == 0x3) || (commun.ISUBM == 0x4))) {
			_ERROR_0001._ERROR_0003 = 0x1;
		}
		else {
			_ERROR_0001._ERROR_0003 = 0x1;
		}
		Call_Script("antena:init", 0x9);
		Call_Script("antena:listfill", 0x1, _ERROR_0001._ERROR_0003);
		Set_Po_Enum($CURRENT, "FAVOURITE", _ERROR_0001._ERROR_0002);
		Set_Po_Enum($CURRENT, "ACTION1B", _ERROR_0001._ERROR_0002);
		Set_Po_Enum($CURRENT, "LOCK", _ERROR_0001._ERROR_0005);
		Set_Po_Enum($CURRENT, "ACTION2B", _ERROR_0001._ERROR_0005);
		Event_Set(("install:" + "e_chnl"), $ev_0325, $code_0001);
		Event_Set(("install:" + "e_chnl"), $ev_keypress, $code_all);
		commun.ITO = -1;
		commun.AF = "NC1";
		Set_Panel_Focus($CURRENT, "NC1");
		Set_Po_Att($CURRENT, "C1", $TEXT_COLOR_ACTIVE, $COL_0C);
		Panel_Show($CURRENT);
		if((commun.AU != "")) {
			Module_Get_Id(commun.AU, &commun.J);
			Module_Bkg_Unload(commun.J, &commun.IERROR);
			commun.AU = "";
		}
	}
	Get_Po_Focus($CURRENT, &commun.ATMP0);
	commun.ITMP0 = val(right(commun.ATMP0, 0x1));
	Set_Po_Att($CURRENT, ("C" + itos(commun.ITMP0)), $TEXT_COLOR_ACTIVE, $COL_03);
	if(((commun.IA == 0x2) || (commun.IA == 0x4))) {
		Set_Po_Att($CURRENT, ("C" + itos(commun.ITMP2)), $TEXT_COLOR_ACTIVE, $COL_03);
		if((_ERROR_0001._ERROR_000A != -1)) {
			Call_Script("antena:listfill", 0x1, _ERROR_0001._ERROR_000A);
			commun.AF = "NC1";
		}
		else {
			commun.AF = ("NC" + itos(_ERROR_0001._ERROR_0009));
			Set_Po_Att($CURRENT, ("C" + itos(_ERROR_0001._ERROR_0009)), $TEXT_COLOR_ACTIVE, $COL_0C);
		}
	}
	if(((commun.IA == 0x1) || (commun.IA == 0x3))) {
		Set_Po_Att($CURRENT, ("C" + itos(commun.ITMP2)), $TEXT_COLOR_ACTIVE, $COL_03);
		if((_ERROR_0001._ERROR_000B != -1)) {
			Call_Script("antena:listfill", -1, _ERROR_0001._ERROR_000B);
			commun.AF = ("NC" + itos(_ERROR_0001._ERROR_0009));
			Set_Po_Att($CURRENT, ("C" + itos((_ERROR_0001._ERROR_0009 - 0x8))), $TEXT_COLOR_ACTIVE, $COL_03);
		}
		else {
			commun.AF = "NC1";
		}
	}
	if((commun.IA == 0x7)) {
		Call_Script("antena:attr_set", 0x1, -1);
		Set_Po_Enum($CURRENT, "FAVOURITE", _ERROR_0001._ERROR_0002);
		Set_Po_Enum($CURRENT, "ACTION1B", _ERROR_0001._ERROR_0002);
	}
	if((commun.IA == 0x8)) {
		Call_Script("antena:attr_set", 0x5, -1);
		Set_Po_Enum($CURRENT, "LOCK", _ERROR_0001._ERROR_0005);
		Set_Po_Enum($CURRENT, "ACTION2B", _ERROR_0001._ERROR_0005);
	}
	if((commun.IA == 0x5)) {
		Get_Po_Focus($CURRENT, &commun.ATMP0);
		commun.ITMP0 = val(right(commun.ATMP0, 0x1));
		Set_Po_Att($CURRENT, ("C" + itos(commun.ITMP2)), $TEXT_COLOR_ACTIVE, $COL_03);
	}
	if((((0x0 <= commun.IA) && (commun.IA <= 0x6)) || (commun.IA == 0x8))) {
		for(commun.ITMP0 = 0x1; commun.ITMP0 <= 0x9; commun.ITMP0 += 0x1) {
			Call_Script("antena:get", (commun.ITMP0 - 0x1));
			Set_Po_Text($CURRENT, ("P" + itos(commun.ITMP0)), "");
			Set_Po_Text($CURRENT, ("L" + itos(commun.ITMP0)), "");
			if(((_ERROR_0001._ERROR_000C & 0x4) == 0x4)) {
				Set_Po_Att($CURRENT, ("NC" + itos(commun.ITMP0)), $TEXT_COLOR_ST_0, $COL_03);
				Set_Po_Att($CURRENT, ("NC" + itos(commun.ITMP0)), $TEXT_COLOR_ST_1, $COL_0C);
				Set_Po_Att($CURRENT, ("C" + itos(commun.ITMP0)), $TEXT_COLOR_ACTIVE, $COL_03);
				if(((commun.ISUBM == 0x3) && (commun.ICH == _ERROR_0001._ERROR_0011))) {
					if((commun.AC == commun.AS)) {
						Set_Po_Att($CURRENT, ("NC" + itos(commun.ITMP0)), $TEXT_COLOR_ST_0, $COL_07);
						Set_Po_Att($CURRENT, ("NC" + itos(commun.ITMP0)), $TEXT_COLOR_ST_1, $COL_0B);
						Set_Po_Att($CURRENT, ("C" + itos(commun.ITMP0)), $TEXT_COLOR_ACTIVE, $COL_07);
					}
				}
				Set_Po_Text($CURRENT, ("C" + itos(commun.ITMP0)), itos(_ERROR_0001._ERROR_0011));
				Set_Po_Text($CURRENT, ("NC" + itos(commun.ITMP0)), commun.AS);
				Set_Po_Att($CURRENT, ("C" + itos(commun.ITMP0)), $INVISIBILITY, $OFF);
				Set_Po_Att($CURRENT, ("NC" + itos(commun.ITMP0)), $INVISIBILITY, $OFF);
				if((_ERROR_0001._ERROR_000D != 0x0)) {
					Set_Po_Text($CURRENT, ("P" + itos(commun.ITMP0)), chr$($Symb_Favorite));
				}
				if((_ERROR_0001._ERROR_000F == 0x1)) {
					Set_Po_Text($CURRENT, ("L" + itos(commun.ITMP0)), chr$($Symb_Locked));
				}
				else {
					if((_ERROR_0001._ERROR_000F == 0x2)) {
						Set_Po_Text($CURRENT, ("L" + itos(commun.ITMP0)), chr$($Symb_UnLock));
					}
				}
			}
			else {
				Set_Po_Att($CURRENT, ("C" + itos(commun.ITMP0)), $TEXT_COLOR_ST_0, $COL_07);
				Set_Po_Att($CURRENT, ("NC" + itos(commun.ITMP0)), $TEXT_COLOR_ST_0, $COL_07);
			}
		}
		if((_ERROR_0001._ERROR_000A == -1)) {
			commun.ITMP0 = 0x1;
		}
		else {
			commun.ITMP0 = 0x0;
		}
		Set_Po_Att($CURRENT, "PTS_B", $INVISIBILITY, commun.ITMP0);
		Set_Po_Att($CURRENT, "PTS_D", $INVISIBILITY, commun.ITMP0);
		if((_ERROR_0001._ERROR_000B == -1)) {
			commun.ITMP0 = 0x1;
		}
		else {
			commun.ITMP0 = 0x0;
		}
		Set_Po_Att($CURRENT, "PTS_H", $INVISIBILITY, commun.ITMP0);
		Set_Po_Att($CURRENT, "PTS_G", $INVISIBILITY, commun.ITMP0);
		_ERROR_0001._ERROR_0011 = 0x0;
	}
	if(((commun.IA <= 0x5) || (commun.IA == 0x10))) {
		Get_Po_Focus($CURRENT, &commun.ATMP0);
		commun.ITMP0 = val(right(commun.ATMP0, 0x1));
		if((commun.ISUBM == 0x0)) {
			Call_Script("antena:get", (commun.ITMP0 - 0x1));
			Set_Po_Enum($CURRENT, "ACTION1B", (_ERROR_0001._ERROR_000D != 0x0));
		}
		if((commun.ISUBM == 0x1)) {
			Call_Script("antena:get", (commun.ITMP0 - 0x1));
			Set_Po_Enum($CURRENT, "ACTION2A", (_ERROR_0001._ERROR_000F != 0x0));
		}
		_ERROR_0001._ERROR_0011 = 0x0;
	}
	if((commun.IA == 0x10)) {
		Get_Po_Focus($CURRENT, &commun.ATMP0);
		commun.ITMP0 = val(right(commun.ATMP0, 0x1));
		commun.ITMP2 = commun.ITMP0;
		Get_Panel_Cursor(&commun.ITMP1);
		if((commun.ITMP1 == $KEY_Up)) {
			if(((commun.ISUBM == 0x3) && (commun.ICH != 0x0))) {
				Call_Script("antena:get", commun.ITMP0);
				if(((commun.AC == commun.AS) && (commun.ICH == _ERROR_0001._ERROR_0011))) {
					Set_Po_Att($CURRENT, ("C" + itos((commun.ITMP0 + 0x1))), $TEXT_COLOR_ACTIVE, $COL_07);
				}
				else {
					Set_Po_Att($CURRENT, ("C" + itos((commun.ITMP0 + 0x1))), $TEXT_COLOR_ACTIVE, $COL_03);
				}
			}
			else {
				Set_Po_Att($CURRENT, ("C" + itos((commun.ITMP0 + 0x1))), $TEXT_COLOR_ACTIVE, $COL_03);
			}
		}
		if((commun.ITMP1 == $KEY_Down)) {
			if(((commun.ISUBM == 0x3) && (commun.ICH != 0x0))) {
				Call_Script("antena:get", (commun.ITMP0 - 0x2));
				if(((commun.AC == commun.AS) && (commun.ICH == _ERROR_0001._ERROR_0011))) {
					Set_Po_Att($CURRENT, ("C" + itos((commun.ITMP0 - 0x1))), $TEXT_COLOR_ACTIVE, $COL_07);
				}
				else {
					Set_Po_Att($CURRENT, ("C" + itos((commun.ITMP0 - 0x1))), $TEXT_COLOR_ACTIVE, $COL_03);
				}
			}
			else {
				Get_Po_Focus($CURRENT, &commun.ATMP0);
				commun.ITMP0 = val(right(commun.ATMP0, 0x1));
				if((commun.ITMP0 > _ERROR_0001._ERROR_0009)) {
					commun.ITMP0 -= 0x1;
					commun.ITMP2 -= 0x1;
					commun.ATMP0 = ("NC" + itos(commun.ITMP0));
					Set_Panel_Focus($CURRENT, commun.ATMP0);
				}
				else {
					Set_Po_Att($CURRENT, ("C" + itos((commun.ITMP0 - 0x1))), $TEXT_COLOR_ACTIVE, $COL_03);
				}
			}
		}
		if((commun.ITMP1 == $KEY_Ok)) {
			if((commun.ISUBM == 0x0)) {
				Call_Script("antena:get", (commun.ITMP0 - 0x1));
				Call_Script("antena:attr_set", 0x1, _ERROR_0001._ERROR_0011);
				if((_ERROR_0001._ERROR_000D != 0x0)) {
					Set_Po_Text($CURRENT, ("P" + itos(commun.ITMP0)), chr$($Symb_Favorite));
					Set_Po_Enum($CURRENT, "ACTION1B", 0x1);
				}
				else {
					Set_Po_Text($CURRENT, ("P" + itos(commun.ITMP0)), "");
					Set_Po_Enum($CURRENT, "ACTION1B", 0x0);
				}
			}
			if((commun.ISUBM == 0x1)) {
				Call_Script("antena:get", (commun.ITMP0 - 0x1));
				Call_Script("antena:attr_set", 0x5, _ERROR_0001._ERROR_0011);
				if((_ERROR_0001._ERROR_000F == 0x1)) {
					Set_Po_Text($CURRENT, ("L" + itos(commun.ITMP0)), chr$($Symb_Locked));
					Set_Po_Enum($CURRENT, "ACTION2A", 0x1);
				}
				else {
					if((_ERROR_0001._ERROR_000F == 0x2)) {
						Set_Po_Text($CURRENT, ("L" + itos(commun.ITMP0)), chr$($Symb_UnLock));
						Set_Po_Enum($CURRENT, "ACTION2A", 0x1);
					}
					else {
						Set_Po_Text($CURRENT, ("L" + itos(commun.ITMP0)), "");
						Set_Po_Enum($CURRENT, "ACTION2A", 0x0);
					}
				}
			}
			if((commun.ISUBM == 0x2)) {
				Call_Script("antena:get", (commun.ITMP0 - 0x1));
				commun.FVAR2 = itos(_ERROR_0001._ERROR_0011);
				Event_UnSet($ev_0325, $code_0001);
				Event_UnSet($ev_keypress, $code_all);
			}
			if((commun.ISUBM == 0x3)) {
				if((commun.ICH != 0x0)) {
					Set_Po_Att($CURRENT, commun.ATMP0, $TEXT_COLOR_ST_1, $COL_0B);
					Set_Po_Att($CURRENT, ("C" + itos(commun.ITMP0)), $TEXT_COLOR_ACTIVE, $COL_0B);
					Call_Script("antena:get", (commun.ITMP0 - 0x1));
					if((_ERROR_0001._ERROR_0011 != commun.ICH)) {
						Call_Script("dlg_box", 0x16);
						Set_Po_Att($CURRENT, commun.ATMP0, $TEXT_COLOR_ST_1, $COL_03);
						if((commun.ISW != -1)) {
							Call_Script("antena:swap", commun.ICH, _ERROR_0001._ERROR_0011, commun.ISW);
							Call_Script("antena:get", 0x0);
							_ERROR_0001._ERROR_000A = _ERROR_0001._ERROR_0011;
							Call_Script("antena:listfill", 0x1, _ERROR_0001._ERROR_000A);
							Event_Send($ev_0325, $code_0001, 0x0, 0x1);
						}
					}
					Set_Po_Att($CURRENT, commun.ATMP1, $TEXT_COLOR_ST_0, $COL_03);
					Set_Po_Att($CURRENT, commun.ATMP1, $TEXT_COLOR_ST_1, $COL_0C);
					commun.ICH = 0x0;
					Set_Po_Enum($CURRENT, "ENUM_99", 0x0);
					Set_Po_Att($CURRENT, ("C" + itos(commun.IL)), $TEXT_COLOR_ACTIVE, $COL_03);
				}
				else {
					Set_Po_Att($CURRENT, commun.ATMP0, $TEXT_COLOR_ST_0, $COL_07);
					Set_Po_Att($CURRENT, commun.ATMP0, $TEXT_COLOR_ST_1, $COL_0B);
					commun.IL = commun.ITMP0;
					Call_Script("antena:get", (commun.ITMP0 - 0x1));
					commun.ICH = _ERROR_0001._ERROR_0011;
					commun.AC = commun.AS;
					commun.ATMP1 = commun.ATMP0;
					Set_Po_Enum($CURRENT, "ENUM_99", 0x1);
				}
			}
			if((commun.ISUBM == 0x4)) {
				Set_Po_Att($CURRENT, commun.ATMP0, $TEXT_COLOR_ST_1, $COL_0B);
				Set_Po_Att($CURRENT, ("C" + itos(commun.ITMP0)), $TEXT_COLOR_ACTIVE, $COL_0B);
				Call_Script("antena:get", (commun.ITMP0 - 0x1));
				Call_Script("dlg_box", 0x17);
				Set_Po_Att($CURRENT, commun.ATMP0, $TEXT_COLOR_ST_1, $COL_03);
				if((commun.ISUBC == 0x0)) {
					Call_Script("antena:del", _ERROR_0001._ERROR_0011);
					_ERROR_0001._ERROR_000A = _ERROR_0001._ERROR_0011;
					Call_Script("antena:get", 0x0);
					_ERROR_0001._ERROR_0013 = _ERROR_0001._ERROR_0011;
					_ERROR_0001._ERROR_0011 = _ERROR_0001._ERROR_000A;
					if((_ERROR_0001._ERROR_0011 == ((_ERROR_0001._ERROR_0013 + _ERROR_0001._ERROR_0009) - 0x1))) {
						Set_Po_Att($CURRENT, ("C" + itos(commun.ITMP0)), $TEXT_COLOR_ACTIVE, $COL_03);
						Get_Po_Focus($CURRENT, &commun.ATMP0);
						commun.ITMP0 = (val(right(commun.ATMP0, 0x1)) - 0x1);
						if((commun.ITMP0 != 0x0)) {
							commun.ATMP0 = ("NC" + itos(commun.ITMP0));
							Set_Panel_Focus($CURRENT, commun.ATMP0);
							Set_Po_Att($CURRENT, ("C" + itos(commun.ITMP0)), $TEXT_COLOR_ACTIVE, $COL_0C);
						}
						else {
							Call_Script("antena:listfill", -1, _ERROR_0001._ERROR_000B);
							commun.AF = ("NC" + itos(_ERROR_0001._ERROR_0009));
						}
					}
					else {
						commun.ATMP0 = commun.ATMP0;
					}
					Call_Script("antena:get", 0x0);
					_ERROR_0001._ERROR_000A = _ERROR_0001._ERROR_0011;
					Call_Script("antena:listfill", 0x1, _ERROR_0001._ERROR_000A);
					Event_Send($ev_0325, $code_0001, 0x0, 0x1);
				}
				Set_Po_Att($CURRENT, commun.ATMP0, $TEXT_COLOR_ST_1, $COL_0C);
			}
		}
	}
	if((commun.AF != "")) {
		Set_Panel_Focus($CURRENT, commun.AF);
		commun.AF = "";
	}
	if((commun.IPAG != -1)) {
		Set_Panel_Page($CURRENT, commun.IPAG);
	}
	commun.IPAG = -1;
	Get_Po_Focus($CURRENT, &commun.ATMP0);
	commun.ITMP0 = val(right(commun.ATMP0, 0x1));
	Get_Po_Att($CURRENT, commun.ATMP0, $TEXT_COLOR_ACTIVE, &commun.ITMP3);
	Set_Po_Att($CURRENT, ("C" + itos(commun.ITMP0)), $TEXT_COLOR_ACTIVE, commun.ITMP3);
	if((commun.IA == 0x80)) {
		if((commun.ISUBM == 0x1)) {
			commun.IPAG = 0x1;
			commun.AF = "M01_02";
			commun.AU = "antena";
		}
		if((commun.ISUBM == 0x2)) {
			commun.IPAG = 0x1;
			commun.AF = "M01_03";
			commun.AU = "antena";
		}
		if((commun.ISUBM == 0x3)) {
			commun.IPAG = 0x2;
			commun.AF = "OBJ_2";
			commun.AU = "antena";
		}
		if((commun.ISUBM == 0x4)) {
			commun.IPAG = 0x5;
			commun.AF = "M05_01";
			commun.AU = "antena";
		}
		if((commun.ISUBM == 0x5)) {
			commun.IPAG = 0x5;
			commun.AF = "M05_02";
			commun.AU = "antena";
		}
		if(commun.ICH) {
			commun.ICH = 0x0;
		}
		Event_UnSet($ev_0325, $code_0001);
		Event_UnSet($ev_keypress, $code_all);
		if((commun.ISUBM == 0x6)) {
			commun.IPAG = 0x5;
			commun.AF = "M05_01";
			commun.AU = "antena";
		}
		if((commun.ISUBM == 0x7)) {
			_ERROR_0002._ERROR_0014 = val(commun.FVAR2);
			_ERROR_0003._ERROR_00E1 = 0x0;
			_ERROR_0003._ERROR_0118 = _ERROR_0002._ERROR_0014;
			Module_End();
		}
		if((commun.ISUBM == 0x8)) {
			commun.IPAG = 0x5;
			commun.AF = "M05_04";
			commun.AU = "antena";
		}
	}
} // End     pio\install\p_chnl.cpi


#Script p_emu.cpi(int commun.IA)
{
// Source  pio\install\p_emu.cpi
#Volume pio
#Module install
#CRC32  A22AA996
#ENDS   0

Default commun
Public  commun
Public  basic
Public  global
Public  dvb
	Write_Trace($TraceMessCat_01, "install\p_emu.cpi");
	if((commun.IA == 0xB)) {
		if((_ERROR_0001._ERROR_0128 == 0xB)) {
			Device_Alloc_Buffer(_ERROR_0001._ERROR_003D, 0x2414, $LOCK_OFF, &_ERROR_0002._ERROR_0004, &_ERROR_0001._ERROR_004B);
			_ERROR_0001._ERROR_0128 = 0x0;
			pokes(_ERROR_0002._ERROR_0004, 0x404, 0x4D69);
			pokes(_ERROR_0002._ERROR_0004, 0x406, 0x6E69);
			pokes(_ERROR_0002._ERROR_0004, 0x408, 0x454D);
			pokes(_ERROR_0002._ERROR_0004, 0x40A, 0x553E);
			pokes(_ERROR_0002._ERROR_0004, 0x40C, 0x3E3E);
			pokes(_ERROR_0002._ERROR_0004, 0x40E, 0x3E3E);
			pokes(_ERROR_0002._ERROR_0004, 0x410, 0x3E3E);
			pokes(_ERROR_0002._ERROR_0004, 0x412, 0x3E3E);
			pokes(_ERROR_0002._ERROR_0004, 0x1412, 0x210);
		}
		commun.ENDEMU = peeks(_ERROR_0002._ERROR_0004 , 0x1412);
		Set_Po_Text($CURRENT, "KURSOR1", "");
		Set_Po_Text($CURRENT, "A_9", "A");
		Set_Po_Text($CURRENT, "B_9", "OK");
		Set_Po_Text($CURRENT, "C_9", "C");
		Call_Script("commun:L1_Index", 0x6B);
		Set_Po_Text($CURRENT, "TEXT9", _ERROR_0002._ERROR_003A);
		Call_Script("commun:L1_Index", 0x6C);
		Set_Po_Text($CURRENT, "TEXT10", _ERROR_0002._ERROR_003A);
		Set_Po_Text($CURRENT, "CODE00", "");
		Set_Po_Text($CURRENT, "CODE01", "");
		Set_Po_Text($CURRENT, "CODE02", "");
		Set_Po_Text($CURRENT, "CODE03", "");
		Set_Po_Text($CURRENT, "CODE04", "");
		Set_Po_Text($CURRENT, "CODE05", "");
		Set_Po_Text($CURRENT, "CODE06", "");
		Set_Po_Text($CURRENT, "CODE07", "");
		Set_Po_Text($CURRENT, "CODE08", "");
		Set_Po_Text($CURRENT, "CODE09", "");
		Set_Po_Text($CURRENT, "CODE0A", "");
		Set_Po_Text($CURRENT, "CODE0B", "");
		Set_Po_Text($CURRENT, "CODE0C", "");
		Set_Po_Text($CURRENT, "CODE0D", "");
		Set_Po_Text($CURRENT, "CODE0E", "");
		Set_Po_Text($CURRENT, "CODE0F", "");
		Set_Po_Text($CURRENT, "CODE10", "");
		Set_Po_Text($CURRENT, "CODE11", "");
		Set_Po_Text($CURRENT, "KEY00", "");
		Set_Po_Text($CURRENT, "KEY01", "");
		Set_Po_Text($CURRENT, "KEY02", "");
		Set_Po_Text($CURRENT, "KEY03", "");
		Set_Po_Text($CURRENT, "KEY04", "");
		Set_Po_Text($CURRENT, "KEY05", "");
		Set_Po_Text($CURRENT, "KEY06", "");
		Set_Po_Text($CURRENT, "KEY07", "");
		Set_Po_Text($CURRENT, "KEY08", "");
		Set_Po_Text($CURRENT, "KEY09", "");
		Set_Po_Text($CURRENT, "KEY0A", "");
		Set_Po_Text($CURRENT, "KEY0B", "");
		Set_Po_Text($CURRENT, "KEY0C", "");
		Set_Po_Text($CURRENT, "KEY0D", "");
		Set_Po_Text($CURRENT, "KEY0E", "");
		Set_Po_Text($CURRENT, "KEY0F", "");
		Set_Po_Text($CURRENT, "KEY10", "");
		Set_Po_Text($CURRENT, "KEY11", "");
		if((commun.SYSTEM == 0x10)) {
			commun.TEMP2 = "SECA";
		}
		else {
			if((commun.SYSTEM == 0x20)) {
				commun.TEMP2 = "VIACCESS";
			}
			else {
				if((commun.SYSTEM == 0x30)) {
					commun.TEMP2 = "NAGRA";
				}
				else {
					if((commun.SYSTEM == 0x40)) {
						commun.TEMP2 = "IRDETO";
					}
					else {
						if((commun.SYSTEM == 0x50)) {
							commun.TEMP2 = "CONAX";
						}
					}
				}
			}
		}
		Set_Po_Text($CURRENT, "SYSTEM", ((" " + commun.TEMP2) + " "));
		Set_Po_Text($CURRENT, "NRPROV", ((" " + itos(commun.NRPROV)) + " "));
		if((commun.SYSTEM == 0x10)) {
			Set_Po_Text($CURRENT, "CODE04", "01");
			Set_Po_Text($CURRENT, "CODE06", "0C");
			Set_Po_Text($CURRENT, "CODE08", "0D");
			Set_Po_Text($CURRENT, "CODE0A", "0E");
			Set_Po_Text($CURRENT, "CODE05", "11");
			Set_Po_Text($CURRENT, "CODE07", "1C");
			Set_Po_Text($CURRENT, "CODE09", "1D");
			Set_Po_Text($CURRENT, "CODE0B", "1E");
			commun.ID_PROV = "";
			for(commun.TEMP = 0x0; commun.TEMP <= 0x1; commun.TEMP += 0x1) {
				commun.TEMP1 = peek(_ERROR_0003._ERROR_001A,(((commun.NRPROV - 0x1) * 0x2) + commun.TEMP));
				Call_Script("basic:hex", commun.TEMP1, 0x2, &commun.TEMPKEY);
				commun.ID_PROV += commun.TEMPKEY;
			}
			Set_Po_Text($CURRENT, "IDPROV", commun.ID_PROV);
			commun.PPUA = "";
			for(commun.TEMP = 0x0; commun.TEMP <= 0x3; commun.TEMP += 0x1) {
				commun.TEMP1 = peek(_ERROR_0003._ERROR_001A,(0x10 + (((commun.NRPROV - 0x1) * 0x4) + commun.TEMP)));
				Call_Script("basic:hex", commun.TEMP1, 0x2, &commun.TEMPKEY);
				commun.PPUA += commun.TEMPKEY;
			}
			Set_Po_Text($CURRENT, "PPUA", commun.PPUA);
			for(commun.TEMP = 0x210; commun.TEMP <= commun.ENDEMU; commun.TEMP += 0xB) {
				commun.TEMP1 = peek(_ERROR_0003._ERROR_001A,commun.TEMP);
				commun.TEMP3 = peek(_ERROR_0003._ERROR_001A,(commun.TEMP + 0x1));
				if(((commun.TEMP1 == 0x10) && (commun.TEMP3 == commun.NRPROV))) {
					commun.TEMP1 = peek(_ERROR_0003._ERROR_001A,(commun.TEMP + 0x2));
					Call_Script("basic:hex", commun.TEMP1, 0x2, &commun.NRKEY);
					commun.KEY = "";
					for(commun.TEMP3 = 0x0; commun.TEMP3 <= 0x7; commun.TEMP3 += 0x1) {
						commun.TEMP1 = peek(_ERROR_0003._ERROR_001A,((commun.TEMP + 0x3) + commun.TEMP3));
						Call_Script("basic:hex", commun.TEMP1, 0x2, &commun.TEMPKEY);
						commun.KEY += commun.TEMPKEY;
					}
					if((commun.NRKEY == "01")) {
						Set_Po_Text($CURRENT, "KEY04", commun.KEY);
					}
					else {
						if((commun.NRKEY == "0C")) {
							Set_Po_Text($CURRENT, "KEY06", commun.KEY);
						}
						else {
							if((commun.NRKEY == "0D")) {
								Set_Po_Text($CURRENT, "KEY08", commun.KEY);
							}
							else {
								if((commun.NRKEY == "0E")) {
									Set_Po_Text($CURRENT, "KEY0A", commun.KEY);
								}
								else {
									if((commun.NRKEY == "11")) {
										Set_Po_Text($CURRENT, "KEY05", commun.KEY);
									}
									else {
										if((commun.NRKEY == "1C")) {
											Set_Po_Text($CURRENT, "KEY07", commun.KEY);
										}
										else {
											if((commun.NRKEY == "1D")) {
												Set_Po_Text($CURRENT, "KEY09", commun.KEY);
											}
											else {
												if((commun.NRKEY == "1E")) {
													Set_Po_Text($CURRENT, "KEY0B", commun.KEY);
												}
											}
										}
									}
								}
							}
						}
					}
				}
			}
			Set_Panel_Page($CURRENT, 0x1);
		}
		if((commun.SYSTEM == 0x20)) {
			Get_Po_Text($CURRENT, "TMORE", &_ERROR_0001._ERROR_00C1);
			if((_ERROR_0001._ERROR_00C1 == "1X")) {
				Set_Po_Text($CURRENT, "CODE00", "00");
				Set_Po_Text($CURRENT, "CODE02", "01");
				Set_Po_Text($CURRENT, "CODE04", "02");
				Set_Po_Text($CURRENT, "CODE06", "03");
				Set_Po_Text($CURRENT, "CODE08", "04");
				Set_Po_Text($CURRENT, "CODE0A", "05");
				Set_Po_Text($CURRENT, "CODE0C", "06");
				Set_Po_Text($CURRENT, "CODE0E", "07");
				Set_Po_Text($CURRENT, "CODE01", "08");
				Set_Po_Text($CURRENT, "CODE03", "09");
				Set_Po_Text($CURRENT, "CODE05", "0A");
				Set_Po_Text($CURRENT, "CODE07", "0B");
				Set_Po_Text($CURRENT, "CODE09", "0C");
				Set_Po_Text($CURRENT, "CODE0B", "0D");
				Set_Po_Text($CURRENT, "CODE0D", "0E");
				Set_Po_Text($CURRENT, "CODE0F", "0F");
			}
			else {
				Set_Po_Text($CURRENT, "CODE00", "10");
				Set_Po_Text($CURRENT, "CODE02", "11");
				Set_Po_Text($CURRENT, "CODE04", "12");
				Set_Po_Text($CURRENT, "CODE06", "13");
				Set_Po_Text($CURRENT, "CODE08", "14");
				Set_Po_Text($CURRENT, "CODE0A", "15");
				Set_Po_Text($CURRENT, "CODE0C", "16");
				Set_Po_Text($CURRENT, "CODE0E", "17");
				Set_Po_Text($CURRENT, "CODE01", "18");
				Set_Po_Text($CURRENT, "CODE03", "19");
				Set_Po_Text($CURRENT, "CODE05", "1A");
				Set_Po_Text($CURRENT, "CODE07", "1B");
				Set_Po_Text($CURRENT, "CODE09", "1C");
				Set_Po_Text($CURRENT, "CODE0B", "1D");
				Set_Po_Text($CURRENT, "CODE0D", "1E");
				Set_Po_Text($CURRENT, "CODE0F", "1F");
			}
			commun.ID_PROV = "";
			for(commun.TEMP = 0x0; commun.TEMP <= 0x2; commun.TEMP += 0x1) {
				commun.TEMP1 = peek(_ERROR_0003._ERROR_001A,((((commun.NRPROV - 0x1) * 0x3) + commun.TEMP) + 0x30));
				Call_Script("basic:hex", commun.TEMP1, 0x2, &commun.TEMPKEY);
				commun.ID_PROV += commun.TEMPKEY;
			}
			Set_Po_Text($CURRENT, "IDPROV_VIA", commun.ID_PROV);
			commun.PPUA = "";
			for(commun.TEMP = 0x0; commun.TEMP <= 0x3; commun.TEMP += 0x1) {
				commun.TEMP1 = peek(_ERROR_0003._ERROR_001A,((((commun.NRPROV - 0x1) * 0x4) + commun.TEMP) + 0x6C));
				Call_Script("basic:hex", commun.TEMP1, 0x2, &commun.TEMPKEY);
				commun.PPUA += commun.TEMPKEY;
			}
			Set_Po_Text($CURRENT, "PPUA_VIA", commun.PPUA);
			commun.UA = "";
			for(commun.TEMP = 0x0; commun.TEMP <= 0x4; commun.TEMP += 0x1) {
				commun.TEMP1 = peek(_ERROR_0003._ERROR_001A,((((commun.NRPROV - 0x1) * 0x5) + commun.TEMP) + 0xBC));
				Call_Script("basic:hex", commun.TEMP1, 0x2, &commun.TEMPKEY);
				commun.UA += commun.TEMPKEY;
			}
			Set_Po_Text($CURRENT, "UA_VIA", commun.UA);
			for(commun.TEMP = 0x210; commun.TEMP <= commun.ENDEMU; commun.TEMP += 0xB) {
				commun.TEMP1 = peek(_ERROR_0003._ERROR_001A,commun.TEMP);
				commun.TEMP3 = peek(_ERROR_0003._ERROR_001A,(commun.TEMP + 0x1));
				if(((commun.TEMP1 == 0x20) && (commun.TEMP3 == commun.NRPROV))) {
					commun.TEMP4 = peek(_ERROR_0003._ERROR_001A,(commun.TEMP + 0x2));
					Call_Script("basic:hex", commun.TEMP4, 0x2, &commun.NRKEY);
					commun.KEY = "";
					for(commun.TEMP3 = 0x0; commun.TEMP3 <= 0x7; commun.TEMP3 += 0x1) {
						commun.TEMP1 = peek(_ERROR_0003._ERROR_001A,((commun.TEMP + 0x3) + commun.TEMP3));
						Call_Script("basic:hex", commun.TEMP1, 0x2, &commun.TEMPKEY);
						commun.KEY += commun.TEMPKEY;
					}
					if(((_ERROR_0001._ERROR_00C1 == "1X") && (commun.TEMP4 < 0x10))) {
						if((commun.TEMP4 < 0x8)) {
							Call_Script("basic:hex", (commun.TEMP4 * 0x2), 0x2, &commun.TEMP2);
							Set_Po_Text($CURRENT, ("KEY" + commun.TEMP2), commun.KEY);
						}
						else {
							Call_Script("basic:hex", (((commun.TEMP4 - 0x7) * 0x2) - 0x1), 0x2, &commun.TEMP2);
							Set_Po_Text($CURRENT, ("KEY" + commun.TEMP2), commun.KEY);
						}
					}
					if(((_ERROR_0001._ERROR_00C1 == "0X") && (commun.TEMP4 > 0xF))) {
						commun.TEMP4 &= 0xF;
						if((commun.TEMP4 < 0x8)) {
							Call_Script("basic:hex", (commun.TEMP4 * 0x2), 0x2, &commun.TEMP2);
							Set_Po_Text($CURRENT, ("KEY" + commun.TEMP2), commun.KEY);
						}
						else {
							Call_Script("basic:hex", (((commun.TEMP4 - 0x7) * 0x2) - 0x1), 0x2, &commun.TEMP2);
							Set_Po_Text($CURRENT, ("KEY" + commun.TEMP2), commun.KEY);
						}
					}
				}
			}
			Set_Panel_Page($CURRENT, 0x2);
			Set_Po_Att($CURRENT, "TMORE", $INVISIBILITY, $OFF);
			Set_Po_Att($CURRENT, "CMORE", $INVISIBILITY, $OFF);
		}
		if((commun.SYSTEM == 0x30)) {
			Set_Po_Text($CURRENT, "CODE04", "00");
			Set_Po_Text($CURRENT, "CODE06", "01");
			commun.ID_PROV = "";
			for(commun.TEMP = 0x0; commun.TEMP <= 0x1; commun.TEMP += 0x1) {
				commun.TEMP1 = peek(_ERROR_0003._ERROR_001A,((((commun.NRPROV - 0x1) * 0x2) + commun.TEMP) + 0x120));
				Call_Script("basic:hex", commun.TEMP1, 0x2, &commun.TEMPKEY);
				commun.ID_PROV += commun.TEMPKEY;
			}
			Set_Po_Text($CURRENT, "IDPROV_NAG", commun.ID_PROV);
			for(commun.TEMP = 0x210; commun.TEMP <= commun.ENDEMU; commun.TEMP += 0xB) {
				commun.TEMP1 = peek(_ERROR_0003._ERROR_001A,commun.TEMP);
				commun.TEMP3 = peek(_ERROR_0003._ERROR_001A,(commun.TEMP + 0x1));
				if(((commun.TEMP1 == 0x30) && (commun.TEMP3 == commun.NRPROV))) {
					commun.TEMP1 = peek(_ERROR_0003._ERROR_001A,(commun.TEMP + 0x2));
					Call_Script("basic:hex", commun.TEMP1, 0x2, &commun.NRKEY);
					commun.KEY = "";
					for(commun.TEMP3 = 0x0; commun.TEMP3 <= 0x7; commun.TEMP3 += 0x1) {
						commun.TEMP1 = peek(_ERROR_0003._ERROR_001A,((commun.TEMP + 0x3) + commun.TEMP3));
						Call_Script("basic:hex", commun.TEMP1, 0x2, &commun.TEMPKEY);
						commun.KEY += commun.TEMPKEY;
					}
					if((commun.NRKEY == "00")) {
						Set_Po_Text($CURRENT, "KEY04", commun.KEY);
					}
					else {
						if((commun.NRKEY == "01")) {
							Set_Po_Text($CURRENT, "KEY06", commun.KEY);
						}
						else {
							if((commun.NRKEY == "FF")) {
								Set_Po_Text($CURRENT, "KEY0A", commun.KEY);
							}
						}
					}
				}
			}
			Set_Panel_Page($CURRENT, 0x3);
		}
		if((commun.SYSTEM == 0x40)) {
			Set_Po_Text($CURRENT, "CODE00", "00");
			Set_Po_Text($CURRENT, "CODE02", "02");
			Set_Po_Text($CURRENT, "CODE04", "04");
			Set_Po_Text($CURRENT, "CODE06", "06");
			Set_Po_Text($CURRENT, "CODE08", "08");
			Set_Po_Text($CURRENT, "CODE0A", "0A");
			Set_Po_Text($CURRENT, "CODE0C", "0C");
			Set_Po_Text($CURRENT, "CODE0E", "0E");
			Set_Po_Text($CURRENT, "CODE10", "10");
			Set_Po_Text($CURRENT, "CODE01", "01");
			Set_Po_Text($CURRENT, "CODE03", "03");
			Set_Po_Text($CURRENT, "CODE05", "05");
			Set_Po_Text($CURRENT, "CODE07", "07");
			Set_Po_Text($CURRENT, "CODE09", "09");
			Set_Po_Text($CURRENT, "CODE0B", "0B");
			Set_Po_Text($CURRENT, "CODE0D", "0D");
			Set_Po_Text($CURRENT, "CODE0F", "0F");
			Set_Po_Text($CURRENT, "CODE11", "11");
			commun.ID_PROV = "";
			for(commun.TEMP = 0x0; commun.TEMP <= 0x2; commun.TEMP += 0x1) {
				commun.TEMP1 = peek(_ERROR_0003._ERROR_001A,((((commun.NRPROV - 0x1) * 0x3) + commun.TEMP) + 0x12A));
				Call_Script("basic:hex", commun.TEMP1, 0x2, &commun.TEMPKEY);
				commun.ID_PROV += commun.TEMPKEY;
			}
			Set_Po_Text($CURRENT, "IDPROV_IRD", commun.ID_PROV);
			commun.UA = "";
			for(commun.TEMP = 0x0; commun.TEMP <= 0x2; commun.TEMP += 0x1) {
				commun.TEMP1 = peek(_ERROR_0003._ERROR_001A,((((commun.NRPROV - 0x1) * 0x3) + commun.TEMP) + 0x145));
				Call_Script("basic:hex", commun.TEMP1, 0x2, &commun.TEMPKEY);
				commun.UA += commun.TEMPKEY;
			}
			Set_Po_Text($CURRENT, "HEX_IRD", commun.UA);
			commun.HMK = "";
			for(commun.TEMP = 0x0; commun.TEMP <= 0x9; commun.TEMP += 0x1) {
				commun.TEMP1 = peek(_ERROR_0003._ERROR_001A,((((commun.NRPROV - 0x1) * 0xA) + commun.TEMP) + 0x160));
				Call_Script("basic:hex", commun.TEMP1, 0x2, &commun.TEMPKEY);
				commun.HMK += commun.TEMPKEY;
			}
			Set_Po_Text($CURRENT, "HMK_IRD", commun.HMK);
			commun.PMK = "";
			for(commun.TEMP = 0x0; commun.TEMP <= 0x7; commun.TEMP += 0x1) {
				commun.TEMP1 = peek(_ERROR_0003._ERROR_001A,((((commun.NRPROV - 0x1) * 0x8) + commun.TEMP) + 0x1BA));
				Call_Script("basic:hex", commun.TEMP1, 0x2, &commun.TEMPKEY);
				commun.PMK += commun.TEMPKEY;
			}
			Set_Po_Text($CURRENT, "PMK_IRD", commun.PMK);
			for(commun.TEMP = 0x210; commun.TEMP <= commun.ENDEMU; commun.TEMP += 0xB) {
				commun.TEMP1 = peek(_ERROR_0003._ERROR_001A,commun.TEMP);
				commun.TEMP3 = peek(_ERROR_0003._ERROR_001A,(commun.TEMP + 0x1));
				if(((commun.TEMP1 == 0x40) && (commun.TEMP3 == commun.NRPROV))) {
					commun.TEMP1 = peek(_ERROR_0003._ERROR_001A,(commun.TEMP + 0x2));
					Call_Script("basic:hex", commun.TEMP1, 0x2, &commun.NRKEY);
					commun.KEY = "";
					for(commun.TEMP3 = 0x0; commun.TEMP3 <= 0x7; commun.TEMP3 += 0x1) {
						commun.TEMP1 = peek(_ERROR_0003._ERROR_001A,((commun.TEMP + 0x3) + commun.TEMP3));
						Call_Script("basic:hex", commun.TEMP1, 0x2, &commun.TEMPKEY);
						commun.KEY += commun.TEMPKEY;
					}
					Set_Po_Text($CURRENT, ("KEY" + commun.NRKEY), commun.KEY);
				}
			}
			Set_Panel_Page($CURRENT, 0x4);
		}
		if((commun.SYSTEM == 0x50)) {
			commun.TEMP1 = peek(_ERROR_0003._ERROR_001A,0x20A);
			if((commun.TEMP1 == 0x1)) {
				commun.TEMP2 = "On";
			}
			else {
				commun.TEMP2 = "Off";
			}
			Set_Po_Text($CURRENT, "SWICHCX", ((" " + commun.TEMP2) + " "));
			commun.ID_PROV = "";
			commun.TEMP1 = peek(_ERROR_0003._ERROR_001A,((commun.NRPROV - 0x1) + 0xEF4));
			Call_Script("basic:hex", commun.TEMP1, 0x2, &commun.ID_PROV);
			Set_Po_Text($CURRENT, "INDEX_CX", commun.ID_PROV);
			for(commun.TEMP = 0x0; commun.TEMP <= 0x38; commun.TEMP += 0x8) {
				commun.KEY = "";
				for(commun.TEMP3 = 0x0; commun.TEMP3 <= 0x7; commun.TEMP3 += 0x1) {
					commun.TEMP1 = peek(_ERROR_0003._ERROR_001A,(((((commun.NRPROV - 0x1) * 0x40) + 0xEF6) + commun.TEMP) + commun.TEMP3));
					Call_Script("basic:hex", commun.TEMP1, 0x2, &commun.TEMPKEY);
					commun.KEY += commun.TEMPKEY;
				}
				Call_Script("basic:hex", ((commun.TEMP : 0x8) * 0x2), 0x2, &commun.TEMP2);
				Set_Po_Text($CURRENT, ("KEY" + commun.TEMP2), commun.KEY);
			}
			for(commun.TEMP = 0x0; commun.TEMP <= 0x38; commun.TEMP += 0x8) {
				commun.KEY = "";
				for(commun.TEMP3 = 0x0; commun.TEMP3 <= 0x7; commun.TEMP3 += 0x1) {
					commun.TEMP1 = peek(_ERROR_0003._ERROR_001A,(((((commun.NRPROV - 0x1) * 0x40) + 0xF76) + commun.TEMP) + commun.TEMP3));
					Call_Script("basic:hex", commun.TEMP1, 0x2, &commun.TEMPKEY);
					commun.KEY += commun.TEMPKEY;
				}
				Call_Script("basic:hex", (((commun.TEMP : 0x8) * 0x2) + 0x1), 0x2, &commun.TEMP2);
				Set_Po_Text($CURRENT, ("KEY" + commun.TEMP2), commun.KEY);
			}
			Set_Panel_Page($CURRENT, 0x6);
		}
		commun.IA = 0x0;
	}
	if((commun.IA == 0xC)) {
		Flash_File_Write("TPA", "TPA", _ERROR_0002._ERROR_0004, 0x2414, &_ERROR_0001._ERROR_004B);
		commun.IA = 0x0;
	}
	return;
} // End     pio\install\p_emu.cpi


#Script p_emu1.cpi(int commun.IA)
{
// Source  pio\install\p_emu1.cpi
#Volume pio
#Module install
#CRC32  2FC56E64
#ENDS   0

Default commun
Public  commun
Public  basic
Public  global
Public  dvb
	Write_Trace($TraceMessCat_01, "install\p_emu1.cpi");
	if((commun.IA == 0xD)) {
		Get_Po_Focus($CURRENT, &commun.FOCUS1);
		commun.EVT_C = 0x0;
		commun.KURSOR = 0x1;
		if((((commun.FOCUS1 != "SYSTEM") && (commun.FOCUS1 != "NRPROV")) && (commun.FOCUS1 != "SWICHCX"))) {
			Set_Po_Text($CURRENT, "A_9", "EPG");
			Set_Po_Text($CURRENT, "B_9", "OK");
			Set_Po_Text($CURRENT, "C_9", "Serv");
			Call_Script("commun:L1_Index", 0x6D);
			Set_Po_Text($CURRENT, "TEXT9", _ERROR_0002._ERROR_003A);
			Call_Script("commun:L1_Index", 0x73);
			Set_Po_Text($CURRENT, "TEXT10", _ERROR_0002._ERROR_003A);
			if((commun.SYSTEM == 0x10)) {
				if((commun.FOCUS1 == "IDPROV")) {
					commun.LEN = 0x4;
					commun.ADRES = ((commun.NRPROV - 0x1) * 0x2);
					commun.TEMP1 = peeks(_ERROR_0003._ERROR_001A , commun.ADRES);
					Call_Script("basic:hex", commun.TEMP1, 0x4, &commun.KEY);
				}
				else {
					if((commun.FOCUS1 == "PPUA")) {
						commun.LEN = 0x8;
						commun.ADRES = (((commun.NRPROV - 0x1) * 0x4) + 0x10);
						commun.KEY = "";
						for(commun.TEMP3 = 0x0; commun.TEMP3 <= 0x3; commun.TEMP3 += 0x1) {
							commun.TEMP1 = peek(_ERROR_0003._ERROR_001A,(commun.ADRES + commun.TEMP3));
							Call_Script("basic:hex", commun.TEMP1, 0x2, &commun.TEMPKEY);
							commun.KEY += commun.TEMPKEY;
						}
					}
					else {
						if((left(commun.FOCUS1, 0x3) == "KEY")) {
							commun.LEN = 0x10;
							commun.KEY = "";
							Call_Script("basic:hex", commun.NRPROV, 0x2, &commun.TEMP2);
							if((right(commun.FOCUS1, 0x2) == "04")) {
								commun.HEAD = (("10" + commun.TEMP2) + "01");
							}
							else {
								if((right(commun.FOCUS1, 0x2) == "06")) {
									commun.HEAD = (("10" + commun.TEMP2) + "0C");
								}
								else {
									if((right(commun.FOCUS1, 0x2) == "08")) {
										commun.HEAD = (("10" + commun.TEMP2) + "0D");
									}
									else {
										if((right(commun.FOCUS1, 0x2) == "0A")) {
											commun.HEAD = (("10" + commun.TEMP2) + "0E");
										}
										else {
											if((right(commun.FOCUS1, 0x2) == "05")) {
												commun.HEAD = (("10" + commun.TEMP2) + "11");
											}
											else {
												if((right(commun.FOCUS1, 0x2) == "07")) {
													commun.HEAD = (("10" + commun.TEMP2) + "1C");
												}
												else {
													if((right(commun.FOCUS1, 0x2) == "09")) {
														commun.HEAD = (("10" + commun.TEMP2) + "1D");
													}
													else {
														if((right(commun.FOCUS1, 0x2) == "0B")) {
															commun.HEAD = (("10" + commun.TEMP2) + "1E");
														}
													}
												}
											}
										}
									}
								}
							}
							for(commun.TEMP = 0x210; commun.TEMP <= commun.ENDEMU; commun.TEMP += 0xB) {
								commun.TEMP1 = peek(_ERROR_0003._ERROR_001A,commun.TEMP);
								commun.TEMP3 = peek(_ERROR_0003._ERROR_001A,(commun.TEMP + 0x1));
								if(((commun.TEMP1 == 0x10) && (commun.TEMP3 == commun.NRPROV))) {
									commun.TEMP1 = peek(_ERROR_0003._ERROR_001A,(commun.TEMP + 0x2));
									Call_Script("basic:hex", commun.TEMP1, 0x2, &commun.NRKEY);
									if((commun.NRKEY == right(commun.HEAD, 0x2))) {
										commun.ADRES = commun.TEMP;
										for(commun.TEMP3 = 0x0; commun.TEMP3 <= 0x7; commun.TEMP3 += 0x1) {
											commun.TEMP1 = peek(_ERROR_0003._ERROR_001A,((commun.TEMP + 0x3) + commun.TEMP3));
											Call_Script("basic:hex", commun.TEMP1, 0x2, &commun.TEMPKEY);
											commun.KEY += commun.TEMPKEY;
										}
									}
								}
							}
							if((commun.KEY == "")) {
								commun.ADRES = peeks(_ERROR_0003._ERROR_001A , 0xFFE);
							}
						}
					}
				}
			}
			if((commun.SYSTEM == 0x20)) {
				Set_Po_Att($CURRENT, "TMORE", $INVISIBILITY, $ON);
				Set_Po_Att($CURRENT, "CMORE", $INVISIBILITY, $ON);
				if((commun.FOCUS1 == "IDPROV_VIA")) {
					commun.LEN = 0x6;
					commun.ADRES = (((commun.NRPROV - 0x1) * 0x3) + 0x30);
					commun.KEY = "";
					for(commun.TEMP = 0x0; commun.TEMP <= 0x2; commun.TEMP += 0x1) {
						commun.TEMP1 = peek(_ERROR_0003._ERROR_001A,(commun.ADRES + commun.TEMP));
						Call_Script("basic:hex", commun.TEMP1, 0x2, &commun.TEMPKEY);
						commun.KEY += commun.TEMPKEY;
					}
				}
				else {
					if((commun.FOCUS1 == "PPUA_VIA")) {
						commun.LEN = 0x8;
						commun.ADRES = (((commun.NRPROV - 0x1) * 0x4) + 0x6C);
						commun.KEY = "";
						for(commun.TEMP = 0x0; commun.TEMP <= 0x3; commun.TEMP += 0x1) {
							commun.TEMP1 = peek(_ERROR_0003._ERROR_001A,(commun.ADRES + commun.TEMP));
							Call_Script("basic:hex", commun.TEMP1, 0x2, &commun.TEMPKEY);
							commun.KEY += commun.TEMPKEY;
						}
					}
					else {
						if((commun.FOCUS1 == "UA_VIA")) {
							commun.LEN = 0xA;
							commun.ADRES = (((commun.NRPROV - 0x1) * 0x5) + 0xBC);
							commun.KEY = "";
							for(commun.TEMP = 0x0; commun.TEMP <= 0x4; commun.TEMP += 0x1) {
								commun.TEMP1 = peek(_ERROR_0003._ERROR_001A,(commun.ADRES + commun.TEMP));
								Call_Script("basic:hex", commun.TEMP1, 0x2, &commun.TEMPKEY);
								commun.KEY += commun.TEMPKEY;
							}
						}
						else {
							if((left(commun.FOCUS1, 0x3) == "KEY")) {
								commun.LEN = 0x10;
								commun.KEY = "";
								Call_Script("basic:hex", commun.NRPROV, 0x2, &commun.TEMP2);
								commun.HEAD = ("20" + commun.TEMP2);
								commun.TEMP4 = HexToInt(right(commun.FOCUS1, 0x2));
								if((commun.TEMP4 & 0x1)) {
									Call_Script("basic:hex", (((commun.TEMP4 + 0x1) : 0x2) + 0x7), 0x2, &commun.TEMP2);
								}
								else {
									Call_Script("basic:hex", (commun.TEMP4 : 0x2), 0x2, &commun.TEMP2);
								}
								if((_ERROR_0001._ERROR_00C1 == "0X")) {
									commun.TEMP2 = ("1" + right(commun.TEMP2, 0x1));
								}
								commun.HEAD += commun.TEMP2;
								for(commun.TEMP = 0x210; commun.TEMP <= commun.ENDEMU; commun.TEMP += 0xB) {
									commun.TEMP1 = peek(_ERROR_0003._ERROR_001A,commun.TEMP);
									commun.TEMP3 = peek(_ERROR_0003._ERROR_001A,(commun.TEMP + 0x1));
									if(((commun.TEMP1 == 0x20) && (commun.TEMP3 == commun.NRPROV))) {
										commun.TEMP1 = peek(_ERROR_0003._ERROR_001A,(commun.TEMP + 0x2));
										Call_Script("basic:hex", commun.TEMP1, 0x2, &commun.NRKEY);
										if((commun.NRKEY == right(commun.HEAD, 0x2))) {
											commun.ADRES = commun.TEMP;
											for(commun.TEMP3 = 0x0; commun.TEMP3 <= 0x7; commun.TEMP3 += 0x1) {
												commun.TEMP1 = peek(_ERROR_0003._ERROR_001A,((commun.TEMP + 0x3) + commun.TEMP3));
												Call_Script("basic:hex", commun.TEMP1, 0x2, &commun.TEMPKEY);
												commun.KEY += commun.TEMPKEY;
											}
										}
									}
								}
								if((commun.KEY == "")) {
									commun.ADRES = peeks(_ERROR_0003._ERROR_001A , 0xFFE);
								}
							}
						}
					}
				}
			}
			if((commun.SYSTEM == 0x30)) {
				if((commun.FOCUS1 == "IDPROV_NAG")) {
					commun.LEN = 0x4;
					commun.ADRES = (((commun.NRPROV - 0x1) * 0x2) + 0x120);
					commun.KEY = "";
					for(commun.TEMP = 0x0; commun.TEMP <= 0x1; commun.TEMP += 0x1) {
						commun.TEMP1 = peek(_ERROR_0003._ERROR_001A,(commun.ADRES + commun.TEMP));
						Call_Script("basic:hex", commun.TEMP1, 0x2, &commun.TEMPKEY);
						commun.KEY += commun.TEMPKEY;
					}
				}
				else {
					if((left(commun.FOCUS1, 0x3) == "KEY")) {
						commun.LEN = 0x10;
						commun.KEY = "";
						Call_Script("basic:hex", commun.NRPROV, 0x2, &commun.TEMP2);
						if((right(commun.FOCUS1, 0x2) == "04")) {
							commun.HEAD = (("30" + commun.TEMP2) + "00");
						}
						else {
							if((right(commun.FOCUS1, 0x2) == "06")) {
								commun.HEAD = (("30" + commun.TEMP2) + "01");
							}
							else {
								if((right(commun.FOCUS1, 0x2) == "0A")) {
									commun.HEAD = (("30" + commun.TEMP2) + "FF");
								}
							}
						}
						for(commun.TEMP = 0x210; commun.TEMP <= commun.ENDEMU; commun.TEMP += 0xB) {
							commun.TEMP1 = peek(_ERROR_0003._ERROR_001A,commun.TEMP);
							commun.TEMP3 = peek(_ERROR_0003._ERROR_001A,(commun.TEMP + 0x1));
							if(((commun.TEMP1 == 0x30) && (commun.TEMP3 == commun.NRPROV))) {
								commun.TEMP1 = peek(_ERROR_0003._ERROR_001A,(commun.TEMP + 0x2));
								Call_Script("basic:hex", commun.TEMP1, 0x2, &commun.NRKEY);
								if((commun.NRKEY == right(commun.HEAD, 0x2))) {
									commun.ADRES = commun.TEMP;
									for(commun.TEMP3 = 0x0; commun.TEMP3 <= 0x7; commun.TEMP3 += 0x1) {
										commun.TEMP1 = peek(_ERROR_0003._ERROR_001A,((commun.TEMP + 0x3) + commun.TEMP3));
										Call_Script("basic:hex", commun.TEMP1, 0x2, &commun.TEMPKEY);
										commun.KEY += commun.TEMPKEY;
									}
								}
							}
						}
						if((commun.KEY == "")) {
							commun.ADRES = peeks(_ERROR_0003._ERROR_001A , 0xFFE);
						}
					}
				}
			}
			if((commun.SYSTEM == 0x40)) {
				if((commun.FOCUS1 == "IDPROV_IRD")) {
					commun.LEN = 0x6;
					commun.ADRES = (((commun.NRPROV - 0x1) * 0x3) + 0x12A);
					commun.KEY = "";
					for(commun.TEMP = 0x0; commun.TEMP <= 0x2; commun.TEMP += 0x1) {
						commun.TEMP1 = peek(_ERROR_0003._ERROR_001A,(commun.ADRES + commun.TEMP));
						Call_Script("basic:hex", commun.TEMP1, 0x2, &commun.TEMPKEY);
						commun.KEY += commun.TEMPKEY;
					}
				}
				else {
					if((commun.FOCUS1 == "HEX_IRD")) {
						commun.LEN = 0x6;
						commun.ADRES = (((commun.NRPROV - 0x1) * 0x3) + 0x145);
						commun.KEY = "";
						for(commun.TEMP = 0x0; commun.TEMP <= 0x2; commun.TEMP += 0x1) {
							commun.TEMP1 = peek(_ERROR_0003._ERROR_001A,(commun.ADRES + commun.TEMP));
							Call_Script("basic:hex", commun.TEMP1, 0x2, &commun.TEMPKEY);
							commun.KEY += commun.TEMPKEY;
						}
					}
					else {
						if((commun.FOCUS1 == "HMK_IRD")) {
							commun.LEN = 0x14;
							commun.ADRES = (((commun.NRPROV - 0x1) * 0xA) + 0x160);
							commun.KEY = "";
							for(commun.TEMP = 0x0; commun.TEMP <= 0x9; commun.TEMP += 0x1) {
								commun.TEMP1 = peek(_ERROR_0003._ERROR_001A,(commun.ADRES + commun.TEMP));
								Call_Script("basic:hex", commun.TEMP1, 0x2, &commun.TEMPKEY);
								commun.KEY += commun.TEMPKEY;
							}
						}
						else {
							if((commun.FOCUS1 == "PMK_IRD")) {
								commun.LEN = 0x10;
								commun.ADRES = (((commun.NRPROV - 0x1) * 0x8) + 0x1BA);
								commun.KEY = "";
								for(commun.TEMP = 0x0; commun.TEMP <= 0x7; commun.TEMP += 0x1) {
									commun.TEMP1 = peek(_ERROR_0003._ERROR_001A,(commun.ADRES + commun.TEMP));
									Call_Script("basic:hex", commun.TEMP1, 0x2, &commun.TEMPKEY);
									commun.KEY += commun.TEMPKEY;
								}
							}
							else {
								if((left(commun.FOCUS1, 0x3) == "KEY")) {
									commun.LEN = 0x10;
									commun.KEY = "";
									Call_Script("basic:hex", commun.NRPROV, 0x2, &commun.TEMP2);
									commun.HEAD = (("40" + commun.TEMP2) + right(commun.FOCUS1, 0x2));
									for(commun.TEMP = 0x210; commun.TEMP <= commun.ENDEMU; commun.TEMP += 0xB) {
										commun.TEMP1 = peek(_ERROR_0003._ERROR_001A,commun.TEMP);
										commun.TEMP3 = peek(_ERROR_0003._ERROR_001A,(commun.TEMP + 0x1));
										if(((commun.TEMP1 == 0x40) && (commun.TEMP3 == commun.NRPROV))) {
											commun.TEMP1 = peek(_ERROR_0003._ERROR_001A,(commun.TEMP + 0x2));
											Call_Script("basic:hex", commun.TEMP1, 0x2, &commun.NRKEY);
											if((commun.NRKEY == right(commun.HEAD, 0x2))) {
												commun.ADRES = commun.TEMP;
												for(commun.TEMP3 = 0x0; commun.TEMP3 <= 0x7; commun.TEMP3 += 0x1) {
													commun.TEMP1 = peek(_ERROR_0003._ERROR_001A,((commun.TEMP + 0x3) + commun.TEMP3));
													Call_Script("basic:hex", commun.TEMP1, 0x2, &commun.TEMPKEY);
													commun.KEY += commun.TEMPKEY;
												}
											}
										}
									}
									if((commun.KEY == "")) {
										commun.ADRES = peeks(_ERROR_0003._ERROR_001A , 0xFFE);
									}
								}
							}
						}
					}
				}
			}
			if((commun.SYSTEM == 0x50)) {
				if((commun.FOCUS1 == "INDEX_CX")) {
					commun.LEN = 0x2;
					commun.ADRES = ((commun.NRPROV - 0x1) + 0xEF4);
					commun.KEY = "";
					commun.TEMP1 = peek(_ERROR_0003._ERROR_001A,commun.ADRES);
					Call_Script("basic:hex", commun.TEMP1, 0x2, &commun.TEMPKEY);
					commun.KEY = commun.TEMPKEY;
				}
				else {
					if((left(commun.FOCUS1, 0x3) == "KEY")) {
						commun.LEN = 0x10;
						commun.KEY = "";
						commun.TEMP4 = HexToInt(right(commun.FOCUS1, 0x2));
						if((commun.TEMP4 & 0x1)) {
							commun.TEMP1 = ((((commun.TEMP4 + 0x1) : 0x2) + 0x7) - 0x8);
							commun.ADRES = ((((commun.NRPROV - 0x1) * 0x40) + 0xF76) + (commun.TEMP1 * 0x8));
						}
						else {
							commun.TEMP1 = (commun.TEMP4 : 0x2);
							commun.ADRES = ((((commun.NRPROV - 0x1) * 0x40) + 0xEF6) + (commun.TEMP1 * 0x8));
						}
						for(commun.TEMP3 = 0x0; commun.TEMP3 <= 0x7; commun.TEMP3 += 0x1) {
							commun.TEMP1 = peek(_ERROR_0003._ERROR_001A,(commun.ADRES + commun.TEMP3));
							Call_Script("basic:hex", commun.TEMP1, 0x2, &commun.TEMPKEY);
							commun.KEY += commun.TEMPKEY;
						}
					}
				}
			}
			Call_Script("commun:L1_Index", 0x6F);
			Set_Po_Text($CURRENT, "KURSOR1", (_ERROR_0002._ERROR_003A + itos(commun.KURSOR)));
			while((((commun.EVT_C != $KEY_Ok) && (commun.EVT_C != $KEY_Prog)) && (commun.EVT_C != $KEY_Serv))) {
				Wait_Event($ev_keypress, $code_all, -1, &commun.ER);
				Get_On_Event_Info(&commun.EVT_T, &commun.EVT_C, &commun.EVT_PARAM1, &commun.EVT_PARAM2);
				if((commun.EVT_C == $KEY_Right)) {
					commun.KURSOR += 0x1;
					if((commun.KURSOR > commun.LEN)) {
						commun.KURSOR = commun.LEN;
					}
				}
				if((commun.EVT_C == $KEY_Left)) {
					commun.KURSOR -= 0x1;
					if((commun.KURSOR < 0x1)) {
						commun.KURSOR = 0x1;
					}
				}
				if(((commun.EVT_C >= $KEY_0_AV) && (commun.EVT_C <= $KEY_Pilote))) {
					commun.TEMP1 = (commun.EVT_C - $KEY_0_AV);
					Call_Script("basic:hex", commun.TEMP1, 0x1, &commun.TEMPKEY);
					commun.KEY = ((mid(commun.KEY, 0x1, (commun.KURSOR - 0x1)) + commun.TEMPKEY) + mid(commun.KEY, (commun.KURSOR + 0x1), (commun.LEN - commun.KURSOR)));
					commun.KURSOR += 0x1;
					if((commun.KURSOR > commun.LEN)) {
						commun.KURSOR = commun.LEN;
					}
				}
				Call_Script("commun:L1_Index", 0x6F);
				Set_Po_Text($CURRENT, "KURSOR1", (_ERROR_0002._ERROR_003A + itos(commun.KURSOR)));
				Set_Po_Text($CURRENT, commun.FOCUS1, commun.KEY);
			}
			if((commun.EVT_C == $KEY_Ok)) {
				if(((left(commun.FOCUS1, 0x3) == "KEY") && (commun.SYSTEM != 0x50))) {
					if((commun.ADRES >= 0xEF4)) {
						commun.EVT_C = 0x0;
						Set_Panel_Page($CURRENT, 0x5);
						Call_Script("commun:L1_Index", 0x6E);
						Set_Po_Text($CURRENT, "INFO16", _ERROR_0002._ERROR_003A);
						while((commun.EVT_C != $KEY_Ok)) {
							Wait_Event($ev_keypress, $code_all, -1, &commun.ER);
							Get_On_Event_Info(&commun.EVT_T, &commun.EVT_C, &commun.EVT_PARAM1, &commun.EVT_PARAM2);
						}
					}
					else {
						commun.KEY = (commun.HEAD + commun.KEY);
						for(commun.TEMP = 0x1; commun.TEMP <= 0x16; commun.TEMP += 0x2) {
							commun.TEMPKEY = mid(commun.KEY, commun.TEMP, 0x2);
							_ERROR_0003._ERROR_001A[(commun.ADRES + ((commun.TEMP - 0x1) : 0x2))] = HexToInt(commun.TEMPKEY) ;
						}
						if((commun.ADRES == peeks(_ERROR_0003._ERROR_001A , 0xFFE))) {
							pokes(_ERROR_0003._ERROR_001A, 0xFFE, (commun.ADRES + 0xB));
						}
					}
				}
				else {
					for(commun.TEMP = 0x1; commun.TEMP <= commun.LEN; commun.TEMP += 0x2) {
						commun.TEMPKEY = mid(commun.KEY, commun.TEMP, 0x2);
						_ERROR_0003._ERROR_001A[(commun.ADRES + ((commun.TEMP - 0x1) : 0x2))] = HexToInt(commun.TEMPKEY) ;
					}
				}
			}
			if((commun.EVT_C == $KEY_Serv)) {
				if((commun.KEY != "")) {
					if(((left(commun.FOCUS1, 0x3) == "KEY") && (commun.SYSTEM != 0x50))) {
						Copy_Mem2Mem(_ERROR_0003._ERROR_001A, commun.ADRES, _ERROR_0003._ERROR_001A, (commun.ADRES + 0xB), ((0xEF4 - commun.ADRES) - 0xB));
						commun.ADRES = peeks(_ERROR_0003._ERROR_001A , 0xFFE);
						pokes(_ERROR_0003._ERROR_001A, 0xFFE, (commun.ADRES - 0xB));
					}
					else {
						for(commun.TEMP = 0x1; commun.TEMP <= commun.LEN; commun.TEMP += 0x2) {
							_ERROR_0003._ERROR_001A[(commun.ADRES + ((commun.TEMP - 0x1) : 0x2))] = 0x0 ;
						}
					}
				}
			}
			Call_Script("p_emu", 0xB);
		}
		commun.IA = 0x0;
	}
	return;
} // End     pio\install\p_emu1.cpi


#Script p_emu2.cpi(int commun.IA)
{
// Source  pio\install\p_emu2.cpi
#Volume pio
#Module install
#CRC32  22DDC6D6
#ENDS   0

Default commun
Public  commun
Public  dvb
Public  global
	Write_Trace($TraceMessCat_01, "install\p_emu2.cpi");
	if((commun.IA == 0xE)) {
		Get_Po_Focus($CURRENT, &commun.FOCUS1);
		if((commun.FOCUS1 == "SYSTEM")) {
			commun.SYSTEM += 0x10;
			if((commun.SYSTEM > 0x50)) {
				commun.SYSTEM = 0x50;
			}
			else {
				commun.NRPROV = 0x1;
				Call_Script("p_emu", 0xB);
			}
		}
		else {
			if((commun.FOCUS1 == "NRPROV")) {
				if((commun.SYSTEM == 0x10)) {
					commun.NRPROV += 0x1;
					if((commun.NRPROV > 0x8)) {
						commun.NRPROV = 0x8;
					}
					else {
						Call_Script("p_emu", 0xB);
					}
				}
				else {
					if((commun.SYSTEM == 0x20)) {
						commun.NRPROV += 0x1;
						if((commun.NRPROV > 0x14)) {
							commun.NRPROV = 0x14;
						}
						else {
							Call_Script("p_emu", 0xB);
						}
					}
					else {
						if((commun.SYSTEM == 0x30)) {
							commun.NRPROV += 0x1;
							if((commun.NRPROV > 0x5)) {
								commun.NRPROV = 0x5;
							}
							else {
								Call_Script("p_emu", 0xB);
							}
						}
						else {
							if((commun.SYSTEM == 0x40)) {
								commun.NRPROV += 0x1;
								if((commun.NRPROV > 0x9)) {
									commun.NRPROV = 0x9;
								}
								else {
									Call_Script("p_emu", 0xB);
								}
							}
							else {
								if((commun.SYSTEM == 0x50)) {
									commun.NRPROV += 0x1;
									if((commun.NRPROV > 0x2)) {
										commun.NRPROV = 0x2;
									}
									else {
										Call_Script("p_emu", 0xB);
									}
								}
							}
						}
					}
				}
			}
			else {
				if(((left(commun.FOCUS1, 0x3) == "KEY") && (commun.SYSTEM != 0x30))) {
					if((commun.FOCUS1 == "KEY00")) {
						Set_Panel_Focus($CURRENT, "KEY01");
					}
					else {
						if((commun.FOCUS1 == "KEY02")) {
							Set_Panel_Focus($CURRENT, "KEY03");
						}
						else {
							if((commun.FOCUS1 == "KEY04")) {
								Set_Panel_Focus($CURRENT, "KEY05");
							}
							else {
								if((commun.FOCUS1 == "KEY06")) {
									Set_Panel_Focus($CURRENT, "KEY07");
								}
								else {
									if((commun.FOCUS1 == "KEY08")) {
										Set_Panel_Focus($CURRENT, "KEY09");
									}
									else {
										if((commun.FOCUS1 == "KEY0A")) {
											Set_Panel_Focus($CURRENT, "KEY0B");
										}
										else {
											if((commun.FOCUS1 == "KEY0C")) {
												Set_Panel_Focus($CURRENT, "KEY0D");
											}
											else {
												if((commun.FOCUS1 == "KEY0E")) {
													Set_Panel_Focus($CURRENT, "KEY0F");
												}
												else {
													if((commun.FOCUS1 == "KEY10")) {
														Set_Panel_Focus($CURRENT, "KEY11");
													}
												}
											}
										}
									}
								}
							}
						}
					}
				}
				else {
					if((commun.SYSTEM == 0x10)) {
						if((commun.FOCUS1 == "IDPROV")) {
							Set_Panel_Focus($CURRENT, "PPUA");
						}
					}
					else {
						if((commun.SYSTEM == 0x20)) {
							if((commun.FOCUS1 == "UA_VIA")) {
								Set_Panel_Focus($CURRENT, "PPUA_VIA");
							}
						}
						else {
							if((commun.SYSTEM == 0x40)) {
								if((commun.FOCUS1 == "HEX_IRD")) {
									Set_Panel_Focus($CURRENT, "HMK_IRD");
								}
								else {
									if((commun.FOCUS1 == "IDPROV_IRD")) {
										Set_Panel_Focus($CURRENT, "PMK_IRD");
									}
								}
							}
							else {
								if((commun.SYSTEM == 0x50)) {
									if((commun.FOCUS1 == "SWICHCX")) {
										commun.TEMP1 = peek(_ERROR_0001._ERROR_001A,0x20A);
										if((commun.TEMP1 == 0x1)) {
											commun.TEMP2 = "Off";
											_ERROR_0001._ERROR_001A[0x20A] = 0x0 ;
										}
										else {
											commun.TEMP2 = "On";
											_ERROR_0001._ERROR_001A[0x20A] = 0x1 ;
										}
										Set_Po_Text($CURRENT, "SWICHCX", ((" " + commun.TEMP2) + " "));
									}
								}
							}
						}
					}
				}
			}
		}
		commun.IA = 0x0;
	}
	if((commun.IA == 0xF)) {
		Get_Po_Focus($CURRENT, &commun.FOCUS1);
		if((commun.FOCUS1 == "SYSTEM")) {
			commun.SYSTEM -= 0x10;
			if((commun.SYSTEM < 0x10)) {
				commun.SYSTEM = 0x10;
			}
			else {
				commun.NRPROV = 0x1;
				Call_Script("p_emu", 0xB);
			}
		}
		else {
			if((commun.FOCUS1 == "NRPROV")) {
				commun.NRPROV -= 0x1;
				if((commun.NRPROV < 0x1)) {
					commun.NRPROV = 0x1;
				}
				else {
					Call_Script("p_emu", 0xB);
				}
			}
			else {
				if(((left(commun.FOCUS1, 0x3) == "KEY") && (commun.SYSTEM != 0x30))) {
					if((commun.FOCUS1 == "KEY01")) {
						Set_Panel_Focus($CURRENT, "KEY00");
					}
					else {
						if((commun.FOCUS1 == "KEY03")) {
							Set_Panel_Focus($CURRENT, "KEY02");
						}
						else {
							if((commun.FOCUS1 == "KEY05")) {
								Set_Panel_Focus($CURRENT, "KEY04");
							}
							else {
								if((commun.FOCUS1 == "KEY07")) {
									Set_Panel_Focus($CURRENT, "KEY06");
								}
								else {
									if((commun.FOCUS1 == "KEY09")) {
										Set_Panel_Focus($CURRENT, "KEY08");
									}
									else {
										if((commun.FOCUS1 == "KEY0B")) {
											Set_Panel_Focus($CURRENT, "KEY0A");
										}
										else {
											if((commun.FOCUS1 == "KEY0D")) {
												Set_Panel_Focus($CURRENT, "KEY0C");
											}
											else {
												if((commun.FOCUS1 == "KEY0F")) {
													Set_Panel_Focus($CURRENT, "KEY0E");
												}
												else {
													if((commun.FOCUS1 == "KEY11")) {
														Set_Panel_Focus($CURRENT, "KEY10");
													}
												}
											}
										}
									}
								}
							}
						}
					}
				}
				else {
					if((commun.SYSTEM == 0x10)) {
						if((commun.FOCUS1 == "PPUA")) {
							Set_Panel_Focus($CURRENT, "IDPROV");
						}
					}
					else {
						if((commun.SYSTEM == 0x20)) {
							if((commun.FOCUS1 == "PPUA_VIA")) {
								Set_Panel_Focus($CURRENT, "UA_VIA");
							}
						}
						else {
							if((commun.SYSTEM == 0x40)) {
								if((commun.FOCUS1 == "HMK_IRD")) {
									Set_Panel_Focus($CURRENT, "HEX_IRD");
								}
								else {
									if((commun.FOCUS1 == "PMK_IRD")) {
										Set_Panel_Focus($CURRENT, "IDPROV_IRD");
									}
								}
							}
							else {
								if((commun.SYSTEM == 0x50)) {
									if((commun.FOCUS1 == "SWICHCX")) {
										commun.TEMP1 = peek(_ERROR_0001._ERROR_001A,0x20A);
										if((commun.TEMP1 == 0x1)) {
											commun.TEMP2 = "Off";
											_ERROR_0001._ERROR_001A[0x20A] = 0x0 ;
										}
										else {
											commun.TEMP2 = "On";
											_ERROR_0001._ERROR_001A[0x20A] = 0x1 ;
										}
										Set_Po_Text($CURRENT, "SWICHCX", ((" " + commun.TEMP2) + " "));
									}
								}
							}
						}
					}
				}
			}
		}
		commun.IA = 0x0;
	}
	return;
} // End     pio\install\p_emu2.cpi


#Script p_setup.cpi(int commun.IA)
{
// Source  pio\install\p_setup.cpi
#Volume pio
#Module install
#CRC32  2C73B0D4
#ENDS   0

Public  commun
Public  basic
	Write_Trace($TraceMessCat_01, "install\p_setup.cpi");
	if((commun.IA == 0xCA)) {
		Set_Panel_Focus($CURRENT, "M05_01");
		Set_Panel_Page($CURRENT, 0x5);
	}
	if((commun.IA == 0xCB)) {
		commun.SRINPUT = 0x0;
		Call_Script("dlg_box", 0x19);
		if(((commun.ISUBC == 0x0) && (commun.SRINPUT >= 0x0))) {
			Device_Alloc_Buffer(_ERROR_0001._ERROR_003D, 0x404, $LOCK_OFF, &_ERROR_0001._ERROR_0007, &_ERROR_0001._ERROR_004B);
			Flash_File_Read("TSR", "TSR", _ERROR_0001._ERROR_0007, 0x404, &_ERROR_0001._ERROR_004B);
			commun.SRCNT = (peeki(_ERROR_0001._ERROR_0007 , 0x0) + 0x1);
			pokei(_ERROR_0001._ERROR_0007, (commun.SRCNT * 0x4), commun.SRINPUT);
			pokei(_ERROR_0001._ERROR_0007, 0x0, commun.SRCNT);
			Flash_File_Write("TSR", "TSR", _ERROR_0001._ERROR_0007, 0x404, &_ERROR_0001._ERROR_004B);
			Device_Free_Buffer(_ERROR_0001._ERROR_003D, _ERROR_0001._ERROR_0007, &_ERROR_0001._ERROR_004B);
			commun.IA = 0xC9;
		}
		Set_Panel_Focus($CURRENT, "LIST1");
	}
	if((commun.IA == 0xCC)) {
		Call_Script("dlg_box", 0x18);
		if((commun.ISUBC == 0x0)) {
			Get_Sco_ViewLine(&commun.SRINPUT);
			Device_Alloc_Buffer(_ERROR_0001._ERROR_003D, 0x404, $LOCK_OFF, &_ERROR_0001._ERROR_0007, &_ERROR_0001._ERROR_004B);
			Flash_File_Read("TSR", "TSR", _ERROR_0001._ERROR_0007, 0x404, &_ERROR_0001._ERROR_004B);
			if((!_ERROR_0001._ERROR_004B && (commun.SRINPUT >= 0x0))) {
				if(commun.SRINPUT) {
					Set_Po_Enum($CURRENT, "LIST1", (commun.SRINPUT - 0x1));
				}
				commun.SRCNT = (peeki(_ERROR_0001._ERROR_0007 , 0x0) - 0x1);
				for(commun.IA = (commun.SRINPUT + 0x1); commun.IA <= commun.SRCNT; commun.IA += 0x1) {
					commun.CSR = peeki(_ERROR_0001._ERROR_0007 , ((commun.IA + 0x1) * 0x4));
					pokei(_ERROR_0001._ERROR_0007, (commun.IA * 0x4), commun.CSR);
				}
				pokei(_ERROR_0001._ERROR_0007, 0x0, commun.SRCNT);
				Flash_File_Write("TSR", "TSR", _ERROR_0001._ERROR_0007, 0x404, &_ERROR_0001._ERROR_004B);
				Device_Free_Buffer(_ERROR_0001._ERROR_003D, _ERROR_0001._ERROR_0007, &_ERROR_0001._ERROR_004B);
				commun.IA = 0xC9;
			}
		}
		Set_Panel_Focus($CURRENT, "LIST1");
	}
	if((commun.IA == 0xC9)) {
		commun.SRLI = "";
		Device_Alloc_Buffer(_ERROR_0001._ERROR_003D, 0x404, $LOCK_OFF, &_ERROR_0001._ERROR_0007, &_ERROR_0001._ERROR_004B);
		Flash_File_Read("TSR", "TSR", _ERROR_0001._ERROR_0007, 0x404, &_ERROR_0001._ERROR_004B);
		if(!_ERROR_0001._ERROR_004B) {
			commun.SRCNT = peeki(_ERROR_0001._ERROR_0007 , 0x0);
			for(commun.IA = 0x1; commun.IA <= commun.SRCNT; commun.IA += 0x1) {
				commun.CSR = peeki(_ERROR_0001._ERROR_0007 , (commun.IA * 0x4));
				commun.SRLI = (commun.SRLI + itos(commun.CSR));
				if((commun.IA < commun.SRCNT)) {
					commun.SRLI += "\n";
				}
			}
			Device_Free_Buffer(_ERROR_0001._ERROR_003D, _ERROR_0001._ERROR_0007, &_ERROR_0001._ERROR_004B);
		}
		Display_Po_Var($CURRENT, "LIST1");
		Set_Panel_Focus($CURRENT, "LIST1");
		Set_Panel_Page($CURRENT, 0xA);
		commun.IA = 0x0;
	}
} // End     pio\install\p_setup.cpi


#Script stdby.cpi()
{
// Source  pio\install\stdby.cpi
#Volume pio
#Module install
#CRC32  EC9E8376
#ENDS   0

Public  commun
Public  global
	Write_Trace($TraceMessCat_01, "install\stdby.cpi");
	Event_UnSet($ev_frontalpress, $KEY_Opt);
	Event_UnSet($ev_keypress, $KEY_Opt);
	Event_UnSet($ev_keypress, $KEY_Esc);
	Event_UnSet($ev_keypress, $KEY_Standby);
	if((commun.LID_EN > -1)) {
		commun.TM = commun.LID_EN;
		commun.LID_EN = 0xFFFFFFFE;
		Module_Bkg_Unload(commun.TM, &commun.ER);
	}
	if((commun.LID_F > -1)) {
		Call_Script("pers_fmt:Fmt_Done");
	}
	if((commun.LID_P > -1)) {
		commun.TM = commun.LID_P;
		commun.LID_P = 0xFFFFFFFE;
		Module_Bkg_Unload(commun.TM, &commun.ER);
	}
	if((commun.LID_R > -1)) {
		Call_Script("pers_reg:Reg_Done");
	}
	Device_Open_Channel(&commun.STD, &commun.ER);
	Device_Open_Device(commun.STD, $dev_power, &commun.ER);
	if((_ERROR_0001._ERROR_0042 || _ERROR_0001._ERROR_0041)) {
		Flash_File_Write("TPA", "TPA", _ERROR_0001._ERROR_0004, 0x2414, &commun.ER);
		_ERROR_0001._ERROR_0042 = 0x0;
		_ERROR_0001._ERROR_0041 = 0x0;
	}
	if((_ERROR_0001._ERROR_0036 && _ERROR_0001._ERROR_003B)) {
		Call_Script("antena:svpref", _ERROR_0001._ERROR_002C);
		Channel_Struct_Size(&commun.I);
		Flash_File_Write("TCS", "TCS", _ERROR_0001._ERROR_0001, (0xFFB * commun.I), &commun.ER);
		Flash_File_Write("TCN", "TCN", _ERROR_0001._ERROR_0002, (0xFFB * commun.I), &commun.ER);
	}
	_ERROR_0001._ERROR_003B = 0x0;
	Module_Load("eeprom", &commun.I, &commun.ER);
	Call_Script("eeprom:Mem_Stor");
	Device_Call(commun.STD, $dev_power, $POWER_STDBY_ON, _ERROR_0001._ERROR_0000, _ERROR_0001._ERROR_0000, &commun.I, &commun.ER);
} // End     pio\install\stdby.cpi
#ENDMOD	// install
#ENDVOL	// pio
// (c) pgete uComp 3.0 Sun Jul 24 21:12:31 2005
