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: min
		res:
			itemType	bitmap
			label		'20 '
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			fromVert	msg
			fromHoriz	face
			vertDistance	#(fWidth)
			horizDistance	#(fWidth)
		endres:
	endditem:
enddialog:
proc: pre
	switch $(DRIVE_TYPE)
		case hd41:
		case HD41:
			put 125 $(sec)
			put 2 $(min)
			break
		case hd101_hh:
		case HD101_HH:
			put 315 $(sec)
			put 5 $(min)
			break
		case hd170_hh:
		case HD170_HH:
			put 515 $(sec)
			put 8 $(min)
			break
		case hd182:
		case HD182:
			put 562 $(sec)
			put 9 $(min)
			break
		case hd199:
			put 720 $(sec)
			put 12 $(min)
			break
		case hd239:
		case HD239:
			put 880 $(sec)
			put 14 $(min)
			break
		case hd286:
		case HD286:
			put 826 $(sec)
			put 13 $(min)
			break
		case hd406:
			put 740 $(sec)
			put 12 $(min)
			break
		case hd415_hh:
			put 810 $(sec)
			put 13 $(min)
			break
		case hd639:
		case HD639:
			put 1275 $(sec)
			put 21 $(min)
			break
		case hd1280:
			put 2415 $(sec)
			put 40 $(min)
			break
		case od282:
		case od282i:
		case od282iso:
		case smo_s501:
		case OD282:
		case OD282i:
		case SMO_S501:
			put 1510 $(sec)
			put 25 $(min)
			break
	endswitch
	put #(sec)*1000/8 $(sec)
endproc:
proc: open
	put /dev/r$(DRIVE_NO)c $(device)
	put 0 $(track)
	put 3.5-FD-0 $(bitmap1)
	put 3.5-FD-1 $(bitmap2)
	setval min label '$(min)  '
	alarm 1000 sec
	alarm $(sec) track
	alarm 60000 min
	switch $(NEWS_OS)
		case 3.3\*:
		case 3.4\*:
		case 3.9\*:
		case 4.\*:
			$(formatProc) = bg /usr/sony/bin/format -y -silent $(device)
			break
		default:
			$(formatProc) = bg sh -c 'echo yes | /usr/sony/bin/format $(device)'
			break
	endswitch
	$(end_stat) = trap $(formatProc) form_end
	put 0 $(form_stat)
	put 0 $(flag)
endproc:
proc: sec
	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 sec
endproc:
proc: track
	put #(track)+1 $(track)
	put #(track)+1 $(next)
	put 3.5-FD-$(track) $(bitmap1)
	put 3.5-FD-$(next) $(bitmap2)
	switch #(track)
		case 7:
			break
		default:
			alarm $(sec) track
			break
	endswitch
endproc:
proc: min
	put #(min)-1 $(min)
	setval min label '$(min)  '
	switch #(min)
		case 0:
			break
		default:
			alarm 60000 min
			break
	endswitch
endproc:
proc: close
	job off
endproc:
proc: off
	setval face bitmapFile 3.5-FD-0
endproc:
proc: form_end
	switch #(end_stat)
		case 0:
			put 0 $(form_stat)
			break
		default:
			put 1 $(form_stat)
			break
	endswitch
	job off
	close
endproc:
