window:
	res:
		windowType	wstandard
		menuLeft	true
	endres:
endwindow:
close:
	res:
		bitmapPath	$(bitmaps)
		bitmapFile	CLOSE::CBM
	endres:
endclose:
title:
	res:
		leftLabel	'  '
		leftKanjiFont	$(kanjiFont)
		leftFont	$(kanaFont)
		rightLabel	/etc/passwd
		rightKanjiFont	$(kanjiFont)
		rightFont	$(kanaFont)
		switch $(COLOR)
			case MONO:
				bitmapPath	$(bitmaps)
				backgroundFile	GRAY3
				transparent	false
				break
		endswitch
	endres:
endtitle:
menu: user_menu
	mitem: sort
		res:
			label		Ʈ
			kanjiFont       $(kanjiFont)
		endres:
		pmitem: m_name
			res:
				leftLabel	'̸ 迭'
				leftKanjiFont	$(kanjiFont)
				leftFont	$(kanaFont)
				bitmapPath	$(bitmaps)
				bitmapFile	null::CBM
			endres:
			act:
				switch $(sort)
					case name:
						quit
					case id:
						setval m_id bitmapFile null::CBM
						break
					case reg:
						setval m_reg bitmapFile null::CBM
						break
				endswitch
				put name $(sort)
				job init_list
				switch #(menu_no)
					case 0:
						job insense
						break
				endswitch
			endact:
		endpmitem:
		pmitem: m_id
			res:
				leftLabel	'ɣļ 迭'
				leftKanjiFont	$(kanjiFont)
				leftFont	$(kanaFont)
				bitmapPath	$(bitmaps)
				bitmapFile	null::CBM
			endres:
			act:
				switch $(sort)
					case id:
						quit
					case name:
						setval m_name bitmapFile null::CBM
						break
					case reg:
						setval m_reg bitmapFile null::CBM
						break
				endswitch
				put id $(sort)
				job init_list
				switch #(menu_no)
					case 0:
						job insense
						break
				endswitch
			endact:
		endpmitem:
		pmitem: m_reg
			res:
				leftLabel	'ϼ ǥ'
				leftKanjiFont	$(kanjiFont)
				leftFont	$(kanaFont)
				bitmapPath	$(bitmaps)
				bitmapFile	null::CBM
			endres:
			act:
				switch $(sort)
					case reg:
						quit
					case name:
						setval m_name bitmapFile null::CBM
						break
					case id:
						setval m_id bitmapFile null::CBM
						break
				endswitch
				put reg $(sort)
				job init_list
				switch #(menu_no)
					case 0:
						job insense
						break
				endswitch
			endact:
		endpmitem:
		pmitem: line1
			res:
				bitmapPath	$(bitmaps)
				backgroundFile	barH_16x8::CBM
				height		8
				sensitive	false
			endres:
		endpmitem:
		pmitem: print
			res:
				label		 
				kanjiFont	$(kanjiFont)
				font		$(kanaFont)
			endres:
			act:
				put 13 $(menu_no)
				$(print) = sub $(menuPath)/Common/printer ++48++48
				trap $(print) print
			endact:
		endpmitem:
	endmitem:
endmenu:
dialog: dialogs
	res:
		defaultDistance		#(fWidth)
		dialogType		modeless
	endres:
	ditem: list_label
		res:
			itemType	bitmap
			label		'̸ɣ'
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			vertDistance	10
			horizDistance	12
		endres:
	endditem:
	ditem: list
		res:
			itemType	scrtext
			fromVert	list_label
			vertDistance	4
			horizDistance	#(fWidth)
			width		#(fWidth)+1*20
			height		#(lHeight)*12+8
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			bind1		select
			file		/dev/null
		endres:
		act:
			put $(line)
			switch $(line)@0
				case *:
					put 1 $(env)
					put $(line)@1 $(TMP_NAME)
					put $(line)@2 $(TMP_ID)
					put on $(TMP_ENV)
					break
				default:
					put 0 $(env)
					put $(line)@0 $(TMP_NAME)
					put $(line)@1 $(TMP_ID)
					put off $(TMP_ENV)
					break
			endswitch
		endact:
	endditem:
	ditem: new
		res:
			itemType	button
			fromVert	list_label
			fromHoriz	list
			label		'   '
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			vertDistance	4
			horizDistance	#(fWidth)*2
		endres:
		act:
			switch $(YP)
				case server:
				case client:
					put 1 $(cmd)
					put 2 $(menu_no)
					put ' űԵ' $(cmdName)
					put ' ȣƮ ȿѻڸ մϴ.' $(confirm_msg1)
					$(confirm) = sub $(commonPath)/confirm1 ++48++48
					trap $(confirm) confirm
					quit
			endswitch
			put 1 $(menu_no)
			put ' űԵ' $(cmdName)
			$(new) = open $(menu)/newuser ++48++48
			job insense
			job insense_else
			trap $(new) sub_end
		endact:
	endditem:
	ditem: del
		res:
			itemType	button
			fromVert	list_label
			fromHoriz	new
			label		'   '
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			vertDistance	4
			horizDistance	#(fWidth)*2
		endres:
		act:
			put 2 $(cmd)
			put 2 $(menu_no)
			switch $(USER_NAME)
				case root:
				case toor:
				case daemon:
				case operator:
				case shutdown:
				case sysdiag:
				case uucp:
				case nobody:
				case notes:
				case news:
					put 'ڡ$(USER_NAME) ϸҴ ȵ˴ϴ.' $(confirm_msg1)
					$(confirm) = sub $(commonPath)/error1 ++48++48
					trap $(confirm) n_err
					buzzer
					quit
			endswitch
			$(etc)/Common/Syp_line.sh chk '$(USER_NAME):::' /etc/passwd
			switch #(status)
				case 0x100:
					switch $(YP)
						case server:
							put 'Σɣ ̺  ڡ$(USER_NAME)'  $(confirm_msg1)
							put 'ϸҴ   ϴ.' $(confirm_msg2)
							$(confirm) = sub $(commonPath)/error2 ++48++48
							buzzer
							trap $(confirm) n_err
							quit
						case client:
							put 'Σɣ Ŭ̾Ʈ ڡ$(USER_NAME)'  $(confirm_msg1)
							put 'ϸҴ   ϴ.' $(confirm_msg2)
							$(confirm) = sub $(commonPath)/error2 ++48++48
							buzzer
							trap $(confirm) n_err
							quit
				endswitch
			endswitch
			put ' ϸ' $(cmdName)
			put 'ڡ$(USER_NAME)() ϸմϴ.' $(confirm_msg1)
			switch $(USER_ENV)
				case on:
					put '۾ȯ浵 ÿ Ұ' $(confirm_chk_msg)
					put on $(confirm_chk_val)
					$(confirm) = sub $(commonPath)/confirm2 ++48++48
					break
				case off:
					$(confirm) = sub $(commonPath)/confirm1 ++48++48
					break
			endswitch
			trap $(confirm) confirm
		endact:
	endditem:
	ditem: chg
		res:
			itemType	button
			fromVert	new
			fromHoriz	list
			label		'   '
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			vertDistance	#(fWidth)
			horizDistance	#(fWidth)*2
		endres:
		act:
			put 3 $(cmd)
			put ' ' $(cmdName)
			switch $(USER_NAME)
				case root:
				case toor:
				case daemon:
				case operator:
				case shutdown:
				case sysdiag:
				case uucp:
				case nobody:
				case notes:
				case news:
					put 2 $(menu_no)
					put 'ڡ$(USER_NAME)    ϴ.' $(confirm_msg1)
					$(confirm) = sub $(commonPath)/error1 ++48++48
					trap $(confirm) n_err
					buzzer
					quit
			endswitch
			$(etc)/Common/Syp_line.sh chk '$(USER_NAME):::' /etc/passwd
			switch #(status)
				case 0:
					put 3 $(menu_no)
					$(chg) = open $(menu)/chguser ++48++48
					job insense
					job insense_else
					trap $(chg) sub_end
					quit
			endswitch
			switch $(YP)
				case server:
					put 12 $(menu_no)
					put 'Σɣ ̺  ڡ$(USER_NAME)'  $(confirm_msg1)
					put '̸, ɣĴ   ϴ.' $(confirm_msg2)
					put '  Ͻʴϱ ?' $(confirm_msg3)
					$(confirm) = sub $(commonPath)/yesno3 ++48++48
					buzzer
					trap $(confirm) confirm
					quit
				case client:
					put 12 $(menu_no)
					put 'Σɣ Ŭ̾Ʈ ڡ$(USER_NAME)'  $(confirm_msg1)
					put '̸, ɣĴ   ϴ.' $(confirm_msg2)
					put '  Ͻʴϱ ?' $(confirm_msg3)
					$(confirm) = sub $(commonPath)/yesno3 ++48++48
					buzzer
					trap $(confirm) confirm
					quit
			endswitch
		endact:
	endditem:
	ditem: group
		res:
			itemType	button
			fromVert	new
			fromHoriz	chg
			label		׷
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			vertDistance	#(fWidth)
			horizDistance	#(fWidth)*2
		endres:
		act:
			put 4 $(menu_no)
			put '׷ ' $(cmdName)
			$(grp) = open $(menu)/grpuser ++48++48
			job insense
			job insense_else
			trap $(grp) sub_end
		endact:
	endditem:
	ditem: env
		res:
			itemType	bitmap
			fromVert	chg
			fromHoriz	list
			label		۾ȯ
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			vertDistance	#(fWidth)
			horizDistance	#(fWidth)*2
		endres:
	endditem:
	ditem: env_mk
		res:
			itemType	button
			fromVert	chg
			fromHoriz	env
			label	ۼ	
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			vertDistance	#(fWidth)
			horizDistance	#(fWidth)*2+4
		endres:
		act:
			put 5 $(cmd)
			put 5 $(menu_no)
			put ۾ȯۼ $(cmdName)
			$(bin)/Spw_check -ud $(USER_NAME)
			put $(stdout) $(USER_HOME)
			switch $(USER_HOME)
				case '':
					put 'ڡ$(USER_NAME) Ȩ 丮 ' $(confirm_msg1)
					put 'Ǿ  ʽϴ.' $(confirm_msg2)
					$(confirm) = sub $(commonPath)/error2 ++48++48
					trap $(confirm) n_err
					buzzer
					quit
			endswitch
			$(bin)/Spw_check -ug $(USER_NAME)
			put $(stdout) $(USER_GID)
			switch $(USER_GID)
				case '':
					test -s $(USER_SKEL)
					switch #(status)
						case 0:
							put $(line) < $(USER_SKEL)
							put $(line)@0 $(USER_GID)
							break
						default:
							put 31 $(USER_GID)
							break
					endswitch
			endswitch
			put 'ڡ$(USER_NAME) ۾ȯ($(USER_HOME)),' $(confirm_msg1)
			put 'ۼմϴ.' $(confirm_msg2)
			put 'NEWS Desk ȯ浵 ÿ ۼ' $(confirm_chk_msg)
			put on $(confirm_chk_val)
			$(confirm) = sub $(commonPath)/confirm21 ++48++48
			trap $(confirm) confirm
		endact:
	endditem:
	ditem: env_del
		res:
			itemType	button
			fromVert	chg
			fromHoriz	env_mk
			label		Ұ
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			vertDistance	#(fWidth)
			horizDistance	#(fWidth)
		endres:
		act:
			put 6 $(cmd)
			put 6 $(menu_no)
			put ۾ȯҰ $(cmdName)
			$(bin)/Spw_check -ud $(USER_NAME)
			put $(stdout) $(USER_HOME)
			sh -c 'cd $(USER_HOME) ; pwd'
			switch $(stdout)
				case /:
				case /bin:
				case /etc:
				case /dev:
				case /public\*:
				case /private/public\*:
					put '丮$(USER_HOME)() α׷ ̹Ƿ, ' $(confirm_msg1)
					put 'Ұ  ϴ.' $(confirm_msg2)
					$(confirm) = sub $(commonPath)/error2 ++48++48
					trap $(confirm) n_err
					buzzer
					quit
			endswitch
			put 'ڡ$(USER_NAME) ۾ȯ($(USER_HOME) Ʒ ' $(confirm_msg1)
			put ' ) Ұմϴ.' $(confirm_msg2)
			$(confirm) = sub $(commonPath)/confirm3 ++48++48
			trap $(confirm) confirm
		endact:
	endditem:
	ditem: passwd
		res:
			itemType	bitmap
			fromVert	env_mk
			fromHoriz	list
			label		н
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			vertDistance	#(fWidth)
			horizDistance	#(fWidth)*2
		endres:
	endditem:
	ditem: passwd_set
		res:
			itemType	button
			fromVert	env_mk
			fromHoriz	passwd
			label		
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			vertDistance	#(fWidth)
			horizDistance	#(fWidth)
		endres:
		act:
			put 7 $(cmd)
			put 7 $(menu_no)
			put 'н ' $(cmdName)
			$(etc)/Common/Syp_line.sh chk '$(USER_NAME):::' /etc/passwd
			switch #(status)
				case 0:
					put 'ڡ$(USER_NAME) н带 մϴ.' $(confirm_msg1)
					$(confirm) = sub $(commonPath)/confirm1 ++48++48
					trap $(confirm) confirm
					quit
			endswitch
			switch $(YP)
				case server:
				case client:
					put 'ڡ$(USER_NAME)  н带 մϴ.' $(confirm_msg1)
					$(confirm) = sub $(commonPath)/confirm1 ++48++48
					trap $(confirm) confirm
					quit
			endswitch
		endact:
	endditem:
	ditem: passwd_del
		res:
			itemType	button
			fromVert	env_mk
			fromHoriz	passwd_set
			label		Ұ
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			vertDistance	#(fWidth)
			horizDistance	#(fWidth)
		endres:
		act:
			put 8 $(cmd)
			put 8 $(menu_no)
			put 'н Ұ' $(cmdName)
			$(etc)/Common/Syp_line.sh chk '$(USER_NAME):::' /etc/passwd
			switch #(status)
				case 0:
					put 'ڡ$(USER_NAME) н带 Ұմϴ.' $(confirm_msg1)
					$(confirm) = sub $(commonPath)/confirm1 ++48++48
					trap $(confirm) confirm
					quit
			endswitch
			switch $(YP)
				case server:
				case client:
					put 'ڡ$(USER_NAME)  н带 Ұմϴ.' $(confirm_msg1)
					put 'Ұ, Σɣ   Ǿ ִ н尡'  $(confirm_msg2)
					put 'α н尡 ˴ϴ.' $(confirm_msg3)
					$(confirm) = sub $(commonPath)/confirm4 ++48++48
					trap $(confirm) confirm
					quit
			endswitch
		endact:
	endditem:
	ditem: line
		res:
			itemType	bitmap
			fromVert	passwd_set
			fromHoriz	list
			label		------------------------
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			vertDistance	0
			horizDistance	#(fWidth)
		endres:
	endditem:
	ditem: nonstand
		res:
			itemType	button
			fromVert	line
			fromHoriz	list
			label		' ʱġ'
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			vertDistance	0
			horizDistance	#(fWidth)*2
		endres:
		act:
			put 9 $(menu_no)
			put ' ʱġ' $(cmdName)
			$(common) = open $(menu)/common ++48++48
			job insense
			job insense_else
			trap $(common) sub_end
		endact:
	endditem:
enddialog:
proc: pre
	put /etc/user_skel $(USER_SKEL)
	global $(USER_SKEL)
	global $(USER_NAME)
	global $(USER_ID)
	global $(USER_ENV)
	global $(CHANGE_USER)
	global $(PASSWD)
	global $(PASSWD_SET0)
	global $(PASSWD_SET)
	put $(menuPath)/User $(menu)
	switch #(uid)
		case 0:
			put $(icons) $(okPath)
			put User $(okFile)
			break
	endswitch
	$(TMP) = mktemp
	put /tmp/$(TMP) $(LIST)
	$(TMP) = mktemp
	put /tmp/$(TMP) $(SORT_TMP)
	$(TMP) = mktemp
	put /tmp/$(TMP) $(ERR_LIST)
	put 0 $(menu_no)
	put on $(mapped)
	put off $(opened)
endproc:
proc: close
	switch $(ONRUN)
		case on:
			quit
	endswitch
	job off
	close
endproc:
proc: off
	switch #(menu_no)
		case 1:
			close $(new)
			break
		case 3:
			close $(chg)
			break
		case 4:
			close $(grp)
			break
		case 2:
		case 5:
		case 6:
		case 8:
		case 12:
			close $(confirm)
			break
		case 9:
			close $(common)
			break
		case 10:
			close $(err)
			break
		case 11:
			close $(n_end)
			break
		case 13:
			close $(print)
			break
	endswitch
	local $(USER_SKEL)
	local $(USER_NAME)
	local $(USER_ID)
	local $(USER_ENV)
	local $(CHANGE_USER)
	local $(PASSWD)
	local $(PASSWD_SET0)
	local $(PASSWD_SET)
	rm -f $(LIST) $(SORT_TMP) $(ERR_LIST)
endproc:
proc: open
	setval m_name bitmapFile null::CBM
	setval m_id bitmapFile null::CBM
	setval m_reg bitmapFile null::CBM
	put reg $(sort)
	job init
	switch #(uid)
		case 0:
			break
		default:
			setval new sensitive false
			setval nonstand sensitive false
			break
	endswitch
endproc:
proc: init
	$(bin)/Spw_check -ludi > $(SORT_TMP)
	job init_list
	put off $(CHANGE_USER)
	job insense
endproc:
proc: init_list
	switch $(sort)
		case name:
			setval m_name bitmapFile checkmark::CBM
			sort -u -t\ +0.2 $(SORT_TMP) > $(LIST)
			break
		case id:
			setval m_id bitmapFile checkmark::CBM
			sort -t\ +0.12 $(SORT_TMP) > $(LIST)
			break
		case reg:
			setval m_reg bitmapFile checkmark::CBM
			cp $(SORT_TMP) $(LIST)
			break
	endswitch
	setval list file $(LIST)
	put off $(select_on_cmd)
endproc:
proc: print
	put 0 $(menu_no)
	switch $(printer)
		case '':
			quit
	endswitch
	put on $(ONRUN)
	put 101 $(menu_no)
	$(onrun) = sub $(commonPath)/onrun ++48++48
	$(pid) = bg $(etc)/User/Spasswd.sh print $(printer) $(print_count) $(sort)
	trap $(pid) print_end
endproc:
proc: print_end
	close $(onrun)
	put off $(ONRUN)
	put 0 $(menu_no)
endproc:
proc: insense
	switch #(uid)
		case 0:
			setval new sensitive true
			setval nonstand sensitive true
			break
		default:
			setval new sensitive false
			setval nonstand sensitive false
			break
	endswitch
	setval del sensitive false
	setval chg sensitive false
	setval group sensitive false
	setval env_mk sensitive false
	setval env_del sensitive false
	setval passwd_set sensitive false
	setval passwd_del sensitive false
endproc:
proc: select
	switch #(uid)
		case 0:
			break
		default:
			quit
	endswitch
	switch #(menu_no)
		case 1:
		case 3:
		case 4:
		case 9:
		case 10:
		case 11:
		case 12:
			put on $(select_on_cmd)
			quit
	endswitch
	switch $(TMP_NAME)
		case '':
			quit
	endswitch
	job sel_sense
	put on $(select_on_cmd)
endproc:
proc: sel_sense
	put $(TMP_NAME) $(USER_NAME)
	put $(TMP_ID) $(USER_ID)
	put $(TMP_ENV) $(USER_ENV)
	setval del sensitive true
	setval chg sensitive true
	setval group sensitive true
	setval passwd_set sensitive true
	setval passwd_del sensitive true
	switch $(env)
		case 0:
			setval env_mk sensitive true
			setval env_del sensitive false
			break
		case 1:
			setval env_mk sensitive false
			setval env_del sensitive true
			break
	endswitch
endproc:
proc: insense_else
	setval new sensitive false
	setval nonstand sensitive false
endproc:
proc: sense_else
	setval new sensitive true
	setval nonstand sensitive true
endproc:
proc: cmd_end
	buzzer $(main)
	close $(onrun)
	switch $(mapped)
		case on:
			job bgdone
			break
		case off:
			put on $(opened)
			break
	endswitch
	put 102 $(menu_no)
endproc:
proc: unmap
	switch #(menu_no)
		case 1:
			unmap $(new)
			break
		case 3:
			unmap $(chg)
			break
		case 4:
			unmap $(grp)
			break
		case 2:
		case 5:
		case 6:
		case 8:
		case 12:
			unmap $(confirm)
			break
		case 9:
			unmap $(common)
			break
		case 10:
			unmap $(err)
			break
		case 11:
			unmap $(n_end)
			break
		case 13:
			unmap $(print)
			break
		case 101:
			unmap $(onrun)
			break
		case 102:
			unmap $(n_end)
			break
	endswitch
	put off $(mapped)
endproc:
proc: map
	switch #(menu_no)
		case 1:
			raise $(new)
			map $(new)
			break
		case 3:
			raise $(chg)
			map $(chg)
			break
		case 4:
			raise $(grp)
			map $(grp)
			break
		case 2:
		case 5:
		case 6:
		case 8:
		case 12:
			move $(confirm)
			raise $(confirm)
			map $(confirm)
			break
		case 9:
			raise $(common)
			map $(common)
			break
		case 10:
			move $(err)
			raise $(err)
			map $(err)
			break
		case 11:
			move $(n_end)
			raise $(n_end)
			map $(n_end)
			break
		case 13:
			move $(print)
			raise $(print)
			map $(print)
			break
		case 101:
			move $(onrun)
			raise $(onrun)
			map $(onrun)
			break
		case 102:
			switch $(opened)
				case on:
					job bgdone
					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 2:
		case 5:
		case 6:
		case 8:
		case 12:
			move $(confirm)
			break
		case 10:
			move $(err)
			break
		case 11:
			move $(n_end)
			break
		case 13:
			move $(print)
			break
		case 101:
			move $(onrun)
			break
		case 102:
			move $(n_end)
			break
	endswitch
endproc:
proc: up
	switch #(menu_no)
		case 2:
		case 5:
		case 6:
		case 8:
		case 12:
			raise $(confirm)
			break
		case 10:
			raise $(err)
			break
		case 11:
			raise $(n_end)
			break
		case 13:
			raise $(print)
			break
		case 101:
			raise $(onrun)
			break
		case 102:
			raise $(n_end)
			break
	endswitch
endproc:
proc: n_end
	put off $(ONRUN)
	switch #(cmd)
		case 2:
		case 5:
		case 6:
			job init
	endswitch
	put 0 $(menu_no)
endproc:
proc: confirm
	switch $(answer)
		case cancel:
			put 0 $(menu_no)
			quit
	endswitch
	switch #(cmd)
		case 1:
			put 1 $(menu_no)
			$(new) = open $(menu)/newuser ++48++48
			job insense
			job insense_else
			trap $(new) sub_end
			quit
		case 3:
			put 3 $(menu_no)
			$(chg) = sub $(menu)/nonstand_yp ++48++48
			trap $(chg) sub_end
			quit
		case 7:
			put 7 $(menu_no)
			$(passwd) = sub $(menu)/passwd ++48++48
			trap $(passwd) sub_end
			quit
	endswitch
	put on $(ONRUN)
	put 101 $(menu_no)
	$(onrun) = sub $(commonPath)/onrun ++48++48
	switch #(cmd)
		case 2:
			switch $(USER_ENV)
				case on:
					switch #(answer_chk)
						case 1:
							$(pid) = bg $(etc)/User/Spasswd.sh del $(USER_NAME) on
							break
						case 0:
							$(pid) = bg $(etc)/User/Spasswd.sh del $(USER_NAME) off
							break
					endswitch
					break
				case off:
					$(pid) = bg $(etc)/User/Spasswd.sh del $(USER_NAME) off
					break
			endswitch
			break
		case 5:
			switch #(answer_chk)
				case 1:
					$(pid) = bg $(etc)/User/Smkhome.sh -P $(USER_NAME) $(USER_GID) $(USER_HOME) $(MAIL_MODE) > $(ERR_LIST)
					break
				case 0:
					$(pid) = bg $(etc)/User/Smkhome.sh -M $(USER_NAME) $(USER_GID) $(USER_HOME) $(MAIL_MODE) > $(ERR_LIST)
					break
			endswitch
			break
		case 6:
			$(pid) = bg $(etc)/User/Smkhome.sh -d $(USER_HOME)
			break
		case 8:
			$(pid) = bg $(etc)/User/Spassword.sh del $(USER_NAME)
			break
	endswitch
	$(bgstat) = trap $(pid) cmd_end
endproc:
proc: sub_end
	switch $(CHANGE_USER)
		case on:
			job init
			break
		case off:
			switch $(select_on_cmd)
				case on:
					job sel_sense
			endswitch
	endswitch
	job sense_else
	put 0 $(menu_no)
endproc:
proc: err
	put 10 $(menu_no)
	switch $(err_no)
	endswitch
endproc:
proc: bgdone
	switch #(bgstat)
		case 0:
			$(n_end) = sub $(commonPath)/normalEnd ++48++48
			trap $(n_end) n_end
			quit
	endswitch
	put 11 $(menu_no)
	switch #(cmd)
		case 2:
			switch #(bgstat)
				case 0x100:
					put 'ڡ$(USER_NAME)()  αϰ ֽϴ.' $(confirm_msg1)
					$(n_end) = sub $(commonPath)/error1 ++48++48
					break
			endswitch
		case 5:
			switch #(bgstat)
				case 0x100:
					put $(error_dir) < $(ERR_LIST)
					put '$(error_dir)() 丮 ƴ  ϹǷ, ' $(confirm_msg1)
					put '丮$(USER_HOME)() ۼ  ϴ.' $(confirm_msg2)
					$(n_end) = sub $(commonPath)/error2 ++48++48
					trap $(n_end) n_err
					break
				case 0x200:
					put $(error_dir) < $(ERR_LIST)
					put '$(error_dir)() 丮 ۼ  ϴ.' $(confirm_msg1)
					$(n_end) = sub $(commonPath)/error1 ++48++48
					trap $(n_end) n_err
					break
				case 0x300:
					put $(error_dir) < $(ERR_LIST)
					put '$(error_dir)() 丮   Ƿ, ' $(confirm_msg1)
					put '丮$(USER_HOME)() ۼ  ϴ.' $(confirm_msg2)
					$(n_end) = sub $(commonPath)/error2 ++48++48
					trap $(n_end) n_err
					break
				case 0x400:
					put '$(USER_HOME)() 丮   ϴ.' $(confirm_msg1)
					$(n_end) = sub $(commonPath)/error1 ++48++48
					trap $(n_end) n_err
					break
				case 0x500:
					put 'ڡ$(USER_NAME) ۾ȯ ۼ, ' $(confirm_msg1)
					put ' ߻߽ϴ.' $(confirm_msg2)
					$(n_end) = sub $(commonPath)/error2 ++48++48
					trap $(n_end) n_err
					break
				case 0x600:
					put 'ڡ$(USER_NAME) NEWS Desk ȯ ۼ, ' $(confirm_msg1)
					put ' ߻߽ϴ.' $(confirm_msg2)
					$(n_end) = sub $(commonPath)/error2 ++48++48
					trap $(n_end) n_err
					break
			endswitch
	endswitch
	buzzer
	trap $(n_end) n_err
endproc:
proc: n_err
	put off $(ONRUN)
	put 0 $(menu_no)
endproc:
