window:
	res:
		windowType	wshadowbox
		switch $(COLOR)
			case COLOR:
			case GRAY:
				topShadow	CadetBlue
				bottomShadow	LightBlue
				break
		endswitch
	endres:
endwindow:
dialog: dialogs
	res:
		defaultDistance		#(fWidth)
		dialogType		modal
	endres:
	ditem: face
		res:
			itemType	bitmap
			bitmapPath	$(icons)
			bitmapFile	3.5-FD-0
			vertDistance	#(fWidth)
			horizDistance	#(fWidth)
			switch $(COLOR)
				case COLOR:
				case GRAY:
					foreground	brown
					break
			endswitch
		endres:
	endditem:
	ditem: msg
		res:
			itemType	bitmap
			label		' ...'
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			fromHoriz	face
			vertDistance	#(fWidth)*2
			horizDistance	#(fWidth)
		endres:
	endditem:
	ditem: cancel
		res:
			itemType	button
			label		'   '
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			fromVert	face
			vertDistance	#(fWidth)
			horizDistance	#(fWidth)*16
		endres:
		act:
			put on $(stop)
			kill $(formatProc)
			put 1 $(form_stat)
			job off
			close
		endact:
	endditem:
enddialog:
proc: open
	put off $(stop)
	put 1 $(step)
	switch #(device)
		case 1:
			put /dev/rfh0a $(dev)
			break
		case 2:
			put /dev/rfd0a $(dev)
			break
	endswitch
	switch #(sheet)
		case 1:
			put off $(mount)
			break
		default:
			put on $(mount)
			break
	endswitch
	alarm 1000 alarm
	$(formatProc) = bg $(bin)/Sformat -v $(dev) > $(DOTTMP)
	$(end_stat) = trap $(formatProc) form_end
	put 0 $(form_stat)
	put 0 $(flag)
endproc:
proc: alarm
	switch #(step)
		case 1:
			put $(DOT) < $(DOTTMP)
			switch $(DOT)
				case \*............................................................................................................................................:
					put 3.5-FD-7 $(bitmap1)
					put 3.5-FD-8 $(bitmap2)
					break
				case \*........................................................................................................................:
					put 3.5-FD-6 $(bitmap1)
					put 3.5-FD-7 $(bitmap2)
					break
				case \*....................................................................................................:
					put 3.5-FD-5 $(bitmap1)
					put 3.5-FD-6 $(bitmap2)
					break
				case \*................................................................................:
					put 3.5-FD-4 $(bitmap1)
					put 3.5-FD-5 $(bitmap2)
					break
				case \*............................................................:
					put 3.5-FD-3 $(bitmap1)
					put 3.5-FD-4 $(bitmap2)
					break
				case \*........................................:
					put 3.5-FD-2 $(bitmap1)
					put 3.5-FD-3 $(bitmap2)
					break
				case \*....................:
					put 3.5-FD-1 $(bitmap1)
					put 3.5-FD-2 $(bitmap2)
					break
				default:
					put 3.5-FD-0 $(bitmap1)
					put 3.5-FD-1 $(bitmap2)
					break
			endswitch
			break
		case 2:
			put 3.5-FD-8 $(bitmap1)
			put 3.5-FD-8_ins $(bitmap2)
			break
	endswitch
	switch #(flag)
		case 0:
			setval face bitmapFile $(bitmap1)
			put 1 $(flag)
			break
		case 1:
			setval face bitmapFile $(bitmap2)
			put 0 $(flag)
			break
	endswitch
	alarm 1000 alarm
endproc:
proc: close
	job off
endproc:
proc: off
	setval face bitmapFile 3.5-FD-0
endproc:
proc: form_end
	switch $(stop)
		case on:
			quit
	endswitch
	switch #(end_stat)
		case 0:
			switch #(step)
				case 1:
					$(formatProc) = bg $(etc)/Backup/Schgfd.sh next $(device) $(MNTDIR) on $(mount)
					$(end_stat) = trap $(formatProc) form_end
					put 2 $(step)
					quit
				case 2:
					put 0 $(form_stat)
					break
			endswitch
			break
		default:
			put 2 $(form_stat)
			break
	endswitch
	job off
	close
endproc:
