window:
	res:
		windowType	wstandard
	endres:
endwindow:
close:
	res:
		bitmapPath	$(bitmaps)
		bitmapFile	CLOSE::CBM
	endres:
endclose:
title:
	res:
		leftLabel	fBXN̏
		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: msg1
		res:
			itemType	bitmap
			leftLabel	p|eBV̑gݍ킹w肵ĉB
			leftKanjiFont	$(kanjiFont)
			leftFont	$(kanaFont)
			vertDistance	#(fWidth)
			horizDistance	#(fWidth)*2
		endres:
	endditem:
	ditem: msg2
		res:
			itemType	bitmap
			leftLabel	p|eBV(MBytes)
			leftKanjiFont	$(kanjiFont)
			leftFont	$(kanaFont)
			fromHoriz	msg1
			vertDistance	#(fWidth)*2-4
			horizDistance	#(fWidth)*4
		endres:
	endditem:
	ditem: 1c
		res:
			itemType	button
			fromVert	msg2
			label		c(415)
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			vertDistance	#(fWidth)
			horizDistance	#(fWidth)
			borderWidth	1
			width		#(fWidth)*62+17
			translations	'<Btn1Down>: set() notify() unset()'
			bitmapPath	$(bitmaps)
			highlightMode	0
			selectMode	0
		endres:
		act:
			put 1 $(kind)
			job change
		endact:
	endditem:
	ditem: 2a
		res:
			itemType	button
			fromVert	1c
			label		a(7)
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			vertDistance	#(fWidth)
			horizDistance	#(fWidth)
			borderWidth	1
			width		#(fWidth)*4+6
			translations	'<Btn1Down>: set() notify() unset()'
			bitmapPath	$(bitmaps)
			highlightMode	0
			selectMode	0
		endres:
		act:
			put 2 $(kind)
			job change
		endact:
	endditem:
	ditem: 2b
		res:
			itemType	button
			label		b(32)
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			fromVert	1c
			fromHoriz	2a
			vertDistance	#(fWidth)
			horizDistance	-1
			borderWidth	1
			width		#(fWidth)*6
			translations	'<Btn1Down>: set() notify() unset()'
			bitmapPath	$(bitmaps)
			highlightMode	0
			selectMode	0
		endres:
		act:
			put 2 $(kind)
			job change
		endact:
	endditem:
	ditem: 2h
		res:
			itemType	button
			label		h(142)
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			fromVert	1c
			fromHoriz	2b
			vertDistance	#(fWidth)
			horizDistance	-1
			borderWidth	1
			width		#(fWidth)*14
			translations	'<Btn1Down>: set() notify() unset()'
			bitmapPath	$(bitmaps)
			highlightMode	0
			selectMode	0
		endres:
		act:
			put 2 $(kind)
			job change
		endact:
	endditem:
	ditem: 2d
		res:
			itemType	button
			fromVert	1c
			fromHoriz	2h
			label		d(7)
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			vertDistance	#(fWidth)
			horizDistance	-1
			borderWidth	1
			width		#(fWidth)*4+6
			translations	'<Btn1Down>: set() notify() unset()'
			bitmapPath	$(bitmaps)
			highlightMode	0
			selectMode	0
		endres:
		act:
			put 2 $(kind)
			job change
		endact:
	endditem:
	ditem: 2e
		res:
			itemType	button
			label		e(150)
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			fromVert	1c
			fromHoriz	2d
			vertDistance	#(fWidth)
			horizDistance	-1
			borderWidth	1
			width		#(fWidth)*16
			translations	'<Btn1Down>: set() notify() unset()'
			bitmapPath	$(bitmaps)
			highlightMode	0
			selectMode	0
		endres:
		act:
			put 2 $(kind)
			job change
		endact:
	endditem:
	ditem: 2f
		res:
			itemType	button
			label		f(74)
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			fromVert	1c
			fromHoriz	2e
			vertDistance	#(fWidth)
			horizDistance	-1
			borderWidth	1
			width		#(fWidth)*18
			translations	'<Btn1Down>: set() notify() unset()'
			bitmapPath	$(bitmaps)
			highlightMode	0
			selectMode	0
		endres:
		act:
			put 2 $(kind)
			job change
		endact:
	endditem:
	ditem: 3a
		res:
			itemType	button
			fromVert	2a
			label		a(7)
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			vertDistance	#(fWidth)
			horizDistance	#(fWidth)
			borderWidth	1
			width		#(fWidth)*4+6
			translations	'<Btn1Down>: set() notify() unset()'
			bitmapPath	$(bitmaps)
			highlightMode	0
			selectMode	0
		endres:
		act:
			put 3 $(kind)
			job change
		endact:
	endditem:
	ditem: 3b
		res:
			itemType	button
			label		b(32)
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			fromVert	2a
			fromHoriz	3a
			vertDistance	#(fWidth)
			horizDistance	-1
			borderWidth	1
			width		#(fWidth)*6
			translations	'<Btn1Down>: set() notify() unset()'
			bitmapPath	$(bitmaps)
			highlightMode	0
			selectMode	0
		endres:
		act:
			put 3 $(kind)
			job change
		endact:
	endditem:
	ditem: 3h
		res:
			itemType	button
			label		h(142)
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			fromVert	2a
			fromHoriz	3b
			vertDistance	#(fWidth)
			horizDistance	-1
			borderWidth	1
			width		#(fWidth)*14
			translations	'<Btn1Down>: set() notify() unset()'
			bitmapPath	$(bitmaps)
			highlightMode	0
			selectMode	0
		endres:
		act:
			put 3 $(kind)
			job change
		endact:
	endditem:
	ditem: 3g
		res:
			itemType	button
			label		g(232)
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			fromVert	2a
			fromHoriz	3h
			vertDistance	#(fWidth)
			horizDistance	-1
			borderWidth	1
			width		#(fWidth)*38+8
			translations	'<Btn1Down>: set() notify() unset()'
			bitmapPath	$(bitmaps)
			highlightMode	0
			selectMode	0
		endres:
		act:
			put 3 $(kind)
			job change
		endact:
	endditem:
	ditem: 4a
		res:
			itemType	button
			fromVert	3a
			label		a(7)
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			vertDistance	#(fWidth)
			horizDistance	#(fWidth)
			borderWidth	1
			width		#(fWidth)*4+6
			translations	'<Btn1Down>: set() notify() unset()'
			bitmapPath	$(bitmaps)
			highlightMode	0
			selectMode	0
		endres:
		act:
			put 4 $(kind)
			job change
		endact:
	endditem:
	ditem: 4b
		res:
			itemType	button
			label		b(32)
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			fromVert	3a
			fromHoriz	4a
			vertDistance	#(fWidth)
			horizDistance	-1
			borderWidth	1
			width		#(fWidth)*6
			translations	'<Btn1Down>: set() notify() unset()'
			bitmapPath	$(bitmaps)
			highlightMode	0
			selectMode	0
		endres:
		act:
			put 4 $(kind)
			job change
		endact:
	endditem:
	ditem: 4h
		res:
			itemType	button
			label		h(179)
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			fromVert	3a
			fromHoriz	4b
			vertDistance	#(fWidth)
			horizDistance	-1
			borderWidth	1
			width		#(fWidth)*22
			translations	'<Btn1Down>: set() notify() unset()'
			bitmapPath	$(bitmaps)
			highlightMode	0
			selectMode	0
		endres:
		act:
			put 4 $(kind)
			job change
		endact:
	endditem:
	ditem: 4d
		res:
			itemType	button
			fromVert	3a
			fromHoriz	4h
			label		d(7)
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			vertDistance	#(fWidth)
			horizDistance	-1
			borderWidth	1
			width		#(fWidth)*4+6
			translations	'<Btn1Down>: set() notify() unset()'
			bitmapPath	$(bitmaps)
			highlightMode	0
			selectMode	0
		endres:
		act:
			put 4 $(kind)
			job change
		endact:
	endditem:
	ditem: 4e
		res:
			itemType	button
			label		e(27)
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			fromVert	3a
			fromHoriz	4d
			vertDistance	#(fWidth)
			horizDistance	-1
			borderWidth	1
			width		#(fWidth)*6
			translations	'<Btn1Down>: set() notify() unset()'
			bitmapPath	$(bitmaps)
			highlightMode	0
			selectMode	0
		endres:
		act:
			put 4 $(kind)
			job change
		endact:
	endditem:
	ditem: 4f
		res:
			itemType	button
			label		f(160)
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			fromVert	3a
			fromHoriz	4e
			vertDistance	#(fWidth)
			horizDistance	-1
			borderWidth	1
			width		#(fWidth)*20
			translations	'<Btn1Down>: set() notify() unset()'
			bitmapPath	$(bitmaps)
			highlightMode	0
			selectMode	0
		endres:
		act:
			put 4 $(kind)
			job change
		endact:
	endditem:
	ditem: 5a
		res:
			itemType	button
			fromVert	4a
			label		a(7)
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			vertDistance	#(fWidth)
			horizDistance	#(fWidth)
			borderWidth	1
			width		#(fWidth)*4+6
			translations	'<Btn1Down>: set() notify() unset()'
			bitmapPath	$(bitmaps)
			highlightMode	0
			selectMode	0
		endres:
		act:
			put 5 $(kind)
			job change
		endact:
	endditem:
	ditem: 5b
		res:
			itemType	button
			label		b(32)
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			fromVert	4a
			fromHoriz	5a
			vertDistance	#(fWidth)
			horizDistance	-1
			borderWidth	1
			width		#(fWidth)*6
			translations	'<Btn1Down>: set() notify() unset()'
			bitmapPath	$(bitmaps)
			highlightMode	0
			selectMode	0
		endres:
		act:
			put 5 $(kind)
			job change
		endact:
	endditem:
	ditem: 5h
		res:
			itemType	button
			label		h(179)
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			fromVert	4a
			fromHoriz	5b
			vertDistance	#(fWidth)
			horizDistance	-1
			borderWidth	1
			width		#(fWidth)*22
			translations	'<Btn1Down>: set() notify() unset()'
			bitmapPath	$(bitmaps)
			highlightMode	0
			selectMode	0
		endres:
		act:
			put 5 $(kind)
			job change
		endact:
	endditem:
	ditem: 5g
		res:
			itemType	button
			label		g(195)
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			fromVert	4a
			fromHoriz	5h
			vertDistance	#(fWidth)
			horizDistance	-1
			borderWidth	1
			width		#(fWidth)*30+8
			translations	'<Btn1Down>: set() notify() unset()'
			bitmapPath	$(bitmaps)
			highlightMode	0
			selectMode	0
		endres:
		act:
			put 5 $(kind)
			job change
		endact:
	endditem:
	ditem: 6a
		res:
			itemType	button
			fromVert	5a
			label		a(7)
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			vertDistance	#(fWidth)
			horizDistance	#(fWidth)
			borderWidth	1
			width		#(fWidth)*4+6
			translations	'<Btn1Down>: set() notify() unset()'
			bitmapPath	$(bitmaps)
			highlightMode	0
			selectMode	0
		endres:
		act:
			put 6 $(kind)
			job change
		endact:
	endditem:
	ditem: 6b
		res:
			itemType	button
			label		b(32)
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			fromVert	5a
			fromHoriz	6a
			vertDistance	#(fWidth)
			horizDistance	-1
			borderWidth	1
			width		#(fWidth)*6
			translations	'<Btn1Down>: set() notify() unset()'
			bitmapPath	$(bitmaps)
			highlightMode	0
			selectMode	0
		endres:
		act:
			put 6 $(kind)
			job change
		endact:
	endditem:
	ditem: 6h
		res:
			itemType	button
			label		h(281)
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			fromVert	5a
			fromHoriz	6b
			vertDistance	#(fWidth)
			horizDistance	-1
			borderWidth	1
			width		#(fWidth)*34
			translations	'<Btn1Down>: set() notify() unset()'
			bitmapPath	$(bitmaps)
			highlightMode	0
			selectMode	0
		endres:
		act:
			put 6 $(kind)
			job change
		endact:
	endditem:
	ditem: 6d
		res:
			itemType	button
			fromVert	5a
			fromHoriz	6h
			label		d(7)
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			vertDistance	#(fWidth)
			horizDistance	-1
			borderWidth	1
			width		#(fWidth)*4+6
			translations	'<Btn1Down>: set() notify() unset()'
			bitmapPath	$(bitmaps)
			highlightMode	0
			selectMode	0
		endres:
		act:
			put 6 $(kind)
			job change
		endact:
	endditem:
	ditem: 6e
		res:
			itemType	button
			label		e(27)
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			fromVert	5a
			fromHoriz	6d
			vertDistance	#(fWidth)
			horizDistance	-1
			borderWidth	1
			width		#(fWidth)*6
			translations	'<Btn1Down>: set() notify() unset()'
			bitmapPath	$(bitmaps)
			highlightMode	0
			selectMode	0
		endres:
		act:
			put 6 $(kind)
			job change
		endact:
	endditem:
	ditem: 6f
		res:
			itemType	button
			label		f(58)
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			fromVert	5a
			fromHoriz	6e
			vertDistance	#(fWidth)
			horizDistance	-1
			borderWidth	1
			width		#(fWidth)*8
			translations	'<Btn1Down>: set() notify() unset()'
			bitmapPath	$(bitmaps)
			highlightMode	0
			selectMode	0
		endres:
		act:
			put 6 $(kind)
			job change
		endact:
	endditem:
	ditem: 7a
		res:
			itemType	button
			fromVert	6a
			label		a(7)
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			vertDistance	#(fWidth)
			horizDistance	#(fWidth)
			borderWidth	1
			width		#(fWidth)*4+6
			translations	'<Btn1Down>: set() notify() unset()'
			bitmapPath	$(bitmaps)
			highlightMode	0
			selectMode	0
		endres:
		act:
			put 7 $(kind)
			job change
		endact:
	endditem:
	ditem: 7b
		res:
			itemType	button
			label		b(32)
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			fromVert	6a
			fromHoriz	7a
			vertDistance	#(fWidth)
			horizDistance	-1
			borderWidth	1
			width		#(fWidth)*6
			translations	'<Btn1Down>: set() notify() unset()'
			bitmapPath	$(bitmaps)
			highlightMode	0
			selectMode	0
		endres:
		act:
			put 7 $(kind)
			job change
		endact:
	endditem:
	ditem: 7h
		res:
			itemType	button
			label		h(281)
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			fromVert	6a
			fromHoriz	7b
			vertDistance	#(fWidth)
			horizDistance	-1
			borderWidth	1
			width		#(fWidth)*34
			translations	'<Btn1Down>: set() notify() unset()'
			bitmapPath	$(bitmaps)
			highlightMode	0
			selectMode	0
		endres:
		act:
			put 7 $(kind)
			job change
		endact:
	endditem:
	ditem: 7g
		res:
			itemType	button
			label		g(93)
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			fromVert	6a
			fromHoriz	7h
			vertDistance	#(fWidth)
			horizDistance	-1
			borderWidth	1
			width		#(fWidth)*18+8
			translations	'<Btn1Down>: set() notify() unset()'
			bitmapPath	$(bitmaps)
			highlightMode	0
			selectMode	0
		endres:
		act:
			put 7 $(kind)
			job change
		endact:
	endditem:
	ditem: select
		res:
			itemType	button
			fromVert	msg2
			fromHoriz	1c
			label		' I@ '
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			vertDistance	#(fWidth)
			horizDistance	#(fWidth)*2
		endres:
		act:
			switch #(kind)
				case 1:
				case 2:
				case 3:
					put hd415_hh $(DRIVE_TYPE)
					break
				case 4:
				case 5:
					put hd415_hhR $(DRIVE_TYPE)
					break
				case 6:
				case 7:
					put hd415_hhF $(DRIVE_TYPE)
					break
			endswitch
			job off
			close
		endact:
	endditem:
	ditem: note1
		res:
			itemType	bitmap
			fromVert	7a
			label		'啶[xxx]'
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			foreground	brown
			vertDistance	#(fWidth)
			horizDistance	#(fWidth)
			bitmapPath	$(bitmaps)
		endres:
	endditem:
	ditem: note2
		res:
			itemType	bitmap
			fromVert	7a
			fromHoriz	note1
			label		'͊ɎgpĂp|eBVł邱ƂĂ܂B'
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			vertDistance	#(fWidth)
			horizDistance	0
		endres:
	endditem:
enddialog:
proc: pre
	put 0 $(menu_no)
	put on $(mapped)
	put off $(opened)
	put 0 $(kind)
	put 0 $(cur_kind)
	put off $(a)
	put off $(c)
	put off $(d)
	put off $(dR)
	put off $(dF)
	put off $(e)
	put off $(eR)
	put off $(eF)
	put off $(f)
	put off $(fR)
	put off $(fF)
	put off $(g)
	put off $(gR)
	put off $(gF)
	put off $(h)
	put off $(hR)
	put off $(hF)
endproc:
proc: close
	switch $(ONRUN)
		case on:
			quit
	endswitch
	job off
	put '' $(DRIVE_TYPE)
	close
endproc:
proc: off
	job unselect
	switch $(c)
		case on:
			setval 1c label c(415)
			setval 1c foreground black
			setval 1c selected false
			setval 1c selectedBack #aebddb
			setval 1c selectedFore black
			switch $(COLOR)
				case MONO:
				case GRAY:
					setval 1c backgroundFile close_box_16::CBM
					break
			endswitch
			quit
	endswitch
	switch $(a)
		case on:
			setval 2a label a(7)
			setval 3a label a(7)
			setval 4a label a(7)
			setval 5a label a(7)
			setval 6a label a(7)
			setval 7a label a(7)
			setval 2a foreground black
			setval 3a foreground black
			setval 4a foreground black
			setval 5a foreground black
			setval 6a foreground black
			setval 7a foreground black
			setval 2a selected false
			setval 3a selected false
			setval 4a selected false
			setval 5a selected false
			setval 6a selected false
			setval 7a selected false
			setval 2a selectedBack #aebddb
			setval 3a selectedBack #aebddb
			setval 4a selectedBack #aebddb
			setval 5a selectedBack #aebddb
			setval 6a selectedBack #aebddb
			setval 7a selectedBack #aebddb
			setval 2a selectedFore black
			setval 3a selectedFore black
			setval 4a selectedFore black
			setval 5a selectedFore black
			setval 6a selectedFore black
			setval 7a selectedFore black
			switch $(COLOR)
				case MONO:
				case GRAY:
					setval 2a backgroundFile close_box_16::CBM
					setval 3a backgroundFile close_box_16::CBM
					setval 4a backgroundFile close_box_16::CBM
					setval 5a backgroundFile close_box_16::CBM
					setval 6a backgroundFile close_box_16::CBM
					setval 7a backgroundFile close_box_16::CBM
					break
			endswitch
			break
	endswitch
	switch $(h)
		case on:
			setval 2h label h(142)
			setval 3h label h(142)
			setval 2h foreground black
			setval 3h foreground black
			setval 2h selected false
			setval 3h selected false
			setval 2h selectedBack #aebddb
			setval 3h selectedBack #aebddb
			setval 2h selectedFore black
			setval 3h selectedFore black
			switch $(COLOR)
				case MONO:
				case GRAY:
					setval 2h backgroundFile close_box_16::CBM
					setval 3h backgroundFile close_box_16::CBM
					break
			endswitch
	endswitch
	switch $(hR)
		case on:
			setval 4h label h(179)
			setval 5h label h(179)
			setval 4h foreground black
			setval 5h foreground black
			setval 4h selected false
			setval 5h selected false
			setval 4h selectedBack #aebddb
			setval 5h selectedBack #aebddb
			setval 4h selectedFore black
			setval 5h selectedFore black
			switch $(COLOR)
				case MONO:
				case GRAY:
					setval 4h backgroundFile close_box_16::CBM
					setval 5h backgroundFile close_box_16::CBM
					break
			endswitch
	endswitch
	switch $(hF)
		case on:
			setval 6h label h(281)
			setval 7h label h(281)
			setval 6h foreground black
			setval 7h foreground black
			setval 6h selected false
			setval 7h selected false
			setval 6h selectedBack #aebddb
			setval 7h selectedBack #aebddb
			setval 6h selectedFore black
			setval 7h selectedFore black
			switch $(COLOR)
				case MONO:
				case GRAY:
					setval 6h backgroundFile close_box_16::CBM
					setval 7h backgroundFile close_box_16::CBM
					break
			endswitch
	endswitch
	switch $(g)
		case on:
			setval 3g label g(232)
			setval 3g foreground black
			setval 3g selected false
			setval 3g selectedBack #aebddb
			setval 3g selectedFore black
			switch $(COLOR)
				case MONO:
				case GRAY:
					setval 3g backgroundFile close_box_16::CBM
					break
			endswitch
			quit
	endswitch
	switch $(gR)
		case on:
			setval 5g label g(195)
			setval 5g foreground black
			setval 5g selected false
			setval 5g selectedBack #aebddb
			setval 5g selectedFore black
			switch $(COLOR)
				case MONO:
				case GRAY:
					setval 5g backgroundFile close_box_16::CBM
					break
			endswitch
			quit
	endswitch
	switch $(gF)
		case on:
			setval 7g label g(93)
			setval 7g foreground black
			setval 7g selected false
			setval 7g selectedBack #aebddb
			setval 7g selectedFore black
			switch $(COLOR)
				case MONO:
				case GRAY:
					setval 7g backgroundFile close_box_16::CBM
					break
			endswitch
			quit
	endswitch
	switch $(f)
		case on:
			setval 2f label f(74)
			setval 2f foreground black
			setval 2f selected false
			setval 2f selectedBack #aebddb
			setval 2f selectedFore black
			switch $(COLOR)
				case MONO:
				case GRAY:
					setval 2f backgroundFile close_box_16::CBM
					break
			endswitch
	endswitch
	switch $(fR)
		case on:
			setval 4f label f(160)
			setval 4f foreground black
			setval 4f selected false
			setval 4f selectedBack #aebddb
			setval 4f selectedFore black
			switch $(COLOR)
				case MONO:
				case GRAY:
					setval 4f backgroundFile close_box_16::CBM
					break
			endswitch
	endswitch
	switch $(fF)
		case on:
			setval 6f label f(58)
			setval 6f foreground black
			setval 6f selected false
			setval 6f selectedBack #aebddb
			setval 6f selectedFore black
			switch $(COLOR)
				case MONO:
				case GRAY:
					setval 6f backgroundFile close_box_16::CBM
					break
			endswitch
	endswitch
	switch $(e)
		case on:
			setval 2e label e(150)
			setval 2e foreground black
			setval 2e selected false
			setval 2e selectedBack #aebddb
			setval 2e selectedFore black
			switch $(COLOR)
				case MONO:
				case GRAY:
					setval 2e backgroundFile close_box_16::CBM
					break
			endswitch
	endswitch
	switch $(eR)
		case on:
			setval 4e label e(27)
			setval 4e foreground black
			setval 4e selected false
			setval 4e selectedBack #aebddb
			setval 4e selectedFore black
			switch $(COLOR)
				case MONO:
				case GRAY:
					setval 4e backgroundFile close_box_16::CBM
					break
			endswitch
	endswitch
	switch $(eF)
		case on:
			setval 6e label e(27)
			setval 6e foreground black
			setval 6e selected false
			setval 6e selectedBack #aebddb
			setval 6e selectedFore black
			switch $(COLOR)
				case MONO:
				case GRAY:
					setval 6e backgroundFile close_box_16::CBM
					break
			endswitch
	endswitch
	switch $(d)
		case on:
			setval 2d label d(7)
			setval 2d foreground black
			setval 2d selected false
			setval 2d selectedBack #aebddb
			setval 2d selectedFore black
			switch $(COLOR)
				case MONO:
				case GRAY:
					setval 2d backgroundFile close_box_16::CBM
					break
			endswitch
	endswitch
	switch $(dR)
		case on:
			setval 4d label d(7)
			setval 4d foreground black
			setval 4d selected false
			setval 4d selectedBack #aebddb
			setval 4d selectedFore black
			switch $(COLOR)
				case MONO:
				case GRAY:
					setval 4d backgroundFile close_box_16::CBM
					break
			endswitch
	endswitch
	switch $(dF)
		case on:
			setval 6d label d(7)
			setval 6d foreground black
			setval 6d selected false
			setval 6d selectedBack #aebddb
			setval 6d selectedFore black
			switch $(COLOR)
				case MONO:
				case GRAY:
					setval 6d backgroundFile close_box_16::CBM
					break
			endswitch
	endswitch
endproc:
proc: unselect
	switch #(cur_kind)
		case 1:
			setval 1c selected false
			break
		case 2:
			setval 2a borderColor black
			setval 2b borderColor black
			setval 2d borderColor black
			setval 2e borderColor black
			setval 2f borderColor black
			setval 2h borderColor black
			setval 2a selected false
			setval 2b selected false
			setval 2d selected false
			setval 2e selected false
			setval 2f selected false
			setval 2h selected false
			break
		case 3:
			setval 3a borderColor black
			setval 3b borderColor black
			setval 3g borderColor black
			setval 3h borderColor black
			setval 3a selected false
			setval 3b selected false
			setval 3g selected false
			setval 3h selected false
			break
		case 4:
			setval 4a borderColor black
			setval 4b borderColor black
			setval 4d borderColor black
			setval 4e borderColor black
			setval 4f borderColor black
			setval 4h borderColor black
			setval 4a selected false
			setval 4b selected false
			setval 4d selected false
			setval 4e selected false
			setval 4f selected false
			setval 4h selected false
			break
		case 5:
			setval 5a borderColor black
			setval 5b borderColor black
			setval 5g borderColor black
			setval 5h borderColor black
			setval 5a selected false
			setval 5b selected false
			setval 5g selected false
			setval 5h selected false
			break
		case 6:
			setval 6a borderColor black
			setval 6b borderColor black
			setval 6d borderColor black
			setval 6e borderColor black
			setval 6f borderColor black
			setval 6h borderColor black
			setval 6a selected false
			setval 6b selected false
			setval 6d selected false
			setval 6e selected false
			setval 6f selected false
			setval 6h selected false
			break
		case 7:
			setval 7a borderColor black
			setval 7b borderColor black
			setval 7g borderColor black
			setval 7h borderColor black
			setval 7a selected false
			setval 7b selected false
			setval 7g selected false
			setval 7h selected false
			break
	endswitch
endproc:
proc: open
	setval select sensitive false
	put /dev/r$(DRIVE_NO) $(dev)
	$(bin)/Sgetdinfo $(DRIVE_NO) 2> /dev/null
	switch #(status)
		case 0x100:
			job noinfo
			break
		case 0x200:
		case 0x300:
			quit
		case 0:
			put $(stdout) $(DISK_TYPE)
			switch $(DISK_TYPE)
				case hd415_hh:
				case HD415_HH:
					job hd415_hh
						break
				case hd415_hhR:
				case HD415_HHR:
					job hd415_hhR
						break
				case hd415_hhF:
				case HD415_HHF:
					job hd415_hhF
						break
			endswitch
			break
	endswitch
	switch $(COLOR)
		case MONO:
		case GRAY:
			setval note1 backgroundFile GRAY3
			break
	endswitch
endproc:
proc: noinfo
	put hd415_hh $(DISK_TYPE)
	job hd415_hh
	put hd415_hhR $(DISK_TYPE)
	job hd415_hhR
	put hd415_hhF $(DISK_TYPE)
	job hd415_hhF
endproc:
proc: hd415_hh
	$(bin)/Smnt_check $(dev)c $(DISK_TYPE) 2 1 2> /dev/null
	switch #(status)
		case 0:
			put on $(c)
	endswitch
	$(bin)/Smnt_check $(dev)a $(DISK_TYPE) 0 1 2> /dev/null
	switch #(status)
		case 0:
			put on $(a)
			put off $(c)
	endswitch
	$(bin)/Smnt_check $(dev)h $(DISK_TYPE) 7 1 2> /dev/null
	switch #(status)
		case 0:
			put on $(h)
			put off $(c)
	endswitch
	$(bin)/Smnt_check $(dev)g $(DISK_TYPE) 6 1 2> /dev/null
	switch #(status)
		case 0:
			put on $(g)
			put off $(c)
	endswitch
	$(bin)/Smnt_check $(dev)f $(DISK_TYPE) 5 1 2> /dev/null
	switch #(status)
		case 0:
			put on $(f)
			put off $(g)
			put off $(c)
	endswitch
	$(bin)/Smnt_check $(dev)e $(DISK_TYPE) 4 1 2> /dev/null
	switch #(status)
		case 0:
			put on $(e)
			put off $(g)
			put off $(c)
	endswitch
	$(bin)/Smnt_check $(dev)d $(DISK_TYPE) 3 1 2> /dev/null
	switch #(status)
		case 0:
			put on $(d)
			put off $(g)
			put off $(c)
	endswitch
	switch $(c)
		case on:
			setval 1c label C[415]
			setval 1c foreground brown
			setval 1c selectedBack brown
			setval 1c selectedFore #e6e6e1
			switch $(COLOR)
				case MONO:
				case GRAY:
					setval 1c backgroundFile GRAY3
					break
			endswitch
	endswitch
	switch $(a)
		case on:
			setval 2a label A[7]
			setval 3a label A[7]
			setval 4a label A[7]
			setval 5a label A[7]
			setval 6a label A[7]
			setval 7a label A[7]
			setval 2a foreground brown
			setval 3a foreground brown
			setval 4a foreground brown
			setval 5a foreground brown
			setval 6a foreground brown
			setval 7a foreground brown
			setval 2a selectedBack brown
			setval 3a selectedBack brown
			setval 4a selectedBack brown
			setval 5a selectedBack brown
			setval 6a selectedBack brown
			setval 7a selectedBack brown
			setval 2a selectedFore #e6e6e1
			setval 3a selectedFore #e6e6e1
			setval 4a selectedFore #e6e6e1
			setval 5a selectedFore #e6e6e1
			setval 6a selectedFore #e6e6e1
			setval 7a selectedFore #e6e6e1
			switch $(COLOR)
				case MONO:
				case GRAY:
					setval 2a backgroundFile GRAY3
					setval 3a backgroundFile GRAY3
					setval 4a backgroundFile GRAY3
					setval 5a backgroundFile GRAY3
					setval 6a backgroundFile GRAY3
					setval 7a backgroundFile GRAY3
					break
			endswitch
	endswitch
	switch $(h)
		case on:
			setval 2h label H[142]
			setval 3h label H[142]
			setval 2h foreground brown
			setval 3h foreground brown
			setval 2h selectedBack brown
			setval 3h selectedBack brown
			setval 2h selectedFore #e6e6e1
			setval 3h selectedFore #e6e6e1
			switch $(COLOR)
				case MONO:
				case GRAY:
					setval 2h backgroundFile GRAY3
					setval 3h backgroundFile GRAY3
					break
			endswitch
	endswitch
	switch $(g)
		case on:
			setval 3g label G[232]
			setval 3g foreground brown
			setval 3g selectedBack brown
			setval 3g selectedFore #e6e6e1
			switch $(COLOR)
				case MONO:
				case GRAY:
					setval 3g backgroundFile GRAY3
					break
			endswitch
	endswitch
	switch $(f)
		case on:
			setval 2f label F[74]
			setval 2f foreground brown
			setval 2f selectedBack brown
			setval 2f selectedFore #e6e6e1
			switch $(COLOR)
				case MONO:
				case GRAY:
					setval 2f backgroundFile GRAY3
					break
			endswitch
	endswitch
	switch $(e)
		case on:
			setval 2e label E[150]
			setval 2e foreground brown
			setval 2e selectedBack brown
			setval 2e selectedFore #e6e6e1
			switch $(COLOR)
				case MONO:
				case GRAY:
					setval 2e backgroundFile GRAY3
					break
			endswitch
	endswitch
	switch $(d)
		case on:
			setval 2d label D[7]
			setval 2d foreground brown
			setval 2d selectedBack brown
			setval 2d selectedFore #e6e6e1
			switch $(COLOR)
				case MONO:
				case GRAY:
					setval 2d backgroundFile GRAY3
					break
			endswitch
	endswitch
endproc:
proc: hd415_hhR
	$(bin)/Smnt_check $(dev)c $(DISK_TYPE) 2 1 2> /dev/null
	switch #(status)
		case 0:
			put on $(c)
	endswitch
	$(bin)/Smnt_check $(dev)a $(DISK_TYPE) 0 1 2> /dev/null
	switch #(status)
		case 0:
			put on $(a)
			put off $(c)
	endswitch
	$(bin)/Smnt_check $(dev)h $(DISK_TYPE) 7 1 2> /dev/null
	switch #(status)
		case 0:
			put on $(hR)
			put off $(c)
	endswitch
	$(bin)/Smnt_check $(dev)g $(DISK_TYPE) 6 1 2> /dev/null
	switch #(status)
		case 0:
			put on $(gR)
			put off $(c)
	endswitch
	$(bin)/Smnt_check $(dev)f $(DISK_TYPE) 5 1 2> /dev/null
	switch #(status)
		case 0:
			put on $(fR)
			put off $(gR)
			put off $(c)
	endswitch
	$(bin)/Smnt_check $(dev)e $(DISK_TYPE) 4 1 2> /dev/null
	switch #(status)
		case 0:
			put on $(eR)
			put off $(gR)
			put off $(c)
	endswitch
	$(bin)/Smnt_check $(dev)d $(DISK_TYPE) 3 1 2> /dev/null
	switch #(status)
		case 0:
			put on $(dR)
			put off $(gR)
			put off $(c)
	endswitch
	switch $(c)
		case on:
			setval 1c label C[415]
			setval 1c foreground brown
			setval 1c selectedBack brown
			setval 1c selectedFore #e6e6e1
			switch $(COLOR)
				case MONO:
				case GRAY:
					setval 1c backgroundFile GRAY3
					break
			endswitch
	endswitch
	switch $(a)
		case on:
			setval 2a label A[7]
			setval 3a label A[7]
			setval 4a label A[7]
			setval 5a label A[7]
			setval 6a label A[7]
			setval 7a label A[7]
			setval 2a foreground brown
			setval 3a foreground brown
			setval 4a foreground brown
			setval 5a foreground brown
			setval 6a foreground brown
			setval 7a foreground brown
			setval 2a selectedBack brown
			setval 3a selectedBack brown
			setval 4a selectedBack brown
			setval 5a selectedBack brown
			setval 6a selectedBack brown
			setval 7a selectedBack brown
			setval 2a selectedFore #e6e6e1
			setval 3a selectedFore #e6e6e1
			setval 4a selectedFore #e6e6e1
			setval 5a selectedFore #e6e6e1
			setval 6a selectedFore #e6e6e1
			setval 7a selectedFore #e6e6e1
			switch $(COLOR)
				case MONO:
				case GRAY:
					setval 2a backgroundFile GRAY3
					setval 3a backgroundFile GRAY3
					setval 4a backgroundFile GRAY3
					setval 5a backgroundFile GRAY3
					setval 6a backgroundFile GRAY3
					setval 7a backgroundFile GRAY3
					break
			endswitch
	endswitch
	switch $(hR)
		case on:
			setval 4h label H[179]
			setval 5h label H[179]
			setval 4h foreground brown
			setval 5h foreground brown
			setval 4h selectedBack brown
			setval 5h selectedBack brown
			setval 4h selectedFore #e6e6e1
			setval 5h selectedFore #e6e6e1
			switch $(COLOR)
				case MONO:
				case GRAY:
					setval 4h backgroundFile GRAY3
					setval 5h backgroundFile GRAY3
					break
			endswitch
	endswitch
	switch $(gR)
		case on:
			setval 5g label G[195]
			setval 5g foreground brown
			setval 5g selectedBack brown
			setval 5g selectedFore #e6e6e1
			switch $(COLOR)
				case MONO:
				case GRAY:
					setval 5g backgroundFile GRAY3
					break
			endswitch
	endswitch
	switch $(fR)
		case on:
			setval 4f label F[160]
			setval 4f foreground brown
			setval 4f selectedBack brown
			setval 4f selectedFore #e6e6e1
			switch $(COLOR)
				case MONO:
				case GRAY:
					setval 4f backgroundFile GRAY3
					break
			endswitch
	endswitch
	switch $(eR)
		case on:
			setval 4e label E[27]
			setval 4e foreground brown
			setval 4e selectedBack brown
			setval 4e selectedFore #e6e6e1
			switch $(COLOR)
				case MONO:
				case GRAY:
					setval 4e backgroundFile GRAY3
					break
			endswitch
	endswitch
	switch $(dR)
		case on:
			setval 4d label D[7]
			setval 4d foreground brown
			setval 4d selectedBack brown
			setval 4d selectedFore #e6e6e1
			switch $(COLOR)
				case MONO:
				case GRAY:
					setval 4d backgroundFile GRAY3
					break
			endswitch
	endswitch
endproc:
proc: hd415_hhF
	$(bin)/Smnt_check $(dev)c $(DISK_TYPE) 2 1 2> /dev/null
	switch #(status)
		case 0:
			put on $(c)
	endswitch
	$(bin)/Smnt_check $(dev)a $(DISK_TYPE) 0 1 2> /dev/null
	switch #(status)
		case 0:
			put on $(a)
			put off $(c)
	endswitch
	$(bin)/Smnt_check $(dev)h $(DISK_TYPE) 7 1 2> /dev/null
	switch #(status)
		case 0:
			put on $(hF)
			put off $(c)
	endswitch
	$(bin)/Smnt_check $(dev)g $(DISK_TYPE) 6 1 2> /dev/null
	switch #(status)
		case 0:
			put on $(gF)
			put off $(c)
	endswitch
	$(bin)/Smnt_check $(dev)f $(DISK_TYPE) 5 1 2> /dev/null
	switch #(status)
		case 0:
			put on $(fF)
			put off $(gF)
			put off $(c)
	endswitch
	$(bin)/Smnt_check $(dev)e $(DISK_TYPE) 4 1 2> /dev/null
	switch #(status)
		case 0:
			put on $(eF)
			put off $(gF)
			put off $(c)
	endswitch
	$(bin)/Smnt_check $(dev)d $(DISK_TYPE) 3 1 2> /dev/null
	switch #(status)
		case 0:
			put on $(dF)
			put off $(gF)
			put off $(c)
	endswitch
	switch $(c)
		case on:
			setval 1c label C[415]
			setval 1c foreground brown
			setval 1c selectedBack brown
			setval 1c selectedFore #e6e6e1
			switch $(COLOR)
				case MONO:
				case GRAY:
					setval 1c backgroundFile GRAY3
					break
			endswitch
	endswitch
	switch $(a)
		case on:
			setval 2a label A[7]
			setval 3a label A[7]
			setval 4a label A[7]
			setval 5a label A[7]
			setval 6a label A[7]
			setval 7a label A[7]
			setval 2a foreground brown
			setval 3a foreground brown
			setval 4a foreground brown
			setval 5a foreground brown
			setval 6a foreground brown
			setval 7a foreground brown
			setval 2a selectedBack brown
			setval 3a selectedBack brown
			setval 4a selectedBack brown
			setval 5a selectedBack brown
			setval 6a selectedBack brown
			setval 7a selectedBack brown
			setval 2a selectedFore #e6e6e1
			setval 3a selectedFore #e6e6e1
			setval 4a selectedFore #e6e6e1
			setval 5a selectedFore #e6e6e1
			setval 6a selectedFore #e6e6e1
			setval 7a selectedFore #e6e6e1
			switch $(COLOR)
				case MONO:
				case GRAY:
					setval 2a backgroundFile GRAY3
					setval 3a backgroundFile GRAY3
					setval 4a backgroundFile GRAY3
					setval 5a backgroundFile GRAY3
					setval 6a backgroundFile GRAY3
					setval 7a backgroundFile GRAY3
					break
			endswitch
	endswitch
	switch $(hF)
		case on:
			setval 6h label H[281]
			setval 7h label H[281]
			setval 6h foreground brown
			setval 7h foreground brown
			setval 6h selectedBack brown
			setval 7h selectedBack brown
			setval 6h selectedFore #e6e6e1
			setval 7h selectedFore #e6e6e1
			switch $(COLOR)
				case MONO:
				case GRAY:
					setval 6h backgroundFile GRAY3
					setval 7h backgroundFile GRAY3
					break
			endswitch
	endswitch
	switch $(gF)
		case on:
			setval 7g label G[93]
			setval 7g foreground brown
			setval 7g selectedBack brown
			setval 7g selectedFore #e6e6e1
			switch $(COLOR)
				case MONO:
				case GRAY:
					setval 7g backgroundFile GRAY3
					break
			endswitch
	endswitch
	switch $(fF)
		case on:
			setval 6f label F[58]
			setval 6f foreground brown
			setval 6f selectedBack brown
			setval 6f selectedFore #e6e6e1
			switch $(COLOR)
				case MONO:
				case GRAY:
					setval 6f backgroundFile GRAY3
					break
			endswitch
	endswitch
	switch $(eF)
		case on:
			setval 6e label E[27]
			setval 6e foreground brown
			setval 6e selectedBack brown
			setval 6e selectedFore #e6e6e1
			switch $(COLOR)
				case MONO:
				case GRAY:
					setval 6e backgroundFile GRAY3
					break
			endswitch
	endswitch
	switch $(dF)
		case on:
			setval 6d label D[7]
			setval 6d foreground brown
			setval 6d selectedBack brown
			setval 6d selectedFore #e6e6e1
			switch $(COLOR)
				case MONO:
				case GRAY:
					setval 6d backgroundFile GRAY3
					break
			endswitch
	endswitch
endproc:
proc: change
	switch #(cur_kind)
		case 0:
			setval select sensitive true
	endswitch
	switch #(kind)
		case #(cur_kind):
			quit
	endswitch
	job unselect
	put $(kind) $(cur_kind)
	switch #(cur_kind)
		case 1:
			put c $(PARTITIONS)
			setval 1c selected true
			break
		case 2:
			put abdefh $(PARTITIONS)
			setval 2a borderColor white
			setval 2b borderColor white
			setval 2d borderColor white
			setval 2e borderColor white
			setval 2f borderColor white
			setval 2h borderColor white
			setval 2a selected true
			setval 2b selected true
			setval 2d selected true
			setval 2e selected true
			setval 2f selected true
			setval 2h selected true
			break
		case 3:
			put abgh $(PARTITIONS)
			setval 3a borderColor white
			setval 3b borderColor white
			setval 3g borderColor white
			setval 3h borderColor white
			setval 3a selected true
			setval 3b selected true
			setval 3g selected true
			setval 3h selected true
			break
		case 4:
			put abdefh $(PARTITIONS)
			setval 4a borderColor white
			setval 4b borderColor white
			setval 4d borderColor white
			setval 4e borderColor white
			setval 4f borderColor white
			setval 4h borderColor white
			setval 4a selected true
			setval 4b selected true
			setval 4d selected true
			setval 4e selected true
			setval 4f selected true
			setval 4h selected true
			break
		case 5:
			put abgh $(PARTITIONS)
			setval 5a borderColor white
			setval 5b borderColor white
			setval 5g borderColor white
			setval 5h borderColor white
			setval 5a selected true
			setval 5b selected true
			setval 5g selected true
			setval 5h selected true
			break
		case 6:
			put abdefh $(PARTITIONS)
			setval 6a borderColor white
			setval 6b borderColor white
			setval 6d borderColor white
			setval 6e borderColor white
			setval 6f borderColor white
			setval 6h borderColor white
			setval 6a selected true
			setval 6b selected true
			setval 6d selected true
			setval 6e selected true
			setval 6f selected true
			setval 6h selected true
			break
		case 7:
			put abgh $(PARTITIONS)
			setval 7a borderColor white
			setval 7b borderColor white
			setval 7g borderColor white
			setval 7h borderColor white
			setval 7a selected true
			setval 7b selected true
			setval 7g selected true
			setval 7h selected true
			break
	endswitch
endproc:
proc: cmd_end
	buzzer $(main)
	close $(onrun)
	switch $(mapped)
		case on:
			$(n_end) = sub $(commonPath)/normalEnd ++48++48
			trap $(n_end) n_end
			break
		case off:
			put on $(opened)
			break
	endswitch
	put 102 $(menu_no)
endproc:
proc: unmap
	switch #(menu_no)
		case 101:
			unmap $(onrun)
			break
		case 102:
			unmap $(n_end)
			break
	endswitch
	put off $(mapped)
endproc:
proc: map
	switch #(menu_no)
		case 101:
			move $(onrun)
			raise $(onrun)
			map $(onrun)
			break
		case 102:
			switch $(opened)
				case on:
					$(n_end) = sub $(commonPath)/normalEnd ++48++48
					trap $(n_end) n_end
					break
				case off:
					move $(n_end)
					raise $(n_end)
					map $(n_end)
					break
			endswitch
	endswitch
	put on $(mapped)
	put off $(opened)
endproc:
proc: title
	job move
	job up
endproc:
proc: raise
	job up
endproc:
proc: move
	switch #(menu_no)
		case 101:
			move $(onrun)
			break
		case 102:
			move $(n_end)
			break
	endswitch
endproc:
proc: up
	switch #(menu_no)
		case 101:
			raise $(onrun)
			break
		case 102:
			raise $(n_end)
			break
	endswitch
endproc:
proc: n_end
	put off $(ONRUN)
	put 0 $(menu_no)
endproc:
proc: confirm
	switch $(answer)
		case cancel:
			put 0 $(menu_no)
			quit
	endswitch
	put on $(ONRUN)
	put 101 $(menu_no)
	$(onrun) = sub $(commonPath)/onrun ++48++48
endproc:
proc: sub_end
	put 0 $(menu_no)
endproc:
