#Script tm_init.cpi()
{
// Source  pio\time\tm_init.cpi
#Volume pio
#Module time
#CRC32  D1A913B1
#ENDS   213

Default time            
Public  time
Public  global
	for(time.I = 0; time.I <= 0x4; time.I += 0x1;) {
		time.TA[time.I] = -1;
	}
	for(time.I = 0; time.I <= 0x8; time.I += 0x1;) {
		time.TIME_TA[time.I] = 0;
	}
	Device_Open_Channel(&time.CL, &time.ER);
	Device_Open_Device(time.CL, $dev_clock, &time.ER);
	Device_Call(time.CL, $dev_clock, $CLOCK_TIME_INFO, time.BUFFER_E, time.BUFFER_R, &time.R, &time.ER);
	Copy_Mem2I(time.BUFFER_R, 0xC, &time.ER, 0x2);
	Memcpy(time.BUFFER_R, time.BUFFER_U, 0x1, 0, 0x5, &time.ER);
	Read_UTC_Time(time.BUFFER_U, time.TIME_TA, &time.ER);
	Copy_Mem2I(time.BUFFER_U, 0, &time.ER, 0x4);
	if((time.ER == -1)) {
		time.JE = global.J;
		if(((global.SE < 0x2) && (global.COUNTRY_L == 0x656E67))) {
			global.J = (0 + (0x1 - global.SE));
		}
		else {
			if(((global.SE < 0x2) && (((((global.COUNTRY_L == 0x667261) || (global.COUNTRY_L == 0x646575)) || (global.COUNTRY_L == 0x65736C)) || (global.COUNTRY_L == 0x697461)) || (global.COUNTRY_L == 0x647574)))) {
				global.J = (0x1 + (0x1 - global.SE));
			}
		}
		if((global.J != time.JE)) {
			EventDisEn($ev_frontalpress, 0x1, $code_none, 0, "", 0, $Disable_1);
			EventDisEn($ev_keypress, 0x1, $code_none, 0, "", 0, $Disable_1);
			Load_Module("eeprom", &time.EE, &time.ER); //# Clases c_mem.cla 
			Call_Script("eeprom:Mem_Stor");
			Unload_Module(time.EE, &time.ER);
			EventDisEn($ev_frontalpress, 0x1, $code_none, 0, "", 0, $Enable);
			EventDisEn($ev_keypress, 0x1, $code_none, 0, "", 0, $Enable);
		}
		time.I = (global.J * 0x3C);
		pokes(time.BUFFER_E, 0, time.I);
		Device_Io(time.CL, $dev_clock, $CLOCK_OFFSET_GMT, $KEY_C, $Prior_04, time.BUFFER_E, global.NU, &time.R, &time.ER);
		Wait_Event($KEY_C, time.CL, 1000, &time.ER);
		time.TIME_TA[0] = 0x7CD;
		time.TIME_TA[0x1] = 0x1;
		time.TIME_TA[0x2] = 0x1;
		time.TIME_TA[0x3] = 0;
		time.TIME_TA[0x4] = 0;
		time.TIME_TA[0x5] = 0;
		time.TIME_TA[0x6] = 0;
		time.TIME_TA[0x7] = 0;
		time.TIME_TA[0x8] = 0;
		Write_UTC_Time(time.BUFFER_U, time.TIME_TA, &time.ER);
		Memcpy(time.BUFFER_U, time.BUFFER_E, 0, 0x1, 0x5, &time.ER);
		Copy_I2Mem(time.BUFFER_E, 0, 0, 0x1);
		Device_Io(time.CL, $dev_clock, $CLOCK_TIME_SET, $KEY_C, $Prior_04, time.BUFFER_E, time.BUFFER_R, &time.R, &time.ER);
		Wait_Event($KEY_C, time.CL, 3000, &time.ER);
	}
	Set_To($CLOCK, 60000, $Ev_Timer, $code_03EF, &time.TIME_TO);
	if((time.TIME_TA[0x6] < 0xA)) {
		time.TIME_S = ("0" + itos(time.TIME_TA[0x6]));
	}
	else {
		time.TIME_S = itos(time.TIME_TA[0x6]);
	}
	if((time.TIME_TA[0x7] < 0xA)) {
		time.TIME_S = ((time.TIME_S + ":0") + itos(time.TIME_TA[0x7]));
	}
	else {
		time.TIME_S = ((time.TIME_S + ":") + itos(time.TIME_TA[0x7]));
	}
	Device_Open_Device(time.CL, $dev_display, &time.ER);
	Copy_I2Mem(time.BUFFER_E, 0, 0, 0x1);
	Device_Call(time.CL, $dev_display, $DISPLAY_SET_HOUR, time.BUFFER_E, time.BUFFER_R, &time.R, &time.ER);
	Device_Close_Device(time.CL, $dev_display, &time.ER);
	Event_Set("time:tm_maj", $Ev_Timer, $code_03EF);
	return;
} // End     pio\time\tm_init.cpi