diff --git a/th02_zuninit.asm b/th02_zuninit.asm
new file mode 100644
index 00000000..ed1710af
--- /dev/null
+++ b/th02_zuninit.asm
@@ -0,0 +1,493 @@
+;
+; +-------------------------------------------------------------------------+
+; |   This file has been generated by The Interactive Disassembler (IDA)    |
+; |        Copyright (c) 2009 by Hex-Rays, <support@hex-rays.com>           |
+; +-------------------------------------------------------------------------+
+;
+; Input	MD5   :	04F7FC8F2C807428042289437780947F
+
+; File Name   :	th02/ZUN.COM:ZUNINIT
+; Format      :	MS-DOS COM-file
+; Base Address:	0h Range: 100h-66Eh Loaded length: 56Eh
+; OS type	  :  MS	DOS
+; Application type:  Executable	16bit
+
+		.model tiny
+
+; ===========================================================================
+
+; Segment type:	Pure code
+seg000		segment	byte public 'CODE' use16
+		assume cs:seg000
+		org 100h
+		assume es:nothing, ss:nothing, ds:seg000
+
+; =============== S U B	R O U T	I N E =======================================
+
+; Attributes: noreturn thunk
+
+		public start
+start		proc near
+		jmp	start_0
+start		endp
+
+
+; =============== S U B	R O U T	I N E =======================================
+
+
+sub_103		proc far
+		pushf
+		push	ax
+		push	bx
+		push	cx
+		push	dx
+		push	ds
+		push	di
+		push	es
+		mov	bx, ax
+		shl	bx, 1
+		xor	ax, ax
+		mov	dx, cs:off_312[bx]
+		call	sub_202
+		mov	ax, 0A0h
+		mov	dx, offset aGkgBGuglbV ; "リターンキーを押してね$"
+		call	sub_202
+
+loc_122:
+		mov	ah, 4
+		mov	al, 3
+		int	18h		; TRANSFER TO ROM BASIC
+					; causes transfer to ROM-based BASIC (IBM-PC)
+					; often	reboots	a compatible; often has	no effect at all
+		test	ah, 10h
+		jz	short loc_122
+		pop	es
+		pop	di
+		pop	ds
+		pop	dx
+		pop	cx
+		pop	bx
+		pop	ax
+		popf
+		iret
+sub_103		endp
+
+
+; =============== S U B	R O U T	I N E =======================================
+
+
+sub_136		proc far
+		cmp	cs:byte_24D, 0
+		jnz	short locret_147
+		mov	cs:byte_24D, 1
+		call	sub_15A
+
+locret_147:
+		iret
+sub_136		endp
+
+
+; =============== S U B	R O U T	I N E =======================================
+
+
+sub_148		proc far
+		cmp	cs:byte_24D, 0
+		jnz	short locret_159
+		mov	cs:byte_24D, 2
+		call	sub_15A
+
+locret_159:
+		iret
+sub_148		endp
+
+
+; =============== S U B	R O U T	I N E =======================================
+
+
+sub_15A		proc near
+		pushf
+		push	ax
+		push	bx
+		push	cx
+		push	dx
+		push	ds
+		push	di
+		push	es
+		mov	ah, 41h
+		int	18h		; TRANSFER TO ROM BASIC
+					; causes transfer to ROM-based BASIC (IBM-PC)
+					; often	reboots	a compatible; often has	no effect at all
+		cmp	cs:byte_24D, 2
+		jz	short loc_18D
+		mov	ax, 650h
+		mov	dx, offset aVVtvVVrvsvnvog ; "むやみにＳＴＯＰキー押したりしない$"
+		call	sub_202
+		mov	ax, 6F0h
+		mov	dx, offset asc_341 ; "方がいいと思うの。（ゲーム中はね）$"
+		call	sub_202
+		mov	ax, 790h
+		mov	dx, offset aBivrvsvnvoglbV ; "（ＳＴＯＰキーで戻れるよ、ねっ）　$"
+		call	sub_202
+		mov	bl, 1
+		jmp	short loc_1AA
+; ---------------------------------------------------------------------------
+
+loc_18D:
+		mov	ax, 650h
+		mov	dx, offset aVV	; "なんでＣＯＰＹキー押したりしてるの$"
+		call	sub_202
+		mov	ax, 6F0h
+		mov	dx, offset aVivBBbvVVmbBbb ; "かな〜。ふしぎ〜。　　（もう一度、$"
+		call	sub_202
+		mov	ax, 790h
+		mov	dx, offset aVbvnvovxglbIqv ; "ＣＯＰＹキー押せば戻れるよ、ねっ）$"
+		call	sub_202
+		mov	bl, 2
+
+loc_1AA:
+		mov	ah, 4
+		mov	al, 0Ch
+		int	18h		; TRANSFER TO ROM BASIC
+					; causes transfer to ROM-based BASIC (IBM-PC)
+					; often	reboots	a compatible; often has	no effect at all
+		test	ah, bl
+		jnz	short loc_1AA
+
+loc_1B4:
+		mov	ah, 4
+		mov	al, 0Ch
+		int	18h		; TRANSFER TO ROM BASIC
+					; causes transfer to ROM-based BASIC (IBM-PC)
+					; often	reboots	a compatible; often has	no effect at all
+		test	ah, bl
+		jz	short loc_1B4
+		mov	ah, 40h
+		int	18h		; TRANSFER TO ROM BASIC
+					; causes transfer to ROM-based BASIC (IBM-PC)
+					; often	reboots	a compatible; often has	no effect at all
+		mov	ax, 650h
+		mov	dx, offset aB@b@b@b@b@b@b@ ; "　　　　　　　　　　　　　　　　　$"
+		call	sub_202
+		mov	ax, 6F0h
+		mov	dx, offset aB@b@b@b@b@b@b@ ; "　　　　　　　　　　　　　　　　　$"
+		call	sub_202
+		mov	ax, 790h
+		mov	dx, offset aB@b@b@b@b@b@b@ ; "　　　　　　　　　　　　　　　　　$"
+		call	sub_202
+		mov	ah, 6
+		int	18h		; TRANSFER TO ROM BASIC
+					; causes transfer to ROM-based BASIC (IBM-PC)
+					; often	reboots	a compatible; often has	no effect at all
+		pop	es
+		pop	di
+		pop	ds
+		pop	dx
+		pop	cx
+		pop	bx
+		pop	ax
+		popf
+		mov	cs:byte_24D, 0
+		retn
+sub_15A		endp
+
+
+; =============== S U B	R O U T	I N E =======================================
+
+
+sub_1F0		proc near
+		shl	ah, 1
+		cmp	al, 9Fh
+		jnb	short loc_1FB
+		cmp	al, 80h
+		adc	ax, 0FEDFh
+
+loc_1FB:
+		sbb	ax, 0DFFEh
+		and	ax, 7F7Fh
+		retn
+sub_1F0		endp
+
+
+; =============== S U B	R O U T	I N E =======================================
+
+
+sub_202		proc near
+		mov	bx, dx
+		mov	di, 0A000h
+		mov	es, di
+		assume es:nothing
+		mov	di, ax
+		mov	dx, ax
+		xor	ax, ax
+		xor	cx, cx
+
+loc_211:
+		mov	ax, cs:[bx]
+		cmp	al, 24h
+		jz	short loc_22C
+		xchg	ah, al
+		call	sub_1F0
+		xchg	ah, al
+		sub	al, 20h
+		stosw
+		or	ah, 80h
+		stosw
+		inc	bx
+		inc	bx
+		inc	cx
+		inc	cx
+		jmp	short loc_211
+; ---------------------------------------------------------------------------
+
+loc_22C:
+		mov	di, 0A200h
+		mov	es, di
+		assume es:nothing
+		mov	di, dx
+		mov	ax, 41h
+
+loc_236:
+		dec	cx
+		stosw
+		jz	short locret_23C
+		jmp	short loc_236
+; ---------------------------------------------------------------------------
+
+locret_23C:
+		retn
+sub_202		endp
+
+; ---------------------------------------------------------------------------
+ZUNP		dw 'ZU', 'NP'
+dword_241	dd 0
+dword_245	dd 0
+dword_249	dd 0
+byte_24D	db 0
+aGkgBGuglbV	db 'リターンキーを押してね$'
+aVV_0		db 'なんかのエラーですぅ$'
+aGtg@gcglvkvVVi	db 'ファイルがみつかんないよぉ$'
+aGbgvgkvkslvsvV	db 'メモリが足りないんですぅ$'
+aGogbgGtg@gcglv	db 'バッチファイルから起動してよぉ$'
+aGngcgxgrgavGtg	db 'ハイスコアのファイルがおかしいよぅ、だからハイスコアは消えちゃったよ$'
+off_312		dw offset aVV_0
+					; "なんかのエラーですぅ$"
+		dw offset aVV_0		; "なんかのエラーですぅ$"
+		dw offset aGtg@gcglvkvVVi ; "ファイルがみつかんないよぉ$"
+		dw offset aGbgvgkvkslvsvV ; "メモリが足りないんですぅ$"
+		dw offset aGogbgGtg@gcglv ; "バッチファイルから起動してよぉ$"
+		dw offset aGngcgxgrgavGtg ; "ハイスコアのファイルがおかしいよぅ、だ・...
+aVVtvVVrvsvnvog	db 'むやみにＳＴＯＰキー押したりしない$'
+asc_341		db '方がいいと思うの。（ゲーム中はね）$'
+aBivrvsvnvoglbV	db '（ＳＴＯＰキーで戻れるよ、ねっ）　$'
+aB@b@b@b@b@b@b@	db '　　　　　　　　　　　　　　　　　$'
+aVV		db 'なんでＣＯＰＹキー押したりしてるの$'
+aVivBBbvVVmbBbb	db 'かな〜。ふしぎ〜。　　（もう一度、$'
+aVbvnvovxglbIqv	db 'ＣＯＰＹキー押せば戻れるよ、ねっ）$'
+
+; =============== S U B	R O U T	I N E =======================================
+
+
+sub_413		proc near
+		mov	dx, offset aIntvectorSetPr ; "\r\n\r\nINTvector	set program  zuninit.com "...
+		mov	ah, 9
+		int	21h		; DOS -	PRINT STRING
+					; DS:DX	-> string terminated by	"$"
+		mov	ax, 3559h
+		int	21h		; DOS -	2+ - GET INTERRUPT VECTOR
+					; AL = interrupt number
+					; Return: ES:BX	= value	of interrupt vector
+		cmp	es:ZUNP, 'ZU'
+		jnz	short loc_436
+		cmp	es:ZUNP+2, 'NP'
+		jnz	short loc_436
+		mov	ax, 1
+		jmp	short locret_439
+; ---------------------------------------------------------------------------
+
+loc_436:
+		mov	ax, 0
+
+locret_439:
+		retn
+sub_413		endp
+
+
+; =============== S U B	R O U T	I N E =======================================
+
+; Attributes: noreturn
+
+start_0		proc near
+		mov	si, 81h
+
+loc_43D:
+		lodsb
+		cmp	al, 0Dh
+		jz	short loc_44E
+		cmp	al, 2Fh
+		jz	short loc_458
+		cmp	al, 2Dh
+		jz	short loc_458
+		cmp	al, 20h
+		jbe	short loc_43D
+
+loc_44E:
+		call	sub_413
+		test	ax, ax
+		jz	short loc_473
+		jmp	loc_515
+; ---------------------------------------------------------------------------
+
+loc_458:
+		lodsb
+		cmp	al, 20h
+		ja	short loc_460
+		jmp	loc_527
+; ---------------------------------------------------------------------------
+
+loc_460:
+		and	al, 0DFh
+		cmp	al, 52h
+		jz	short loc_469
+		jmp	loc_527
+; ---------------------------------------------------------------------------
+
+loc_469:
+		call	sub_413
+		test	ax, ax
+		jnz	short loc_4C9
+		jmp	loc_51E
+; ---------------------------------------------------------------------------
+
+loc_473:
+		mov	word ptr cs:dword_241, bx
+		mov	word ptr cs:dword_241+2, es
+		mov	dx, offset sub_103
+		mov	ax, 2559h
+		int	21h		; DOS -	SET INTERRUPT VECTOR
+					; AL = interrupt number
+					; DS:DX	= new vector to	be used	for specified interrupt
+		mov	ah, 35h
+		mov	al, 6
+		int	21h		; DOS -	2+ - GET INTERRUPT VECTOR
+					; AL = interrupt number
+					; Return: ES:BX	= value	of interrupt vector
+		mov	word ptr cs:dword_249, bx
+		mov	word ptr cs:dword_249+2, es
+		mov	dx, offset sub_136
+		mov	ax, 2506h
+		int	21h		; DOS -	SET INTERRUPT VECTOR
+					; AL = interrupt number
+					; DS:DX	= new vector to	be used	for specified interrupt
+		mov	ah, 35h
+		mov	al, 5
+		int	21h		; DOS -	2+ - GET INTERRUPT VECTOR
+					; AL = interrupt number
+					; Return: ES:BX	= value	of interrupt vector
+		mov	word ptr cs:dword_245, bx
+		mov	word ptr cs:dword_245+2, es
+		mov	dx, offset sub_148
+		mov	ax, 2505h
+		int	21h		; DOS -	SET INTERRUPT VECTOR
+					; AL = interrupt number
+					; DS:DX	= new vector to	be used	for specified interrupt
+		mov	dx, offset aVVxvVVGbgvgkvi ; "ちょこっとメモリかりるね\r\n\r\n$"
+		mov	ah, 9
+		int	21h		; DOS -	PRINT STRING
+					; DS:DX	-> string terminated by	"$"
+		mov	dx, offset sub_413
+		mov	cl, 4
+		shr	dx, cl
+		inc	dx
+		mov	ax, 3100h
+		int	21h		; DOS -	DOS 2+ - TERMINATE BUT STAY RESIDENT
+					; AL = exit code, DX = program size, in	paragraphs
+; ---------------------------------------------------------------------------
+
+loc_4C9:
+		push	ds
+		mov	dx, word ptr es:dword_241
+		mov	ds, word ptr es:dword_241+2
+		mov	ax, 2559h
+		int	21h		; DOS -	SET INTERRUPT VECTOR
+					; AL = interrupt number
+					; DS:DX	= new vector to	be used	for specified interrupt
+		mov	dx, word ptr es:dword_249
+		mov	ds, word ptr es:dword_249+2
+		mov	ax, 2506h
+		int	21h		; DOS -	SET INTERRUPT VECTOR
+					; AL = interrupt number
+					; DS:DX	= new vector to	be used	for specified interrupt
+		mov	dx, word ptr es:dword_245
+		mov	ds, word ptr es:dword_245+2
+		mov	ax, 2505h
+		int	21h		; DOS -	SET INTERRUPT VECTOR
+					; AL = interrupt number
+					; DS:DX	= new vector to	be used	for specified interrupt
+		pop	ds
+		push	es
+		mov	es, word ptr es:2Ch
+		assume es:nothing
+		mov	ah, 49h
+		int	21h		; DOS -	2+ - FREE MEMORY
+					; ES = segment address of area to be freed
+		pop	es
+		mov	ah, 49h
+		int	21h		; DOS -	2+ - FREE MEMORY
+					; ES = segment address of area to be freed
+		mov	dx, offset aGbgvgkvivcpVjv ; "メモリから消えてなくなっちゃったけど、・...
+		jnb	short loc_50F
+		mov	dx, offset aGbgvgki ; "メモリ解放エラーです。 :	zuninit.com\r\n$"
+
+loc_50F:
+		mov	ah, 9
+		int	21h		; DOS -	PRINT STRING
+					; DS:DX	-> string terminated by	"$"
+		jmp	short loc_530
+; ---------------------------------------------------------------------------
+
+loc_515:
+		mov	dx, offset aVVVPatuvVVsv ; "すでに常駐してるの\r\n\r\n$"
+		mov	ah, 9
+		int	21h		; DOS -	PRINT STRING
+					; DS:DX	-> string terminated by	"$"
+		jmp	short loc_530
+; ---------------------------------------------------------------------------
+
+loc_51E:
+		mov	dx, offset aVVBapatuvVVVvv ; "まだ、常駐してないわぁ\r\n\r\n$"
+		mov	ah, 9
+		int	21h		; DOS -	PRINT STRING
+					; DS:DX	-> string terminated by	"$"
+		jmp	short loc_530
+; ---------------------------------------------------------------------------
+
+loc_527:
+		mov	dx, offset aICbxscVGigvgvg ; "意味不明なオプションよぉ（オプションは "...
+		mov	ah, 9
+		int	21h		; DOS -	PRINT STRING
+					; DS:DX	-> string terminated by	"$"
+		jmp	short $+2
+
+loc_530:
+		mov	ax, 4C00h
+		int	21h		; DOS -	2+ - QUIT WITH EXIT CODE (EXIT)
+start_0		endp			; AL = exit code
+
+; ---------------------------------------------------------------------------
+aIntvectorSetPr	db 0Dh,0Ah
+		db 0Dh,0Ah
+		db 'INTvector set program  zuninit.com Version1.00              (c)zun 1997',0Dh,0Ah,'$'
+aVVxvVVGbgvgkvi	db 'ちょこっとメモリかりるね',0Dh,0Ah
+		db 0Dh,0Ah,'$'
+aVVVPatuvVVsv	db 'すでに常駐してるの',0Dh,0Ah
+		db 0Dh,0Ah,'$'
+aGbgvgkvivcpVjv	db 'メモリから消えてなくなっちゃったけど、きっとまたあえるよ、ねっ',0Dh,0Ah
+		db 0Dh,0Ah,'$'
+aVVBapatuvVVVvv	db 'まだ、常駐してないわぁ',0Dh,0Ah
+		db 0Dh,0Ah,'$'
+aICbxscVGigvgvg	db '意味不明なオプションよぉ（オプションは -Rのみ）',0Dh,0Ah,'$'
+aGbgvgki	db 'メモリ解放エラーです。 : zuninit.com',0Dh,0Ah,'$'
+seg000		ends
+
+
+		end start