ds_name		db	'MOZ\INFILE',0
					;100k ‚Ü‚Å

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



paint_wd:
	 SET_P ndkan
	 SET_P ndgyo
	 SET_P ndktxt
	 WD_LEFT
	 ret
maturet:
re_paint:
	 ret


be_called:
get_n:
	 CALL_P ndkan

	 cmp edx,0
	 je ck_can


	 push edx
	 call g_fsize
	 pop edx

	 cmp ecx,100*1024
;	 jg cutf
	 jg maturet

		 RAM2 edi
		 mov 30[edi],ecx		; size_in

	 call get_name

	 call kaishi

	 mov ax,1
	 mov 44[edi],ax		; •\Ž¦•Å
	 mov 46[edi],ax		; scroll_sw

	 mov ax,0
	 KAKU 400,ax
	 CALL_P ndktxt

	 ret


get_name:
	 mov esi,edx
	 call f_name

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

	 ret


kaishi:
	 call f_name

	 RAM0 edi
	 call yobu1

;------------------------ CRLF chk --------

		RAM2 edi
		mov ecx,30[edi]

		RAM0 edi
		add edi,ecx
		mov al,-1[edi]
		cmp al,0ah
		je kaishi1

		mov ax,0a0dh
		mov [edi],ax

		RAM2 edi
		mov ecx,30[edi]
		add ecx,2
		mov 30[edi],ecx

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

kaishi1:

	 CALL_P ndgyo

	 ret		; komei


ck_can:
	 YOMU dx,300	 ; cancel
	 cmp dx,0
	 jne maturet
	 jmp get_n



f_name:
	 call sub_edx
	 db 80 dup(0)


g_fsize:
	 M_BYTESU

p_call:
	 M_P_CALL
p_set:
	 M_P_SET

ndkan:
	 call sub_edi
	 dw	 ?
	 db 'KANU',0

ndgyo:
	 call sub_edi
	 dw	 ?
	 db 'GYO_CK',0

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



;dx_title:
;	call sub_edx
;	 db   'mjword_form.bydaihei'    ;20



yobu1:
	 M_LOAD


kesu_m:
	 M_KESUMS

ck_mouse:
	 M_KENMS



mouse_in:
	 ret