diff --git a/Makefile.mak b/Makefile.mak
index 411279ef..971d5409 100644
--- a/Makefile.mak
+++ b/Makefile.mak
@@ -117,8 +117,8 @@ bin\th04\res_huma.com: th04\res_huma.cpp
 $**
 | masters.lib
 
-bin\th04\op.exe: bin\th04\op.obj th04\op_01.cpp bin\frmdely2.obj
-	$(CC) $(CFLAGS) -ml -DGAME=4 -DBINARY='O' -nbin\th04\ -eOP.EXE @&&|
+bin\th04\op.exe: bin\th04\op.obj th04\m_char.cpp bin\frmdely2.obj
+	$(CC) $(CFLAGS) -ml -DGAME=4 -DBINARY='O' -3 -Z -d -nbin\th04\ -eOP.EXE @&&|
 $**
 |
 
diff --git a/th04/chars.h b/th04/chars.h
index ee7ec94f..6ea8dfff 100644
--- a/th04/chars.h
+++ b/th04/chars.h
@@ -10,4 +10,9 @@ typedef enum {
 	SHOTTYPE_COUNT,
 } shottype_t;
 
+// Used way too often...
+inline playchars_t playchar_other(playchars_t playchar) {
+	return static_cast<playchars_t>(PLAYCHAR_MARISA - playchar);
+}
+
 extern playchars_t playchar;
diff --git a/th04/m_char.cpp b/th04/m_char.cpp
new file mode 100644
index 00000000..db49e4eb
--- /dev/null
+++ b/th04/m_char.cpp
@@ -0,0 +1,494 @@
+/* ReC98
+ * -----
+ * TH04 player character selection menu
+ */
+
+#pragma codeseg op_01_TEXT
+
+extern "C" {
+#include <stddef.h>
+#include <dos.h>
+#include "platform.h"
+#include "pc98.h"
+#include "planar.h"
+#include "master.hpp"
+#include "th01/ranks.h"
+#include "th02/hardware/frmdelay.h"
+#include "th03/formats/pi.h"
+#include "th04/common.h"
+#include "th04/chars.h"
+#include "th04/formats/scoredat.h"
+#include "th04/resident.hpp"
+#include "th04/hardware/input.h"
+#include "th04/hardware/grppsafx.h"
+#include "th04/formats/cdg.h"
+#include "th04/snd/snd.h"
+#include "th04/sprites/op_cdg.h"
+#include "th04/op/op.h"
+
+#include "th04/strings/m_char.c"
+
+static const pixel_t PIC_W = 256;
+static const pixel_t PIC_H = 244;
+
+static const int COL_SELECTED = 15;
+static const int COL_NOT_SELECTED = 3;
+static const int COL_BOX = 2;
+static const int COL_SHADOW = 1;
+
+// Raised edge
+// -----------
+
+static const pixel_t RAISE_W = 8;
+static const pixel_t RAISE_H = 8;
+
+static const vram_byte_amount_t RAISE_BG_SIZE = (
+	(((PIC_W * RAISE_H) + (RAISE_W * PIC_H)) / BYTE_DOTS) * PL_COUNT
+);
+
+inline vram_offset_t raise(vram_offset_t vram_offset) {
+	return (vram_offset - vram_offset_shift(RAISE_W, RAISE_H));
+}
+
+inline void dropshadow_put(screen_x_t raised_left, vram_y_t raised_top) {
+	grcg_setcolor(GC_RMW, COL_SHADOW);
+	grcg_boxfill_8(
+		(raised_left + PIC_W),
+		(raised_top + RAISE_W),
+		(raised_left + PIC_W),
+		(raised_top + PIC_H - 1)
+	);
+	grcg_boxfill_8(
+		(raised_left + RAISE_W),
+		(raised_top + PIC_H),
+		(raised_left + PIC_W),
+		(raised_top + PIC_H + RAISE_H - 1)
+	);
+	grcg_off();
+}
+// -----------
+
+// Boxes
+// -----
+
+static const pixel_t SHADOW_DISTANCE = 8;
+static const pixel_t BOX_ROUND = 8;
+
+#define box_put(left, top, w, h, padding_y) \
+	grcg_round_boxfill( \
+		(left), (top), (left + w), (top + (padding_y * 2) + h), BOX_ROUND \
+	)
+
+#define box_shadow_put(left, top, w, h, padding_y) \
+	box_put((SHADOW_DISTANCE + left), (SHADOW_DISTANCE + top), w, h, padding_y)
+// -----
+
+// Player character selection
+// --------------------------
+
+static const screen_x_t REIMU_LEFT = 48;
+static const vram_y_t REIMU_TOP = 52;
+
+static const screen_x_t MARISA_LEFT = 336;
+static const vram_y_t MARISA_TOP = 52;
+
+inline screen_x_t playchar_title_left(screen_x_t playchar_left) {
+	return (playchar_left + 32);
+}
+static const vram_y_t PLAYCHAR_TITLE_TOP = 312;
+static const pixel_t PLAYCHAR_TITLE_W = (PLAYCHAR_TITLE_LEN * GLYPH_HALF_W);
+static const pixel_t PLAYCHAR_TITLE_H = ((PLAYCHAR_TITLE_LINES + 1) * GLYPH_H);
+// --------------------------
+
+// Shot type selection
+// -------------------
+
+static const screen_x_t SHOTTYPE_PIC_LEFT = 184;
+static const vram_y_t SHOTTYPE_PIC_TOP = 44;
+
+static const vram_y_t SHOTTYPE_BOX_TOP = 312;
+static const pixel_t SHOTTYPE_BOX_PADDING_Y = 4;
+
+static const screen_x_t SHOTTYPE_CHOOSE_LEFT = 128;
+static const pixel_t SHOTTYPE_CHOOSE_PADDING_LEFT = (3 * GLYPH_HALF_W);
+
+static const screen_x_t SHOTTYPE_TITLE_LEFT = 320;
+
+static const pixel_t SHOTTYPE_CHOOSE_W = (
+	(SHOTTYPE_CHOOSE_LEN * GLYPH_HALF_W) + SHOTTYPE_CHOOSE_PADDING_LEFT
+);
+static const pixel_t SHOTTYPE_TITLE_W = (SHOTTYPE_TITLE_LEN * GLYPH_HALF_W);
+
+inline vram_y_t shottype_title_top(shottype_t shottype) {
+	return (SHOTTYPE_BOX_TOP + (
+		shottype * (GLYPH_H + (SHOTTYPE_BOX_PADDING_Y * 2))
+	));
+}
+// -------------------
+
+// State
+// -----
+
+extern unsigned char playchar_menu_sel;
+extern unsigned char shottype_menu_sel;
+
+bool selectable_with[PLAYCHAR_COUNT][SHOTTYPE_COUNT];
+// -----
+
+void near raise_bg_allocate_and_snap(void)
+;
+void near pascal raise_bg_put(playchars_t playchar_lowered)
+;
+void near raise_bg_free(void)
+;
+
+#include "th04/op/darken.cpp"
+
+void near pascal pic_darken(playchars_t playchar)
+{
+	vram_offset_t vo;
+	vram_byte_amount_t x;
+	pixel_t y;
+
+	if(playchar == PLAYCHAR_REIMU) {
+		vo = vram_offset_shift(REIMU_LEFT, REIMU_TOP);
+	} else {
+		vo = vram_offset_shift(MARISA_LEFT, MARISA_TOP);
+	}
+	darken(vo, x, y, PIC_W, PIC_H, 1);
+}
+
+#define playchar_title_left_for(left, playchar) \
+	switch(playchar) { \
+	case PLAYCHAR_REIMU:  left = playchar_title_left(REIMU_LEFT);  break; \
+	case PLAYCHAR_MARISA: left = playchar_title_left(MARISA_LEFT); break; \
+	}
+
+void near pascal playchar_title_put(int playchar_sel)
+{
+	int playchar = playchar_sel;
+	screen_x_t left;
+	vram_y_t top;
+
+	#define put(left, top, col, playchar) \
+		graph_putsa_fx( \
+			(left + BOX_ROUND), \
+			(top + BOX_ROUND), \
+			col, \
+			PLAYCHAR_TITLE[playchar][0] \
+		); \
+		graph_putsa_fx( \
+			(left + BOX_ROUND), \
+			((top + BOX_ROUND) + (GLYPH_H * 2)), \
+			col, \
+			PLAYCHAR_TITLE[playchar][1] \
+		);
+
+	// Selected character
+	playchar_title_left_for(left, playchar);
+	top = PLAYCHAR_TITLE_TOP;
+	put(left, top, COL_SELECTED, playchar);
+
+	// Other character
+	playchar = (PLAYCHAR_MARISA - playchar);
+	playchar_title_left_for(left, playchar);
+	put(left, top, COL_NOT_SELECTED, playchar);
+
+	#undef put
+}
+
+void near pascal playchar_title_box_put(int playchar)
+{
+	screen_x_t left;
+	vram_y_t top;
+
+	playchar_title_left_for(left, playchar);
+	top = PLAYCHAR_TITLE_TOP;
+
+	grcg_setcolor(GC_RMW, COL_SHADOW);
+	box_shadow_put(left, top, PLAYCHAR_TITLE_W, PLAYCHAR_TITLE_H, BOX_ROUND);
+	grcg_setcolor(GC_RMW, COL_BOX);
+	box_put(left, top, PLAYCHAR_TITLE_W, PLAYCHAR_TITLE_H, BOX_ROUND);
+	grcg_off();
+}
+
+inline void pic_put_for(
+	playchars_t playchar_sel,
+	screen_x_t sel_left,
+	vram_y_t sel_top,
+	screen_x_t other_left,
+	vram_y_t other_top
+) {
+	cdg_put_noalpha_8(
+		(sel_left - RAISE_W), (sel_top - RAISE_H), (CDG_PIC + playchar_sel)
+	);
+	raise_bg_put(playchar_other(playchar_sel));
+	cdg_put_noalpha_8(
+		other_left, other_top, (CDG_PIC + playchar_other(playchar_sel))
+	);
+	pic_darken(playchar_other(playchar_sel));
+	dropshadow_put((sel_left - RAISE_W), (sel_top - RAISE_H));
+	playchar_title_put(playchar_sel);
+}
+
+void near pic_put(void)
+{
+	if(playchar_menu_sel == PLAYCHAR_REIMU) {
+		pic_put_for(
+			PLAYCHAR_REIMU, REIMU_LEFT, REIMU_TOP, MARISA_LEFT, MARISA_TOP
+		);
+	} else {
+		pic_put_for(
+			PLAYCHAR_MARISA, MARISA_LEFT, MARISA_TOP, REIMU_LEFT, REIMU_TOP
+		);
+	}
+}
+
+#define shottype_title_top_and_clearflag_for(top, clearflag, shottype) \
+	switch(shottype) { \
+	case SHOTTYPE_A: \
+		top = shottype_title_top(SHOTTYPE_A); \
+		clearflag = SCOREDAT_CLEARED_A; \
+		break; \
+	case SHOTTYPE_B: \
+		top = shottype_title_top(SHOTTYPE_B); \
+		clearflag = SCOREDAT_CLEARED_B; \
+		break; \
+	}
+
+void near pascal shottype_title_put(int shottype_sel)
+{
+	vram_y_t top;
+	int shottype = shottype_sel;
+	screen_x_t left;
+	int rank;
+	uint8_t clearflag;
+
+	rank = (resident->stage == STAGE_EXTRA)
+		? static_cast<int>(RANK_EXTRA)
+		: resident->rank;
+
+	#define put(top, clearflag, rank, col) \
+		if(cleared_with[playchar_menu_sel][rank] & clearflag) { \
+			graph_putsa_fx_func = FX_WEIGHT_NORMAL; \
+			graph_putsa_fx( \
+				(left - GLYPH_HALF_W), \
+				(top + SHOTTYPE_BOX_PADDING_Y), \
+				COL_SELECTED, \
+				SHOTTYPE_CLEARED \
+			); \
+			graph_putsa_fx_func = FX_WEIGHT_BOLD; \
+		} \
+		graph_putsa_fx( \
+			(left + GLYPH_HALF_W), \
+			(top + SHOTTYPE_BOX_PADDING_Y), \
+			col, \
+			SHOTTYPE_TITLE[playchar_menu_sel][shottype] \
+		);
+
+	// Selected shot type
+	shottype_title_top_and_clearflag_for(top, clearflag, shottype);
+	left = SHOTTYPE_TITLE_LEFT;
+	put(top, clearflag, rank, COL_SELECTED);
+
+	// Other shot type
+	shottype = (SHOTTYPE_B - shottype);
+	shottype_title_top_and_clearflag_for(top, clearflag, shottype);
+	put(top, clearflag, rank, COL_NOT_SELECTED);
+
+	#undef put
+}
+
+void near shottype_title_box_put(void)
+{
+	vram_y_t top = SHOTTYPE_BOX_TOP;
+	screen_x_t left = SHOTTYPE_TITLE_LEFT;
+
+	#define box_top(top, i) \
+		(top + (i * (GLYPH_H + (SHOTTYPE_BOX_PADDING_Y * 2))))
+
+	#define put(func, left, top, w) \
+		func(left, top, w, (GLYPH_H - 1), SHOTTYPE_BOX_PADDING_Y)
+
+	grcg_setcolor(GC_RMW, COL_SHADOW);
+	put(box_shadow_put, left, box_top(top, 0), (SHOTTYPE_TITLE_W - 1));
+	put(box_shadow_put, left, box_top(top, 1), (SHOTTYPE_TITLE_W - 1));
+	put(box_shadow_put, SHOTTYPE_CHOOSE_LEFT, top, (SHOTTYPE_CHOOSE_W - 1));
+
+	grcg_setcolor(GC_RMW, COL_BOX);
+	put(box_put, left, box_top(top, 0), SHOTTYPE_TITLE_W);
+	put(box_put, left, box_top(top, 1), SHOTTYPE_TITLE_W);
+	put(box_put, SHOTTYPE_CHOOSE_LEFT, top, (SHOTTYPE_CHOOSE_W - 1));
+
+	grcg_off();
+
+	graph_putsa_fx(
+		(SHOTTYPE_CHOOSE_LEFT + SHOTTYPE_CHOOSE_PADDING_LEFT),
+		(top + SHOTTYPE_BOX_PADDING_Y),
+		COL_NOT_SELECTED,
+		SHOTTYPE_CHOOSE
+	);
+
+	#undef put
+	#undef box_top
+}
+
+void near shottype_menu_put_initial(void)
+{
+	if(playchar_menu_sel == PLAYCHAR_REIMU) {
+		cdg_put_noalpha_8(
+			SHOTTYPE_PIC_LEFT, SHOTTYPE_PIC_TOP, (CDG_PIC + PLAYCHAR_REIMU)
+		);
+	} else {
+		cdg_put_noalpha_8(
+			SHOTTYPE_PIC_LEFT, SHOTTYPE_PIC_TOP, (CDG_PIC + PLAYCHAR_MARISA)
+		);
+	}
+	dropshadow_put(SHOTTYPE_PIC_LEFT, SHOTTYPE_PIC_TOP);
+	shottype_title_box_put();
+	shottype_title_put(shottype_menu_sel);
+}
+
+void near playchar_menu_put_initial(void)
+{
+	palette_black();
+	pi_load(0, "slb1.pi");
+	graph_accesspage(1);
+	graph_showpage(0);
+	pi_palette_apply(0);
+	pi_put_8(0, 0, 0);
+	raise_bg_allocate_and_snap();
+	playchar_title_box_put(PLAYCHAR_REIMU);
+	playchar_title_box_put(PLAYCHAR_MARISA);
+	pic_put();
+	graph_copy_page(0);
+	palette_black_in(1);
+}
+
+inline bool16 near playchar_menu_leave(bool16 retval) {
+	palette_black_out(1);
+	raise_bg_free();
+	pi_free(0);
+	return retval;
+}
+
+bool16 near playchar_menu(void)
+{
+	int rank;
+	int playchar;
+	uint8_t input_prev;
+	bool extra_unlocked;
+
+	if(resident->stage == STAGE_EXTRA) {
+		for(playchar = PLAYCHAR_REIMU; playchar < PLAYCHAR_COUNT; playchar++) {
+			#define set_selectable_with(playchar, shottype, flag) \
+				extra_unlocked = false; \
+				for(rank = RANK_NORMAL; rank < RANK_EXTRA; rank++) { \
+					extra_unlocked |= cleared_with[playchar][rank] & flag; \
+				} \
+				selectable_with[playchar][shottype] = (extra_unlocked) != false;
+
+			set_selectable_with(playchar, SHOTTYPE_A, SCOREDAT_CLEARED_A);
+			set_selectable_with(playchar, SHOTTYPE_B, SCOREDAT_CLEARED_B);
+
+			#undef set_selectable_with
+		}
+	} else {
+		selectable_with[PLAYCHAR_REIMU][SHOTTYPE_A] = true;
+		selectable_with[PLAYCHAR_REIMU][SHOTTYPE_B] = true;
+		selectable_with[PLAYCHAR_MARISA][SHOTTYPE_A] = true;
+		selectable_with[PLAYCHAR_MARISA][SHOTTYPE_B] = true;
+	}
+
+	playchar_menu_sel = (
+		selectable_with[PLAYCHAR_REIMU][SHOTTYPE_A] ||
+		selectable_with[PLAYCHAR_REIMU][SHOTTYPE_B]
+	)
+		? PLAYCHAR_REIMU
+		: PLAYCHAR_MARISA;
+
+	while(1) {
+		playchar_menu_put_initial();
+
+		// Character
+		while(1) {
+			input_reset_sense();
+			if(input_prev == INPUT_NONE) {
+				if((key_det & INPUT_LEFT) || (key_det & INPUT_RIGHT)) {
+					snd_se_play_force(1);
+					playchar_menu_sel = (1 - playchar_menu_sel);
+					if(
+						!selectable_with[playchar_menu_sel][SHOTTYPE_A] &&
+						!selectable_with[playchar_menu_sel][SHOTTYPE_B]
+					) {
+						playchar_menu_sel = (1 - playchar_menu_sel);
+					}
+					graph_accesspage(1);
+					pic_put();
+					sync_pages_and_delay();
+				}
+				if((key_det & INPUT_OK) || (key_det & INPUT_SHOT)) {
+					snd_se_play_force(11);
+					shottype_menu_sel = (
+						selectable_with[playchar_menu_sel][SHOTTYPE_A]
+					)
+						? SHOTTYPE_A
+						: SHOTTYPE_B;
+
+					graph_accesspage(1);
+					palette_white();
+					pi_put_8(0, 0, 0);
+					shottype_menu_put_initial();
+					graph_copy_page(0);
+					palette_white_in(1);
+					break;
+				}
+				if(key_det & INPUT_CANCEL) {
+					return playchar_menu_leave(true);
+				}
+				input_prev = key_det;
+			} else {
+				if(key_det == INPUT_NONE) {
+					input_prev = INPUT_NONE;
+				}
+			}
+			frame_delay(1);
+		}
+
+		// Shot type
+		while(1) {
+			input_reset_sense();
+			if(input_prev == INPUT_NONE) {
+				if((key_det & INPUT_UP) || (key_det & INPUT_DOWN)) {
+					shottype_menu_sel = (1 - shottype_menu_sel);
+					if(!selectable_with[playchar_menu_sel][shottype_menu_sel]) {
+						shottype_menu_sel = (1 - shottype_menu_sel);
+					}
+					graph_accesspage(1);
+					shottype_title_put(shottype_menu_sel);
+					sync_pages_and_delay();
+					snd_se_play_force(1);
+				}
+				if((key_det & INPUT_OK) || (key_det & INPUT_SHOT)) {
+					snd_se_play_force(11);
+					resident->shottype = shottype_menu_sel;
+					resident->playchar_ascii = (playchar_menu_sel + '0');
+					return playchar_menu_leave(false);
+				}
+				if(key_det & INPUT_CANCEL) {
+					raise_bg_free();
+					pi_free(0);
+					break;
+				}
+				input_prev = key_det;
+			} else {
+				if(key_det == INPUT_NONE) {
+					input_prev = INPUT_NONE;
+				}
+			}
+			frame_delay(1);
+		}
+	}
+}
+
+}
diff --git a/th04/op/darken.cpp b/th04/op/darken.cpp
index 038d79e2..9f0a44e8 100644
--- a/th04/op/darken.cpp
+++ b/th04/op/darken.cpp
@@ -2,7 +2,7 @@
 // alternating dot pattern in the given [col]. [x] and [y] store the currently
 // iterated position.
 #define darken(vram_offset, x, y, w, h, col) \
-	grcg_setcolor(GC_RMW, 1); \
+	grcg_setcolor(GC_RMW, col); \
 	dots32_t pattern = 0xAAAAAAAA; \
 	\
 	y = 0; \
diff --git a/th04/op/op.h b/th04/op/op.h
index bc6ef376..dfb655b0 100644
--- a/th04/op/op.h
+++ b/th04/op/op.h
@@ -24,3 +24,15 @@ void near cleardata_and_regist_view_sprites_load(void);
 // selection to [resident]. Returns whether to start the game (false) or
 // return to the main menu (true).
 bool16 near playchar_menu(void);
+
+// Synchronizes both VRAM pages within a 2-frame delay.
+#define sync_pages_and_delay() \
+	vsync_reset1(); \
+	frame_delay(1); \
+	\
+	graph_showpage(1); \
+	graph_copy_page(0); \
+	vsync_reset1(); \
+	frame_delay(1); \
+	\
+	graph_showpage(0);
diff --git a/th04/op_01.cpp b/th04/op_01.cpp
deleted file mode 100644
index e1d923fd..00000000
--- a/th04/op_01.cpp
+++ /dev/null
@@ -1,13 +0,0 @@
-/* ReC98
- * -----
- * Code segment #1 of TH04's OP.EXE
- */
-
-extern "C" {
-
-#include "platform.h"
-#include "th04/chars.h"
-
-bool selectable_with[PLAYCHAR_COUNT][SHOTTYPE_COUNT];
-
-}
diff --git a/th04/resident.hpp b/th04/resident.hpp
index ba67defd..b0fb6e30 100644
--- a/th04/resident.hpp
+++ b/th04/resident.hpp
@@ -54,3 +54,5 @@ typedef struct {
 	unsigned char turbo_mode;
 	int8_t unused_5[182];
 } resident_t;
+
+extern resident_t *resident;
diff --git a/th04/sprites/op_cdg.h b/th04/sprites/op_cdg.h
new file mode 100644
index 00000000..f17ac1e0
--- /dev/null
+++ b/th04/sprites/op_cdg.h
@@ -0,0 +1,5 @@
+/// CDG slots for TH05's OP.EXE
+typedef enum {
+	CDG_PIC = 40,
+	CDG_PIC_last = (CDG_PIC + PLAYCHAR_COUNT - 1)
+} op_cdg_slot_t;
diff --git a/th04/strings/m_char.c b/th04/strings/m_char.c
new file mode 100644
index 00000000..e19322ab
--- /dev/null
+++ b/th04/strings/m_char.c
@@ -0,0 +1,17 @@
+static const int PLAYCHAR_TITLE_LEN = 24;
+static const int PLAYCHAR_TITLE_LINES = 2;
+static const int SHOTTYPE_TITLE_LEN = 24;
+static const int SHOTTYPE_CHOOSE_LEN = 21;
+
+const unsigned char *PLAYCHAR_TITLE[PLAYCHAR_COUNT][PLAYCHAR_TITLE_LINES] = {
+	{ "@”Ž—νθΛ–²i›ή—‚³‚ρj ", "     L”ΝˆΝUŒ‚Œ^@    " },
+	{ " –Ά‰J–‚—Ήi–‚–@Žg‚’j", "     UŒ‚—͏dŽ‹Œ^      " },
+};
+
+const unsigned char *SHOTTYPE_TITLE[PLAYCHAR_COUNT][SHOTTYPE_COUNT] = {
+	{ "@  ƒT[ƒ`ƒVƒ‡ƒbƒg@  ", "    ƒƒCƒhƒVƒ‡ƒbƒg    " },
+	{ "ƒCƒŠƒ…[ƒWƒ‡ƒ“ƒŒ[ƒU[", "   ƒ‰ƒsƒbƒhƒVƒ‡ƒbƒg   " },
+};
+
+#define SHOTTYPE_CLEARED "™"
+#define SHOTTYPE_CHOOSE "ƒTƒuƒEƒFƒ|ƒ“‚Μ‘I‘π"
diff --git a/th04_op.asm b/th04_op.asm
index fa363baa..ccb5ccf2 100644
--- a/th04_op.asm
+++ b/th04_op.asm
@@ -177,7 +177,7 @@ _start_game	proc near
 		mov	es:[bx+resident_t.credit_bombs], al
 		mov	es:[bx+resident_t.playchar_ascii], '0' + PLAYCHAR_REIMU
 		mov	es:[bx+resident_t.stage_ascii], '0'
-		call	playchar_menu
+		call	_playchar_menu
 		or	ax, ax
 		jnz	short loc_A96A
 		les	bx, _resident
@@ -228,7 +228,7 @@ _start_extra	proc near
 		mov	es:[bx+resident_t.credit_bombs], 2
 		mov	es:[bx+resident_t.playchar_ascii], '0' + PLAYCHAR_REIMU
 		mov	es:[bx+resident_t.stage_ascii], '6'
-		call	playchar_menu
+		call	_playchar_menu
 		or	ax, ax
 		jnz	short loc_A9C7
 		les	bx, _resident
@@ -2631,8 +2631,8 @@ _op_animate	endp
 ; =============== S U B	R O U T	I N E =======================================
 
 ; Attributes: bp-based frame
-
-sub_CF5E	proc near
+public _raise_bg_allocate_and_snap
+_raise_bg_allocate_and_snap	proc near
 
 var_A		= word ptr -0Ah
 var_8		= word ptr -8
@@ -2783,14 +2783,14 @@ loc_D0F2:
 		pop	si
 		leave
 		retn
-sub_CF5E	endp
+_raise_bg_allocate_and_snap endp
 
 
 ; =============== S U B	R O U T	I N E =======================================
 
 ; Attributes: bp-based frame
-
-sub_D0FF	proc near
+public RAISE_BG_PUT
+raise_bg_put proc near
 
 var_6		= dword	ptr -6
 var_2		= word ptr -2
@@ -2914,14 +2914,14 @@ loc_D1E7:
 		pop	si
 		leave
 		retn	2
-sub_D0FF	endp
+raise_bg_put endp
 
 
 ; =============== S U B	R O U T	I N E =======================================
 
 ; Attributes: bp-based frame
-
-sub_D1F3	proc near
+public _raise_bg_free
+_raise_bg_free proc near
 		push	bp
 		mov	bp, sp
 		push	word ptr dword_132BA+2
@@ -2930,896 +2930,9 @@ sub_D1F3	proc near
 		call	hmem_free
 		pop	bp
 		retn
-sub_D1F3	endp
-
-
-; =============== S U B	R O U T	I N E =======================================
-
-; Attributes: bp-based frame
-
-darken_pic	proc near
-
-var_6		= dword	ptr -6
-var_2		= word ptr -2
-arg_0		= byte ptr  4
-
-		enter	6, 0
-		push	si
-		push	di
-		cmp	[bp+arg_0], 0
-		jnz	short loc_D21B
-		mov	si, (52 * ROW_SIZE) + ( 48 / 8)
-		jmp	short loc_D21E
-; ---------------------------------------------------------------------------
-
-loc_D21B:
-		mov	si, (52 * ROW_SIZE) + (336 / 8)
-
-loc_D21E:
-		call	grcg_setcolor pascal, (GC_RMW shl 16) + 1
-		mov	[bp+var_6], 0AAAAAAAAh
-		xor	di, di
-		jmp	short loc_D273
-; ---------------------------------------------------------------------------
-
-loc_D235:
-		test	di, 1
-		jnz	short loc_D243
-		mov	eax, 0AAAAAAAAh
-		jmp	short loc_D249
-; ---------------------------------------------------------------------------
-
-loc_D243:
-		mov	eax, 55555555h
-
-loc_D249:
-		mov	[bp+var_6], eax
-		mov	[bp+var_2], 0
-		jmp	short loc_D269
-; ---------------------------------------------------------------------------
-
-loc_D254:
-		les	bx, _VRAM_PLANE_B
-		add	bx, si
-		mov	eax, [bp+var_6]
-		mov	es:[bx], eax
-		add	[bp+var_2], 4
-		add	si, 4
-
-loc_D269:
-		cmp	[bp+var_2], (256 / 8)
-		jl	short loc_D254
-		inc	di
-		add	si, ROW_SIZE - (256 / 8)
-
-loc_D273:
-		cmp	di, 244
-		jl	short loc_D235
-		GRCG_OFF_CLOBBERING dx
-		pop	di
-		pop	si
-		leave
-		retn	2
-darken_pic	endp
-
-
-; =============== S U B	R O U T	I N E =======================================
-
-; Attributes: bp-based frame
-
-sub_D285	proc near
-
-var_2		= word ptr -2
-arg_0		= word ptr  4
-
-		enter	2, 0
-		push	si
-		push	di
-		mov	si, [bp+arg_0]
-		mov	ax, si
-		or	ax, ax
-		jz	short loc_D29B
-		cmp	ax, 1
-		jz	short loc_D2A0
-		jmp	short loc_D2A3
-; ---------------------------------------------------------------------------
-
-loc_D29B:
-		mov	di, 80
-		jmp	short loc_D2A3
-; ---------------------------------------------------------------------------
-
-loc_D2A0:
-		mov	di, 368
-
-loc_D2A3:
-		mov	[bp+var_2], 312
-		lea	ax, [di+8]
-		push	ax
-		mov	ax, [bp+var_2]
-		add	ax, 8
-		push	ax
-		push	0Fh
-		mov	bx, si
-		shl	bx, 3
-		pushd	aPLAYCHAR_NAME_AND_TITLE[bx]
-		call	graph_putsa_fx
-		lea	ax, [di+8]
-		push	ax
-		mov	ax, [bp+var_2]
-		add	ax, 40
-		push	ax
-		push	0Fh
-		mov	bx, si
-		shl	bx, 3
-		pushd	aPLAYCHAR_TYPE[bx]
-		call	graph_putsa_fx
-		mov	ax, 1
-		sub	ax, si
-		mov	si, ax
-		or	ax, ax
-		jz	short loc_D2F2
-		cmp	ax, 1
-		jz	short loc_D2F7
-		jmp	short loc_D2FA
-; ---------------------------------------------------------------------------
-
-loc_D2F2:
-		mov	di, 80
-		jmp	short loc_D2FA
-; ---------------------------------------------------------------------------
-
-loc_D2F7:
-		mov	di, 368
-
-loc_D2FA:
-		lea	ax, [di+8]
-		push	ax
-		mov	ax, [bp+var_2]
-		add	ax, 8
-		push	ax
-		push	3
-		mov	bx, si
-		shl	bx, 3
-		pushd	aPLAYCHAR_NAME_AND_TITLE[bx]
-		call	graph_putsa_fx
-		lea	ax, [di+8]
-		push	ax
-		mov	ax, [bp+var_2]
-		add	ax, 40
-		push	ax
-		push	3
-		mov	bx, si
-		shl	bx, 3
-		pushd	aPLAYCHAR_TYPE[bx]
-		call	graph_putsa_fx
-		pop	di
-		pop	si
-		leave
-		retn	2
-sub_D285	endp
-
-
-; =============== S U B	R O U T	I N E =======================================
-
-; Attributes: bp-based frame
-
-sub_D338	proc near
-
-arg_0		= word ptr  4
-
-		push	bp
-		mov	bp, sp
-		push	si
-		push	di
-		mov	ax, [bp+arg_0]
-		or	ax, ax
-		jz	short loc_D34B
-		cmp	ax, 1
-		jz	short loc_D350
-		jmp	short loc_D353
-; ---------------------------------------------------------------------------
-
-loc_D34B:
-		mov	si, 80
-		jmp	short loc_D353
-; ---------------------------------------------------------------------------
-
-loc_D350:
-		mov	si, 368
-
-loc_D353:
-		mov	di, 312
-		call	grcg_setcolor pascal, (GC_RMW shl 16) + 1
-		lea	ax, [si+8]
-		push	ax
-		lea	ax, [di+8]
-		push	ax
-		lea	ax, [si+200]
-		push	ax
-		lea	ax, [di+72]
-		push	ax
-		push	8
-		call	grcg_round_boxfill
-		call	grcg_setcolor pascal, (GC_RMW shl 16) + 2
-		push	si
-		push	di
-		lea	ax, [si+192]
-		push	ax
-		lea	ax, [di+64]
-		push	ax
-		push	8
-		call	grcg_round_boxfill
-		GRCG_OFF_CLOBBERING dx
-		pop	di
-		pop	si
-		pop	bp
-		retn	2
-sub_D338	endp
-
-
-; =============== S U B	R O U T	I N E =======================================
-
-; Attributes: bp-based frame
-
-sub_D3A2	proc near
-		push	bp
-		mov	bp, sp
-		cmp	playchar_132B8, PLAYCHAR_REIMU
-		jnz	short loc_D407
-		call	cdg_put_noalpha_8 pascal, large (40 shl 16) or 44, 40
-		push	1
-		call	sub_D0FF
-		call	cdg_put_noalpha_8 pascal, large (336 shl 16) or 52, 41
-		push	1
-		call	darken_pic
-		call	grcg_setcolor pascal, (GC_RMW shl 16) + 1
-		call	grcg_byteboxfill_x pascal, ((296 / 8) shl 16) or  52, ((296 / 8) shl 16) or 287
-		call	grcg_byteboxfill_x pascal, (( 48 / 8) shl 16) or 288, ((296 / 8) shl 16) or 295
-		GRCG_OFF_CLOBBERING dx
-		push	0
-		jmp	short loc_D460
-; ---------------------------------------------------------------------------
-
-loc_D407:
-		call	cdg_put_noalpha_8 pascal, large (328 shl 16) or 44, 41
-		push	0
-		call	sub_D0FF
-		call	cdg_put_noalpha_8 pascal, large (48 shl 16) or 52, 40
-		push	0
-		call	darken_pic
-		call	grcg_setcolor pascal, (GC_RMW shl 16) + 1
-		call	grcg_byteboxfill_x pascal, ((584 / 8) shl 16) or  52, ((584 / 8) shl 16) or 287
-		call	grcg_byteboxfill_x pascal, ((336 / 8) shl 16) or 288, ((584 / 8) shl 16) or 295
-		GRCG_OFF_CLOBBERING dx
-		push	1
-
-loc_D460:
-		call	sub_D285
-		pop	bp
-		retn
-sub_D3A2	endp
-
-
-; =============== S U B	R O U T	I N E =======================================
-
-; Attributes: bp-based frame
-
-sub_D465	proc near
-
-var_5		= byte ptr -5
-var_4		= word ptr -4
-var_2		= word ptr -2
-arg_0		= word ptr  4
-
-		enter	6, 0
-		push	si
-		push	di
-		mov	di, [bp+arg_0]
-		les	bx, _resident
-		cmp	es:[bx+resident_t.stage], STAGE_EXTRA
-		jnz	short loc_D47E
-		mov	ax, RANK_EXTRA
-		jmp	short loc_D488
-; ---------------------------------------------------------------------------
-
-loc_D47E:
-		les	bx, _resident
-		mov	al, es:[bx+resident_t.rank]
-		mov	ah, 0
-
-loc_D488:
-		mov	[bp+var_4], ax
-		mov	ax, di
-		or	ax, ax
-		jz	short loc_D498
-		cmp	ax, 1
-		jz	short loc_D4A1
-		jmp	short loc_D4A8
-; ---------------------------------------------------------------------------
-
-loc_D498:
-		mov	si, 312
-		mov	[bp+var_5], SCOREDAT_CLEARED_A
-		jmp	short loc_D4A8
-; ---------------------------------------------------------------------------
-
-loc_D4A1:
-		mov	si, 336
-		mov	[bp+var_5], SCOREDAT_CLEARED_B
-
-loc_D4A8:
-		mov	[bp+var_2], 320
-		mov	al, playchar_132B8
-		mov	ah, 0
-		imul	ax, RANK_COUNT
-		add	ax, [bp+var_4]
-		mov	dl, [bp+var_5]
-		mov	bx, ax
-		test	_cleared_with[bx], dl
-		jz	short loc_D4E5
-		mov	_graph_putsa_fx_func, 0
-		mov	ax, [bp+var_2]
-		add	ax, -8
-		push	ax
-		lea	ax, [si+4]
-		push	ax
-		push	15
-		push	ds
-		push	offset aStar
-		call	graph_putsa_fx
-		mov	_graph_putsa_fx_func, 2
-
-loc_D4E5:
-		mov	ax, [bp+var_2]
-		add	ax, 8
-		push	ax
-		lea	ax, [si+4]
-		push	ax
-		push	15
-		mov	al, playchar_132B8
-		mov	ah, 0
-		shl	ax, 3
-		mov	dx, di
-		shl	dx, 2
-		add	ax, dx
-		mov	bx, ax
-		pushd	aPLAYCHAR_SHOT[bx]
-		call	graph_putsa_fx
-		mov	ax, 1
-		sub	ax, di
-		mov	di, ax
-		or	ax, ax
-		jz	short loc_D51F
-		cmp	ax, 1
-		jz	short loc_D528
-		jmp	short loc_D52F
-; ---------------------------------------------------------------------------
-
-loc_D51F:
-		mov	si, 312
-		mov	[bp+var_5], SCOREDAT_CLEARED_A
-		jmp	short loc_D52F
-; ---------------------------------------------------------------------------
-
-loc_D528:
-		mov	si, 336
-		mov	[bp+var_5], SCOREDAT_CLEARED_B
-
-loc_D52F:
-		mov	al, playchar_132B8
-		mov	ah, 0
-		imul	ax, RANK_COUNT
-		add	ax, [bp+var_4]
-		mov	dl, [bp+var_5]
-		mov	bx, ax
-		test	_cleared_with[bx], dl
-		jz	short loc_D567
-		mov	_graph_putsa_fx_func, 0
-		mov	ax, [bp+var_2]
-		add	ax, -8
-		push	ax
-		lea	ax, [si+4]
-		push	ax
-		push	15
-		push	ds
-		push	offset aStar
-		call	graph_putsa_fx
-		mov	_graph_putsa_fx_func, 2
-
-loc_D567:
-		mov	ax, [bp+var_2]
-		add	ax, 8
-		push	ax
-		lea	ax, [si+4]
-		push	ax
-		push	3
-		mov	al, playchar_132B8
-		mov	ah, 0
-		shl	ax, 3
-		mov	dx, di
-		shl	dx, 2
-		add	ax, dx
-		mov	bx, ax
-		pushd	aPLAYCHAR_SHOT[bx]
-		call	graph_putsa_fx
-		pop	di
-		pop	si
-		leave
-		retn	2
-sub_D465	endp
-
-
-; =============== S U B	R O U T	I N E =======================================
-
-; Attributes: bp-based frame
-
-sub_D595	proc near
-		push	bp
-		mov	bp, sp
-		push	si
-		push	di
-		mov	si, 312
-		mov	di, 320
-		call	grcg_setcolor pascal, (GC_RMW shl 16) + 1
-		lea	ax, [di+8]
-		push	ax
-		lea	ax, [si+8]
-		push	ax
-		lea	ax, [di+199]
-		push	ax
-		lea	ax, [si+31]
-		push	ax
-		push	8
-		call	grcg_round_boxfill
-		lea	ax, [di+8]
-		push	ax
-		lea	ax, [si+32]
-		push	ax
-		lea	ax, [di+199]
-		push	ax
-		lea	ax, [si+55]
-		push	ax
-		push	8
-		call	grcg_round_boxfill
-		push	136
-		lea	ax, [si+8]
-		push	ax
-		push	327
-		lea	ax, [si+31]
-		push	ax
-		push	8
-		call	grcg_round_boxfill
-		call	grcg_setcolor pascal, (GC_RMW shl 16) + 2
-		push	di
-		push	si
-		lea	ax, [di+192]
-		push	ax
-		lea	ax, [si+23]
-		push	ax
-		push	8
-		call	grcg_round_boxfill
-		push	di
-		lea	ax, [si+24]
-		push	ax
-		lea	ax, [di+192]
-		push	ax
-		lea	ax, [si+47]
-		push	ax
-		push	8
-		call	grcg_round_boxfill
-		push	128
-		push	si
-		push	319
-		lea	ax, [si+23]
-		push	ax
-		push	8
-		call	grcg_round_boxfill
-		GRCG_OFF_CLOBBERING dx
-		push	152
-		lea	ax, [si+4]
-		push	ax
-		push	3
-		push	ds
-		push	offset aGtgugegfgGuvSi ; "ƒTƒuƒEƒFƒ|ƒ“‚Μ‘I‘π"
-		call	graph_putsa_fx
-		pop	di
-		pop	si
-		pop	bp
-		retn
-sub_D595	endp
-
-
-; =============== S U B	R O U T	I N E =======================================
-
-; Attributes: bp-based frame
-
-sub_D650	proc near
-		push	bp
-		mov	bp, sp
-		cmp	playchar_132B8, PLAYCHAR_REIMU
-		jnz	short loc_D664
-		push	(184 shl 16) or 44
-		push	40
-		jmp	short loc_D66C
-; ---------------------------------------------------------------------------
-
-loc_D664:
-		push	(184 shl 16) or 44
-		push	41
-
-loc_D66C:
-		call	cdg_put_noalpha_8
-		call	grcg_setcolor pascal, (GC_RMW shl 16) + 1
-		call	grcg_byteboxfill_x pascal, ((440 / 8) shl 16) or  52, ((440 / 8) shl 16) or 287
-		call	grcg_byteboxfill_x pascal, ((192 / 8) shl 16) or 288, ((440 / 8) shl 16) or 295
-		GRCG_OFF_CLOBBERING dx
-		call	sub_D595
-		mov	al, byte_132B9
-		mov	ah, 0
-		push	ax
-		call	sub_D465
-		pop	bp
-		retn
-sub_D650	endp
-
-
-; =============== S U B	R O U T	I N E =======================================
-
-; Attributes: bp-based frame
-
-playchar_menu_init	proc near
-		push	bp
-		mov	bp, sp
-		mov	PaletteTone, 0
-		call	far ptr	palette_show
-		call	pi_load pascal, 0, ds, offset aSlb1_pi
-		graph_accesspage 1
-		graph_showpage 0
-		call	pi_palette_apply pascal, 0
-		call	pi_put_8 pascal, large 0, 0
-		call	sub_CF5E
-		push	0
-		call	sub_D338
-		push	1
-		call	sub_D338
-		call	sub_D3A2
-		call	graph_copy_page pascal, 0
-		push	1
-		call	palette_black_in
-		pop	bp
-		retn
-playchar_menu_init	endp
-
-
-; =============== S U B	R O U T	I N E =======================================
-
-; Attributes: bp-based frame
-
-playchar_menu	proc near
-
-var_2		= byte ptr -2
-@@input_locked		= byte ptr -1
-
-		enter	2, 0
-		push	si
-		push	di
-		les	bx, _resident
-		cmp	es:[bx+resident_t.stage], STAGE_EXTRA
-		jnz	short loc_D78D
-		xor	di, di
-		jmp	short loc_D786
-; ---------------------------------------------------------------------------
-
-loc_D71D:
-		mov	[bp+var_2], 0
-		mov	si, RANK_NORMAL
-		jmp	short loc_D735
-; ---------------------------------------------------------------------------
-
-loc_D726:
-		mov	bx, di
-		imul	bx, RANK_COUNT
-		mov	al, _cleared_with[bx+si]
-		and	al, 1
-		or	[bp+var_2], al
-		inc	si
-
-loc_D735:
-		cmp	si, RANK_EXTRA
-		jl	short loc_D726
-		mov	bx, di
-		add	bx, bx
-		push	bx
-		cmp	[bp+var_2], 0
-		jz	short loc_D74A
-		mov	ax, 1
-		jmp	short loc_D74C
-; ---------------------------------------------------------------------------
-
-loc_D74A:
-		xor	ax, ax
-
-loc_D74C:
-		pop	bx
-		mov	_selectable_with[SHOTTYPE_A][bx], al
-		mov	[bp+var_2], 0
-		mov	si, RANK_NORMAL
-		jmp	short loc_D769
-; ---------------------------------------------------------------------------
-
-loc_D75A:
-		mov	bx, di
-		imul	bx, RANK_COUNT
-		mov	al, _cleared_with[bx+si]
-		and	al, 2
-		or	[bp+var_2], al
-		inc	si
-
-loc_D769:
-		cmp	si, RANK_EXTRA
-		jl	short loc_D75A
-		mov	bx, di
-		add	bx, bx
-		push	bx
-		cmp	[bp+var_2], 0
-		jz	short loc_D77E
-		mov	ax, 1
-		jmp	short loc_D780
-; ---------------------------------------------------------------------------
-
-loc_D77E:
-		xor	ax, ax
-
-loc_D780:
-		pop	bx
-		mov	_selectable_with[SHOTTYPE_B][bx], al
-		inc	di
-
-loc_D786:
-		cmp	di, PLAYCHAR_COUNT
-		jl	short loc_D71D
-		jmp	short loc_D7A1
-; ---------------------------------------------------------------------------
-
-loc_D78D:
-		mov	_selectable_with[PLAYCHAR_REIMU * PLAYCHAR_COUNT][SHOTTYPE_A], 1
-		mov	_selectable_with[PLAYCHAR_REIMU * PLAYCHAR_COUNT][SHOTTYPE_B], 1
-		mov	_selectable_with[PLAYCHAR_MARISA * PLAYCHAR_COUNT][SHOTTYPE_A], 1
-		mov	_selectable_with[PLAYCHAR_MARISA * PLAYCHAR_COUNT][SHOTTYPE_B], 1
-
-loc_D7A1:
-		cmp	_selectable_with[PLAYCHAR_REIMU * PLAYCHAR_COUNT][SHOTTYPE_A], 0
-		jnz	short loc_D7AF
-		cmp	_selectable_with[PLAYCHAR_REIMU * PLAYCHAR_COUNT][SHOTTYPE_B], 0
-		jz	short loc_D7B3
-
-loc_D7AF:
-		mov	al, PLAYCHAR_REIMU
-		jmp	short loc_D7B5
-; ---------------------------------------------------------------------------
-
-loc_D7B3:
-		mov	al, PLAYCHAR_MARISA
-
-loc_D7B5:
-		mov	playchar_132B8, al
-
-loc_D7B8:
-		call	playchar_menu_init
-
-loc_D7BB:
-		call	far ptr	_input_reset_sense
-		cmp	[bp+@@input_locked], 0
-		jnz	loc_D8DF
-		test	_key_det.lo, low INPUT_LEFT
-		jnz	short loc_D7D6
-		test	_key_det.lo, low INPUT_RIGHT
-		jz	short loc_D84C
-
-loc_D7D6:
-		call	_snd_se_reset
-		call	snd_se_play pascal, 1
-		call	_snd_se_update
-		mov	al, 1
-		sub	al, playchar_132B8
-		mov	playchar_132B8, al
-		mov	ah, 0
-		add	ax, ax
-		mov	bx, ax
-		cmp	_selectable_with[SHOTTYPE_A][bx], 0
-		jnz	short loc_D816
-		mov	al, playchar_132B8
-		mov	ah, 0
-		add	ax, ax
-		mov	bx, ax
-		cmp	_selectable_with[SHOTTYPE_B][bx], 0
-		jnz	short loc_D816
-		mov	al, 1
-		sub	al, playchar_132B8
-		mov	playchar_132B8, al
-
-loc_D816:
-		graph_accesspage 1
-		call	sub_D3A2
-		mov	vsync_Count1, 0
-		push	1
-		call	frame_delay
-		graph_showpage 1
-		call	graph_copy_page pascal, 0
-		mov	vsync_Count1, 0
-		push	1
-		call	frame_delay
-		graph_showpage 0
-
-loc_D84C:
-		test	_key_det.hi, high INPUT_OK
-		jnz	short loc_D85A
-		test	_key_det.lo, low INPUT_SHOT
-		jz	short loc_D8B2
-
-loc_D85A:
-		call	_snd_se_reset
-		call	snd_se_play pascal, 11
-		call	_snd_se_update
-		mov	al, playchar_132B8
-		mov	ah, 0
-		add	ax, ax
-		mov	bx, ax
-		cmp	_selectable_with[bx], 0
-		jz	short loc_D87F
-		mov	al, 0
-		jmp	short loc_D881
-; ---------------------------------------------------------------------------
-
-loc_D87F:
-		mov	al, 1
-
-loc_D881:
-		mov	byte_132B9, al
-		graph_accesspage 1
-		mov	PaletteTone, 200
-		call	far ptr	palette_show
-		call	pi_put_8 pascal, large 0, 0
-		call	sub_D650
-		call	graph_copy_page pascal, 0
-		push	1
-		call	palette_white_in
-
-loc_D8B0:
-		jmp	short loc_D8F4
-; ---------------------------------------------------------------------------
-
-loc_D8B2:
-		test	_key_det.hi, high INPUT_CANCEL
-		jz	short loc_D8D7
-		push	1
-		call	palette_black_out
-		call	sub_D1F3
-		freePISlotLarge	0
-		mov	ax, 1
-		jmp	loc_DA0D
-; ---------------------------------------------------------------------------
-
-loc_D8D7:
-		mov	al, _key_det.lo
-		mov	[bp+@@input_locked], al
-		jmp	short loc_D8EA
-; ---------------------------------------------------------------------------
-
-loc_D8DF:
-		cmp	_key_det, INPUT_NONE
-		jnz	short loc_D8EA
-		mov	[bp+@@input_locked], 0
-
-loc_D8EA:
-		push	1
-		call	frame_delay
-		jmp	loc_D7BB
-; ---------------------------------------------------------------------------
-
-loc_D8F4:
-		call	far ptr	_input_reset_sense
-		cmp	[bp+@@input_locked], 0
-		jnz	loc_D9F8
-		test	_key_det.lo, low INPUT_UP
-		jnz	short loc_D90F
-		test	_key_det.lo, low INPUT_DOWN
-		jz	short loc_D986
-
-loc_D90F:
-		mov	al, 1
-		sub	al, byte_132B9
-		mov	byte_132B9, al
-		mov	al, playchar_132B8
-		mov	ah, 0
-		add	ax, ax
-		mov	dl, byte_132B9
-		mov	dh, 0
-		add	ax, dx
-		mov	bx, ax
-		cmp	_selectable_with[bx], 0
-		jnz	short loc_D939
-		mov	al, 1
-		sub	al, byte_132B9
-		mov	byte_132B9, al
-
-loc_D939:
-		graph_accesspage 1
-		mov	al, byte_132B9
-		mov	ah, 0
-		push	ax
-		call	sub_D465
-		mov	vsync_Count1, 0
-		push	1
-		call	frame_delay
-		graph_showpage 1
-		call	graph_copy_page pascal, 0
-		mov	vsync_Count1, 0
-		push	1
-		call	frame_delay
-		graph_showpage 0
-		call	_snd_se_reset
-		call	snd_se_play pascal, 1
-		call	_snd_se_update
-
-loc_D986:
-		test	_key_det.hi, high INPUT_OK
-		jnz	short @@z_pressed
-		test	_key_det.lo, low INPUT_SHOT
-		jz	short loc_D9D5
-
-@@z_pressed:
-		call	_snd_se_reset
-		call	snd_se_play pascal, 11
-		call	_snd_se_update
-		les	bx, _resident
-		mov	al, byte_132B9
-		mov	es:[bx+resident_t.shottype], al
-		mov	al, playchar_132B8
-		add	al, '0'
-		mov	es:[bx+resident_t.playchar_ascii], al
-		push	1
-		call	palette_black_out
-		call	sub_D1F3
-		freePISlotLarge	0
-		xor	ax, ax
-		jmp	short loc_DA0D
-; ---------------------------------------------------------------------------
-
-loc_D9D5:
-		test	_key_det.hi, high INPUT_CANCEL
-		jz	short loc_D9F0
-		call	sub_D1F3
-		freePISlotLarge	0
-		jmp	loc_D7B8
-; ---------------------------------------------------------------------------
-
-loc_D9F0:
-		mov	al, _key_det.lo
-		mov	[bp+@@input_locked], al
-		jmp	short loc_DA03
-; ---------------------------------------------------------------------------
-
-loc_D9F8:
-		cmp	_key_det, INPUT_NONE
-		jnz	short loc_DA03
-		mov	[bp+@@input_locked], 0
-
-loc_DA03:
-		push	1
-		call	frame_delay
-		jmp	loc_D8B0
-; ---------------------------------------------------------------------------
-
-loc_DA0D:
-		pop	di
-		pop	si
-		leave
-		retn
-playchar_menu	endp
-		db    0
+_raise_bg_free endp
 
+	_playchar_menu procdesc near
 op_01_TEXT	ends
 
 ; ===========================================================================
@@ -4097,29 +3210,6 @@ aOp1b_pi	db 'op1b.pi',0
 aOp0b_pi	db 'op0b.pi',0
 aOp_1		db 'op',0
 aOp1_pi_1	db 'op1.pi',0
-		db    0
-aPLAYCHAR_NAME_AND_TITLE label dword
-		dd aB@focasCBiiPcv	; "@”Ž—νθΛ–²i›ή—‚³‚ρj "
-aPLAYCHAR_TYPE label dword
-		dd aNlfINumvmB@		; "	L”ΝˆΝUŒ‚Œ^@	  "
-		dd aCIjcvcanBicvc@	; " –Ά‰J–‚—Ήi–‚–@Žg‚’j"
-		dd aNumvcPdolm		; "	UŒ‚—͏dŽ‹Œ^	  "
-aPLAYCHAR_SHOT label dword
-		dd aB@GtbGGvgzgbgg	; "@  ƒT[ƒ`ƒVƒ‡ƒbƒg@	 "
-		dd aGpgcghgvgzgbgg	; "    ƒƒCƒhƒVƒ‡ƒbƒg	 "
-		dd aGcgkgebGwgzgug	; "ƒCƒŠƒ…[ƒWƒ‡ƒ“ƒŒ[ƒU["
-		dd aGigsgbghgvgzgb	; "   ƒ‰ƒsƒbƒhƒVƒ‡ƒbƒg	 "
-aB@focasCBiiPcv	db '@”Ž—νθΛ–²i›ή—‚³‚ρj ',0
-aNlfINumvmB@	db '     L”ΝˆΝUŒ‚Œ^@    ',0
-aCIjcvcanBicvc@	db ' –Ά‰J–‚—Ήi–‚–@Žg‚’j',0
-aNumvcPdolm	db '     UŒ‚—͏dŽ‹Œ^      ',0
-aB@GtbGGvgzgbgg	db '@  ƒT[ƒ`ƒVƒ‡ƒbƒg@  ',0
-aGpgcghgvgzgbgg	db '    ƒƒCƒhƒVƒ‡ƒbƒg    ',0
-aGcgkgebGwgzgug	db 'ƒCƒŠƒ…[ƒWƒ‡ƒ“ƒŒ[ƒU[',0
-aGigsgbghgvgzgb	db '   ƒ‰ƒsƒbƒhƒVƒ‡ƒbƒg   ',0
-aStar		db '™',0
-aGtgugegfgGuvSi	db 'ƒTƒuƒEƒFƒ|ƒ“‚Μ‘I‘π',0
-aSlb1_pi	db 'slb1.pi',0
 
 	.data?
 
@@ -4166,8 +3256,9 @@ _cleared_with_reimu 	db RANK_COUNT dup (?)
 _cleared_with_marisa	db RANK_COUNT dup (?)
 _extra_unlocked	db ?
 		db 49 dup(?)
-playchar_132B8	db ?
-byte_132B9	db ?
+	public _playchar_menu_sel, _shottype_menu_sel
+_playchar_menu_sel	db ?
+_shottype_menu_sel	db ?
 dword_132BA	dd ?
 dword_132BE	dd ?
 	extern _selectable_with:byte
diff --git a/th05/m_char.cpp b/th05/m_char.cpp
index 4154c0c8..f78d6a8f 100644
--- a/th05/m_char.cpp
+++ b/th05/m_char.cpp
@@ -193,15 +193,7 @@ inline void near on_directional_input(uint8_t sel_xorval) {
 	pic_put(true);
 	playchar_menu_sel ^= sel_xorval;
 	pic_put(false);
-	vsync_reset1();
-	frame_delay(1);
-
-	graph_showpage(1);
-	graph_copy_page(0);
-	vsync_reset1();
-	frame_delay(1);
-
-	graph_showpage(0);
+	sync_pages_and_delay();
 }
 
 bool16 near playchar_menu(void)