ds_name		db	'MOZ\EITAN',0

look_me:
	 call sub_esi
	 dd  0,0
	 dw  1,0
	 dw  640,480,0,0
	 dw  0,0
	 dw  0,0

paint_wd:
	 SET_P nd1
	 SET_P ndken
	 SET_P ndret0
	 SET_P ndret
	 SET_P ndhelp
	 SET_P nddak

	 WD_LEFT
	ret

re_paint:
;	 WD_CLS 1
;	 BOX boxdt,6
;	 MOZI mozidt
	ret

mouse_in:
be_called:
	call shoki


hasime0:
	 WD_CLS 1
	 WD_CLS 0
;	 BOX boxdt,6
;	 MOZI mozidt

	call help2
	YOMU ax,300
	mov bx,0
	KAKU 300,bx
	cmp ax,99
	je matu

hasime1:
		call kesu_m
		BOX boxdt_m,1
		MOZI mozidtm1

matu0:
		call ck_mouse
		cmp ch,0
		je matu0

		cmp ch,1
		jne matu
		call kesu_m

	call h_get
		cmp ax,1000
		je kaknin1


	 call f_name2
	mov al,[edx]
	 cmp al,0
	 je hasime2

	 BOX box_f2,1
	 MOZI mozi_fn2

	 BOX boxdt_m,1
	 MOZI mozidtm7

matu6:
		call ck_mouse
		cmp ch,0
		je matu6

		cmp ch,1
		je hasime4
		call kesu_m


hasime2:
		BOX boxdt_m,1
		MOZI mozidtm2

matu1:
		call ck_mouse
		cmp ch,0
		je matu1

		cmp ch,1
		jne matu
		call kesu_m

hasime3:
	call t_get
		cmp ax,1001
		je kaknin2


hasime4:
		call kesu_m
		BOX boxdt_m,1
		MOZI mozidtm3

matu2:
		call ck_mouse
		cmp ch,0
		je matu2

		cmp ch,1
		jne matu
		call kesu_m

	call kaishi

		BOX boxdt_m,1
		MOZI mozidtm4

matu3:
		call ck_mouse
		cmp ch,0
		je matu3

		cmp ch,1
		jne matu
		call kesu_m

	jmp hasime1


kaknin1:
	BOX boxdt_m,1
	MOZI mozidtm5

matu4:
		call ck_mouse
		cmp ch,0
		je matu4

		cmp ch,1
		jne matu
		call kesu_m
		jmp hasime1

kaknin2:
	BOX boxdt_m,1
	MOZI mozidtm6

matu5:
		call ck_mouse
		cmp ch,0
		je matu5

		cmp ch,1
		jne matu
		call kesu_m
		jmp hasime2


shoki:
	 mov ax,ds
	 mov es,ax

	 RAM1 edi
	 mov ecx,1024*256/4
	 mov eax,0
	 cld
	 rep stosd

	 RAM2 edi
	 mov ecx,1024*256/4
	 mov eax,0
	 rep stosd

	 RAM0 edi
	 mov ecx,1024*80/4
	 mov eax,0
	 rep stosd

	call f_name2
	mov edi,edx
	mov ecx,64/4
	mov eax,0
	rep stosd

	 ret

totowns:
	 mov ah,25
	 mov al,2
	 mov bx,1
	 call komei

	 mov ah,25
	 mov al,2
	 mov bx,0
	 call komei

	 mov ah,1
	 call MOUSE
	 mov ah,4Ch
	 int 21h


h_get:
	call kesu_m

	 CALL_P nd1
	 cmp edx,0
	 je nashi1

	 push edx
	 call g_fsize
	 cmp ecx,250000
	 jg cutf

	 pop edx

h_get0:
	 mov esi,edx
	 call f_name1
h_get1:
	 mov al,[esi]
	 mov [edx],al
	 inc esi
	 inc edx
	 cmp al,0
	 jne h_get1

	 call fn_chk

;	 jmp matu
	mov ax,0
	ret

t_get:
	call kesu_m
	 CALL_P nd1
	 cmp edx,0
	 je nashi2

t_get0:
	 mov esi,edx
	 call f_name2
t_get1:
	 mov al,[esi]
	 mov [edx],al
	 inc esi
	 inc edx
	 cmp al,0
	 jne t_get1

	 call fn_chk1

;	 jmp matu
	mov ax,0
	ret

fn_chk:
	 BOX box_f1,1	 ; file nameを表示

	 call f_name1
	 call mozi_fn1
	 add edi,14
fn0:
	 mov al,[edx]
	 mov [edi],al
	 inc edx
	 inc edi
	 cmp al,0
	 jne fn0

	 MOZI mozi_fn1
	 ret

fn_chk1:
	 BOX box_f2,1

	 call f_name2
	 call mozi_fn2
	 add edi,14
fn12:
	 mov al,[edx]
	 mov [edi],al
	 inc edx
	 inc edi
	 cmp al,0
	 jne fn12

	 MOZI mozi_fn2
	 ret

nashi1:
	 call f_name1
	 mov eax,0
	 mov [edx],eax
	 call fn_chk
;	 jmp matu
	mov ax,1000
	ret



nashi2:
	 call f_name2
	 mov eax,0
	 mov [edx],eax
	 call fn_chk1
;	 jmp matu

	mov ax,1001
	ret

kaishi:
;	call kesu_m
;	 call f_name2
;	 mov al,[edx]
;	 cmp al,0
;	 je tannashi
;
	 call f_name1
;	 mov al,[edx]
;	 cmp al,0
;	 je matu

	 RAM1 edi
	 call yobu1

	 call f_name2

	 RAM0 edi
	 call yobu1

	 CALL_P ndret0
	 CALL_P ndken
	 CALL_P ndret

	 call ireru
	ret

;	 jmp matu


;tannashi:
;	 MOZI mozidt1
;	 jmp matu

f_name1:
	 call sub_edx
	 db  64 dup(0)

f_name2:
	 call sub_edx
	 db  64 dup(0)

g_fsize:
	 M_BYTESU

cutf:
	 MOZI mozicut
matu_cf:
	call ck_mouse
	cmp ch,1
	jne matu_cf
	 jmp matu

help2:
	call kesu_m

	pushad
	  CALL_P ndhelp
	popad
;	jmp matu
	ret

ck_mouse:
	 M_KENMS
kesu_m:
	 M_KESUMS

matu:
	call kesu_m
	WD_CLS 1
	WD_CLS 0


	 call mozidt_d
	    KAKU 384,edi
	    CALL_P nddak

	 YOMU ax,382
	   cmp ax,1
	   je totowns

	jmp hasime0




p_call:
	 M_P_CALL
p_set:
	 M_P_SET

nd1:
	 call sub_edi
	 dw	 ?
	 db 'KANU',0
ndken:
	 call sub_edi
	 dw	 ?
	 db 'TANKEN',0

ndret0:
	 call sub_edi
	 dw	 ?
	 db 'RETCUT',0
ndret:
	 call sub_edi
	 dw	 ?
	 db 'RETIN',0

ndhelp:
	 call sub_edi
	 dw	 ?
	 db 'HELP2',0

nddak:
	 call sub_edi
	 dw	 ?
	 db 'DAKUHI2',0


ireru:
	 RAM0 edi
	 mov ecx,0
ire1:
	 mov eax,[edi]
	 inc edi
	 inc ecx
	 cmp eax,'\\\\'
	 jne ire1

	 add ecx,3
	 RAM0 edi
	 call f_name2

	 M_SAVE

yobu1:
	 M_LOAD

boxdt:
	call sub_edi
		 dw	 1,100,20,0,0,0,0,15,7,1
		 dw	 3,100,20,105,0,105,0,15,6,1
		 dw	 1,100,20,420,0,0,0,15,4,1
		 dw	 1,100,20,525,0,0,0,15,5,1
boxdt1:
	call sub_edi
		 dw	 1,400,30,145,45,0,0,0,0,1

boxdtc:
	call sub_edi
		 dw	 1,200,60,290,45,0,0,0,0,1

box_f1:
	call sub_edi
		 dw	 1,400,30,200,95,0,0,15,5,1
box_f2:
	call sub_edi
		 dw	 1,400,30,200,145,0,0,15,5,1

boxdt_m:
	call sub_edi
		 dw	 1,400,50,100,250,0,0,15,7,1

mozidtm1:
	call sub_edi
	   dw	1,15,110,260,0,20,2
	   db	 '英語のファイルを選んでください',0
	   db	 '左クリック 実行    右クリック 中止',0
	            dw 0,0

mozidtm2:
	call sub_edi
	   dw	1,15,110,260,0,20,2
	   db	 '単語帳を選んでください',0
	   db	 '左クリック 実行         右クリック 中止',0
	            dw 0,0

mozidtm3:
	call sub_edi
	   dw	1,15,110,260,0,20,2
	   db	 '新出単語を抜き出します',0
	   db	 '左クリック 実行          右クリック 中止',0
	            dw 0,0

mozidtm4:
	call sub_edi
	   dw	1,15,110,260,0,20,2
	   db	 '終了しました 再度実行しますか',0
	   db	 '左クリック 実行          右クリック 終了',0
	            dw 0,0

mozidtm5:
	call sub_edi
	   dw	1,15,110,260,0,20,2
	   db	 '英文のファイルを選んでありません',0
	   db	 '左クリック 再度実行      右クリック 中止',0
	            dw 0,0

mozidtm6:
	call sub_edi
	   dw	1,15,110,260,0,20,2
	   db	 '単語帳を選んでありません',0
	   db	 '左クリック 再度実行      右クリック 中止',0
	            dw 0,0

mozidtm7:
	call sub_edi
	   dw	1,15,110,260,0,20,2
	   db	 '同じ単語帳を使いますか?',0
	   db	 '左クリック 使う          右クリック 新しく選ぶ',0
	            dw 0,0

mozidtmm:
	call sub_edi
	   dw	1,15,110,260,0,20,2
	   db	 '終了します  左クリックしてください',0
	   db	 '     (右クリックで戻る)',0
	            dw 0,0


mozidt:
	call sub_edi
		   dw	1  	  ;screen_no
		   dw	15	  ; mozi_color
		   dw	5	  ; 書き出し位置  x
		   dw	-2	  ; 		 y
		   dw	105	  ; next offset x
		   dw	0	  ; next offset y
	           dw   6	  ; gyo suu
                   db    '中     止',0
                   db    '処理ファイル',0
                   db    ' 単  語  帳',0
                   db    '使い方の説明',0
                   db    ' ',0
                   db    ' 実   行',0
                   dw    0,0

mozidt1:
	call sub_edi
	   dw	1,5,150,50,20,20,1
	   db	 '単語帳を選んでください',0
	            dw 0,0

mozicut:
	call sub_edi
	   dw	1,15,300,50,50,70,2
	   db	 'ファイルが大きすぎます',0
	   db	 '分割してください',0
	            dw 0,0


mozi_fn1:
	call sub_edi
	   dw	1,15,250,100,0,0,1
           db  64 dup(0)
	            dw 0,0

mozi_fn2:
	call sub_edi
	   dw	1,15,250,150,0,0,1
           db  64 dup(0)
	            dw 0,0

mozidt_d:
	 call sub_edi
	 db 'ソフトを終了します',0
	 db '終了する 戻 る',0