int Create(HINSTANCE hInstance)
{
   WNDCLASS   wndclass; 
   extern LONG WINAPI EventHandler(HWND, UINT, WPARAM, LPARAM);

   cerr << "--- Create called" << endl;

   /* Register the frame class */ 
   wndclass.style         = 0; 
   wndclass.lpfnWndProc   = (WNDPROC)(WndProc); 
   wndclass.cbClsExtra    = 0; 
   wndclass.cbWndExtra    = 0; 
   wndclass.hInstance     = hInstance; 
   wndclass.hIcon         = LoadIcon (hInstance, szAppName); 
   wndclass.hCursor       = LoadCursor (NULL,IDC_ARROW); 
   wndclass.hbrBackground = (HBRUSH)(COLOR_WINDOW+1); 
   wndclass.lpszMenuName  = szAppName; 
   wndclass.lpszClassName = szAppName; 
 
   if (!RegisterClass (&wndclass) ) 
       return FALSE; 

   ErrorProcessor("RegisterClass", GetLastError());

   m_hWnd = CreateWindow (
            szAppName, 
            "Pong", 
            WS_OVERLAPPEDWINDOW | WS_CLIPSIBLINGS 
                                | WS_CLIPCHILDREN, 
            CW_USEDEFAULT, 
            CW_USEDEFAULT, 
            m_width, 
            m_height, 
            NULL, 
            NULL, 
            hInstance, 
            NULL); 
 
   ErrorProcessor("CreateWindow", GetLastError());
   return (m_hWnd ? TRUE : FALSE);
}

int Run()
{
   MSG msg;

   cerr << "--- Run called" << endl;

   if (m_hWnd)
   {
      ShowWindow (m_hWnd, SW_SHOW); 
      ErrorProcessor("ShowWindow", GetLastError());
      UpdateWindow (m_hWnd); 
      ErrorProcessor("UpdateWindow", GetLastError());
   }

   int done = FALSE;
   while (!done) 
   { 
      if (PeekMessage(&msg, m_hWnd, 0, 0, PM_REMOVE) == TRUE) 
      { 
         ErrorProcessor("PeekMessage == TRUE", GetLastError());
         if (msg.message == WM_QUIT)
         {
            done = TRUE;
         }
         else
         {
            TranslateMessage(&msg); 
            ErrorProcessor("TranslateMessage", GetLastError());
            DispatchMessage(&msg); 
            ErrorProcessor("DispatchMessage", GetLastError());
         }
      }
      else
      {
         ErrorProcessor("PeekMessage == FALSE", GetLastError());
      }
   } 
 
   ErrorProcessor("End of Run", GetLastError());
   return msg.wParam;
}

int main()
{
   ErrorProcessor("main", GetLastError());
   Create(GetModuleHandle(NULL));
   ErrorProcessor("main after Create", GetLastError());

   Run();

   ErrorProcessor("main", GetLastError());
   return 0;
}