#include<windows.h>
#include<string.h>
#include<strstrea.h>
#include"mydialog.h"
void main()
{
LONG FAR PASCAL _export WindowFunc(HWND hwnd, unsigned message,
				                      WORD wParam, LONG lParam);
BOOL FAR PASCAL _export DialogFunc(HWND hdwnd, unsigned message,
					                   WORD wParam, LONG lParam);
char szWinName[] = "MyWin";
 
HANDLE hInst;
 
int PASCAL WinMain(HANDLE hThisInst, HANDLE hPrevInst,
					    LPSTR lpszArgs, int nWinMode);
 
 
}
 {
	HWND hwnd;
   MSG msg;
   WNDCLASS wcl;
   HANDLE hAccel;
 
   if(!hPrevInst){
 
  wcl.hInstance = hThisInst;
      wcl.lpszClassName = szWinName;
      wcl.lpfnWndProc =WindowFunc;
      wcl.style = NULL;
 
      wcl.hIcon = LoadIcon(NULL, IDI_APPLICATION);
      wcl.hCursor = LoadCursor(NULL, IDC_ARROW);
      wcl.lpszMenuName = "MYMENU";
 
      wcl.cbClsExtra = 0;
      wcl.cbWndExtra = 0;
 
      wcl.hbrBackground = GetStockObject(LTGRAY_BRUSH);
 
      if(!RegisterClass (&wcl)) return 0;
   }
   	hwnd=CreateWindow (
      	szWinName,
         "Dialog Boxes",
         WS_OVERLAPPEDWINDOW,
         CW_USEDEFAULT,
         CW_USEDEFAULT,
         CW_USEDEFAULT,
         CW_USEDEFAULT,
         NULL,
         NULL,
         hThisInst,
         NULL
      );
      hAccel = LoadAccelerators(hThisInst, "MYMENU");
      hInst = hThisInst;
 
      ShowWindow(hwnd, nWinMode);
 
      while(GetMessage(&msg, NULL, 0, 0))
      {
      	if(!TranslateAccelerator(hwnd, hAccel, &msg)) {
            TranslateMessage(&msg);
            DispatchMessage(&msg);
         }
     {
      return msg.wParam;
 
 
   long FAR PASCAL WindowFunc(HWND hwnd, WORD message, WORD wParam,
   									LONG lParam)
	{
		FARPROC lpDlg;
 
      int response;
 
      switch(message) {
      	case WM_COMMAND:
         	switch(wParam) {
            	case IDM_DIALOG1:
               	lpDlg = MakeProcInstance ((FARPROC) DialogFunc, hInst);
                  DialogBox(hInst,"MYDB", hwnd, lpDlg;
                  FreeProcInstance(lpDlg);
                  break;
               case IDM_DIALOG2:
               	MessageBox(hwnd, "Not Implemented", "", MB_OK);
                  break;
               case IDM_HELP:
               	MessageBox(hwnd, "Not Impelemented", "HELP", MB_OK);
                  break;
            }
            break;
         case WM_DESTROY:
         	PostQuitMessage(0);
            break;
      }
 
      return DefWindowProc(hwnd, message, wParam, lParam);
   }
 
   BOOL FAR PASCAL DialogFunc(HWND hdwnd, unsigned message,
   						         WORD wParam, LONG lParam)
   {
 
   	switch(message){
      	case WM_COMMAND:
         	switch(wParam) {
              case IDCANCEL:
              	EndDialog(hdwnd, NULL);
               return 1;
              case IDD_RED:
            				MessageBox(hdwnd,"You Picked Red", "RED", MB_OK);
               return 1;
              case IDD_GREEN:
              	MessageBox(hdwnd,"You Picked Green", "GREEN", MB_OK);
               return 1;
            }
         }
         return 0;
         }