/*
	Z[u[h

	$800	: 0>Z[u  1>[h  2>Q/A[h
	$801	: 0>^Cg  1>̑
	
	$803	: Z[uE[hőpl

	\10		: ʑJڃtO(0:N 1:ʑJ(Z[u[h))

	\100	: ݂̃y[WNo
	\101	: IZNo

	\110	: 샂[h
			  (0:[h 1:Z[u 2:Q[h
			   10:폜 11:ړ 12:ړ 13:Rs[ 14:Rs[)

	\120	: ŐVf[^No(ʏ)
	\121	: ŐVf[^No(NCbN)

	\200	: JntO

	\400`	: ꎞƗp

*/

#INCLUDE
	motion.h


#PRELOAD	// ǂ݃t@C` (C[Ŵ)
	sys_saveload
	sys_saveload_num1
	sys_saveload_num2
	sys_saveload_num3
	sys_saveload_num4
	sys_saveload_num_ex
	sys_saveload_panel
	sys_userfont
	sys_img_helpmes


///////////////////////////
// IuWFNg`
#DEFINE
	CPLANE		topmask		// zCgAEgp̐^ȃv[
	CIMAGE		basemask	// XNvgԂ̂Ȃp摜x[XC[Wp

	PLANE		pl			// \pv[

	IMAGE		img_bg		// wi摜

	IMAGE		img_page_now[2]	// ݂̃y[WNo
	IMAGE		img_page_max[2]	// őy[WNo

	BUTTON		btn_sys[13]	// VXen{^

	IMAGE		img_help		// wv摜

	SAVEPANEL	data[12]		// f[^pl
	BUTTON		btn_data[12];	// f[^pl{^

	IMAGE		font_num		// tHg|
	IMAGE		font_day		// tHg|Q[
	IMAGE		font_week		// tHg|Q[j
	IMAGE		font_ex			// tHg|Q[iI[vjOj


///////////////////////////
// IuWFNg

// zCgAEgp̐^ȃv[
#OBJECT		COLOR		PRI		SIZE		DISP
topmask		0x00ffffff	20000	1280,720	0

// XNvgԂ̂Ȃp摜x[XC[Wp
#OBJECT		COLOR		SIZE		PRI		DISP	PL
basemask	0xffffffff	1280,720	1000	0		pl

// \pv[
#OBJECT	POS		BASE	PRI		VRAM	SIZE		DISP
pl		0,0 	0,0 	5000	0,852	1280,720	0

// wi摜
#OBJECT		FILE			ID.0	ID.1	ID.2	PRI	PL	DISP
img_bg		sys_saveload	0		1		2		30	pl	0

// y[WNo
#OBJECT			FILE						PRI	PL	DISP
img_page_now	sys_saveload_font_page_now	40	pl	0	// ݒl
img_page_max	sys_saveload_font_page_max	50	pl	0	// ől

#OBJECT			POS2
img_page_now[0]	sys_saveload:1302
img_page_now[1]	sys_saveload:1303
img_page_max[0]	sys_saveload:1300
img_page_max[1]	sys_saveload:1301

// VXen{^
#OBJECT		FILE			PRI	ENABLE	PL	DISP
btn_sys		sys_saveload	100	0		pl	0

#OBJECT		ID.0	ID.1	ID.2	ID.3
btn_sys[0]	100		200		300		400		// y[Wǉ
btn_sys[1]	101		201		301		401		// ŏ̃y[W
btn_sys[2]	102		202		302		402		// Õy[W
btn_sys[3]	103		203		303		403		// ̃y[Ww
btn_sys[4]	104		204		304		404		// Ō̃y[W
btn_sys[5]	105		205		305		405		// Z[u[hʏIi߂j
btn_sys[6]	106		206		306		406		// Q[I
btn_sys[7]	107		207		307		407		// [hʂ
btn_sys[8]	108		208		308		408		// Z[uʂ
btn_sys[9]	109		209		309		409		// p[hʂ
btn_sys[10]	110		210		310		410		// f[^폜
btn_sys[11]	111		211		311		411		// f[^
btn_sys[12]	112		212		312		412		// f[^Rs[

// f[^pl
#OBJECT	FILE				PRI	PL	DISP
data	sys_saveload_panel	200	pl	0

#OBJECT		POS2
data[0]		sys_saveload:1100
data[1]		sys_saveload:1101
data[2]		sys_saveload:1102
data[3]		sys_saveload:1103
data[4]		sys_saveload:1104
data[5]		sys_saveload:1105
data[6]		sys_saveload:1106
data[7]		sys_saveload:1107
data[8]		sys_saveload:1108
data[9]		sys_saveload:1109
data[10]	sys_saveload:1110
data[11]	sys_saveload:1111

// f[^pl{^
#OBJECT		FILE			PRI	DISP	ENABLE
btn_data	sys_saveload	300	0		0

#OBJECT			ID.0
btn_data[0]		1100
btn_data[1]		1101
btn_data[2]		1102
btn_data[3]		1103
btn_data[4]		1104
btn_data[5]		1105
btn_data[6]		1106
btn_data[7]		1107
btn_data[8]		1108
btn_data[9]		1109
btn_data[10]	1110
btn_data[11]	1111

// tHg
#OBJECT		FILE
font_num	sys_saveload_font_num	// Z[uiԁj
font_day	sys_saveload_font_day	// Q[
font_week	sys_saveload_font_week	// Q[j
font_ex		sys_saveload_font_ex	// Q[iI[vjOj

// wv
#OBJECT		FILE		ID.0	PRI		PL	DISP	POS2
img_help	sys_helpmes	0		1000	pl	0		sys_saveload:1000


// L[{[hEWCpbh͐ݒ
#KEYBLOCK	5	//(w,h)	,,,E
0				5,1		-1,1,-1,-1
1				3,4		0,2,-1,-1
2				8,1		1,-1,-1,-1
3				1,1		-1,-1,-1,1
4				1,1		-1,-1,1,-1

#OBJECT			KEYBLOCK	// (block,x,y)
btn_sys[1]		0,0,0
btn_sys[2]		0,1,0
btn_sys[3]		0,2,0
btn_sys[4]		0,3,0
btn_sys[0]		0,4,0

btn_data[0]		1,0,0
btn_data[1]		1,0,1
btn_data[2]		1,0,2
btn_data[3]		1,0,3

btn_data[4]		1,1,0
btn_data[5]		1,1,1
btn_data[6]		1,1,2
btn_data[7]		1,1,3

btn_data[8]		1,2,0
btn_data[9]		1,2,1
btn_data[10]	1,2,2
btn_data[11]	1,2,3

btn_sys[8]		2,0,0
btn_sys[7]		2,1,0
btn_sys[9]		2,2,0
btn_sys[6]		2,3,0

btn_sys[10]		2,4,0
btn_sys[11]		2,5,0
btn_sys[12]		2,6,0
btn_sys[5]		2,7,0



///////////////////////////
// X^[g
#START
	// L[͂ɂ鉉oXLbvOFF
	keyskip off

	// J[\{^ȊȌꏊɂɖL[ꂽꍇ
	// ړ{^̐ݒ
	btn_data[0] noact 1		// ̃f[^pl

	// ŐṼZ[uf[^𒲂ׂ
	newsave 850 0 1200		// ʏZ[u(ő99y[Wx12Z=1188Ȃ̂ŁA0`1200ƂĂ)
	\120 = $850
	newsave 850 5000 5011	// QZ[u(5000`5011̌v12)
	\121 = $850

	// ŐVf[^̃y[WNo
	if( \120 < 0 )
		\100 = 0			// ŐVꍇ͐擪y[WƂ
	else
		\100 = \120 / 12	// Py[W̃plŊăy[WNoZo
	endif

	// 샂[h\110ɐݒ
	\110 = $800

	// f[^폜EERs[ΏۂێtO
	\130 = 131 = -1

	// wv\Zbg
	call RESET_HELP

	// ^CgʂĂ΂ꂽꍇ͐^v[ŕ
	if( $801 == 0 )
		// ^Cgʂ̏
		topmask disp 1	// ^v[\
	else
		// V[̏
		// ʂȂ̂œɂȂɂȂ
	endif

	// Uwait
	wait

	// plݒ
	next SET_PANNEL


///////////////////////////
// plݒ
#SET_PANNEL
	// wi
	data ptype NORM 0	// ʏ
	data ptype NORM 1	// tH[JX
	data ptype NORM 2	// 

	// TlC
	data ptype NORM 10			// f[^pTlC
	data ptype SIMAGE 11 0x100	// f[^TlC

	// ͕\
	data ptype SSTR 12 0x200 12 14 0xffffffff 3 0xff404040 2 2

	// Q[
	data ptype NUM_O 20 font_day 0	// 
	data ptype NUM_O 21 font_day 0	// 
	data ptype NUM_O 22 font_week 0	// j
	data ptype NUM_O 23 font_ex 0	// \iI[vjOEGfBOȂǁj

	// ṕij
	data ptype NORM 30

	// ŐV}[N
	data ptype NORM 40	// ʏf[^p
	data ptype NORM 41	// pf[^p

	// Z[uf[^iԁj
	// N
	data ptype NUM_O 100 font_num DATE_Y:1000
	data ptype NUM_O 101 font_num DATE_Y:100
	data ptype NUM_O 102 font_num DATE_Y:10
	data ptype NUM_O 103 font_num DATE_Y:1

	// 
	data ptype NUM_O 110 font_num DATE_M:10
	data ptype NUM_O 111 font_num DATE_M:1

	// 
	data ptype NUM_O 120 font_num DATE_D:10
	data ptype NUM_O 121 font_num DATE_D:1

	// 
	data ptype NUM_O 130 font_num DATE_H:10
	data ptype NUM_O 131 font_num DATE_H:1

	// 
	data ptype NUM_O 140 font_num DATE_N:10
	data ptype NUM_O 141 font_num DATE_N:1

	// ͕\Ƀ[U[tHgݒ
	data userfont 12 sys_userfont 0x8740 1
	data userfont 12 sys_userfont 0x8741 2
	data userfont 12 sys_userfont 0x8742 3
	data userfont 12 sys_userfont 0x8743 4
	data userfont 12 sys_userfont 0x8744 5
	data userfont 12 sys_userfont 0x8745 6
	data userfont 12 sys_userfont 0x8746 7
	data userfont 12 sys_userfont 0x8747 8
	data userfont 12 sys_userfont 0x8748 9

	// pl\
	next DISP_PANEL


///////////////////////////
// pl\
#DISP_PANEL
	// SẴ{^𖳌
	// ʂ؂ւȂǂɂĂ΂邽߁Aؑ֒Ƀ{^Ȃ悤ɂ
	call DISABLE_ALL_BUTTON

	// pl\[v
	\0 = 0	// [vJE^
	next DISP_PANEL_LOOP


///////////////////////////
// pl\[v
#DISP_PANEL_LOOP
	// Py[W烋[v𔲂
	if( \0 >= 12 )	next DISP

	// Z[uf[^݂邩ׂ
	if( $800 == 0 || $800 == 1 )	// Z[uE[h̎
		\400 = \100*12+\0	// Z[uf[^No
	else							// p[h̎
		\400 = 5000+\0		// Qf[^No(5000)
	endif
	saveexist \400 870+\0 0x00010000	// $870`ɑ݂Ă邩ݒ

	// ݂邩ǂŕ\eς
	if( $(870+\0) )		call SETDATA_EXIST		// ݂Ăꍇ
	if( $(870+\0)==0 )	call SETDATA_NODATA		// ꍇ

	\0++
	next DISP_PANEL_LOOP


///////////////////////////
// Z[uf[^݂Ăꍇ̏
#SETDATA_EXIST
	// ܂͑S\ɂĂ܂
	data[\0] dispid 0 [0-50]

	// plwi
	if( \130 == \400 || \131 == \400 )
		// f[^폜EERs[[hőIĂf[^̏ꍇ͉Ԃɂ
		data[\0] dispid 1 2
	else
		// ȊȌꍇ͒ʏ̏Ԃɂ
		data[\0] dispid 1 0
	endif

	data[\0] dispid 1 11 12		// TlCE
	data[\0] dispid 1 [100-141]	// Z[u

	// ŐV}[N
	if( $800 == 0 || $800 == 1 )	// Z[u/[h̎
		if( \400 == \120 )	data[\0] dispid 1 40	// ŐVȂ\
	else							// p[h̎
		if( \400 == \121 )	data[\0] dispid 1 41	// ŐVȂ\
	endif

	// ̏ŃZ[uf[^̃tO擾ׁAxZ[uf[^
	// ZbgāAtO擾o悤ɂ
	data[\0] setsave \400 0x00000400 0

	// ݒ肳ĂtO$850Ɏ擾
	data[\0] getflag 104 850

	if( $850 == 0 )		// ݒ肳ĂȂꍇ
		// Q[\
		data[\0] dispid 1 20 21 22 30	// EEjƃx[Xi()j\
		data[\0] getflag 101 850		// ݒ肳ĂtO擾
		data[\0] setnum 20 $850			// lijݒ
		data[\0] getflag 102 850		// lɓ
		data[\0] setnum 21 $850
		data[\0] getflag 103 850		// lɗj
		data[\0] setnum 22 $850
	else
		// \
		data[\0] dispid 1 23		// \
		data[\0] setnum 23 $850		// ɕ\e(ID)ݒ
	endif

	// ēxZ[uf[^ݒ
	// s_Ńpl摜XV邽߁BiȂƕ\ُ킪oj
	data[\0] setsave \400 0x00000400 0


///////////////////////////
// Z[uf[^ꍇ̏
#SETDATA_NODATA
	// ܂͑S\ɂĂ܂
	data[\0] dispid 0 [0-50]
	data[\0] dispid 0 [100-141]

	data[\0] dispid 1 0		// plwi

	data[\0] dispid 1 10	// f[^pTlC

	// Z[uf[^ݒ
	// s_Ńpl摜XV邽߁B
	// f[^ƂďȂƐpl\Ȃ
	data[\0] setsave \400 0x00000400 0


///////////////////////////
// ̑̕\
#DISP
	// wiݒ
	img_bg setid $800	// [hiZ[uE[hEp[hjɂĔwiς

	// wi\
	img_bg disp 1

	// f[^pl\
	data disp 1

	// y[Wԍ\
	img_page_max disp 0		// U\
	img_page_now disp 0
	if( $800 == 0 || $800 == 1 )
		// Z[uE[h̎
		// ől̐ݒ
		img_page_max[0] settbl 0 $803%10
		img_page_max[1] settbl 0 $803/10
		// ݒl̐ݒ
		img_page_now[0] settbl 0 (\100+1)%10	// ݂̃y[WNo0X^[gȂ̂+1Ă
		img_page_now[1] settbl 0 (\100+1)/10
		// \̈ʂ0ȊO̎\
		if( $803/10 > 0 )		img_page_max[1] disp 1
		if( (\100+1)/10 > 0 )	img_page_now[1] disp 1
		// ̈ʂ͏ɕ\
		img_page_max[0] disp 1
		img_page_now[0] disp 1
	else
		// p[h̎̓y[WNo͕\Ȃ
	endif

	// settblŏe[uKp邽߂setid
	// ŉ摜settblŐݒ肳ꂽeɏ
	img_page_max setid 0
	img_page_now setid 0

	// VXe{^\
	btn_sys disp 1

	// VXe{^̗LEi摜jݒ
	btn_sys setid 0		// Ƃ肠SėLiʏjɐݒ
	if( $800 == 0 )
		// Z[u̎̓Z[uʂɈڍs{^Ԃɂ
		btn_sys[8] setid 3
	endif
	if( $800 == 1 )
		// [h̎̓[hʂɈڍs{^Ԃɂ
		btn_sys[7] setid 3
	endif
	if( $800 == 2 )
		// Q[h̎Q[hʂɈڍs{^Ԃɂ
		btn_sys[9] setid 3
	endif
	if( $801 == 0 )
		// ^CgʂĂ΂ꂽꍇ̓Z[uʂɈڍs{^O[ɂ
		btn_sys[8] setid 1
	endif
	if( $803 == 99 )
		// őy[W99(MAX)̏ꍇ̓y[Wǉ{^O[ɂ
		btn_sys[0] setid 1
	endif
	if( \100 == 0 )
		// ݂̃y[WNo0(擪)̏ꍇ̓y[W߂n{^O[ɂ
		btn_sys[1] setid 1	// ŏ̃y[W
		btn_sys[2] setid 1	// Õy[Ww
	endif
	if( \100 == $803-1 )
		// ݂̃y[WNoŏIy[WȂy[Wiތn{^O[ɂ
		btn_sys[3] setid 1	// ̃y[W
		btn_sys[4] setid 1	// Ō̃y[Ww
	endif

	// Q[h̎̓y[WnAplñ{^O[ɂ
	if( $800 == 2 )
		btn_sys[0] setid 1		// y[Wǉ
		btn_sys[1] setid 1		// ŏ̃y[W
		btn_sys[2] setid 1		// Õy[W
		btn_sys[3] setid 1		// ̃y[W
		btn_sys[4] setid 1		// Ō̃y[W
		btn_sys[10] setid 1		// f[^폜
		btn_sys[11] setid 1		// f[^
		btn_sys[12] setid 1		// f[^Rs[
	endif

	// wv摜\
	img_help disp 1

	// 摜XVʂɓ̂ŁAUwaitčXVĂ܂
	// ̃̕tF[hC̊JnłȂiJNȂjł
	wait 1

	// \pv[\
	pl disp 1

	// \o
	if( \10 == 0 )	// (XNvg)Ă΂ꂽ΂̂Ƃ
		if( $801 == 0 )
			// ^Cgʂ̏
			topmask fade 16 255 0	// ^v[tF[hAEg
		else
			// V[̏
			pl fade 16 0 255		// \pv[tF[hC
		endif
		if( \120 >= 0 )
			// ŐVf[^ꍇ͂̃plɃJ[\ړ
			automove btn_data[\120%12]
		endif
	endif
	if( \10 == 1 )	// [h؂ւiZ[ũ[ĥp[hj
		pl fade 16 0 255	// \pv[tF[hC
	endif

	// oitF[hCj҂
	wait

	// x[XC[W폜
	baseimg

	// \otO2ݒ肵āApleXVȂǂŃtF[hoȂ悤ɂ
	\10 = 2

	// {^L
	call ENABLE_BUTTON

	// ͑҂iC[vj
	next WAIT


///////////////////////////
// ͑҂iC[vj
#WAIT
	// ENbNꂽ̏
	if( _CLICK_R_ != 0 )
		// Z[uE[hEp[h[h̎͏I
		if( \110 < 10 )		next EXIT

		// ȊO̎̓f[^폜EERs[[h
		// ̎͂̃[hIāAZ[uE[h[hɖ߂

		// [hɖ߂i폜EERs[Ij
		\110 = $800

		// wv摜ɖ߂
		if( \110 == 0 )		// Z[u̎
			img_help settbl 0 120
		else				// [hEp[h̎
			img_help settbl 0 121
		endif
		img_help setid 0	// settblł̏Kp

		// pl\XV
		next DISP_PANEL
	endif

	// }EXzC[̏
	if( $800 != 2 )		// Q[hȊȌꍇ
		if( _PAGE_U_!=0 )	next SYS_BEFORE	// zC[̎͑Õy[W
		if( _PAGE_D_!=0 )	next SYS_NEXT	// zC[͎̎̃y[W
	endif


///////////////////////////
// I
#EXIT
	// ׂẴ{^𖳌
	call DISABLE_ALL_BUTTON

	// wv摜
	img_help disp 0

	// tF[hAEg
	if( $801 == 0 )
		// ^Cgʂ̏
		topmask disp 1			// ^v[\...
		topmask fade 30 0 255	// tF[hiŕj
	else
		// V[̏
		pl fade 30 255 0		// \v[tF[hAEg
	endif

	// o҂
	wait

	// \pv[
	pl disp 0

	if( $801 == 0 )
		// ^Cgʂ̏
		baseimg basemask	// x[XC[Wɔ摜ݒ
	endif

	wait 1

	// I
	exit -2		// IR[h-2ŕʂɏI(0ȏゾƂ̔ԍ[hĂ܂)

	// I̋󃋁[v
	next SLEEP


///////////////////////////
// I̋󃋁[v
#SLEEP




///////////////////////////
// e{^̗L
#ENABLE_BUTTON
	// Ƃ肠SẴ{^Lɂ
	btn_sys enable 1		// VXen{^
	btn_data enable 1		// f[^{^

	if( $800 == 0 )
		// Z[uʂ̎́wZ[uʂցx𖳌
		btn_sys[8] enable 0
	endif
	if( $800 == 1 )
		// [hʂ̎́w[hʂցx𖳌
		btn_sys[7] enable 0
	endif
	if( $800 == 2 )
		// Q[hʂ̎́wQ[hʂցx𖳌
		btn_sys[9] enable 0
	endif
	if( $801 == 0 )
		// ^Cgʂ̎́wZ[uʂցx𖳌
		btn_sys[8] enable 0
	endif
	if( $803 == 99 )
		// őy[W99(MAX)̎́wy[Wǉx𖳌
		btn_sys[0] enable 0
	endif
	if( \100 == 0 )
		// ݂̃y[W擪y[W̎̓y[W߂n𖳌
		btn_sys[1] enable 0		// 擪y[W
		btn_sys[2] enable 0		// Õy[Ww
	endif
	if( \100 == $803-1 )
		// ݂̃y[WŏIy[W̎̓y[Wiތn𖳌
		btn_sys[3] enable 0		// ̃y[W
		btn_sys[4] enable 0		// Ō̃y[Ww
	endif

	if( $800 == 2 )
		// Q[hʂ̎̓y[WnEpln𖳌
		btn_sys[0] enable 0		// y[Wǉ
		btn_sys[1] enable 0		// 擪y[W
		btn_sys[2] enable 0		// Õy[Ww
		btn_sys[3] enable 0		// ̃y[W
		btn_sys[4] enable 0		// Ō̃y[Ww
		btn_sys[10] enable 0	// 폜
		btn_sys[11] enable 0	// 
		btn_sys[12] enable 0	// Rs[
	endif

	if( \110 >= 10 )
		// 폜EERs[[h̎̓VXe{^𖳌
		call DISABLE_SYS_BUTTON
	endif


///////////////////////////
// ׂẴ{^𖳌
#DISABLE_ALL_BUTTON
	btn_sys enable 0
	btn_data enable 0


///////////////////////////
// VXe{^𖳌iy[Wړn͏j
#DISABLE_SYS_BUTTON
	// {^𖳌
	btn_sys[0] enable 0		// y[Wǉ
	btn_sys[5] enable 0		// ߂
	btn_sys[6] enable 0		// Q[I
	btn_sys[7] enable 0		// [hʂ
	btn_sys[8] enable 0		// Z[uʂ
	btn_sys[9] enable 0		// Q[hʂ
	btn_sys[10] enable 0	// 폜
	btn_sys[11] enable 0	// 
	btn_sys[12] enable 0	// Rs[

	// {^O[\
	btn_sys[0] setid 1		// y[Wǉ
	btn_sys[5] setid 1		// ߂
	btn_sys[6] setid 1		// Q[I
	btn_sys[7] setid 1		// [hʂ
	btn_sys[8] setid 1		// Z[uʂ
	btn_sys[9] setid 1		// Q[hʂ
	btn_sys[10] setid 1		// 폜
	btn_sys[11] setid 1		// 
	btn_sys[12] setid 1		// Rs[

	// 폜[h͍̎폜{^IĂԂɂ
	if( \110 == 10 )	btn_sys[10] setid 3

	// [h̎͌{^IĂԂɂ
	if( \110 == 11 || \110 == 12 )	btn_sys[11] setid 3

	// Rs[[h̎̓Rs[{^IĂԂɂ
	if( \110 == 13 || \110 == 14 )	btn_sys[12] setid 3


///////////////////////////
// wv\Zbg
#RESET_HELP
	img_help settbl 0 120+\110
	img_help setid 0


////////////////////////////////////////
// Cxgnhi{^j

// VXen{^
#btn_sys.FOCUS
	// {^̐Fς
	@ setid 2

	// wv摜\
	if( @ == 5 )
		// w߂x{^̎̓[hɂĕ\摜ύX
		if( $800 == 0 )	img_help settbl 0 5+100		// Z[u̎
		if( $800 == 1 )	img_help settbl 0 40+100	// [h̎
		if( $800 == 2 )	img_help settbl 0 41+100	// Q[h̎
	else
		// w߂xȊÕ{^
		img_help settbl 0 @+100
	endif
	// IDe[ûsetidœKp
	img_help setid 0

#btn_sys.UNFOCUS
	// {^̐Fɖ߂
	@ setid 0

	// wvɖ߂
	call RESET_HELP

#btn_sys.PUSH_L
	// {^̐Fς
	@ setid 3

	// ꂽ{^ɍ킹ďs
	if( @ == 0 )	next SYS_PAGE		// y[Wǉ
	if( @ == 1 )	next SYS_BEGIN		// ŏ̃y[Ww
	if( @ == 2 )	next SYS_BEFORE		// Õy[Ww
	if( @ == 3 )	next SYS_NEXT		// ̃y[W
	if( @ == 4 )	next SYS_END		// Ō̃y[Ww
	if( @ == 5 )	next SYS_EXIT		// ߂
	if( @ == 6 )	next SYS_QUIT		// Q[I
	if( @ == 7 )	next SYS_LOAD		// [hʂ
	if( @ == 8 )	next SYS_SAVE		// Z[uʂ
	if( @ == 9 )	next SYS_QLOAD		// Q[hʂ
	if( @ == 10 )	next SYS_DATA_DEL	// 폜
	if( @ == 11 )	next SYS_DATA_MOVE	// 
	if( @ == 12 )	next SYS_DATA_COPY	// Rs[


// f[^{^
#btn_data.FOCUS
	// pl̔wiς
	data[@] dispid 0 0	// ʏpOFF
	data[@] dispid 1 1	// tH[JXpON

#btn_data.UNFOCUS
	// pl̔wiɖ߂
	data[@] dispid 0 1	// ʏpON
	data[@] dispid 1 0	// tH[JXpOFF

#btn_data.PUSH_L
	// ꂽplNo
	\101 = @

	// ꂽf[^No
	if( \110 == 2 )		// Q[h̎
		\102 = 5000+@
	else				// ȊO̎
		\102 = \100*12+@
	endif

	// pl̔wiς
	data[\101] dispid 0 0 1	// ʏpEtH[JXpOFF
	data[\101] dispid 1 2	// pON

	// [hɂďς
	if( \110 == 0 )	next SAVE_DATA	// Z[u̎̓f[^Z[u
	if( \110 == 1 )	next LOAD_DATA	// [h̎̓f[^[h
	if( \110 == 2 )	next LOAD_DATA	// Q[h̎̓f[^[h

	if( \110 >= 10 )
		// 폜EERs[̎́AZII
		next SEL_SLOT_END
	endif



////////////////////////////////////////
// y[Wǉ
#SYS_PAGE
	// őy[WɒBĂȂΏ
	if( $803 < 99 )
		$803++	// y[W{P
		if( $803 >= 99 )
			// őy[WɒB́AwvZbg
			call RESET_HELP
		endif
		// plXV
		next DISP_PANEL
	endif
	wait 1	// #WAITĂ΂ꂽꍇAȂƉiv[vĂ܂
	next WAIT


////////////////////////////////////////
// 擪y[W
#SYS_BEGIN
	// wvɖ߂
	call RESET_HELP

	if( \100 > 0 )
		// ݂擪y[WłȂΐ擪y[Wֈړ
		\100 = 0
		next DISP_PANEL	// plXV
	endif
	wait 1	// #WAITĂ΂ꂽꍇAȂƉiv[vĂ܂
	next WAIT


////////////////////////////////////////
// Oy[W
#SYS_BEFORE
	// 擪y[WłȂΏ
	if( \100 > 0 )
		\100--	// Py[W߂
		if( \100 == 0 )
			// 擪y[W܂Ŗ߂̓wvZbg
			call RESET_HELP
		endif
		next DISP_PANEL	// plXV
	endif
	wait 1	// #WAITĂ΂ꂽꍇAȂƉiv[vĂ܂
	next WAIT


////////////////////////////////////////
// y[W
#SYS_NEXT
	// ŏIy[WłȂΏ
	if( \100 < $803-1 )
		\100++	// Py[Wi
		if( \100 >= $803-1 )
			// ŏIy[WɒB̓wvZbg
			call RESET_HELP
		endif
		next DISP_PANEL	// plXV
	endif
	wait 1	// #WAITĂ΂ꂽꍇAȂƉiv[vĂ܂
	next WAIT


////////////////////////////////////////
// ŏIy[W
#SYS_END
	// wvZbg
	call RESET_HELP

	if( \100 < $803-1 )
		// ݂ŏIy[WłȂ΁AŏIy[W܂Ői
		\100 = $803-1
		next DISP_PANEL	// plXV
	endif
	wait 1	// #WAITĂ΂ꂽꍇAȂƉiv[vĂ܂
	next WAIT


////////////////////////////////////////
// ߂
#SYS_EXIT
	next EXIT


////////////////////////////////////////
// Q[I
#SYS_QUIT
	// SẴ{^𖳌
	call DISABLE_ALL_BUTTON
	
	// Q[ImF_CAO
	\0 = 0	// mFeR[h
	strvar 400 SYS_QUIT2	// mF_CAOI̔ѐ̐ݒ
	next CONFIRM	// mF_CAO

// Q[ImF_CAOs
#SYS_QUIT2
	if( \0 == 0 )	// wxIꂽ
		// wvZbg
		call RESET_HELP
		// Q[I{^ɖ߂
		btn_sys[6] setid 0
		// {^L
		call ENABLE_BUTTON
		// ͑҂[v
		next WAIT
	endif

	// w͂xIꂽ

	// wv
	img_help disp 0

	// ʃtF[hAEg
	if( $801 == 0 )
		// ^Cgʂ̏
		topmask disp 1			// ^v[\...
		topmask fade 30 0 255	// tF[h
	else
		// V[̏
		pl fade 30 255 0		// \pv[tF[hAEg
	endif
	// tF[hI҂
	wait

	// \pv[
	pl disp 0

	if( $801 == 0 )
		// ^Cgʂ̏
		baseimg basemask	// ^摜x[XC[Wɐݒ
	endif

	// XNvgI
	exit -3		// -3̓Q[ĨR[h
	next SLEEP


////////////////////////////////////////
// [h
#SYS_LOAD
	// ݕ\Ă(pl̉摜)x[XC[W
	baseimg pl

	// \pv[
	// \pv[͏Ăx[XC[Wŕ\Ă̂
	// ̒iKł͌ڏ͉ʂ̕ύX͋NĂȂ
	pl disp 0

	// [hʏԂɃtOݒ
	$800 = 1	// [h
	\110 = 1	// [h[h

	// ʂtF[hC邽߁A\101
	\10 = 1

	// wvZbg
	call RESET_HELP

	// plXV
	next DISP_PANEL


////////////////////////////////////////
// Z[u
#SYS_SAVE
	// {Iɂ#SYS_LOADƓȂ̂ŃRg͊܂
	baseimg pl
	pl disp 0
	$800 = 0	// Z[u
	\110 = 0	// Z[u[h
	\10 = 1
	call RESET_HELP
	next DISP_PANEL


////////////////////////////////////////
// NCbN[h
#SYS_QLOAD
	// {Iɂ#SYS_LOADƓȂ̂ŃRg͊܂
	baseimg pl
	pl disp 0
	$800 = 2	// Q[h
	\110 = 2	// Q[h[h
	\10 = 1
	call RESET_HELP
	next DISP_PANEL


////////////////////////////////////////
// f[^폜
#SYS_DATA_DEL
	// SẴ{^𖳌
	call DISABLE_SYS_BUTTON

	// f[^폜{^ԂɕύX
	btn_sys[10] setid 3

	// ݂̃[hꎞޔ
	\111 = \110

	// [h폜[hɕύX
	\110 = 10

	// wv\Zbg
	call RESET_HELP

	// 폜ZI̔ѐݒ
	strvar 400 SYS_DATA_DEL2

	// UXV
	wait 1

	// ZI
	next SEL_SLOT


// ZI߂Ă̏
#SYS_DATA_DEL2
	// IꂽZobNAbv
	\130 = \0

	// ZɃf[^݂Ă邩
	if( $(870+(\102%12)) )
		// ݂Ăꍇ͍폜mF_CAO\

	 	// plwiIԂɕύX
		data[\130%12] dispid 0 0 1	// ʏEtH[JX\
		data[\130%12] dispid 1 2	// Ԃ\
		strvar 400 SYS_DATA_DEL3	// mF_CAOI̔ѐ
		\0 = 3						// mFe̐ݒ
		next CONFIRM				// mF_CAO
	endif
	
	// f[^݂ĂȂꍇ  폜LZČɖ߂

	// [hɖ߂
	\110 = \111

	// wvZbg
	call RESET_HELP

	// plXV
	next DISP_PANEL


// mF_CAOȈ
#SYS_DATA_DEL3
	if( \0 == 1 )
		// w͂xIꂽ
		savedelete \130		// Z[uf[^폜
		newsave 850 0 1200	// ŐVf[^Č
		\120 = $850			// \120 = ŐVf[^No
	endif

	// [hɖ߂
	\110 = \111

	// f[^폜EERs[ΏۂێtO
	\130 = 131 = -1

	// wvZbg
	call RESET_HELP

	// plXV
	next DISP_PANEL


////////////////////////////////////////
// f[^
#SYS_DATA_MOVE
	// SẴ{^𖳌
	call DISABLE_SYS_BUTTON

	// f[^{^ԂɕύX
	btn_sys[11] setid 3

	// ݂̃[hꎞޔ
	\111 = \110

	// [hiIj[hɕύX
	\110 = 11

	// wv\Zbg
	call RESET_HELP

	// ZI̔ѐݒ
	strvar 400 SYS_DATA_MOVE2

	// UXV
	wait 1

	// ZI
	next SEL_SLOT


// ZIiIj߂Ă̏
#SYS_DATA_MOVE2
	// IꂽZijۑ
	\130 = \0

 	// plwiIԂɕύX
	data[\130%12] dispid 0 0 1	// ʏEtH[JX\
	data[\130%12] dispid 1 2	// Ԃ\

	// [hiIj[hɕύX
	\110 = 12

	// wvZbg
	call RESET_HELP

	// ZI̔ѐݒ
	strvar 400 SYS_DATA_MOVE3

	// UXV
	wait 1

	// ZI
	next SEL_SLOT


// ZIiIj߂Ă̏
#SYS_DATA_MOVE3
	if( \0 == \130 )
		// IꂽZƓȂAx̑Is
		next SYS_DATA_MOVE2
	endif

	// Zۑ
	\131 = \0

 	// plwiIԂɕύX
	data[\131%12] dispid 0 0 1	// ʏEtH[JX\
	data[\131%12] dispid 1 2	// Ԃ\

	// 邩̊mF_CAO
	strvar 400 SYS_DATA_MOVE4	// mF_CAOI̔ѐ
	\0 = 5						// mFe̐ݒ
	next CONFIRM				// mF_CAO


// mF_CAOȈ
#SYS_DATA_MOVE4
	if( \0 == 1 )
		// w͂xIꂽ
		saveexchg \130 \131		// f[^
		newsave 850 0 1200		// ŐVf[^Č
		\120 = $850				// \120 = ŐVf[^No
	endif

	// [hɖ߂
	\110 = \111

	// f[^폜EERs[ΏۂێtO
	\130 = 131 = -1

	// wvZbg
	call RESET_HELP

	// plXV
	next DISP_PANEL


////////////////////////////////////////
// f[^Rs[
#SYS_DATA_COPY
	// SẴ{^𖳌
	call DISABLE_SYS_BUTTON

	// f[^Rs[{^ԂɕύX
	btn_sys[12] setid 3

	// ݂̃[hꎞޔ
	\111 = \110

	// [hRs[iRs[Ij[hɕύX
	\110 = 13

	// wv\Zbg
	call RESET_HELP

	// Rs[I
	next SYS_DATA_COPY1


// Rs[I
#SYS_DATA_COPY1
	// Rs[ZI̔ѐݒ
	strvar 400 SYS_DATA_COPY2

	// UXV
	wait 1

	// ZI
	next SEL_SLOT


// Rs[I߂Ă̏
#SYS_DATA_COPY2
	// Iꂽf[^݂邩`FbN
	saveexist \0 850 0x00010000
	if( !$850 )
		// ݂Ȃꍇ̓Rs[I蒼
		data[\0%12] dispid 1 1		// tH[JXԂ\
		data[\0%12] dispid 0 0 2	// ʏEԂ\
		next SYS_DATA_COPY1		// Rs[Iɖ߂
	endif

	// Rs[Zۑ
	\130 = \0

	// IꂽZԂɕύX
	data[\130%12] dispid 0 0 1	// ʏEtH[JX\
	data[\130%12] dispid 1 2	// Ԃ\

	// [hRs[iRs[Ij[hɕύX
	\110 = 14

	// wvZbg
	call RESET_HELP

	// Rs[ZI̔ѐݒ
	strvar 400 SYS_DATA_COPY3

	// UXV
	wait 1

	// ZI
	next SEL_SLOT


// Rs[Ȉ
#SYS_DATA_COPY3
	if( \0 == \130 )
		// Rs[ƃRs[悪Z̏ꍇ̓Rs[IȂ
		next SYS_DATA_COPY2
	endif

	// Rs[Zۑ
	\131 = \0

	// IꂽZԂɕύX
	data[\131%12] dispid 0 0 1	// ʏEtH[JX\
	data[\131%12] dispid 1 2	// Ԃ\

	// Rs[邩̊mF_CAO
	strvar 400 SYS_DATA_COPY4	// mF_CAOI̔ѐ
	\0 = 6						// mFe̐ݒ
	next CONFIRM				// mF_CAO


// mF_CAOȈ
#SYS_DATA_COPY4
	if( \0 == 1 )
		// w͂xIꂽ
		savecopy \130 \131		// f[^Rs[
		newsave 850 0 1200		// ŐVf[^Č
		\120 = $850				// \120 = ŐVf[^No
	endif

	// [hɖ߂
	\110 = \111

	// f[^폜EERs[ΏۂێtO
	\130 = 131 = -1

	// wvZbg
	call RESET_HELP

	// plXV
	next DISP_PANEL



////////////////////////////////////////
// f[^Z[u
#SAVE_DATA
	// SẴ{^𖳌
	call DISABLE_ALL_BUTTON
	wait 1

	// f[^ɑ݂Ăꍇ͊mF_CAO\
	if( $(870+\101) )
		strvar 400 SAVE_DATA2	// mF_CAOI̔ѐ
		\0 = 1					// mFe̐ݒ
		next CONFIRM			// mF_CAO
	endif

	// ㏑ԂłȂ΁A㏑mF_CAOŁw͂xIꂽƐݒ肵
	// Z[u
	\0 = 1			// w͂xIꂽƂɂ
	next SAVE_DATA2	// mF_CAOȈցi_CAO\XLbvj


// mF_CAOȈ
#SAVE_DATA2
	if( \0 == 1 )
		// w͂xIꂽ

		datasave \102 _SAVEOBJ_	// f[^Z[ui\102̓f[^Noj

		newsave 850 0 1200		// ŐVf[^Č
		\120 = $850				// \120 = ŐVf[^No

		// plwiɖ߂i\101̓plNoj
		data[\101] dispid 0 1 2	// tH[JXE\
		data[\101] dispid 1 0	// ʏ\

		// UXV
		wait 1

		// plXV
		next DISP_PANEL
	endif

	// UXV
	wait 1

	// plwiɖ߂i\101̓plNoj
	data[\101] dispid 0 1 2	// tH[JXE\
	data[\101] dispid 1 0	// ʏ\

	// {^L
	call ENABLE_BUTTON

	// ͑҂iC[vj
	next WAIT


////////////////////////////////////////
// f[^[h
#LOAD_DATA
	// SẴ{^𖳌
	call DISABLE_ALL_BUTTON

	// f[^݂Ăꍇ̓Z[u[hI
	if( $(870+\101) )
		baseimg				// x[XC[W
		img_help disp 0		// wv
		pl fade 30 255 0	// \pv[tF[hAEg
		wait	// tF[hAEg҂
		
		exit \102	// [hf[^Noݒ肵ďI
		next SLEEP
	endif

	// f[^ꍇ

	// UXV
	wait 1

	// plwiɖ߂i\101̓plNoj
	data[\101] dispid 0 1 2	// tH[JXE\
	data[\101] dispid 1 0	// ʏ\

	// {^L
	call ENABLE_BUTTON

	// ͑҂iC[vj
	next WAIT


////////////////////////////////////////
// 폜EړERs[̃plI
#SEL_SLOT
	// wvZbg
	call RESET_HELP

	// ͑҂
	next WAIT


// plIꂽ̏
#SEL_SLOT_END
	// Iꂽf[^No
	\0 = \102

	// w肳ꂽֈړ
	next $str400


////////////////////////////////////////
// mF_CAO
#CONFIRM
	// SẴ{^𖳌
	call DISABLE_ALL_BUTTON

	// Ô߁AqXNvgI
	endkcs
	endfes
	wait 1

	// _CAOs
	$860 = \0		// mFeID
	execfes conf	// _CAOs

	// _CAOI҂
	next CONFIRM_WAIT


// _CAOI҂
#CONFIRM_WAIT
	if( _EXITCODE_ != -1 )
		// _CAOI
		\0 = _EXITCODE_
		next CONFIRM_END	// I
	endif


// _CAOI
#CONFIRM_END
	// qXNvgi_CAOjI
	endfes
	wait

	// w肳ꂽֈړ
	next $str400

