proc: pre
	global $(menuPath)
	global $(etc)
	global $(bin)
	global $(bitmaps)
	global $(icons)
	global $(kanaFont)
	global $(kanjiFont)
	global $(fWidth)
	global $(fHeight)
	switch $(ctype)
		case ja_JP.SJIS:
			put $(FloppyHome)/menu.sjis $(menuPath)
			break
		case ja_JP.EUC:
			put $(FloppyHome)/menu.euc $(menuPath)
			break
		case ko_KR.EUC:
			put $(FloppyHome)/menu.keuc $(menuPath)
			break
		default:
			put $(FloppyHome)/menu.ascii $(menuPath)
			break
	endswitch

	put $(FloppyHome)/etc $(etc)
	put $(FloppyHome)/bin $(bin)
	put $(FloppyHome)/lib $(lib)
	put $(lib)/icons $(icons)
	put $(lib)/bitmaps $(bitmaps)
	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)
	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)
					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)
	test -s /bin/fe
	switch #(status)
		case 0:
			put on $(EJECT)
			break
		default:
			put off $(EJECT)
			break
	endswitch
	global $(EJECT)
#
	open $(menuPath)/main_main
endproc:
