window:
	res:
		windowType	wstandard
	endres:
endwindow:
close:
	res:
		bitmapPath	$(bitmaps)
		bitmapFile	CLOSE::CBM
	endres:
endclose:
title:
	res:
		leftLabel	ʱȭ
		leftKanjiFont	$(kanjiFont)
		leftFont	$(kanaFont)
		switch $(COLOR)
			case MONO:
				bitmapPath	$(bitmaps)
				backgroundFile	GRAY3
				transparent	false
				break
		endswitch
	endres:
endtitle:
dialog: dialogs
	res:
		defaultDistance		#(fWidth)
		dialogType		modeless
	endres:
	ditem: part
		res:
			itemType	bitmap
			leftLabel	'Ͻýۥ  : hd0xx'
			leftKanjiFont	$(kanjiFont)
			leftFont	$(kanaFont)
			vertDistance	#(fWidth)
			horizDistance	#(fWidth)
		endres:
	endditem:
	ditem: size
		res:
			itemType	bitmap
			fromVert	part
			leftLabel	'  : 12345678KB'
			leftKanjiFont	$(kanjiFont)
			leftFont	$(kanaFont)
			vertDistance	4
			horizDistance	#(fWidth)
		endres:
	endditem:
	ditem: init_label
		res:
			itemType	bitmap
			fromVert	size
			label		'()ʱȭ    :'
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			vertDistance	#(fWidth)
			horizDistance	#(fWidth)
		endres:
	endditem:
	ditem: init
		res:
			itemType	button
			fromVert	size
			fromHoriz	init_label
			label		' ƴ '
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			vertDistance	#(fWidth)
			horizDistance	6
		endres:
		act:
			switch $(TMP_REINIT)
				case on:
					put off $(TMP_REINIT)
					break
				case off:
					put on $(TMP_REINIT)
					break
			endswitch
			put on $(CHANGE_PART)
			job chg_init
		endact:
	endditem:
	ditem: fsck_label
		res:
			itemType	bitmap
			fromVert	init_label
			label		'      :'
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			vertDistance	#(fWidth)
			horizDistance	#(fWidth)
		endres:
	endditem:
	ditem: fsck
		res:
			itemType	button
			fromVert	init_label
			fromHoriz	fsck_label
			label		' ƴ '
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			vertDistance	#(fWidth)
			horizDistance	6
		endres:
		act:
			switch $(TMP_DISK_FSCK)
				case on:
					put off $(TMP_DISK_FSCK)
					break
				case off:
					put on $(TMP_DISK_FSCK)
					break
			endswitch
			put on $(CHANGE_PART)
			job chg_fsck
		endact:
	endditem:
	ditem: write_label
		res:
			itemType	bitmap
			fromVert	fsck_label
			label		'ϱ      :'
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			vertDistance	#(fWidth)
			horizDistance	#(fWidth)
		endres:
	endditem:
	ditem: write
		res:
			itemType	button
			fromVert	fsck_label
			fromHoriz	write_label
			label		'   '
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			vertDistance	#(fWidth)
			horizDistance	6
		endres:
		act:
			switch $(TMP_DISK_WRITE)
				case on:
					put off $(TMP_DISK_WRITE)
					break
				case off:
					put on $(TMP_DISK_WRITE)
					break
			endswitch
			put on $(CHANGE_PART)
			job chg_write
		endact:
	endditem:
	ditem: autom_label
		res:
			itemType	bitmap
			fromVert	write_label
			label		'⵿ Ʈ :'
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			vertDistance	#(fWidth)
			horizDistance	#(fWidth)
		endres:
	endditem:
	ditem: autom
		res:
			itemType	button
			fromVert	write_label
			fromHoriz	autom_label
			label		' ƴ '
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			vertDistance	#(fWidth)
			horizDistance	6
		endres:
		act:
			switch $(TMP_DISK_AUTO)
				case on:
					put off $(TMP_DISK_AUTO)
					break
				case off:
					put on $(TMP_DISK_AUTO)
					break
			endswitch
			put on $(CHANGE_PART)
			job chg_autom
		endact:
	endditem:
	ditem: dir_label
		res:
			itemType	button
			fromVert	autom_label
			label		'丮      :'
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			vertDistance	#(fWidth)
			horizDistance	#(fWidth)
		endres:
		act:
			$(getdir) = getdir
			trap $(getdir) getdir
		endact:
	endditem:
	ditem: dir
		res:
			itemType	text
			fromVert	autom_label
			fromHoriz	dir_label
			vertDistance	#(fWidth)
			horizDistance	6
			length		32
			height		#(fHeight)
			width		#(fWidth)*32+4
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			shadowWidth	0
			borderWidth	2
			focus
		endres:
		act:
			put $(line)
			put $(line)@0 $(TMP_DISK_DIR)
		endact:
	endditem:
	ditem: change
		res:
			itemType	button
			fromHoriz	part
			label		'   '
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			vertDistance	#(fWidth)
			horizDistance	#(fWidth)*14
		endres:
		act:
			switch $(TMP_DISK_DIR)
				case '':
					put 1 $(err_no)
					job err
					quit
				case /\*:
					break
				default:
					put 2 $(err_no)
					job err
					quit
			endswitch
			switch $(INITED)
				case off:
					switch $(TMP_REINIT)
						case off:
							switch $(TMP_DISK_AUTO)
								case on:
									put 3 $(err_no)
									job err
									quit
							endswitch
							switch $(TMP_DISK_FSCK)
								case on:
									put 6 $(err_no)
									job err
									quit
							endswitch
					endswitch
			endswitch
			$(etc)/Common/Smkdir.sh -c / $(TMP_DISK_DIR) > $(ERR_LIST)
			switch #(status)
				case 0x100:
					put 4 $(err_no)
					job err
					quit
				case 0x500:
					put 5 $(err_no)
					job err
					quit
			endswitch
			switch $(CHANGE_PART)
				case off:
					switch $(TMP_DISK_DIR)
						case $(DISK_DIR):
							break
						default:
							put on $(CHANGE_PART)
							put $(TMP_DISK_DIR) $(DISK_DIR)
							break
					endswitch
					break
				case on:
					put $(TMP_REINIT) $(REINIT)
					put $(TMP_DISK_FSCK) $(DISK_FSCK)
					put $(TMP_DISK_WRITE) $(DISK_WRITE)
					put $(TMP_DISK_AUTO) $(DISK_AUTO)
					put $(TMP_DISK_DIR) $(DISK_DIR)
					break
			endswitch
			job close
		endact:
	endditem:
	ditem: reset
		res:
			itemType	button
			fromVert	change
			fromHoriz	part
			label		'   '
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			vertDistance	#(fWidth)
			horizDistance	#(fWidth)*14
		endres:
		act:
			job reset
		endact:
	endditem:
enddialog:
proc: pre
	put 0 $(menu_no)
	$(tmp) = mktemp
	put /tmp/$(tmp) $(ERR_LIST)
endproc:
proc: close
	job off
	close
endproc:
proc: off
	switch #(menu_no)
		case 10:
			close $(err)
			break
	endswitch
	rm -f $(ERR_LIST)
endproc:
proc: open
	setval part leftLabel ' ý   : $(DRIVE_NO)$(PART)'
	setval size leftLabel '        : $(SIZE)KB'
	job reset
endproc:
proc: reset
	put off $(CHANGE_PART)
	put $(REINIT) $(TMP_REINIT)
	job chg_init
	put $(DISK_FSCK) $(TMP_DISK_FSCK)
	job chg_fsck
	put $(DISK_WRITE) $(TMP_DISK_WRITE)
	job chg_write
	put $(DISK_AUTO) $(TMP_DISK_AUTO)
	job chg_autom
	put $(DISK_DIR) $(TMP_DISK_DIR)
	setval dir string $(TMP_DISK_DIR)
endproc:
proc: chg_init
	switch $(TMP_REINIT)
		case on:
			setval init label '  '
			break
		case off:
			setval init label ' ƴ '
			break
	endswitch
endproc:
proc: chg_fsck
	switch $(TMP_DISK_FSCK)
		case on:
			setval fsck label '  '
			break
		case off:
			setval fsck label ' ƴ '
			break
	endswitch
endproc:
proc: chg_write
	switch $(TMP_DISK_WRITE)
		case on:
			setval write label '   '
			break
		case off:
			setval write label '   '
			break
	endswitch
endproc:
proc: chg_autom
	switch $(TMP_DISK_AUTO)
		case on:
			setval autom label '  '
			break
		case off:
			setval autom label ' ƴ '
			break
	endswitch
endproc:
proc: err
	put 10 $(menu_no)
	switch #(err_no)
		case 1:
			put '丮 Ͽ ֽʽÿ.' $(confirm_msg1)
			$(err) = sub $(commonPath)/error1 ++48++48
			break
		case 2:
			put '丮 /  ۵Ǵ н Ͽ ֽʽÿ.' $(confirm_msg1)
			$(err) = sub $(commonPath)/error1 ++48++48
			break
		case 3:
			put 'ũ ʱȭ  ä, ' $(confirm_msg1)
			put '⵿ Ʈ  ȵ˴ϴ.' $(confirm_msg2)
			$(err) = sub $(commonPath)/error2 ++48++48
			break
		case 4:
			put $(error_dir) < $(ERR_LIST)
			put '$(error_dir)() 丮 ƴ  ϹǷ, ' $(confirm_msg1)
			put '丮$(TMP_DISK_DIR)() ۼ  ϴ.' $(confirm_msg2)
			$(err) = sub $(commonPath)/error2 ++48++48
			break
		case 5:
			put '丮$(TMP_DISK_DIR)() ۼ  ϴ.' $(confirm_msg1)
			$(err) = sub $(commonPath)/error1 ++48++48
			break
		case 6:
			put 'ũ ʱȭ  ä, ' $(confirm_msg1)
			put '  ȵ˴ϴ.' $(confirm_msg2)
			$(err) = sub $(commonPath)/error2 ++48++48
			break
	endswitch
	buzzer
	trap $(err) err_end
endproc:
proc: getdir
	switch #(pg_stat)
		case 0:
			setval dir string $(pg_path)
			break
	endswitch
endproc:
proc: err_end
	put 0 $(menu_no)
endproc:
proc: unmap
	switch #(menu_no)
		case 10:
			unmap $(err)
			break
	endswitch
endproc:
proc: map
	switch #(menu_no)
		case 10:
			move $(err)
			raise $(err)
			map $(err)
			break
	endswitch
endproc:
proc: title
	job move
	job up
endproc:
proc: raise
	job up
endproc:
proc: move
	switch #(menu_no)
		case 10:
			move $(err)
			break
	endswitch
endproc:
proc: up
	switch #(menu_no)
		case 10:
			raise $(err)
			break
	endswitch
endproc:
