ds_name		db	'MOZ\MKTEST',0


look_me:
	 call sub_esi
	 dd 0,0
	 dw	 1,0,640,32,0,0,15,5,0,0



paint_wd:
	 SET_P ndfile
	 SET_P nddak
	 SET_P ndktxt
	 SET_P ndsvf
	 SET_P ndmushi
;	 SET_P ndmei2
;	 SET_P ndmei3
	 SET_P ndhelp

	WD_LEFT
	ret


re_paint:
	 BOX boxdt1,18
	 MOZI mozidt

	BOX boxdta,1
	MOZI mozidta

re_p2:
	call ck_mouse
	cmp ch,1
	jne re_p2

	call kesu_m
	WD_ERZ 0

be2:
	 call shoki
	 GO_P ndfile


be_called:
	 WD_WANT

	YOMU ax,300
	mov bx,0
	KAKU 300,bx
	cmp ax,29
	je re_paint

	 ret

shoki:
	 RAM1 edi
	 mov ecx,1024*257/4	 ; +512
	 mov eax,0
	 cld
	 rep stosd

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

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


	 mov ax,1
	RAM2 edi
	 mov 44[edi],ax		; 表示頁
	 mov 46[edi],ax		; scroll_sw

	 mov ax,80
	 mov 16[edi],ax		; 桁数

	 mov eax,0
	 mov 50[edi],eax	; 解答サイズ

	 ret


p_call:
	 M_P_CALL
p_set:
	 M_P_SET


ndfile:
	 call sub_edi
	 dw	 ?
	 db 'INFILE',0

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

ndktxt:
	 call sub_edi
	 dw	 ?
	 db 'K_TXT',0

ndsvf:
	 call sub_edi
	 dw	 ?
	 db 'SVFILE',0

ndmushi:
	 call sub_edi
	 dw	 ?
	 db 'MUSHI',0

;ndmei2:
;	 call sub_edi
;	 dw	 ?
;	 db 'MEI2',0
;
;ndmei3:
;	 call sub_edi
;	 dw	 ?
;	 db 'MEI3',0
;
ndhelp:
	 call sub_edi
	 dw	 ?
	 db 'HELP1',0

kesu_m:
	 M_KESUMS

ck_mouse:
	 M_KENMS

maturet:
	 ret

mouse_in:
	 call ck_mouse

	 cmp ch,1
	 jne maturet

	MOU	boxdt1,18
	cmp	bx,1
	 jne maturet

	 cmp ax,1
	 je k_text

	 cmp ax,3
	 je zipage
	 cmp ax,4
	 je zenpage

	 cmp ax,6
	 je savef

	 cmp ax,7
	 je meirei

;	 cmp ax,8
;	 je mei2
;
;	 cmp ax,9
;	 je mei3

	 cmp ax,13
	 je helpin

	 cmp ax,17
	 je infile		;be_called

	 cmp ax,18
	 je owaru

	 ret


;------------------------------------------------------------
helpin:
	 call kesu_m
	 WD_LEFT
	 CALL_P ndhelp
	 WD_WANT
	 ret

infile:
	 call mozidt_d
	    KAKU 384,edi
	    CALL_P nddak

	 YOMU ax,382
	   cmp ax,1
	   je be2

	 ret


;mei3:
;	 call kesu_m
;
;	ret
;
;	 GO_P ndmei3

;mei2:
;	 call kesu_m
;
;	ret
;
;	 GO_P ndmei2


meirei:
	 call kesu_m

	 GO_P ndmushi


savef:
	 call kesu_m
	 CALL_P ndsvf
	 ret


zipage:
	 call kesu_m

	 RAM2 edi
	 mov ax,22[edi]		; 全頁数
	 mov bx,44[edi]		; 表示頁

	 cmp ax,bx
	 jle maturet
	 
	 inc bx
	 mov 44[edi],bx
	 mov ax,1
	 mov 46[edi],ax

	 mov ax,0
	 KAKU 400,ax
	 CALL_P ndktxt
	 ret


zenpage:
	 call kesu_m

	 RAM2 edi
	 mov ax,44[edi]
	 cmp ax,1
	 jle maturet

	 dec ax
	 mov 44[edi],ax
	 mov ax,1
	 mov 46[edi],ax

	 mov ax,0
	 KAKU 400,ax
	 CALL_P ndktxt

	 ret

owaru:
	 call mozidt_d1
	    KAKU 384,edi
	    CALL_P nddak

	 YOMU ax,382
	   cmp ax,1
	   jne maturet

	mov	ah,1
	call	MOUSE

	mov	ah,4ch
	int	21h


k_text:
	 call kesu_m

	 RAM2 edi
	 mov ax,1
	 mov 44[edi],ax
	 mov 46[edi],ax

	 mov ax,0
	 KAKU 400,ax
	 CALL_P ndktxt

	 ret


;-----------------------------------------------------------------------

boxdt1:
	call sub_edi
		dw	18,32,32,0,0,35,0,5,4,1

boxdta:
	call sub_edi
		dw	1,550,400,50,50,0,0,2,4,0

mozidta:
	call sub_edi
	   dw	0,15,60,60,0,22,17
	   db	 '  手順',0
	   db	 '1.問題用の英文の入ったテキストを読み込む｡',0
	   db	 '  * 右から二番目の｢file｣のBOXをクリックします｡',0
	   db	 '2.｢虫食い｣をつくる｡',0
	   db	 '  * 該当するBOXをクリックします｡',0
	   db	 '  虫食いにしたい単語をマウスでクリックすると',0
	   db	 '  (  )とスペースに代わります｡(スペースは単語の長さの2倍)',0
	   db	 '  答えは抜き出されて後ろに付きます(セーブしたとき)｡',0
	   db	 '  * ｢次頁｣｢前頁｣で ページ を変えます',0
	   db	 '3.テキスト表示部分で右クリックして作業を終える｡',0
	   db	 '4.保存は  1 既存のファイルを消して上書きする',0
	   db	 '          2 既存のファイルの後ろに付け足して保存する',0
	   db	 '          3 新たにファイルを作って保存する',0
	   db	 ' ',0
	   db	 '  * ファイルの選び方',0
	   db	 '       ファイルを選ぶ画面で｢女性教授｣をクリックして下さい｡',0
	   db	 '左クリックでファイル選択画面になります｡',0
	            dw 0,0

mozidt:
	call sub_edi
	   dw	1,15,0,0,35,0,18
	   db	 '１頁',0
	   db	 ' ',0
	   db	 '次頁',0
	   db	 '前頁',0
	   db	 ' ',0
	   db	 '保存',0
	   db	 '虫食',0
	   db	 ' ',0
	   db	 ' ',0
	   db	 ' ',0
	   db	 ' ',0
	   db	 ' ',0
	   db	 'HELP',0
	   db	 ' ',0
	   db	 ' ',0
	   db	 ' ',0
	   db	 'file',0
	   db	 '終了',0
	            dw 0,0

mozidt_d:
	 call sub_edi

	 db '編集中のFILEは不要?',0

	 db '新FILE  戻 る',0

mozidt_d1:
	 call sub_edi

	 db '終了していいですか?',0

	 db '終了する戻 る',0