include DlgBox.inc
.code
start:
mov eax,RichEditANSIWndProc
invoke GetModuleHandle,0
invoke DialogBoxParam,eax,DLG_MAIN,0,ADDR DlgProc,0
invoke ExitProcess,eax
DlgProc PROC hWnd:DWORD,uMsg:DWORD,wParam:DWORD,lParam:DWORD
.IF uMsg==WM_CLOSE
invoke EndDialog,hWnd,0
.ELSE
xor eax,eax
ret
.ENDIF
mov eax,1
ret
DlgProc ENDP
END start