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: passwd
		res:
			itemType	button
			label		'н'
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			vertDistance	#(fWidth)
			horizDistance	#(fWidth)
			autoAdjust	true
		endres:
		act:
			put 1 $(menu_no)
			$(sub) = sub $(menu)/passwd ++48++48
			trap $(sub) newpasswd
		endact:
	endditem:
	ditem: passwd_stat
		res:
			itemType	bitmap
			fromHoriz	passwd
			autoAdjust	true
			vertDistance	#(fWidth)
			horizDistance	#(fWidth)
			leftKanjiFont	$(kanjiFont)
			leftFont	$(kanaFont)
		endres:
	endditem:
	ditem: date
		res:
			itemType	button
			label		'¥ð'
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			fromVert	passwd
			vertDistance	#(fWidth)
			horizDistance	#(fWidth)
			autoAdjust	true
		endres:
		act:
			put 1 $(menu_no)
			$(sub) = sub $(menu)/date ++48++48
			trap $(sub) date
		endact:
	endditem:
	ditem: date_stat
		res:
			itemType	bitmap
			fromVert	passwd
			fromHoriz	passwd
			vertDistance	#(fWidth)
			horizDistance	#(fWidth)
			autoAdjust	true
			leftKanjiFont	$(kanjiFont)
			leftFont	$(kanaFont)
		endres:
	endditem:
	ditem: net
		res:
			itemType	button
			fromVert	date
			label		'Ʈũ '
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			vertDistance	#(fWidth)
			horizDistance	#(fWidth)
			autoAdjust	true
		endres:
		act:
			switch $(allset)
				case off:
					put 1 $(menu_no)
					put ' ӽ Ʈũ  Ŀ,' $(confirm_msg1)
					put 'ڵ ⵿ ϴ.' $(confirm_msg2)
					put ' ִ ø̼  ,' $(confirm_msg3)
					put ' ׵     Ͽ ֽʽÿ.' $(confirm_msg4)
					$(sub) = sub $(commonPath)/confirm5 ++48++48
					trap $(sub) network_conf
					buzzer
					break
				case each:
					put 'Ʈũ մϱ?' $(confirm_msg1)
					$(sub) = sub $(commonPath)/yesno1 ++48++48
					trap $(sub) network
					break
			endswitch
		endact:
	endditem:
	ditem: net_stat
		res:
			itemType	text
			string		'ȣƮ: $(HOST_NAME_LABEL)\n巹: $(HOST_ADDR)'
			fromVert	net
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			vertDistance	#(fWidth)
			horizDistance	#(fWidth)*3
			length		200
			width		#(fWidth)*36
			height		#(fHeight)*2
			sensitive	false
			shadowWidth	0
			borderWidth	2
		endres:
	endditem:
	ditem: timed
		res:
			itemType	button
			fromVert	net_stat
			label		'Ʈũ ð'
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			vertDistance	#(fWidth)
			horizDistance	#(fWidth)
			autoAdjust	true
		endres:
		act:
			switch $(network)
				case off:
					switch #(TIMED_TYPE)
						case 0:
							put 9 $(menu_no)
							put 'Ʈũ ӵǾ  Ƿ,' $(confirm_msg1)
							put '뼳   ϴ.' $(confirm_msg2)
							$(end) = sub $(commonPath)/error2 ++48++48
							buzzer
							trap $(end) end
							break
						default:
							put 9 $(menu_no)
							put 'Ʈũ ӵǾ  Ƿ,' $(confirm_msg1)
							put ' մϴ.' $(confirm_msg2)
							$(end) = sub $(commonPath)/confirm3 ++48++48
							buzzer
							trap $(end) timed_off
							break
					endswitch
					quit
			endswitch
			put 1 $(menu_no)
			$(sub) = sub $(menu)/timed ++48++48
			trap $(sub) timed
		endact:
	endditem:
	ditem: timed_stat
		res:
			itemType	text
			string		'Ÿ : $(timed)\n   : $(TIMED_MASTER)'
			fromVert	timed
			vertDistance	#(fWidth)
			horizDistance	#(fWidth)*3
			length		200
			width		#(fWidth)*36
			height		#(fHeight)*2
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			sensitive	false
			shadowWidth	0
			borderWidth	2
		endres:
	endditem:
	ditem: yp
		res:
			itemType	button
			fromVert	timed_stat
			label		ΣɣӰ
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			vertDistance	#(fWidth)
			horizDistance	#(fWidth)
			autoAdjust	true
		endres:
		act:
			switch $(network)
				case off:
					switch #(YP_KIND)
						case 0:
							put 9 $(menu_no)
							put 'Ʈũ ӵǾ  Ƿ,' $(confirm_msg1)
							put '뼳   ϴ.' $(confirm_msg2)
							$(end) = sub $(commonPath)/error2 ++48++48
							buzzer
							trap $(end) end
							break
						default:
							put 9 $(menu_no)
							put 'Ʈũ ӵǾ  Ƿ,' $(confirm_msg1)
							put ' մϴ.' $(confirm_msg2)
							$(end) = sub $(commonPath)/confirm3 ++48++48
							buzzer
							trap $(end) yp_off
							break
					endswitch
					quit
			endswitch
			switch $(allset)
				case off:
					put 1 $(menu_no)
					put ' ӽǣΣɣӿ  Ŀ,' $(confirm_msg1)
					put 'ڵ ⵿ ϴ.' $(confirm_msg2)
					put ' ִ ø̼  ,' $(confirm_msg3)
					put ' ׵     Ͽ ֽʽÿ.' $(confirm_msg4)
					$(sub) = sub $(commonPath)/confirm5 ++48++48
					trap $(sub) yp_conf
					buzzer
					break
				case each:
					put 'ΣɣӰ 񽺸 ̿մϱ?' $(confirm_msg1)
					$(sub) = sub $(commonPath)/yesno1 ++48++48
					trap $(sub) yp
					break
			endswitch
		endact:
	endditem:
	ditem: yp_stat
		res:
			itemType	text
			string		'Ÿ : $(YP_TYPE)\nθ : $(YP_DOMAIN)'
			fromVert	yp
			vertDistance	#(fWidth)
			horizDistance	#(fWidth)*3
			length		200
			width		#(fWidth)*36
			height		#(fHeight)*2
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			sensitive	false
			shadowWidth	0
			borderWidth	2
		endres:
	endditem:
	ditem: ok
		res:
			itemType	button
			fromVert	yp_stat
			label		' ϡ '
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			vertDistance	#(fWidth)
			horizDistance	#(fWidth)*2
		endres:
		act:
			switch $(allset)
				case off:
					job off
					close
					break
				case each:
					job setall
					job off
					break
			endswitch
		endact:
	endditem:
	ditem: init
		res:
			itemType	button
			fromVert	yp_stat
			fromHoriz	ok
			label		Ӽ
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			vertDistance	#(fWidth)
			horizDistance	#(fWidth)*2
		endres:
		act:
			switch $(allset)
				case off:
					put 1 $(menu_no)
					put on $(allset)
					put ' ӽ ӼĿ, ڵ ⵿' $(confirm_msg1)
					put 'ϴ.' $(confirm_msg2)
					put ' ִ ø̼  ,' $(confirm_msg3)
					put ' ׵     Ͽ ֽʽÿ.' $(confirm_msg4)
					$(sub) = sub $(commonPath)/confirm5 ++48++48
					buzzer
					trap $(sub) init_conf
					break
				case each:
					job cancel
					put off $(allset)
					setval ok label ' ϡ '
					setval init label Ӽ
					break
			endswitch
		endact:
	endditem:
enddialog:
proc: pre
	global $(PASSWD)
	global $(PASSWD_SET)
	global $(TIME_SET)
	global $(NETWORK_SET)
	global $(TIMED_TYPE)
	global $(TIMED_SET)
	global $(YP_SET)
	global $(YP_KIND)
	global $(YP_TYPE)
	global $(YP_DOMAIN)
	global $(NEW_NAME)
	global $(NEW_ADDR)
	global $(NEW_ADDR1)
	global $(NEW_ADDR2)
	global $(NEW_ADDR3)
	global $(NEW_ADDR4)
	global $(NEW_NETMASK)
	global $(NEW_BROAD)
	global $(NEW_ROUTER)
	global $(HOST_NAME)
	global $(HOST_ADDR)
	global $(HOST_ADDR1)
	global $(HOST_ADDR2)
	global $(HOST_ADDR3)
	global $(HOST_ADDR4)
	global $(HOST_NETMASK)
	global $(HOST_BROAD)
	global $(HOST_ROUTER)
	global $(allset)
	put $(menuPath)/Basic $(menu)
	put $(icons) $(okPath)
	put NWS-800 $(okFile)
	$(TMP) = mktemp
	put /tmp/$(TMP) $(TMP_LIST1)
	$(TMP) = mktemp
	put /tmp/$(TMP) $(TMP_LIST2)
	$(TMP) = mktemp
	put /tmp/$(TMP) $(YPSERV_LIST)
	global $(YPSERV_LIST)
	put 0 $(menu_no)
	put on $(mapped)
	put off $(opened)
	put off $(allset)
	job getinfo
endproc:
proc: close
	switch $(ONRUN)
		case on:
			quit
	endswitch
	job off
	close
endproc:
proc: off
	switch #(menu_no)
		case 1:
			close $(sub)
			break
		case 9:
			close $(end)
			break
		case 10:
			close $(err)
			break
	endswitch
	rm -f $(TMP_LIST1) $(TMP_LIST2) $(YPSERV_LIST)
	local $(PASSWD)
	local $(PASSWD_SET)
	local $(TIME_SET)
	local $(NETWORK_SET)
	local $(TIMED_TYPE)
	local $(TIMED_SET)
	local $(YP_SET)
	local $(YP_TYPE)
	local $(YP_DOMAIN)
	local $(NEW_NAME)
	local $(NEW_ADDR)
	local $(NEW_ADDR1)
	local $(NEW_ADDR2)
	local $(NEW_ADDR3)
	local $(NEW_ADDR4)
	local $(NEW_NETMASK)
	local $(NEW_BROAD)
	local $(NEW_ROUTER)
	local $(HOST_NAME)
	local $(HOST_ADDR)
	local $(HOST_ADDR1)
	local $(HOST_ADDR2)
	local $(HOST_ADDR3)
	local $(HOST_ADDR4)
	local $(HOST_NETMASK)
	local $(HOST_BROAD)
	local $(HOST_ROUTER)
	local $(YPSERV_LIST)
	local $(allset)
endproc:
proc: getinfo
	job getinfo_pwd
	job getinfo_net
	job getinfo_timed
	job getinfo_yp
endproc:
proc: getinfo_pwd
	$(bin)/Spwd_check -u root
	switch #(status)
		case 0:
			put 'Ǿ  ʽϴ.' $(passwd)
			break
		default:
			put 'Ǿ ֽϴ.' $(passwd)
			break
	endswitch
endproc:
proc: getinfo_net
	ifdef $(HOSTNAME)
	switch $(status)
		case 0:
			put $(HOSTNAME) $(HOST_NAME)
			break
		default:
			hostname
			put $(stdout) $(HOST_NAME)
			break
	endswitch
	put --- $(HOST_ADDR1)
	switch $(HOST_NAME)
		case '':
			put off $(network)
			put -------- $(HOST_NAME_LABEL)
			put ---.---.---.--- $(HOST_ADDR)
			break
		default:
			$(bin)/Snet_check -s -h $(HOST_NAME)
			put $(stdout)@0 $(HOST_ADDR1)
			put $(stdout)@1 $(HOST_ADDR2)
			put $(stdout)@2 $(HOST_ADDR3)
			put $(stdout)@3 $(HOST_ADDR4)
			put $(HOST_ADDR1).$(HOST_ADDR2).$(HOST_ADDR3).$(HOST_ADDR4) $(HOST_ADDR)
			switch $(HOST_NAME)
				case '':
					put off $(network)
					put -------- $(HOST_NAME_LABEL)
					put ---.---.---.--- $(HOST_ADDR)
					break
				case localhost:
					put off $(network)
					put '(localhost)' $(HOST_NAME_LABEL)
					put 127.000.000.001 $(HOST_ADDR)
					put 127 $(HOST_ADDR1)
					put 000 $(HOST_ADDR2)
					put 000 $(HOST_ADDR3)
					put 001 $(HOST_ADDR4)
					break
				default:
					put $(HOST_NAME) $(HOST_NAME_LABEL)
					put on $(network)
					break
			endswitch
	endswitch
	ifdef $(NETMASK)
	switch #(status)
		case 0:
			put $(NETMASK) $(HOST_NETMASK)
			break
		default:
			put '' $(NETMASK)
			break
	endswitch
	ifdef $(BROADCAST)
	switch #(status)
		case 0:
			put $(BROADCAST) $(HOST_BROAD)
			break
		default:
			put '' $(BROADCAST)
			break
	endswitch
	ifdef $(ROUTER)
	switch #(status)
		case 0:
			put $(ROUTER) $(HOST_ROUTER)
			break
		default:
			put '' $(ROUTER)
			break
	endswitch
endproc:
proc: getinfo_timed
	put 'ǰ  ʽϴ.' $(timed)
	put 0 $(TIMED_TYPE)
	ifdef $(TIMED)
	switch #(status)
		case 0:
			switch $(TIMED)
				case master:
					put ' ĺ' $(timed)
					put 1 $(TIMED_TYPE)
					break
				case slave:
					put '̺' $(timed)
					put 2 $(TIMED_TYPE)
					break
			endswitch
			break
		default:
			put '' $(TIMED)
			break
	endswitch
	switch $(TIMED)
		case master:
		case slave:
			$(etc)/Basic/Stimed.sh msite
			switch $(status)
				case 0:
					put $(stdout) $(TIMED_MASTER)
					break
				default:
					put -------- $(TIMED_MASTER)
					break
			endswitch
			break
		default:
			put -------- $(TIMED_MASTER)
			break
	endswitch
endproc:
proc: getinfo_yp
	put 'ǰ  ʽϴ.' $(YP_TYPE)
	put 0 $(YP_KIND)
	ifdef $(YP)
	switch #(status)
		case 0:
			switch $(YP)
				case m.server:
					put 1 $(YP_KIND)
					put ' ' $(YP_TYPE)
					break
				case server:
					put 2 $(YP_KIND)
					put '̺ ' $(YP_TYPE)
					break
				case client:
					put 3 $(YP_KIND)
					put 'Ŭ̾Ʈ' $(YP_TYPE)
					break
			endswitch
	endswitch
	put '------' $(YP_DOMAIN)
	ifdef $(DOMAINNAME)
	switch #(status)
		case 0:
			switch $(DOMAINNAME)@0
				case '':
					break
				default:
					put $(DOMAINNAME) $(YP_DOMAIN)
					break
			endswitch
			break
	endswitch
endproc:
proc: open
	put off $(PASSWD_SET)
	put off $(TIME_SET)
	put off $(NETWORK_SET)
	put off $(TIMED_SET)
	put off $(YP_SET)
	setval ok label ' ϡ '
	setval init label 'Ӽ'
	setval passwd_stat leftLabel ':$(passwd)'
	setval net_stat string 'ȣƮ: $(HOST_NAME_LABEL)\n巹: $(HOST_ADDR)'
	setval timed_stat string 'Ÿ : $(timed)\n͡ : $(TIMED_MASTER)'
	setval yp_stat string 'Ÿ : $(YP_TYPE)\nθ : $(YP_DOMAIN)'
	put '' $(pre_date)
	job alarm
endproc:
proc: alarm
	$(bin)/Snet_time -g -h -m -e
	switch $(stdout)
		case $(pre_date):
			break
		default:
			setval date_stat leftLabel ': $(stdout)'
			put $(stdout) $(pre_date)
			break
	endswitch
	alarm 5000 alarm
endproc:
proc: init_conf
	switch $(answer)
		case ok:
			setval passwd selected true
			put 'н带 մϱ?' $(confirm_msg1)
			$(sub) = sub $(commonPath)/yesno1 ++48++48
			trap $(sub) passwd
			break
		default:
			put off $(allset)
			put 0 $(menu_no)
			break
	endswitch
endproc:
proc: passwd
	switch $(answer)
		case ok:
			$(sub) = sub $(menu)/passwd ++48++48
			trap $(sub) newpasswd
			break
		case cancel:
			setval passwd selected false
			setval date selected true
			$(sub) = sub $(menu)/date ++48++48
			trap $(sub) date
			break
	endswitch
endproc:
proc: newpasswd
	switch $(PASSWD_SET)
		case on:
			switch $(allset)
				case on:
					setval passwd_stat leftLabel ': Ǿϴ.'
					setval passwd selected false
					setval date selected true
					$(sub) = sub $(menu)/date ++48++48
					trap $(sub) date
					break
				case each:
					put 0 $(menu_no)
					break
				default:
					job pwd_set
					setval passwd_stat leftLabel ': Ǿϴ.'
					put 9 $(menu_no)
					put 'н (root)' $(cmdName)
					put off $(PASSWD_SET)
					$(end) = sub $(commonPath)/normalEnd ++48++48
					buzzer
					trap $(end) end
					break
			endswitch
			break
		case next:
			switch $(allset)
				case on:
					setval passwd selected false
					setval date selected true
					$(sub) = sub $(menu)/date ++48++48
					trap $(sub) date
					break
				default:
					put 0 $(menu_no)
					break
			endswitch
			break
		case off:
			switch $(allset)
				case on:
					setval passwd selected false
					job cancel
					break
				default:
					put 0 $(menu_no)
					break
			endswitch
			break
	endswitch
endproc:
proc: pwd_set
	$(bin)/Spasswd root $(PASSWD)
endproc:
proc: date
	switch $(TIME_SET)
		case on:
			$(bin)/Snet_time -g -h -m
			switch $(stdout)
				case $(pre_date):
					break
				default:
					setval date_stat leftLabel ': $(stdout)'
					put $(stdout) $(pre_date)
					break
			endswitch
	endswitch
	switch $(allset)
		case on:
			switch $(TIME_SET)
				case on:
				case ok:
					setval date selected false
					setval net selected true
					put 'Ʈũ մϱ?' $(confirm_msg1)
					$(sub) = sub $(commonPath)/yesno1 ++48++48
					trap $(sub) network
					break
				case off:
					setval date selected false
					job cancel
					break
			endswitch
			break
		default:
			switch $(TIME_SET)
				case on:
					put 9 $(menu_no)
					put '¥ð' $(cmdName)
					put off $(TIME_SET)
					$(end) = sub $(commonPath)/normalEnd ++48++48
					buzzer
					trap $(end) end
					break
				default:
					put 0 $(menu_no)
					break
			endswitch
			break
	endswitch
	break
endproc:
proc: network_conf
	switch $(answer)
		case ok:
			put 'Ʈũ մϱ?' $(confirm_msg1)
			$(sub) = sub $(commonPath)/yesno1 ++48++48
			trap $(sub) network
			break
		default:
			put 0 $(menu_no)
			break
	endswitch
endproc:
proc: network
	switch $(answer)
		case ok:
			$(sub) = sub $(menu)/network ++48++48
			trap $(sub) network_get
			break
		default:
			put off $(network)
			switch $(allset)
				case on:
				case each:
					put on $(NETWORK_SET)
					put 0 $(TIMED_TYPE)
					put on $(TIMED_SET)
					setval net_stat string 'ȣƮ: (localhost)\n巹: 127.000.000.001'
					job timed_type
					put on $(YP_SET)
					put 0 $(YP_KIND)
					setval yp_stat string 'Ÿ : ǰ  ʽϴ.\nθ : ------'
					switch $(allset)
						case each:
							put 0 $(menu_no)
							quit
					endswitch
					setval net selected false
					job last
					break
				default:
					put on $(ONRUN)
					put 101 $(menu_no)
					$(onrun) = sub $(commonPath)/onrun ++48++48
					job network_set
					setval net_stat string 'ȣƮ: (localhost)\n巹: 127.000.000.001'
					put 0 $(TIMED_TYPE)
					job timed_set
					job getinfo_timed
					setval timed_stat string 'Ÿ : $(timed)\n͡: $(TIMED_MASTER)'
					put 0 $(YP_KIND)
					job yp_set
					job getinfo_yp
					setval yp_stat string 'Ÿ : $(YP_TYPE)\nθ : $(YP_DOMAIN)'
					close $(onrun)
					put off $(TIMED_SET)
					put off $(NETWORK_SET)
					put 9 $(menu_no)
					put '⵿ ϴ.' $(confirm_msg1)
					put 'Ʈũ ' $(cmdName)
					$(end) = sub $(commonPath)/normalEnd1 ++48++48
					buzzer
					trap $(end) shut_end
					break
			endswitch
			break
	endswitch
endproc:
proc: network_get
	switch $(NETWORK_SET)
		case on:
			put on $(network)
			switch $(allset)
				case on:
				case each:
					setval net_stat string 'ȣƮ: $(NEW_NAME)\n巹: $(NEW_ADDR)'
					switch $(allset)
						case each:
							put 0 $(menu_no)
							quit
					endswitch
					setval net selected false
					setval timed selected true
					$(sub) = sub $(menu)/timed ++48++48
					trap $(sub) timed
					break
				default:
					put on $(ONRUN)
					put 101 $(menu_no)
					$(onrun) = sub $(commonPath)/onrun ++48++48
					setval net_stat string 'ȣƮ: $(NEW_NAME)\n巹: $(NEW_ADDR)'
					job network_set
					close $(onrun)
					put off $(NETWORK_SET)
					put 9 $(menu_no)
					put 'Ʈũ ' $(cmdName)
					put '⵿ ϴ.' $(confirm_msg1)
					$(end) = sub $(commonPath)/normalEnd1 ++48++48
					buzzer
					trap $(end) shut_end
					break
			endswitch
			break
		default:
			switch $(allset)
				case on:
					setval net selected false
					job cancel
					break
				default:
					put 0 $(menu_no)
					break
			endswitch
			break
	endswitch
endproc:
proc: network_set
	switch $(allset)
		case off:
			cp $(CUSTOM) $(CUSTOM).backup
			break
	endswitch
	switch $(network)
		case off:
			put localhost $(NEW_NAME)
			put 127.000.000.001 $(NEW_ADDR)
			put 127 $(NEW_ADDR1)
			put 000 $(NEW_ADDR2)
			put 000 $(NEW_ADDR3)
			put 001 $(NEW_ADDR4)
			put 255.0.0.0 $(NEW_NETMASK)
			put 127.255.255.255 $(NEW_BROAD)
			put '' $(NEW_ROUTER)
			break
	endswitch
	$(bin)/Snet_check -L -h $(NEW_NAME) -a $(NEW_ADDR1) $(NEW_ADDR2) $(NEW_ADDR3) $(NEW_ADDR4)
	switch #(status)
		case 0x100:
			$(etc)/Network/Shosts.sh addr $(NEW_NAME) $(NEW_ADDR1) $(NEW_ADDR2) $(NEW_ADDR3) $(NEW_ADDR4)
			break
		case 0x300:
			$(etc)/Network/Shosts.sh name $(HOST_NAME) $(NEW_NAME)
			break
		case 0x400:
			$(etc)/Network/Shosts.sh add $(NEW_NAME) $(NEW_ADDR1) $(NEW_ADDR2) $(NEW_ADDR3) $(NEW_ADDR4)
			break
		default:
			sleep 2
			break
	endswitch
	switch $(allset)
		case off:
			switch $(MAIL_MODE)
				case main:
				case sub:
					hostname $(NEW_NAME)
					$(etc)/User/Smail_init.sh all
					hostname $(HOST_NAME)
					break
			endswitch
			break
	endswitch
	switch $(network)
		case off:
			$(etc)/Basic/Src_custom.sh NET off
			break
		default:
			$(etc)/Basic/Src_custom.sh NET
			break
	endswitch
	$(etc)/Basic/Src_custom.sh HOSTNAME $(NEW_NAME)
	switch $(NEW_ROUTER)
		case '':
			$(etc)/Basic/Src_custom.sh ROUTER
			break
		default:
			$(etc)/Basic/Src_custom.sh ROUTER $(NEW_ROUTER)
			break
	endswitch
	test $(NEW_ADDR1) -ge 192
	switch $(status)
		case 0:
			$(etc)/Basic/Src_custom.sh NETMASK $(NEW_NETMASK)
			$(etc)/Basic/Src_custom.sh BROADCAST $(NEW_BROAD)
			quit
	endswitch
	test $(NEW_ADDR1) -ge 128
	switch $(status)
		case 0:
			$(etc)/Basic/Src_custom.sh NETMASK $(NEW_NETMASK)
			$(etc)/Basic/Src_custom.sh BROADCAST $(NEW_BROAD)
			quit
	endswitch
	$(etc)/Basic/Src_custom.sh NETMASK $(NEW_NETMASK)
	$(etc)/Basic/Src_custom.sh BROADCAST $(NEW_BROAD)
endproc:
proc: timed_off
	put 0 $(menu_no)
	put 0 $(TIMED_TYPE)
	job timed_type
	switch $(allset)
		case off:
			job timed_set
			job getinfo_timed
	endswitch
endproc:
proc: timed
	switch $(allset)
		case on:
			switch $(TIMED_SET)
				case on:
					job timed_type
					setval timed selected false
					setval yp selected true
					put 'ΣɣӰ 񽺸 ̿մϱ?' $(confirm_msg1)
					$(sub) = sub $(commonPath)/yesno1 ++48++48
					trap $(sub) yp
					break
				case off:
					setval timed selected false
					job cancel
					break
			endswitch
			break
		case each:
			job timed_type
			put 0 $(menu_no)
			break
		default:
			switch $(TIMED_SET)
				case on:
					put 101 $(menu_no)
					$(onrun) = sub $(commonPath)/onrun ++48++48
					job timed_set
					$(etc)/Basic/Stimed.sh set #(TIMED_TYPE)
					job getinfo_timed
					setval timed_stat string 'Ÿ : $(timed)\n͡ : $(TIMED_MASTER)'
					close $(onrun)
					put 9 $(menu_no)
					put 'Ʈũð뼳' $(cmdName)
					put off $(TIMED_SET)
					$(end) = sub $(commonPath)/normalEnd ++48++48
					buzzer
					trap $(end) end
					break
				default:
					put 0 $(menu_no)
					break
			endswitch
			break
	endswitch
	break
endproc:
proc: timed_type
	switch $(TIMED_TYPE)
		case 0:
			setval timed_stat string 'Ÿ :  ʽϴ.\n͡ : --------'
			break
		case 1:
			setval timed_stat string 'Ÿ :  ĺ\n  --------'
			break
		case 2:
			setval timed_stat string 'Ÿ : ̺\n͡ : --------'
			break
	endswitch
endproc:
proc: timed_set
	switch $(allset)
		case off:
			cp $(CUSTOM) $(CUSTOM).backup
			break
	endswitch
	switch #(TIMED_TYPE)
		case 1:
			$(etc)/Basic/Src_custom.sh TIMED master
			put master $(TIMED)
			break
		case 2:
			$(etc)/Basic/Src_custom.sh TIMED slave
			put slave $(TIMED)
			break
		default:
			$(etc)/Basic/Src_custom.sh TIMED
			put '' $(TIMED)
			break
	endswitch
	global $(TIMED)
endproc:
proc: yp_off
	put 0 $(menu_no)
	put 0 $(YP_KIND)
	setval yp_stat string 'Ÿ :  ʽϴ.\nθ : ------'
	switch $(allset)
		case off:
			job yp_set
			job getinfo_yp
			break
	endswitch
endproc:
proc: yp_conf
	switch $(answer)
		case ok:
			put 'ΣɣӰ 񽺸 մϱ?' $(confirm_msg1)
			$(sub) = sub $(commonPath)/yesno1 ++48++48
			trap $(sub) yp
			break
		default:
			put 0 $(menu_no)
			break
	endswitch
endproc:
proc: yp
	switch $(answer)
		case ok:
			$(sub) = sub $(menu)/yp ++48++48
			trap $(sub) yp_get
			break
		default:
			put 0 $(YP_KIND)
			switch $(allset)
				case on:
				case each:
					put on $(YP_SET)
					setval yp_stat string 'Ÿ :  ʽϴ.\nθ : ------'
					switch $(allset)
						case each:
							put 0 $(menu_no)
							quit
					endswitch
					setval yp selected false
					job last
					break
				default:
					put on $(ONRUN)
					put 101 $(menu_no)
					$(onrun) = sub $(commonPath)/onrun ++48++48
					job yp_set
					setval yp_stat string 'Ÿ :  ʽϴ.\nθ : ------'
					close $(onrun)
					put 9 $(menu_no)
					put '⵿ ϴ.' $(confirm_msg1)
					put 'ΣɣӰ' $(cmdName)
					$(end) = sub $(commonPath)/normalEnd1 ++48++48
					buzzer
					trap $(end) shut_end
					break
			endswitch
			break
	endswitch
endproc:
proc: yp_get
	switch $(YP_SET)
		case on:
			switch $(allset)
				case on:
				case each:
					setval yp_stat string 'Ÿ : $(YP_TYPE)\nθ : $(YP_DOMAIN)'
					switch $(allset)
						case each:
							put 0 $(menu_no)
							quit
					endswitch
					setval yp selected false
					job last
					break
				default:
					put on $(ONRUN)
					put 101 $(menu_no)
					$(onrun) = sub $(commonPath)/onrun ++48++48
					setval yp_stat string 'Ÿ : $(YP_TYPE)\nθ : $(YP_DOMAIN)'
					job yp_set
					close $(onrun)
					put off $(YP_SET)
					put 9 $(menu_no)
					put 'ΣɣӰ' $(cmdName)
					put '⵿ ϴ.' $(confirm_msg1)
					$(end) = sub $(commonPath)/normalEnd1 ++48++48
					buzzer
					trap $(end) shut_end
					break
			endswitch
			break
		default:
			switch $(allset)
				case on:
					setval yp selected false
					job cancel
					break
				default:
					put 0 $(menu_no)
					break
			endswitch
			break
	endswitch
endproc:
proc: yp_set
	switch $(allset)
		case off:
			cp $(CUSTOM) $(CUSTOM).backup
			break
	endswitch
	switch #(YP_KIND)
		case 1:
			$(etc)/Basic/Src_custom.sh NIS m.server
			$(etc)/Basic/Src_custom.sh DOMAINNAME $(YP_DOMAIN)
			put m.server $(YP)
			put $(YP_DOMAIN) $(DOMAINNAME)
			global $(DOMAINNAME)
			break
		case 2:
			$(etc)/Basic/Src_custom.sh NIS server
			$(etc)/Basic/Src_custom.sh DOMAINNAME $(YP_DOMAIN)
			put server $(YP)
			put $(YP_DOMAIN) $(DOMAINNAME)
			global $(DOMAINNAME)
			break
		case 3:
			$(etc)/Basic/Src_custom.sh NIS client
			$(etc)/Basic/Src_custom.sh DOMAINNAME $(YP_DOMAIN)
			put client $(YP)
			put $(YP_DOMAIN) $(DOMAINNAME)
			global $(DOMAINNAME)
			break
		default:
			$(etc)/Basic/Src_custom.sh NIS
			put '' $(DOMAINNAME)
			put '' $(YP)
			break
	endswitch
	switch #(YP_KIND)
		case 1:
			$(etc)/Basic/Syp_db.sh set #(YP_KIND) $(DOMAINNAME) $(YPSERV_LIST)
			break
		default:
			$(etc)/Basic/Syp_db.sh set #(YP_KIND) $(DOMAINNAME)
			break
	endswitch
	global $(YP)
	sleep 1
endproc:
proc: last
	setval ok label '   '
	setval init label '   '
	$(sub) = sub $(menu)/last ++48++48
	buzzer
	trap $(sub) lastconf
endproc:
proc: lastconf
	put 0 $(menu_no)
	put each $(allset)
endproc:
proc: setall
	put on $(ONRUN)
	put 101 $(menu_no)
	$(onrun) = sub $(commonPath)/onrun_shut ++48++48
	cp $(CUSTOM) $(CUSTOM).backup
	put on $(allset)
	switch $(PASSWD_SET)
		case on:
			job pwd_set
			break
	endswitch
	switch $(NETWORK_SET)
		case on:
			job network_set
			break
	endswitch
	switch $(TIMED_SET)
		case on:
			job timed_set
			break
	endswitch
	switch $(YP_SET)
		case on:
			job yp_set
			break
	endswitch
	job off
	rm -f $(ODLIST) $(TULIST)
	$(etc)/Common/Sshutdown.sh reboot
	exit
endproc:
proc: cancel
	switch $(PASSWD_SET)
		case on:
			job getinfo_pwd
			setval passwd_stat leftLabel ': $(passwd)'
			put off $(PASSWD_SET)
			break
	endswitch
	switch $(NETWORK_SET)
		case on:
			job getinfo_net
			setval net_stat string 'ȣƮ : $(HOST_NAME_LABEL)\n巹 : $(HOST_ADDR)'
			put off $(NETWORK_SET)
			break
	endswitch
	switch $(TIMED_SET)
		case on:
			job getinfo_timed
			setval timed_stat string 'Ÿ : $(timed)\n͡ : $(TIMED_MASTER)'
			put off $(TIMED_SET)
			break
	endswitch
	switch $(YP_SET)
		case on:
			job getinfo_yp
			setval yp_stat string 'Ÿ : $(YP_TYPE)\nθ : $(YP_DOMAIN)'
			put off $(YP_SET)
			break
	endswitch
	put 9 $(menu_no)
	put off $(allset)
	put 'Ӽ ҵǾϴ.¥ð̿' $(confirm_msg1)
	put  ' ȿ ˴ϴ.' $(confirm_msg2)
	$(end) = sub $(commonPath)/msg2 ++48++48
	buzzer
	trap $(end) end
endproc:
proc: end
	put 0 $(menu_no)
endproc:
proc: shut_end
	put 0 $(menu_no)
	job off
	rm -f $(ODLIST) $(TULIST)
	$(etc)/Common/Sshutdown.sh reboot
	exit
endproc:
proc: unmap
	switch #(menu_no)
		case 1:
			unmap $(sub)
			break
		case 9:
			unmap $(end)
			break
		case 10:
			unmap $(err)
			break
		case 101:
			unmap $(onrun)
			break
	endswitch
	put off $(mapped)
endproc:
proc: map
	switch #(menu_no)
		case 1:
			raise $(sub)
			map $(sub)
			break
		case 9:
			move $(end)
			raise $(end)
			map $(end)
			break
		case 10:
			move $(err)
			raise $(err)
			map $(err)
			break
		case 101:
			move $(onrun)
			raise $(onrun)
			map $(onrun)
			break
	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 9:
			move $(end)
			break
		case 10:
			move $(err)
			break
		case 101:
			move $(onrun)
			break
	endswitch
endproc:
proc: up
	switch #(menu_no)
		case 9:
			raise $(end)
			break
		case 10:
			raise $(err)
			break
		case 101:
			raise $(onrun)
			break
	endswitch
endproc:
