Makrot aukipurettuna mdialog.h ja tabhand.h version 1.10.1994 mukaan:

TDIALOGPROC(MsgTbl,MainDlgProc)
===============================
extern tMSGEntry MsgTbl[];
BOOL __far __pascal __export MainDlgProc(HWND hWnd, UINT message,
                                         WPARAM wParam, LPARAM lParam)
{
  LONG ret; ;
  ret = MSGTableHandler(MsgTbl,hWnd,message,wParam,lParam,EndPaint);
  if ( ret != (0x1234ffffL) )
    return 1;
  return 0;
}

mDlgMAIN("PIKA","LASKURI",MainDlgProc)
======================================
int __pascal WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance,
                     LPSTR lpCmdLine, int nCmdShow)
{
  HWND hWnd;
  DialogSethInstance(hInstance);
  hWnd = DoMultiModelessDialogParam(0,"LASKURI",MainDlgProc,0);
  (void)hPrevInstance;(void)lpCmdLine;(void)nCmdShow;
  if ( !hWnd ) return 1;
  mAddAcceleratorType(hWnd,"PIKA",1);
  return mMessageLoop();
}

TblDlgMAIN("PIKA","LASKIN",MsgTbl)
==================================
extern tMSGEntry MsgTbl[];
BOOL __far __pascal __export MainDlgProc(HWND hWnd, UINT message,
                                         WPARAM wParam, LPARAM lParam)
{
  LONG ret; ;
  ret = MSGTableHandler(MsgTbl,hWnd,message,wParam,lParam,EndPaint);
  if ( ret != (0x1234ffffL) ) return 1;
  return 0;
}
int __pascal WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance,
                     LPSTR lpCmdLine, int nCmdShow)
{
  HWND hWnd;
  DialogSethInstance(hInstance);
  hWnd = DoMultiModelessDialogParam(0,"LASKIN",MainDlgProc,0);
  (void)hPrevInstance;(void)lpCmdLine;(void)nCmdShow;
  if ( !hWnd ) return 1;
  mAddAcceleratorType(hWnd,"PIKA",1);
  return mMessageLoop();
}

TblClassSWindowMAIN("WHelloClass",NULL,"Windows Hello",MsgTbl,0)
================================================================
extern tMSGEntry MsgTbl[];
LONG __far __pascal __export MainWndProc(HWND hWnd, UINT message,
                                         WPARAM wParam, LPARAM lParam)
{
  LONG ret; ;
  ret = MSGTableHandler(MsgTbl,hWnd,message,wParam,lParam,EndPaint);
  if ( ret != (0x1234ffffL) ) return ret;
  return DefWindowProc(hWnd, message, wParam, lParam);
}
int __pascal WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance,
                     LPSTR lpCmdLine, int nCmdShow)
{
  HWND hWnd; (void)hPrevInstance;(void)nCmdShow;(void)lpCmdLine;
  hWnd = DoClassWindowCmd(hInstance,"WHelloClass",0,0,"Windows Hello",
                          MainWndProc, 0,nCmdShow,0);
  if ( !hWnd ) return 1;
  return tMessageLoop()
}