proc: pre
	global $(main)
	global $(ONRUN)
	put off $(ONRUN)
	global $(okPath)
	global $(okFile)
	global $(cmdName)
	global $(menu)
	global $(confirm_msg1)
	global $(confirm_msg2)
	global $(confirm_msg3)
	global $(confirm_msg4)
	global $(confirm_msg5)
	global $(confirm_chk_msg)
	global $(confirm_chk_val)
	global $(answer)
	global $(answer_chk)
	global $(menuPath)
	global $(commonPath)
	global $(bitmaps)
	global $(icons)
	global $(bin)
	global $(etc)
	global $(kanaFont)
	global $(kanjiFont)
	global $(fWidth)
	global $(fHeight)
	global $(lHeight)
	global $(remote_host)
	global $(select_user)
	global $(printer)
	global $(print_count)
	global $(CUSTOM)
	global $(PRINTER_DB)
	global $(SENDMAIL_CF)
	global $(ALIASES)
	global $(MAIL_MODE)
	switch $(ctype)
		case ja_JP.SJIS:
			put $(AdminHome)/menu.sjis $(menuPath)
			break
		case ja_JP.EUC:
			put $(AdminHome)/menu.euc $(menuPath)
			break
		case ko_KR.EUC:
			put $(AdminHome)/menu.keuc $(menuPath)
			break
		default:
			put $(AdminHome)/menu.ascii $(menuPath)
			break
	endswitch
	put $(AdminHome)/bin $(bin)
	put $(AdminHome)/etc $(etc)
	put $(AdminHome)/lib $(lib)
	put $(lib)/icons $(icons)
	put $(lib)/bitmaps $(bitmaps)
	put $(menuPath)/Common $(commonPath)
	switch $(ctype)
		case ja_JP.SJIS:
		case ja_JP.EUC:
			put 16x16kanji $(kanjiFont)
			put 8x16romankana $(kanaFont)
			break
		case ko_KR.EUC:
			put 16x16hangulm $(kanjiFont)
			put 8x16 $(kanaFont)
			break
		default:
			put 8x16 $(kanjiFont)
			put 8x16 $(kanaFont)
			break
	endswitch
	put 8 $(fWidth)
	put 20 $(fHeight)
	put 16 $(lHeight)
	ifdef $(FONT)
	switch #(status)
		case 0:
			switch $(FONT)
				case 24:
					switch $(ctype)
						case ja_JP.SJIS:
						case ja_JP.EUC:
							put 24x24kanji $(kanjiFont)
							put 12x24romankana $(kanaFont)
							break
						case ko_KR.EUC:
							put 24x24hangulm $(kanjiFont)
							put 12x24 $(kanaFont)
							break
						default:
							put 12x24 $(kanjiFont)
							put 12x24 $(kanaFont)
							break
					endswitch
					put 12 $(fWidth)
					put 28 $(fHeight)
					put 24 $(lHeight)
					break
			endswitch
			break
	endswitch
	ifdef $(COLOR)
	switch #(status)
		case 0:
			switch $(COLOR)
				case COLOR:
				case GRAY:
				case MONO:
					break
				default:
					put MONO $(COLOR)
					break
			endswitch
			break
		default:
			visual
			put $(stdout) $(COLOR)
			break
	endswitch
	global $(COLOR)
	put '' $(remote_host)
	put $(lib)/Printer $(PRINTER_DB)
	setenv ctype $(ctype)
	setenv bin $(bin)
	setenv etc $(etc)
	setenv lib $(lib)
	setenv PRINTER_DB $(PRINTER_DB)
	put /etc/rc.custom $(CUSTOM)
	setenv CUSTOM $(CUSTOM)
	ifdef $(NIS)
	switch #(status)
		case 0:
			put $(NIS) $(YP)
			break
		default:
			put '' $(YP)
			break
	endswitch
	global $(YP)
	setenv YP $(YP)
	switch $(uid)
		case 0:
			put / $(HOME)
			put root $(USER)
			global $(HOME)
			global $(USER)
			break
	endswitch
	setenv EUID $(uid)
	ifdef $(HOME)
	switch #(status)
		case 0:
			break
		default:
			ifdef $(USER)
			switch #(status)
				case 0:
					$(bin)/Spw_check -ud $(USER)
					switch #(status)
						case 0:
							put $(stdout) $(HOME)
							break
						default:
							put '' $(HOME)
							break
					endswitch
				default:
					put '' $(HOME)
					break
			endswitch
			global $(HOME)
	endswitch
	test -s /bin/fe
	switch #(status)
		case 0:
			put on $(EJECT)
			break
		default:
			put off $(EJECT)
			break
	endswitch
	global $(EJECT)
	$(tmp) = mktemp
	put /tmp/$(tmp) $(ODLIST)
	$(tmp) = mktemp
	put /tmp/$(tmp) $(TULIST)
	$(bin)/Sdevinfo -v
	switch #(status)
		case 0:
			break
		default:
			$(bin)Sdevinfo -e sony_version
			switch #(status)
				case 0:
					break
				default:
					$(bin)Sdevinfo -e _sony_version
					switch #(status)
						case 0:
							break
						default:
							put 'NEWS-OS Release 4.0' $(stdout)
							break
					endswitch
					break
			endswitch
			break
	endswitch
	put $(stdout)@2 $(NEWS_OS)
	global $(NEWS_OS)
	setenv NEWS_OS $(NEWS_OS)
	switch $(NEWS_OS)
		case 3.3\*:
		case 3.4\*:
		case 3.9\*:
		case 4.\*:
			$(bin)/Sdevinfo -of $(ODLIST) -tf $(TULIST)
			break
		default:
			$(etc)/Common/Sdevlist.sh $(ODLIST) $(TULIST)
			break
	endswitch
	switch $(NEWS_OS)
		case 3.9\*:
		case 4.\*:
			put /etc/sendmail.cf $(SENDMAIL_CF)
			put /etc/aliases $(ALIASES)
			break
		default:
			put /usr/lib/sendmail.cf $(SENDMAIL_CF)
			put /usr/lib/aliases $(ALIASES)
			break
	endswitch
	setenv SENDMAIL_CF $(SENDMAIL_CF)
	setenv ALIASES $(ALIASES)
	$(bin)/Slstat -p $(SENDMAIL_CF)
	switch $(stdout)
		case /private/usr/lib/main.cf:
		case /usr/lib/sendmail.main.cf:
			put main $(MAIL_MODE)
			break
		case /private/usr/lib/subsidiary.cf:
		case /usr/lib/sendmail.subsidiary.cf:
			put sub $(MAIL_MODE)
			break
		default:
			put off $(MAIL_MODE)
			break
	endswitch
	global $(ODLIST)
	global $(TULIST)
	$(main) = open $(menuPath)/main_main
endproc:
