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: mask_label
		res:
			itemType	bitmap
			label		'NETMASK:'
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			vertDistance	#(fWidth)
			horizDistance	#(fWidth)
		endres:
	endditem:
	ditem: mask_1
		res:
			itemType	numtext
			fromHoriz	mask_label
			vertDistance	#(fWidth)
			horizDistance	#(fWidth)
			length		3
			height		#(fHeight)
			width		#(fWidth)*3+4
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			shadowWidth	0
			borderWidth	2
			focus
		endres:
		act:
			put $(NEW_MASK1)
		endact:
	endditem:
	ditem: dot_1
		res:
			itemType	bitmap
			fromHoriz	mask_1
			vertDistance	#(fWidth)
			horizDistance	0
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			label		.
		endres:
	endditem:
	ditem: mask_2
		res:
			itemType	numtext
			fromHoriz	dot_1
			vertDistance	#(fWidth)
			horizDistance	0
			length		3
			height		#(fHeight)
			width		#(fWidth)*3+4
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			shadowWidth	0
			borderWidth	2
			focus
		endres:
		act:
			put $(NEW_MASK2)
		endact:
	endditem:
	ditem: dot_2
		res:
			itemType	bitmap
			fromHoriz	mask_2
			vertDistance	#(fWidth)
			horizDistance	0
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			label		.
		endres:
	endditem:
	ditem: mask_3
		res:
			itemType	numtext
			fromHoriz	dot_2
			vertDistance	#(fWidth)
			horizDistance	0
			length		3
			height		#(fHeight)
			width		#(fWidth)*3+4
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			shadowWidth	0
			borderWidth	2
			focus
		endres:
		act:
			put $(NEW_MASK3)
		endact:
	endditem:
	ditem: dot_3
		res:
			itemType	bitmap
			fromHoriz	mask_3
			vertDistance	#(fWidth)
			horizDistance	0
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			label		.
		endres:
	endditem:
	ditem: mask_4
		res:
			itemType	numtext
			fromHoriz	dot_3
			vertDistance	#(fWidth)
			horizDistance	0
			length		3
			height		#(fHeight)
			width		#(fWidth)*3+4
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			shadowWidth	0
			borderWidth	2
			focus
		endres:
		act:
			put $(NEW_MASK4)
		endact:
	endditem:
	ditem: broad_label
		res:
			itemType	bitmap
			fromVert	mask_label
			label		'BROADCAST:'
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			vertDistance	#(fWidth)
			horizDistance	#(fWidth)
		endres:
	endditem:
	ditem: broad_1
		res:
			itemType	numtext
			fromVert	mask_label
			fromHoriz	mask_label
			vertDistance	#(fWidth)
			horizDistance	#(fWidth)
			length		3
			height		#(fHeight)
			width		#(fWidth)*3+4
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			shadowWidth	0
			borderWidth	2
			focus
		endres:
		act:
			put $(NEW_BROAD1)
		endact:
	endditem:
	ditem: dot_11
		res:
			itemType	bitmap
			fromVert	mask_label
			fromHoriz	broad_1
			vertDistance	#(fWidth)
			horizDistance	0
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			label		.
		endres:
	endditem:
	ditem: broad_2
		res:
			itemType	numtext
			fromVert	mask_label
			fromHoriz	dot_11
			vertDistance	#(fWidth)
			horizDistance	0
			length		3
			height		#(fHeight)
			width		#(fWidth)*3+4
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			shadowWidth	0
			borderWidth	2
			focus
		endres:
		act:
			put $(NEW_BROAD2)
		endact:
	endditem:
	ditem: dot_12
		res:
			itemType	bitmap
			fromVert	mask_label
			fromHoriz	broad_2
			vertDistance	#(fWidth)
			horizDistance	0
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			label		.
		endres:
	endditem:
	ditem: broad_3
		res:
			itemType	numtext
			fromVert	mask_label
			fromHoriz	dot_12
			vertDistance	#(fWidth)
			horizDistance	0
			length		3
			height		#(fHeight)
			width		#(fWidth)*3+4
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			shadowWidth	0
			borderWidth	2
			focus
		endres:
		act:
			put $(NEW_BROAD3)
		endact:
	endditem:
	ditem: dot_13
		res:
			itemType	bitmap
			fromVert	mask_label
			fromHoriz	broad_3
			vertDistance	#(fWidth)
			horizDistance	0
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			label		.
		endres:
	endditem:
	ditem: broad_4
		res:
			itemType	numtext
			fromVert	mask_label
			fromHoriz	dot_13
			vertDistance	#(fWidth)
			horizDistance	0
			length		3
			height		#(fHeight)
			width		#(fWidth)*3+4
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			shadowWidth	0
			borderWidth	2
			focus
		endres:
		act:
			put $(NEW_BROAD4)
		endact:
	endditem:
	ditem: router_label
		res:
			itemType	bitmap
			fromVert	broad_label
			label		'ROUTER   :'
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			vertDistance	#(fWidth)
			horizDistance	#(fWidth)
		endres:
	endditem:
	ditem: router
		res:
			itemType	text
			fromVert	broad_label
			fromHoriz	router_label
			vertDistance	#(fWidth)
			horizDistance	#(fWidth)
			length		16
			height		#(fHeight)
			width		#(fWidth)*16+4
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			shadowWidth	0
			borderWidth	2
			focus
		endres:
		act:
			put $(NEW_ROUTER_TMP)
			put $(NEW_ROUTER_TMP)@0 $(NEW_ROUTER_TMP)
		endact:
	endditem:
	ditem: set
		res:
			itemType	button
			fromHoriz	mask_4
			label		'   '
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			vertDistance	#(fWidth)
			horizDistance	#(fWidth)*2
		endres:
		act:
			$(bin)/Shostaddr_chk $(NEW_MASK1) $(NEW_MASK2) $(NEW_MASK3) $(NEW_MASK4)
			switch #(status)
				case 0x100:
					put 1 $(err_no)
					job err
					quit
			endswitch
			$(bin)/Shostaddr_chk $(NEW_BROAD1) $(NEW_BROAD2) $(NEW_BROAD3) $(NEW_BROAD4)
			switch #(status)
				case 0x100:
					put 2 $(err_no)
					job err
					quit
			endswitch
			job set
			close
		endact:
	endditem:
	ditem: reset
		res:
			itemType	button
			fromVert	set
			fromHoriz	mask_4
			label		'   '
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			vertDistance	#(fWidth)
			horizDistance	#(fWidth)*2
		endres:
		act:
			job reset
		endact:
	endditem:
enddialog:
proc: pre
	put 0 $(menu_no)
	sh -c 'echo $(NEW_NETMASK) | sed "s/\./ /g"'
	put $(stdout)@0 $(CUR_MASK1)
	put $(CUR_MASK1)\Z3 $(CUR_MASK1)
	put $(stdout)@1 $(CUR_MASK2)
	put $(CUR_MASK2)\Z3 $(CUR_MASK2)
	put $(stdout)@2 $(CUR_MASK3)
	put $(CUR_MASK3)\Z3 $(CUR_MASK3)
	put $(stdout)@3 $(CUR_MASK4)
	put $(CUR_MASK4)\Z3 $(CUR_MASK4)
	sh -c 'echo $(NEW_BROAD) | sed "s/\./ /g"'
	put $(stdout)@0 $(CUR_BROAD1)
	put $(CUR_BROAD1)\Z3 $(CUR_BROAD1)
	put $(stdout)@1 $(CUR_BROAD2)
	put $(CUR_BROAD2)\Z3 $(CUR_BROAD2)
	put $(stdout)@2 $(CUR_BROAD3)
	put $(CUR_BROAD3)\Z3 $(CUR_BROAD3)
	put $(stdout)@3 $(CUR_BROAD4)
	put $(CUR_BROAD4)\Z3 $(CUR_BROAD4)
	put $(NEW_ROUTER) $(CUR_ROUTER)
endproc:
proc: close
	close
endproc:
proc: open
	job reset
endproc:
proc: reset
	setval mask_1 string $(CUR_MASK1)
	setval mask_2 string $(CUR_MASK2)
	setval mask_3 string $(CUR_MASK3)
	setval mask_4 string $(CUR_MASK4)
	setval broad_1 string $(CUR_BROAD1)
	setval broad_2 string $(CUR_BROAD2)
	setval broad_3 string $(CUR_BROAD3)
	setval broad_4 string $(CUR_BROAD4)
	setval router string $(CUR_ROUTER)
endproc:
proc: set
	put '' $(tmp)
	put '$(tmp)$(NEW_MASK1).$(NEW_MASK2).$(NEW_MASK3).$(NEW_MASK4)' $(NEW_NETMASK)
	put '$(tmp)$(NEW_BROAD1).$(NEW_BROAD2).$(NEW_BROAD3).$(NEW_BROAD4)' $(NEW_BROAD)
	put $(NEW_ROUTER_TMP) $(NEW_ROUTER)
endproc:
proc: err
	put 10 $(menu_no)
	switch #(err_no)
		case 1:
			put 'NETMASK   ʵ ִġ Դϴ.' $(confirm_msg1)
			put 'ٸ 巹 Ͽ ֽʽÿ.' $(confirm_msg2)
			$(err) = sub $(commonPath)/error2 ++48++48
			break
		case 2:
			put 'BROADCAST   ʵ ִġ Դϴ.' $(confirm_msg1)
			put 'ٸ 巹 Ͽ ֽʽÿ.' $(confirm_msg2)
			$(err) = sub $(commonPath)/error2 ++48++48
			break
	endswitch
	buzzer
	trap $(err) err_end
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:
