diff --git a/th02/main/dialog/dialog.cpp b/th02/main/dialog/dialog.cpp
index e6097257..272ca9ff 100644
--- a/th02/main/dialog/dialog.cpp
+++ b/th02/main/dialog/dialog.cpp
@@ -12,6 +12,23 @@
 #include "th02/main/player/player.hpp"
 #include "th02/sprites/main_pat.h"
 
+// Coordinates
+// -----------
+
+static const pixel_t BOX_W = PLAYFIELD_W;
+static const pixel_t BOX_H = (
+	(DIALOG_BOX_PART_H / 2) +
+	(DIALOG_BOX_LINES * GLYPH_H) +
+	(DIALOG_BOX_PART_H / 2)
+);
+
+static const pixel_t BOX_MIDDLE_W = (
+	BOX_W - DIALOG_BOX_LEFT_W - DIALOG_BOX_PART_W
+);
+
+static const pixel_t BOX_SLIDE_SPEED = (PLAYFIELD_W / 24);
+// -----------
+
 // State
 // -----
 
@@ -86,3 +103,61 @@ void near dialog_put_player(void)
 
 	#undef option_left_topleft
 }
+
+void pascal near dialog_box_put_top_and_bottom_part(
+	screen_x_t& left,
+	vram_y_t top_top,
+	vram_y_t bottom_top,
+	int top_patnum // ACTUAL TYPE: main_patnum_t
+)
+{
+	enum {
+		PATNUM_TO_BOTTOM = (
+			PAT_DIALOG_BOX_LEFT_BOTTOM - PAT_DIALOG_BOX_LEFT_TOP
+		),
+	};
+
+	// Assuming the constant slide speed, these are the last coordinates where
+	// the box part wouldn't be fully covered by black TRAM cells.
+	// ZUN bloat: Using the playfield_clip_left*() and playfield_clip_right*()
+	// functions would have been cleaner and more consistent.
+	static_assert(BOX_SLIDE_SPEED == (DIALOG_BOX_PART_W / 2));
+	if(
+		(left >= (PLAYFIELD_LEFT -  BOX_SLIDE_SPEED)) &&
+		(left <= (PLAYFIELD_RIGHT - BOX_SLIDE_SPEED))
+	) {
+		static_assert(BOX_H == (DIALOG_BOX_PART_H * 2));
+		static_assert(
+			(PAT_DIALOG_BOX_MIDDLE_BOTTOM - PAT_DIALOG_BOX_MIDDLE_TOP) ==
+			PATNUM_TO_BOTTOM
+		);
+		static_assert(
+			(PAT_DIALOG_BOX_RIGHT_BOTTOM - PAT_DIALOG_BOX_RIGHT_TOP) ==
+			PATNUM_TO_BOTTOM
+		);
+		super_roll_put(left,    top_top, (top_patnum + 0));
+		super_roll_put(left, bottom_top, (top_patnum + PATNUM_TO_BOTTOM));
+	}
+	left += DIALOG_BOX_PART_W;
+}
+
+// ZUN bloat: Passing [left] by reference made sense in the function above, but
+// here it doesn't.
+void pascal near dialog_box_put(
+	screen_x_t& left, vram_y_t top_top, vram_y_t bottom_top
+)
+{
+	int i;
+
+	for(i = PAT_DIALOG_BOX_LEFT_TOP; i < PAT_DIALOG_BOX_MIDDLE_TOP; i++) {
+		dialog_box_put_top_and_bottom_part(left, top_top, bottom_top, i);
+	}
+	for(i = 0; i < (BOX_MIDDLE_W / DIALOG_BOX_PART_W); i++) {
+		dialog_box_put_top_and_bottom_part(
+			left, top_top, bottom_top, PAT_DIALOG_BOX_MIDDLE_TOP
+		);
+	}
+	dialog_box_put_top_and_bottom_part(
+		left, top_top, bottom_top, PAT_DIALOG_BOX_RIGHT_TOP
+	);
+}
diff --git a/th02/sprites/main_pat.h b/th02/sprites/main_pat.h
index 186b935e..ad214ce8 100644
--- a/th02/sprites/main_pat.h
+++ b/th02/sprites/main_pat.h
@@ -1,5 +1,16 @@
 #define MISS_ANIM_CELS 6
 
+/// Sprite sizes
+/// ------------
+
+#define DIALOG_BOX_PART_W 32
+#define DIALOG_BOX_PART_H 32
+
+#define DIALOG_BOX_LEFT_W 96
+
+#define DIALOG_BOX_LEFT_PARTS (DIALOG_BOX_LEFT_W / DIALOG_BOX_PART_W)
+/// ------------
+
 /// Stage-independent pattern numbers for the super_*() functions
 /// -------------------------------------------------------------
 typedef enum {
@@ -11,6 +22,22 @@ typedef enum {
 	PAT_PLAYCHAR_MISS,
 	PAT_PLAYCHAR_MISS_last = (PAT_PLAYCHAR_MISS + MISS_ANIM_CELS - 1),
 	// --------
+	// miko32.bft
+	// ----------
+	PAT_DIALOG_BOX_LEFT_TOP = 34,
+	PAT_DIALOG_BOX_LEFT_TOP_last = (
+		PAT_DIALOG_BOX_LEFT_TOP + DIALOG_BOX_LEFT_PARTS - 1
+	),
+	PAT_DIALOG_BOX_MIDDLE_TOP,
+	PAT_DIALOG_BOX_RIGHT_TOP,
+
+	PAT_DIALOG_BOX_LEFT_BOTTOM = 42,
+	PAT_DIALOG_BOX_LEFT_BOTTOM_last = (
+		PAT_DIALOG_BOX_LEFT_BOTTOM + DIALOG_BOX_LEFT_PARTS - 1
+	),
+	PAT_DIALOG_BOX_MIDDLE_BOTTOM,
+	PAT_DIALOG_BOX_RIGHT_BOTTOM,
+	// ----------
 	// miko16.bft
 	// ----------
 	PAT_ITEM_POWER = 68,
diff --git a/th02_main.asm b/th02_main.asm
index 42ead24b..687d9fe9 100644
--- a/th02_main.asm
+++ b/th02_main.asm
@@ -12370,104 +12370,12 @@ sub_12B9E	endp
 	extern @dialog_load_and_init$qv:proc
 	@egc_start_copy_2$qv procdesc pascal near
 	@dialog_put_player$qv procdesc near
+	@DIALOG_BOX_PUT$QMIII procdesc pascal near \
+		left:dword, top_top:word, bottom_top:word
 DIALOG_TEXT	ends
 
 main_03__TEXT	segment	byte public 'CODE' use16
 
-; =============== S U B	R O U T	I N E =======================================
-
-; Attributes: bp-based frame
-
-sub_12D56	proc near
-
-arg_0		= word ptr  4
-arg_2		= word ptr  6
-@@y		= word ptr  8
-arg_6		= dword	ptr  0Ah
-
-		push	bp
-		mov	bp, sp
-		push	si
-		mov	si, [bp+arg_0]
-		les	bx, [bp+arg_6]
-		cmp	word ptr es:[bx], 16
-		jl	short loc_12D8B
-		cmp	word ptr es:[bx], 400
-		jg	short loc_12D8B
-		call	super_roll_put pascal, word ptr es:[bx], [bp+@@y], si
-		les	bx, [bp+arg_6]
-		push	word ptr es:[bx]
-		push	[bp+arg_2]
-		lea	ax, [si+8]
-		push	ax
-		call	super_roll_put
-
-loc_12D8B:
-		les	bx, [bp+arg_6]
-		add	word ptr es:[bx], 20h ;	' '
-		pop	si
-		pop	bp
-		retn	0Ah
-sub_12D56	endp
-
-
-; =============== S U B	R O U T	I N E =======================================
-
-; Attributes: bp-based frame
-
-sub_12D97	proc near
-
-arg_0		= word ptr  4
-arg_2		= word ptr  6
-arg_4		= dword	ptr  8
-
-		push	bp
-		mov	bp, sp
-		push	si
-		push	di
-		mov	di, [bp+arg_2]
-		mov	si, 22h	; '"'
-		jmp	short loc_12DB1
-; ---------------------------------------------------------------------------
-
-loc_12DA4:
-		pushd	[bp+arg_4]
-		push	di
-		push	[bp+arg_0]
-		push	si
-		call	sub_12D56
-		inc	si
-
-loc_12DB1:
-		cmp	si, 25h	; '%'
-		jl	short loc_12DA4
-		xor	si, si
-		jmp	short loc_12DC8
-; ---------------------------------------------------------------------------
-
-loc_12DBA:
-		pushd	[bp+arg_4]
-		push	di
-		push	[bp+arg_0]
-		push	25h ; '%'
-		call	sub_12D56
-		inc	si
-
-loc_12DC8:
-		cmp	si, 8
-		jl	short loc_12DBA
-		pushd	[bp+arg_4]
-		push	di
-		push	[bp+arg_0]
-		push	26h ; '&'
-		call	sub_12D56
-		pop	di
-		pop	si
-		pop	bp
-		retn	8
-sub_12D97	endp
-
-
 ; =============== S U B	R O U T	I N E =======================================
 
 ; Attributes: bp-based frame
@@ -12475,7 +12383,7 @@ sub_12D97	endp
 sub_12DE0	proc near
 
 var_4		= word ptr -4
-var_2		= word ptr -2
+@@left		= word ptr -2
 
 		enter	4, 0
 		push	si
@@ -12522,7 +12430,7 @@ loc_12E48:
 loc_12E4F:
 		sub	[bp+var_4], 10h
 		mov	ax, [bp+var_4]
-		mov	[bp+var_2], ax
+		mov	[bp+@@left], ax
 		call	frame_delay pascal, 1
 		call	@egc_start_copy_2$qv
 		call	@tiles_invalidate_rect$qiiii pascal, (32 shl 16) or 320, (384 shl 16) or 80
@@ -12530,11 +12438,11 @@ loc_12E4F:
 		call	egc_off
 		call	@dialog_put_player$qv
 		push	ss
-		lea	ax, [bp+var_2]
+		lea	ax, [bp+@@left]
 		push	ax
 		push	si
 		push	di
-		call	sub_12D97
+		call	@dialog_box_put$qmiii
 
 loc_12E8B:
 		cmp	[bp+var_4], 20h	; ' '
@@ -12553,7 +12461,7 @@ sub_12DE0	endp
 sub_12E95	proc near
 
 var_4		= word ptr -4
-var_2		= word ptr -2
+@@left		= word ptr -2
 
 		enter	4, 0
 		push	si
@@ -12578,7 +12486,7 @@ loc_12EC0:
 loc_12EC5:
 		sub	[bp+var_4], 10h
 		mov	ax, [bp+var_4]
-		mov	[bp+var_2], ax
+		mov	[bp+@@left], ax
 		call	frame_delay pascal, 1
 		call	@egc_start_copy_2$qv
 		call	@tiles_invalidate_rect$qiiii pascal, (32 shl 16) or 320, (384 shl 16) or 80
@@ -12586,12 +12494,12 @@ loc_12EC5:
 		call	egc_off
 		call	@dialog_put_player$qv
 		push	ss
-		lea	ax, [bp+var_2]
+		lea	ax, [bp+@@left]
 		push	ax
 		push	si
 		push	di
-		call	sub_12D97
-		cmp	[bp+var_2], 30h	; '0'
+		call	@dialog_box_put$qmiii
+		cmp	[bp+@@left], 48
 		jge	short loc_12EC5
 		cmp	byte_24E7B, 1
 		jnz	short loc_12F18