Topspeed_JPI/TS-V3/SAVE/WINDOWS.LST

Listing:

    1  (* Release 3.10 *)
    2  (*-------------------------------------------------------------------------*
    3  *                                                                          *
    4  *  WINDOWS.DEF - Modula-2 Windows 3.0 API                                  *
    5  *                                                                          *
    6  *  COPYRIGHT (C) 1989..1992 Clarion Software Corporation.                  *
    7  *  All Rights Reserved                                                     *
    8  *                                                                          *
    9  *--------------------------------------------------------------------------*)
   10  
   11  (*# module(implementation=>off, init_code => off) *)
   12  (*# call(result_optional=>on,opt_var_arg=>off,o_a_copy=>off,o_a_size=>off) *)
   13  
   14  DEFINITION MODULE Windows;
   15  (*# save *) (* inline procedures at end use standard model-dependent settings *)
   16  
   17  (*# call(near_call=>off, reg_param=>(),
   18           reg_saved=>(ds,si,di,st1,st2),
   19           seg_name=>Windows, ds_eq_ss=>off) *)
   20  (*# data(near_ptr=>off) *)
   21  (*# name(prefix=>windows) *)
   22  
   23  CONST
   24    NULL = 0;
   25    True = 1;
   26    False = 0;
   27  
   28  TYPE
   29    BOOL          = INTEGER;
   30  
   31    LPSTR         = POINTER TO ARRAY[0..MAX(CARDINAL)-1] OF CHAR;
*****                                        ^ undeclared identifier
*****                                                    ^ not supported yet
*****                                                      ^ not supported yet
*****                                                            ^ not supported yet
   32    LPBYTE        = POINTER TO SHORTCARD;
*****                               ^ not supported yet
   33    LPINT         = POINTER TO INTEGER;
*****                               ^ not supported yet
   34    LPWORD        = POINTER TO CARDINAL;
*****                               ^ not supported yet
   35    LPLONG        = POINTER TO LONGINT;
*****                               ^ not supported yet
   36    LPDWORD       = POINTER TO LONGCARD;
*****                               ^ undeclared identifier
   37    LPVOID        = ADDRESS;
*****                    ^ undeclared identifier
   38    HANDLE        = CARDINAL;
   39    HWND          = CARDINAL;
   40    LPHANDLE      = POINTER TO CARDINAL;
*****                               ^ not supported yet
   41    GLOBALHANDLE  = CARDINAL;
   42    LOCALHANDLE   = CARDINAL;
   43    FARPROC       = PROCEDURE () : INTEGER;
*****                    ^ not supported yet
*****                                   ^ not supported yet
   44  
   45    HSTR          = HANDLE;
   46    HICON         = HANDLE;
   47    HDC           = HANDLE;
   48    HMENU         = HANDLE;
   49    HPEN          = HANDLE;
   50    HFONT         = HANDLE;
   51    HBRUSH        = HANDLE;
   52    HBITMAP       = HANDLE;
   53    HCURSOR       = HANDLE;
   54    HRGN          = HANDLE;
   55    HPALETTE      = HANDLE;
   56    COLORREF      = LONGCARD;
*****                    ^ undeclared identifier
   57  
   58    RECT = RECORD
   59             left   : INTEGER;
   60             top    : INTEGER;
   61             right  : INTEGER;
   62             bottom : INTEGER;
   63           END;
*****           ^ not supported yet
   64    LPRECT = POINTER TO RECT;
*****                        ^ not supported yet
   65  
   66    POINT = RECORD
   67              x : INTEGER;
   68              y : INTEGER;
   69            END;
*****            ^ not supported yet
   70    LPPOINT = POINTER TO POINT;
*****                         ^ not supported yet
   71  
   72  TYPE
   73    MAKEINTRESOURCE = LPSTR;
   74    MAKEINTATOM     = LPSTR;
   75  
   76  PROCEDURE EntryPoint();              (* This is the entry point for a *)
   77                                       (* windows main module *)
   78  PROCEDURE GetVersion() : LONGCARD;
*****                           ^ undeclared identifier
   79  PROCEDURE GetNumTasks() : CARDINAL;
   80  PROCEDURE GetCodeHandle(_:FARPROC) : HANDLE;
   81  PROCEDURE GetCodeInfo(lpProc : FARPROC; lpSegInfo : ADDRESS);
*****                                                      ^ undeclared identifier
   82  PROCEDURE GetModuleHandle(_:ARRAY OF CHAR) : HANDLE;
*****                                       ^ not supported yet
   83  PROCEDURE GetModuleUsage(_:HANDLE) : INTEGER;
   84  PROCEDURE GetModuleFileName(_:HANDLE; _:ARRAY OF CHAR; _:INTEGER) : INTEGER;
*****                                        ^ duplicate identifier
*****                                                   ^ not supported yet
*****                                                         ^ duplicate identifier
   85  PROCEDURE GetInstanceData(_:HANDLE; _:NearADDRESS; _:INTEGER) : INTEGER;
*****                                      ^ duplicate identifier
*****                                        ^ undeclared identifier
*****                                                     ^ duplicate identifier
   86  PROCEDURE GetProcAddress(_:HANDLE; _:ARRAY OF CHAR) : FARPROC;
*****                                     ^ duplicate identifier
*****                                                ^ not supported yet
   87  PROCEDURE MakeProcInstance(_:FARPROC; _:HANDLE) : FARPROC;
*****                                        ^ duplicate identifier
   88  PROCEDURE FreeProcInstance(_:FARPROC);
   89  PROCEDURE LoadLibrary(_:ARRAY OF CHAR) : HANDLE;
*****                                   ^ not supported yet
   90  PROCEDURE LoadModule(_:ARRAY OF CHAR; _:ADDRESS) : HANDLE;
*****                                  ^ not supported yet
*****                                        ^ duplicate identifier
*****                                          ^ undeclared identifier
   91  PROCEDURE FreeModule(_:HANDLE) : BOOL;
   92  PROCEDURE FreeLibrary(_:HANDLE);
   93  PROCEDURE GetFreeSpace(_:CARDINAL) : LONGCARD;
*****                                       ^ undeclared identifier
   94  PROCEDURE WinExec(_:ARRAY OF CHAR; _:CARDINAL) : CARDINAL;
*****                               ^ not supported yet
*****                                     ^ duplicate identifier
   95  PROCEDURE DebugBreak();
   96  PROCEDURE OutputDebugString(_:ARRAY OF CHAR);
*****                                         ^ not supported yet
   97  PROCEDURE SwitchStackBack();
   98  PROCEDURE SwitchStackTo(_:CARDINAL; _:CARDINAL; _:CARDINAL);
*****                                      ^ duplicate identifier
*****                                                  ^ duplicate identifier
   99  PROCEDURE GetCurrentPDB() : CARDINAL;
  100  
  101  TYPE
  102  
  103    OFSTRUCT = RECORD
  104                 cBytes     : SHORTCARD;
  105                 fFixedDisk : SHORTCARD;
  106                 nErrCode   : CARDINAL;
  107                 reserved   : ARRAY [0..3] OF SHORTCARD;
*****                                        ^ not supported yet
*****                                              ^ not supported yet
  108                 szPathName : ARRAY [0..127] OF CHAR;
*****                                        ^ not supported yet
*****                                                ^ not supported yet
  109               END;
*****               ^ not supported yet
  110    LPOFSTRUCT = POINTER TO OFSTRUCT;
*****                            ^ not supported yet
  111  
  112  CONST
  113    OF_READ             = 00H;
  114    OF_WRITE            = 01H;
  115    OF_READWRITE        = 02H;
  116    OF_SHARE_COMPAT     = 00H;
  117    OF_SHARE_EXCLUSIVE  = 010H;
  118    OF_SHARE_DENY_WRITE = 020H;
  119    OF_SHARE_DENY_READ  = 030H;
  120    OF_SHARE_DENY_NONE  = 040H;
  121    OF_PARSE            = 0100H;
  122    OF_DELETE           = 0200H;
  123    OF_VERIFY           = 0400H;
  124    OF_CANCEL           = 0800H;
  125    OF_CREATE           = 01000H;
  126    OF_PROMPT           = 02000H;
  127    OF_EXIST            = 04000H;
  128    OF_REOPEN           = 08000H;
  129  
  130  PROCEDURE OpenFile(_:ARRAY OF CHAR; VAR _:OFSTRUCT; _:CARDINAL) : INTEGER;
*****                                ^ not supported yet
*****                                          ^ duplicate identifier
*****                                                      ^ duplicate identifier
  131  
  132  CONST
  133    TF_FORCEDRIVE = 080H;
  134  
  135  PROCEDURE GetTempDrive(_:SHORTCARD) : SHORTCARD;
  136  PROCEDURE GetTempFileName(_:SHORTCARD; _:ARRAY OF CHAR; _:CARDINAL; _:ARRAY OF CHAR) : INTEGER;
*****                                         ^ duplicate identifier
*****                                                    ^ not supported yet
*****                                                          ^ duplicate identifier
*****                                                                      ^ duplicate identifier
*****                                                                                 ^ not supported yet
  137  PROCEDURE SetHandleCount(_:CARDINAL) : CARDINAL;
  138  PROCEDURE GetDriveType(_:INTEGER) : CARDINAL;
  139  
  140  CONST
  141    DRIVE_REMOVABLE  = 2;
  142    DRIVE_FIXED      = 3;
  143    DRIVE_REMOTE     = 4;
  144    GMEM_FIXED       = 00H;
  145    GMEM_MOVEABLE    = 02H;
  146    GMEM_NOCOMPACT   = 010H;
  147    GMEM_NODISCARD   = 020H;
  148    GMEM_ZEROINIT    = 040H;
  149    GMEM_MODIFY      = 080H;
  150    GMEM_DISCARDABLE = 0100H;
  151    GMEM_NOT_BANKED  = 01000H;
  152    GMEM_SHARE       = 02000H;
  153    GMEM_DDESHARE    = 02000H;
  154    GMEM_NOTIFY      = 04000H;
  155    GMEM_LOWER       = GMEM_NOT_BANKED;
*****                       ^ not supported yet
  156    GHND             = 042H; (* GMEM_MOVEABLE OR GMEM_ZEROINIT *)
  157    GPTR             = 040H; (* GMEM_FIXED OR GMEM_ZEROINIT *)
  158  
  159  (* GlobalDiscard(x) ::= GlobalReAlloc(x, 0, GMEM_MOVEABLE) - see below *)
  160  
  161  PROCEDURE GlobalAlloc(_:CARDINAL; _:LONGCARD) : HANDLE;
*****                                    ^ duplicate identifier
*****                                      ^ undeclared identifier
  162  PROCEDURE GlobalCompact(_:LONGCARD) : LONGCARD;
*****                            ^ undeclared identifier
*****                                        ^ undeclared identifier
  163  PROCEDURE GlobalFree(_:HANDLE) : HANDLE;
  164  PROCEDURE GlobalHandle(_:CARDINAL) : LONGCARD;
*****                                       ^ undeclared identifier
  165  PROCEDURE GlobalLock(_:HANDLE) : LPSTR;
  166  PROCEDURE GlobalReAlloc(_:HANDLE; _:LONGCARD; _:CARDINAL) : HANDLE;
*****                                    ^ duplicate identifier
*****                                      ^ undeclared identifier
*****                                                ^ duplicate identifier
  167  PROCEDURE GlobalSize(_:HANDLE) : LONGCARD;
*****                                   ^ undeclared identifier
  168  PROCEDURE GlobalUnlock(_:HANDLE) : BOOL;
  169  PROCEDURE GlobalFlags(_:HANDLE) : CARDINAL;
  170  PROCEDURE GlobalWire(_:HANDLE) : LPSTR;
  171  PROCEDURE GlobalUnWire(_:HANDLE) : BOOL;
  172  PROCEDURE GlobalLRUNewest(_:HANDLE) : HANDLE;
  173  PROCEDURE GlobalLRUOldest(_:HANDLE) : HANDLE;
  174  PROCEDURE GlobalNotify(_:FARPROC);
  175  PROCEDURE GlobalPageLock(_:HANDLE) : CARDINAL;
  176  PROCEDURE GlobalPageUnlock(_:HANDLE) : CARDINAL;
  177  PROCEDURE GlobalFix(_:HANDLE);
  178  PROCEDURE GlobalUnfix(_:HANDLE) : BOOL;
  179  
  180  CONST
  181    GMEM_DISCARDED = 04000H;
  182    GMEM_LOCKCOUNT = 0FFH;
  183    DataSegment    = 0FFFFH;
  184  
  185  (* LockData ::= LockSegment(DataSegment) *)
  186  (* UnlockData ::= UnlockSegment(DataSegment) *)
  187  
  188  PROCEDURE LockSegment(_:CARDINAL) : HANDLE;
  189  PROCEDURE UnlockSegment(_:CARDINAL) : HANDLE;
  190  
  191  CONST
  192    LMEM_FIXED       = 00H;
  193    LMEM_MOVEABLE    = 02H;
  194    LMEM_NOCOMPACT   = 010H;
  195    LMEM_NODISCARD   = 020H;
  196    LMEM_ZEROINIT    = 040H;
  197    LMEM_MODIFY      = 080H;
  198    LMEM_DISCARDABLE = 0F00H;
  199    LHND             = 042H; (* LMEM_MOVEABLE OR LMEM_ZEROINIT *)
  200    LPTR             = 040H; (* LMEM_FIXED OR LMEM_ZEROINIT *)
  201    NONZEROLHND      = LMEM_MOVEABLE;
*****                       ^ not supported yet
  202    NONZEROLPTR      = LMEM_FIXED;
*****                       ^ not supported yet
  203  
  204    LNOTIFY_OUTOFMEM = 0;
  205    LNOTIFY_MOVE     = 1;
  206    LNOTIFY_DISCARD  = 2;
  207  
  208  VAR
  209    pLocalHeap : NearADDRESS;
*****                 ^ undeclared identifier
  210  
  211  (* LocalDiscard(x) ::= LocalReAlloc(x, 0, LMEM_MOVEABLE) *)
  212  
  213  PROCEDURE LocalAlloc(_:CARDINAL; _:CARDINAL) : HANDLE;
*****                                   ^ duplicate identifier
  214  PROCEDURE LocalCompact(_:CARDINAL) : CARDINAL;
  215  PROCEDURE LocalFree(_:HANDLE) : HANDLE;
  216  PROCEDURE LocalHandle(_:CARDINAL) : HANDLE;
  217  PROCEDURE LocalInit(_:CARDINAL; _:CARDINAL; _:CARDINAL) : BOOL;
*****                                  ^ duplicate identifier
*****                                              ^ duplicate identifier
  218  PROCEDURE LocalLock(_:HANDLE) : NearADDRESS;
*****                                  ^ undeclared identifier
  219  PROCEDURE LocalNotify(_:FARPROC) : FARPROC;
  220  PROCEDURE LocalReAlloc(_:HANDLE; _:CARDINAL; _:CARDINAL) : HANDLE;
*****                                   ^ duplicate identifier
*****                                               ^ duplicate identifier
  221  PROCEDURE LocalSize(_:HANDLE) : CARDINAL;
  222  PROCEDURE LocalUnlock(_:HANDLE) : BOOL;
  223  PROCEDURE LocalFlags(_:HANDLE) : CARDINAL;
  224  PROCEDURE LocalShrink(_:HANDLE; _:CARDINAL) : CARDINAL;
*****                                  ^ duplicate identifier
  225  
  226  CONST
  227    LMEM_DISCARDED = 04000H;
  228    LMEM_LOCKCOUNT = 0FFH;
  229  
  230  PROCEDURE SetSwapAreaSize(_:CARDINAL) : LONGINT;
  231  PROCEDURE ValidateFreeSpaces() : LPSTR;
  232  PROCEDURE LimitEmsPages(_:LONGCARD);
*****                            ^ undeclared identifier
  233  PROCEDURE SetErrorMode(_:CARDINAL) : BOOL;
  234  PROCEDURE ValidateCodeSegments();
  235  
  236  CONST
  237    UnlockResource ::= GlobalUnlock;
*****                   ^ not supported yet
  238  
  239  PROCEDURE FindResource(_:HANDLE; _:ARRAY OF CHAR; _:FarADDRESS) : HANDLE;
*****                                   ^ duplicate identifier
*****                                              ^ not supported yet
*****                                                    ^ duplicate identifier
*****                                                      ^ undeclared identifier
  240  PROCEDURE LoadResource(_:HANDLE; _:HANDLE) : HANDLE;
*****                                   ^ duplicate identifier
  241  PROCEDURE FreeResource(_:HANDLE) : BOOL;
  242  PROCEDURE LockResource(_:HANDLE) : LPSTR;
  243  PROCEDURE SetResourceHandler(_:HANDLE; _:FarADDRESS; _:FARPROC) : FARPROC;
*****                                         ^ duplicate identifier
*****                                           ^ undeclared identifier
*****                                                       ^ duplicate identifier
  244  PROCEDURE AllocResource(_:HANDLE; _:HANDLE; _:LONGCARD) : HANDLE;
*****                                    ^ duplicate identifier
*****                                              ^ duplicate identifier
*****                                                ^ undeclared identifier
  245  PROCEDURE SizeofResource(_:HANDLE; _:HANDLE) : CARDINAL;
*****                                     ^ duplicate identifier
  246  PROCEDURE AccessResource(_:HANDLE; _:HANDLE) : INTEGER;
*****                                     ^ duplicate identifier
  247  
  248  
  249  CONST
  250    DIFFERENCE = 11;
  251  
  252    RT_CURSOR       = LPSTR(1);
*****                             ^ not supported yet
  253    RT_BITMAP       = LPSTR(2);
*****                             ^ not supported yet
  254    RT_ICON         = LPSTR(3);
*****                             ^ not supported yet
  255    RT_MENU         = LPSTR(4);
*****                             ^ not supported yet
  256    RT_DIALOG       = LPSTR(5);
*****                             ^ not supported yet
  257    RT_STRING       = LPSTR(6);
*****                             ^ not supported yet
  258    RT_FONTDIR      = LPSTR(7);
*****                             ^ not supported yet
  259    RT_FONT         = LPSTR(8);
*****                             ^ not supported yet
  260    RT_ACCELERATOR  = LPSTR(9);
*****                             ^ not supported yet
  261    RT_RCDATA       = LPSTR(10);
*****                              ^ not supported yet
  262    RT_GROUP_CURSOR = LPSTR(12);
*****                              ^ not supported yet
  263    RT_GROUP_ICON   = LPSTR(14);
*****                              ^ not supported yet
  264  
  265  PROCEDURE Yield();
  266  PROCEDURE GetCurrentTask() : HANDLE;
  267  
  268  TYPE
  269    ATOM = CARDINAL;
  270  
  271  
  272  PROCEDURE InitAtomTable(_:INTEGER) : BOOL;
  273  PROCEDURE AddAtom(_:ARRAY OF CHAR) : ATOM;
*****                               ^ not supported yet
  274  PROCEDURE DeleteAtom(_:ATOM) : ATOM;
  275  PROCEDURE FindAtom(_:ARRAY OF CHAR) : ATOM;
*****                                ^ not supported yet
  276  PROCEDURE GetAtomName(_:ATOM; _:ARRAY OF CHAR; _:INTEGER) : CARDINAL;
*****                                ^ duplicate identifier
*****                                           ^ not supported yet
*****                                                 ^ duplicate identifier
  277  PROCEDURE GlobalAddAtom(_:ARRAY OF CHAR) : ATOM;
*****                                     ^ not supported yet
  278  PROCEDURE GlobalDeleteAtom(_:ATOM) : ATOM;
  279  PROCEDURE GlobalFindAtom(_:ARRAY OF CHAR) : ATOM;
*****                                      ^ not supported yet
  280  PROCEDURE GlobalGetAtomName(_:ATOM; _:ARRAY OF CHAR; _:INTEGER) : CARDINAL;
*****                                      ^ duplicate identifier
*****                                                 ^ not supported yet
*****                                                       ^ duplicate identifier
  281  PROCEDURE GetAtomHandle(_:ATOM) : HANDLE;
  282  PROCEDURE GetProfileInt(_:ARRAY OF CHAR; _:ARRAY OF CHAR; _:INTEGER) : CARDINAL;
*****                                     ^ not supported yet
*****                                           ^ duplicate identifier
*****                                                      ^ not supported yet
*****                                                            ^ duplicate identifier
  283  PROCEDURE GetProfileString(_:ARRAY OF CHAR; _:ARRAY OF CHAR; _:ARRAY OF CHAR; _:ARRAY OF CHAR; _:INTEGER) : INTEGER;
*****                                        ^ not supported yet
*****                                              ^ duplicate identifier
*****                                                         ^ not supported yet
*****                                                               ^ duplicate identifier
*****                                                                          ^ not supported yet
*****                                                                                ^ duplicate identifier
*****                                                                                           ^ not supported yet
*****                                                                                                 ^ duplicate identifier
  284  PROCEDURE WriteProfileString(_:ARRAY OF CHAR; _:ARRAY OF CHAR; _:ARRAY OF CHAR) : BOOL;
*****                                          ^ not supported yet
*****                                                ^ duplicate identifier
*****                                                           ^ not supported yet
*****                                                                 ^ duplicate identifier
*****                                                                            ^ not supported yet
  285  PROCEDURE GetPrivateProfileInt(_:ARRAY OF CHAR; _:ARRAY OF CHAR; _:INTEGER; _:ARRAY OF CHAR) : CARDINAL;
*****                                            ^ not supported yet
*****                                                  ^ duplicate identifier
*****                                                             ^ not supported yet
*****                                                                   ^ duplicate identifier
*****                                                                              ^ duplicate identifier
*****                                                                                         ^ not supported yet
  286  PROCEDURE GetPrivateProfileString(_:ARRAY OF CHAR; _:ARRAY OF CHAR; _:ARRAY OF CHAR; _:ARRAY OF CHAR; _:INTEGER; _:ARRAY OF CHAR) : INTEGER;
*****                                               ^ not supported yet
*****                                                     ^ duplicate identifier
*****                                                                ^ not supported yet
*****                                                                      ^ duplicate identifier
*****                                                                                 ^ not supported yet
*****                                                                                       ^ duplicate identifier
*****                                                                                                  ^ not supported yet
*****                                                                                                        ^ duplicate identifier
*****                                                                                                                   ^ duplicate identifier
*****                                                                                                                              ^ not supported yet
  287  PROCEDURE WritePrivateProfileString(_:ARRAY OF CHAR; _:ARRAY OF CHAR; _:ARRAY OF CHAR; _:ARRAY OF CHAR) : BOOL;
*****                                                 ^ not supported yet
*****                                                       ^ duplicate identifier
*****                                                                  ^ not supported yet
*****                                                                        ^ duplicate identifier
*****                                                                                   ^ not supported yet
*****                                                                                         ^ duplicate identifier
*****                                                                                                    ^ not supported yet
  288  PROCEDURE GetWindowsDirectory(_:ARRAY OF CHAR; _:CARDINAL) : CARDINAL;
*****                                           ^ not supported yet
*****                                                 ^ duplicate identifier
  289  PROCEDURE GetSystemDirectory(_:ARRAY OF CHAR; _:CARDINAL) : CARDINAL;
*****                                          ^ not supported yet
*****                                                ^ duplicate identifier
  290  
  291  TYPE
  292    CATCHBUF   = ARRAY [0..8] OF INTEGER;
*****                           ^ not supported yet
*****                                 ^ not supported yet
  293    LPCATCHBUF = POINTER TO CATCHBUF;
*****                            ^ not supported yet
  294  
  295  PROCEDURE Catch(VAR _:INTEGER) : INTEGER;
  296  PROCEDURE Throw(VAR _:INTEGER; _:INTEGER);
*****                                 ^ duplicate identifier
  297  PROCEDURE FatalExit(_:INTEGER);
  298  PROCEDURE SwapRecording(_:CARDINAL);
  299  PROCEDURE AnsiToOem(_:ARRAY OF CHAR; _:ARRAY OF CHAR) : INTEGER;
*****                                 ^ not supported yet
*****                                       ^ duplicate identifier
*****                                                  ^ not supported yet
  300  PROCEDURE OemToAnsi(_:ARRAY OF CHAR; _:ARRAY OF CHAR) : BOOL;
*****                                 ^ not supported yet
*****                                       ^ duplicate identifier
*****                                                  ^ not supported yet
  301  PROCEDURE AnsiToOemBuff(_:ARRAY OF CHAR; _:ARRAY OF CHAR; _:INTEGER);
*****                                     ^ not supported yet
*****                                           ^ duplicate identifier
*****                                                      ^ not supported yet
*****                                                            ^ duplicate identifier
  302  PROCEDURE OemToAnsiBuff(_:ARRAY OF CHAR; _:ARRAY OF CHAR; _:INTEGER);
*****                                     ^ not supported yet
*****                                           ^ duplicate identifier
*****                                                      ^ not supported yet
*****                                                            ^ duplicate identifier
  303  PROCEDURE AnsiUpper(_:ARRAY OF CHAR) : LPSTR;
*****                                 ^ not supported yet
  304  PROCEDURE AnsiUpperBuff(_:ARRAY OF CHAR; _:CARDINAL) : CARDINAL;
*****                                     ^ not supported yet
*****                                           ^ duplicate identifier
  305  PROCEDURE AnsiLower(_:ARRAY OF CHAR) : LPSTR;
*****                                 ^ not supported yet
  306  PROCEDURE AnsiLowerBuff(_:ARRAY OF CHAR; _:CARDINAL) : CARDINAL;
*****                                     ^ not supported yet
*****                                           ^ duplicate identifier
  307  PROCEDURE AnsiNext(_:ARRAY OF CHAR) : LPSTR;
*****                                ^ not supported yet
  308  PROCEDURE AnsiPrev(_:ARRAY OF CHAR; _:ARRAY OF CHAR) : LPSTR;
*****                                ^ not supported yet
*****                                      ^ duplicate identifier
*****                                                 ^ not supported yet
  309  PROCEDURE OemKeyScan(_:CARDINAL) : LONGCARD;
*****                                     ^ undeclared identifier
  310  PROCEDURE VkKeyScan(_:CARDINAL) : CARDINAL;
  311  PROCEDURE GetKeyboardType(_:INTEGER) : INTEGER;
  312  PROCEDURE GetKBCodePage() : INTEGER;
  313  PROCEDURE GetKeyNameText(_:LONGINT; _:ARRAY OF CHAR; _:INTEGER) : INTEGER;
*****                                      ^ duplicate identifier
*****                                                 ^ not supported yet
*****                                                       ^ duplicate identifier
  314  PROCEDURE ToAscii(wVirtKey : CARDINAL; wScanCode : CARDINAL; lpKeyState : ARRAY OF CHAR; lpChar : ADDRESS; wFlags : CARDINAL) : INTEGER;
*****                                                                                     ^ not supported yet
*****                                                                                                    ^ undeclared identifier
  315  PROCEDURE IsCharAlpha(_:CHAR) : BOOL;
  316  PROCEDURE IsCharAlphaNumeric(_:CHAR) : BOOL;
  317  PROCEDURE IsCharUpper(_:CHAR) : BOOL;
  318  PROCEDURE IsCharLower(_:CHAR) : BOOL;
  319  PROCEDURE GetWinFlags() : LONGINT;
  320  
  321  CONST
  322    WF_PMODE      = 01H;
  323    WF_CPU286     = 02H;
  324    WF_CPU386     = 04H;
  325    WF_CPU486     = 08H;
  326    WF_STANDARD   = 010H;
  327    WF_WIN286     = 010H;
  328    WF_ENHANCED   = 020H;
  329    WF_WIN386     = 020H;
  330    WF_CPU086     = 040H;
  331    WF_CPU186     = 080H;
  332    WF_LARGEFRAME = 0100H;
  333    WF_SMALLFRAME = 0200H;
  334    WF_80x87      = 0400H;
  335    WEP_SYSTEM_EXIT = 1;
  336    WEP_FREE_DLL    = 0;
  337    R2_BLACK        = 1;
  338    R2_NOTMERGEPEN  = 2;
  339    R2_MASKNOTPEN   = 3;
  340    R2_NOTCOPYPEN   = 4;
  341    R2_MASKPENNOT   = 5;
  342    R2_NOT          = 6;
  343    R2_XORPEN       = 7;
  344    R2_NOTMASKPEN   = 8;
  345    R2_MASKPEN      = 9;
  346    R2_NOTXORPEN    = 10;
  347    R2_NOP          = 11;
  348    R2_MERGENOTPEN  = 12;
  349    R2_COPYPEN      = 13;
  350    R2_MERGEPENNOT  = 14;
  351    R2_MERGEPEN     = 15;
  352    R2_WHITE        = 16;
  353    SRCCOPY     = 0CC0020H;
  354    SRCPAINT    = 0EE0086H;
  355    SRCAND      = 08800C6H;
  356    SRCINVERT   = 0660046H;
  357    SRCERASE    = 0440328H;
  358    NOTSRCCOPY  = 0330008H;
  359    NOTSRCERASE = 01100A6H;
  360    MERGECOPY   = 0C000CAH;
  361    MERGEPAINT  = 0BB0226H;
  362    PATCOPY     = 0F00021H;
  363    PATPAINT    = 0FB0A09H;
  364    PATINVERT   = 05A0049H;
  365    DSTINVERT   = 0550009H;
  366    BLACKNESS   = 042H;
  367    WHITENESS   = 0FF0062H;
  368    BLACKONWHITE = 1;
  369    WHITEONBLACK = 2;
  370    COLORONCOLOR = 3;
  371    ALTERNATE    = 1;
  372    WINDING      = 2;
  373    TA_NOUPDATECP = 0;
  374    TA_UPDATECP   = 1;
  375    TA_LEFT       = 0;
  376    TA_RIGHT      = 2;
  377    TA_CENTER     = 6;
  378    TA_TOP        = 0;
  379    TA_BOTTOM     = 8;
  380    TA_BASELINE   = 24;
  381    ETO_GRAYED    = 1;
  382    ETO_OPAQUE    = 2;
  383    ETO_CLIPPED   = 4;
  384    ASPECT_FILTERING = 01H;
  385    META_SETBKCOLOR           = 0201H;
  386    META_SETBKMODE            = 0102H;
  387    META_SETMAPMODE           = 0103H;
  388    META_SETROP2              = 0104H;
  389    META_SETRELABS            = 0105H;
  390    META_SETPOLYFILLMODE      = 0106H;
  391    META_SETSTRETCHBLTMODE    = 0107H;
  392    META_SETTEXTCHAREXTRA     = 0108H;
  393    META_SETTEXTCOLOR         = 0209H;
  394    META_SETTEXTJUSTIFICATION = 020AH;
  395    META_SETWINDOWORG         = 020BH;
  396    META_SETWINDOWEXT         = 020CH;
  397    META_SETVIEWPORTORG       = 020DH;
  398    META_SETVIEWPORTEXT       = 020EH;
  399    META_OFFSETWINDOWORG      = 020FH;
  400    META_SCALEWINDOWEXT       = 0400H;
  401    META_OFFSETVIEWPORTORG    = 0211H;
  402    META_SCALEVIEWPORTEXT     = 0412H;
  403    META_LINETO               = 0213H;
  404    META_MOVETO               = 0214H;
  405    META_EXCLUDECLIPRECT      = 0415H;
  406    META_INTERSECTCLIPRECT    = 0416H;
  407    META_ARC                  = 0817H;
  408    META_ELLIPSE              = 0418H;
  409    META_FLOODFILL            = 0419H;
  410    META_PIE                  = 081AH;
  411    META_RECTANGLE            = 041BH;
  412    META_ROUNDRECT            = 061CH;
  413    META_PATBLT               = 061DH;
  414    META_SAVEDC               = 01EH;
  415    META_SETPIXEL             = 041FH;
  416    META_OFFSETCLIPRGN        = 0220H;
  417    META_TEXTOUT              = 0521H;
  418    META_BITBLT               = 0922H;
  419    META_STRETCHBLT           = 0B23H;
  420    META_POLYGON              = 0324H;
  421    META_POLYLINE             = 0325H;
  422    META_ESCAPE               = 0626H;
  423    META_RESTOREDC            = 0127H;
  424    META_FILLREGION           = 0228H;
  425    META_FRAMEREGION          = 0429H;
  426    META_INVERTREGION         = 012AH;
  427    META_PAINTREGION          = 012BH;
  428    META_SELECTCLIPREGION     = 012CH;
  429    META_SELECTOBJECT         = 012DH;
  430    META_SETTEXTALIGN         = 012EH;
  431    META_DRAWTEXT             = 062FH;
  432    META_CHORD                = 0830H;
  433    META_SETMAPPERFLAGS       = 0231H;
  434    META_EXTTEXTOUT           = 0A32H;
  435    META_SETDIBTODEV          = 0D33H;
  436    META_SELECTPALETTE        = 0234H;
  437    META_REALIZEPALETTE       = 035H;
  438    META_ANIMATEPALETTE       = 0436H;
  439    META_SETPALENTRIES        = 037H;
  440    META_POLYPOLYGON          = 0538H;
  441    META_RESIZEPALETTE        = 0139H;
  442    META_DIBBITBLT            = 0940H;
  443    META_DIBSTRETCHBLT        = 0B41H;
  444    META_DIBCREATEPATTERNBRUSH= 0142H;
  445    META_STRETCHDIB           = 0F43H;
  446    META_DELETEOBJECT         = 01F0H;
  447    META_CREATEPALETTE        = 0F7H;
  448    META_CREATEBRUSH          = 0F8H;
  449    META_CREATEPATTERNBRUSH   = 01F9H;
  450    META_CREATEPENINDIRECT    = 02FAH;
  451    META_CREATEFONTINDIRECT   = 02FBH;
  452    META_CREATEBRUSHINDIRECT  = 02FCH;
  453    META_CREATEBITMAPINDIRECT = 02FDH;
  454    META_CREATEBITMAP         = 06FEH;
  455    META_CREATEREGION         = 06FFH;
  456    NEWFRAME          = 1;
  457    ABORTDOC          = 2;
  458    NEXTBAND          = 3;
  459    SETCOLORTABLE     = 4;
  460    GETCOLORTABLE     = 5;
  461    FLUSHOUTPUT       = 6;
  462    DRAFTMODE         = 7;
  463    QUERYESCSUPPORT   = 8;
  464    SETABORTPROC      = 9;
  465    STARTDOC          = 10;
  466    ENDDOC            = 11;
  467    GETPHYSPAGESIZE   = 12;
  468    GETPRINTINGOFFSET = 13;
  469    GETSCALINGFACTOR  = 14;
  470    MFCOMMENT         = 15;
  471    GETPENWIDTH       = 16;
  472    SETCOPYCOUNT      = 17;
  473    SELECTPAPERSOURCE = 18;
  474    DEVICEDATA        = 19;
  475    PASSTHROUGH       = 19;
  476    GETTECHNOLGY      = 20;
  477    GETTECHNOLOGY     = 20;
  478    SETENDCAP         = 21;
  479    SETLINEJOIN       = 22;
  480    SETMITERLIMIT     = 23;
  481    BANDINFO          = 24;
  482    DRAWPATTERNRECT   = 25;
  483    GETVECTORPENSIZE  = 26;
  484    GETVECTORBRUSHSIZE= 27;
  485    ENABLEDUPLEX      = 28;
  486    GETSETPAPERBINS   = 29;
  487    GETSETPRINTORIENT = 30;
  488    ENUMPAPERBINS     = 31;
  489    SETDIBSCALING     = 32;
  490    EPSPRINTING       = 33;
  491    ENUMPAPERMETRICS  = 34;
  492    GETSETPAPERMETRICS= 35;
  493    POSTSCRIPT_DATA   = 37;
  494    POSTSCRIPT_IGNORE = 38;
  495    GETEXTENDEDTEXTMETRICS = 256;
  496    GETEXTENTTABLE         = 257;
  497    GETPAIRKERNTABLE       = 258;
  498    GETTRACKKERNTABLE      = 259;
  499    EXTTEXTOUT             = 512;
  500    ENABLERELATIVEWIDTHS   = 768;
  501    ENABLEPAIRKERNING      = 769;
  502    SETKERNTRACK           = 770;
  503    SETALLJUSTVALUES       = 771;
  504    SETCHARSET             = 772;
  505    STRETCHBLT             = 2048;
  506    BEGIN_PATH             = 4096;
  507    CLIP_TO_PATH           = 4097;
  508    END_PATH               = 4098;
  509    EXT_DEVICE_CAPS        = 4099;
  510    RESTORE_CTM            = 4100;
  511    SAVE_CTM               = 4101;
  512    SET_ARC_DIRECTION      = 4102;
  513    SET_BACKGROUND_COLOR   = 4103;
  514    SET_POLY_MODE          = 4104;
  515    SET_SCREEN_ANGLE       = 4105;
  516    SET_SPREAD             = 4106;
  517    TRANSFORM_CTM          = 4107;
  518    SET_CLIP_BOX           = 4108;
  519    SET_BOUNDS             = 4109;
  520    SP_NOTREPORTED = 04000H;
  521    SP_ERROR       = -1;
  522    SP_APPABORT    = -2;
  523    SP_USERABORT   = -3;
  524    SP_OUTOFDISK   = -4;
  525    SP_OUTOFMEMORY = -5;
  526    PR_JOBSTATUS   = 00H;
  527    OBJ_PEN        = 1;
  528    OBJ_BRUSH      = 2;
  529  
  530  TYPE
  531  
  532    BITMAP = RECORD
  533               bmType   : INTEGER;
  534               bmWidth  : INTEGER;
  535               bmHeight : INTEGER;
  536               bmWidthBytes : INTEGER;
  537               bmPlanes : SHORTCARD;
  538               bmBitsPixel : SHORTCARD;
  539               bmBits   : LPSTR;
  540             END;
*****             ^ not supported yet
  541    LPBITMAP = POINTER TO BITMAP;
*****                          ^ not supported yet
  542  
  543    RGBTRIPLE = RECORD
  544                  rgbtBlue  : SHORTCARD;
  545                  rgbtGreen : SHORTCARD;
  546                  rgbtRed   : SHORTCARD;
  547                END;
*****                ^ not supported yet
  548  
  549    RGBQUAD = RECORD
  550                rgbBlue  : SHORTCARD;
  551                rgbGreen : SHORTCARD;
  552                rgbRed   : SHORTCARD;
  553                rgbReserved : SHORTCARD;
  554              END;
*****              ^ not supported yet
  555  
  556    BITMAPCOREHEADER = RECORD
  557                         bcSize   : LONGCARD;
*****                                    ^ undeclared identifier
  558                         bcWidth  : CARDINAL;
  559                         bcHeight : CARDINAL;
  560                         bcPlanes : CARDINAL;
  561                         bcBitCount : CARDINAL;
  562                       END;
*****                       ^ not supported yet
  563    LPBITMAPCOREHEADER = POINTER TO BITMAPCOREHEADER;
*****                                    ^ not supported yet
  564  
  565    BITMAPINFOHEADER = RECORD
  566                         biSize   : LONGCARD;
*****                                    ^ undeclared identifier
  567                         biWidth  : LONGCARD;
*****                                    ^ undeclared identifier
  568                         biHeight : LONGCARD;
*****                                    ^ undeclared identifier
  569                         biPlanes : CARDINAL;
  570                         biBitCount : CARDINAL;
  571                         biCompression : LONGCARD;
*****                                         ^ undeclared identifier
  572                         biSizeImage : LONGCARD;
*****                                       ^ undeclared identifier
  573                         biXPelsPerMeter : LONGCARD;
*****                                           ^ undeclared identifier
  574                         biYPelsPerMeter : LONGCARD;
*****                                           ^ undeclared identifier
  575                         biClrUsed : LONGCARD;
*****                                     ^ undeclared identifier
  576                         biClrImportant : LONGCARD;
*****                                          ^ undeclared identifier
  577                       END;
*****                       ^ not supported yet
  578    LPBITMAPINFOHEADER = POINTER TO BITMAPINFOHEADER;
*****                                    ^ not supported yet
  579  
  580  CONST
  581    BI_RGB  = 0;
  582    BI_RLE8 = 1;
  583    BI_RLE4 = 2;
  584  
  585  TYPE
  586  
  587    BITMAPINFO = RECORD
  588                   bmiHeader : BITMAPINFOHEADER;
  589                   bmiColors : ARRAY [0..0] OF RGBQUAD;
*****                                         ^ not supported yet
*****                                               ^ not supported yet
  590                 END;
*****                 ^ not supported yet
  591    LPBITMAPINFO = POINTER TO BITMAPINFO;
*****                              ^ not supported yet
  592  
  593    BITMAPCOREINFO = RECORD
  594                       bmciHeader : BITMAPCOREHEADER;
  595                       bmciColors : ARRAY [0..0] OF RGBTRIPLE;
*****                                              ^ not supported yet
*****                                                    ^ not supported yet
  596                     END;
*****                     ^ not supported yet
  597    LPBITMAPCOREINFO = POINTER TO BITMAPCOREINFO;
*****                                  ^ not supported yet
  598  
  599    BITMAPFILEHEADER = RECORD
  600                         bfType : CARDINAL;
  601                         bfSize : LONGCARD;
*****                                  ^ undeclared identifier
  602                         bfReserved1 : CARDINAL;
  603                         bfReserved2 : CARDINAL;
  604                         bfOffBits : LONGCARD;
*****                                     ^ undeclared identifier
  605                       END;
*****                       ^ not supported yet
  606    LPBITMAPFILEHEADER = POINTER TO BITMAPFILEHEADER;
*****                                    ^ not supported yet
  607  
  608  
  609  TYPE
  610  
  611    HANDLETABLE = RECORD
  612                    objectHandle : ARRAY [0..0] OF CARDINAL;
*****                                             ^ not supported yet
*****                                                   ^ not supported yet
  613                  END;
*****                  ^ not supported yet
  614    LPHANDLETABLE = POINTER TO HANDLETABLE;
*****                               ^ not supported yet
  615  
  616    METARECORD = RECORD
  617                   rdSize     : LONGCARD;
*****                                ^ undeclared identifier
  618                   rdFunction : CARDINAL;
  619                   rdParm     : ARRAY [0..0] OF CARDINAL;
*****                                          ^ not supported yet
*****                                                ^ not supported yet
  620                 END;
*****                 ^ not supported yet
  621    LPMETARECORD = POINTER TO METARECORD;
*****                              ^ not supported yet
  622  
  623    METAFILEPICT = RECORD
  624                     mm : INTEGER;
  625                     xExt : INTEGER;
  626                     yExt : INTEGER;
  627                     hMF : HANDLE;
  628                   END;
*****                   ^ not supported yet
  629    LPMETAFILEPICT = POINTER TO METAFILEPICT;
*****                                ^ not supported yet
  630  
  631    METAHEADER = RECORD
  632                   mtType       : CARDINAL;
  633                   mtHeaderSize : CARDINAL;
  634                   mtVersion    : CARDINAL;
  635                   mtSize       : LONGCARD;
*****                                  ^ undeclared identifier
  636                   mtNoObjects  : CARDINAL;
  637                   mtMaxRecord  : LONGCARD;
*****                                  ^ undeclared identifier
  638                   mtNoParameters : CARDINAL;
  639                 END;
*****                 ^ not supported yet
  640  
  641    TEXTMETRIC = RECORD
  642                   tmHeight     : CARDINAL;
  643                   tmAscent     : CARDINAL;
  644                   tmDescent    : CARDINAL;
  645                   tmInternalLeading : CARDINAL;
  646                   tmExternalLeading : CARDINAL;
  647                   tmAveCharWidth : CARDINAL;
  648                   tmMaxCharWidth : CARDINAL;
  649                   tmWeight : CARDINAL;
  650                   tmItalic : SHORTCARD;
  651                   tmUnderlined : SHORTCARD;
  652                   tmStruckOut  : SHORTCARD;
  653                   tmFirstChar  : CHAR;
  654                   tmLastChar   : CHAR;
  655                   tmDefaultChar : CHAR;
  656                   tmBreakChar   : CHAR;
  657                   tmPitchAndFamily : SHORTCARD;
  658                   tmCharSet : SHORTCARD;
  659                   tmOverhang : INTEGER;
  660                   tmDigitizedAspectX : INTEGER;
  661                   tmDigitizedAspectY : INTEGER;
  662                 END;
*****                 ^ not supported yet
  663    LPTEXTMETRIC = POINTER TO TEXTMETRIC;
*****                              ^ not supported yet
  664  
  665    PELARRAY = RECORD
  666                 paXCount : INTEGER;
  667                 paYCount : INTEGER;
  668                 paXExt : INTEGER;
  669                 paYExt : INTEGER;
  670                 paRGBs : SHORTCARD;
  671               END;
*****               ^ not supported yet
  672    LPPELARRAY = POINTER TO PELARRAY;
*****                            ^ not supported yet
  673  
  674    LOGBRUSH = RECORD
  675                 lbStyle : CARDINAL;
  676                 lbColor : LONGCARD;
*****                           ^ undeclared identifier
  677                 lbHatch : INTEGER;
  678               END;
*****               ^ not supported yet
  679    LPLOGBRUSH = POINTER TO LOGBRUSH;
*****                            ^ not supported yet
  680  
  681    PATTERN = LOGBRUSH;
  682    LPPATTERN = POINTER TO LOGBRUSH;
*****                           ^ not supported yet
  683  
  684    LOGPEN = RECORD
  685               lopnStyle : CARDINAL;
  686               lopnWidth : POINT;
  687               lopnColor : LONGCARD;
*****                           ^ undeclared identifier
  688             END;
*****             ^ not supported yet
  689    LPLOGPEN = POINTER TO LOGPEN;
*****                          ^ not supported yet
  690  
  691    PALETTEENTRY = RECORD
  692                     peRed   : SHORTCARD;
  693                     peGreen : SHORTCARD;
  694                     peBlue  : SHORTCARD;
  695                     peFlags : SHORTCARD;
  696                   END;
*****                   ^ not supported yet
  697    LPPALETTEENTRY = POINTER TO PALETTEENTRY;
*****                                ^ not supported yet
  698  
  699    LOGPALETTE = RECORD
  700                   palVersion : CARDINAL;
  701                   palNumEntries : CARDINAL;
  702                   palPalEntry : ARRAY [0..0] OF PALETTEENTRY;
*****                                           ^ not supported yet
*****                                                 ^ not supported yet
  703                 END;
*****                 ^ not supported yet
  704    LPLOGPALETTE = POINTER TO LOGPALETTE;
*****                              ^ not supported yet
  705  
  706  CONST
  707    LF_FACESIZE = 32;
  708  
  709  TYPE
  710  
  711    LOGFONT = RECORD
  712                lfHeight : INTEGER;
  713                lfWidth  : INTEGER;
  714                lfEscapement  : INTEGER;
  715                lfOrientation : INTEGER;
  716                lfWeight : INTEGER;
  717                lfItalic : SHORTCARD;
  718                lfUnderline : SHORTCARD;
  719                lfStrikeOut : SHORTCARD;
  720                lfCharSet   : SHORTCARD;
  721                lfOutPrecision  : SHORTCARD;
  722                lfClipPrecision : SHORTCARD;
  723                lfQuality   : SHORTCARD;
  724                lfPitchAndFamily : SHORTCARD;
  725                lfFaceName  : ARRAY [0..31] OF CHAR;
*****                                        ^ not supported yet
*****                                               ^ not supported yet
  726              END;
*****              ^ not supported yet
  727    LPLOGFONT = POINTER TO LOGFONT;
*****                           ^ not supported yet
  728  
  729  CONST
  730    OUT_DEFAULT_PRECIS     = 0;
  731    OUT_STRING_PRECIS      = 1;
  732    OUT_CHARACTER_PRECIS   = 2;
  733    OUT_STROKE_PRECIS      = 3;
  734    CLIP_DEFAULT_PRECIS    = 0;
  735    CLIP_CHARACTER_PRECIS  = 1;
  736    CLIP_STROKE_PRECIS     = 2;
  737    DEFAULT_QUALITY        = 0;
  738    DRAFT_QUALITY          = 1;
  739    PROOF_QUALITY          = 2;
  740    DEFAULT_PITCH          = 0;
  741    FIXED_PITCH            = 1;
  742    VARIABLE_PITCH         = 2;
  743    ANSI_CHARSET           = 0;
  744    SYMBOL_CHARSET         = 2;
  745    SHIFTJIS_CHARSET       = 128;
  746    OEM_CHARSET            = 255;
  747  
  748    FF_DONTCARE     = (0<<4);
*****                           ^ not supported yet
  749    FF_ROMAN        = (1<<4);
*****                           ^ not supported yet
  750    FF_SWISS        = (2<<4);
*****                           ^ not supported yet
  751    FF_MODERN       = (3<<4);
*****                           ^ not supported yet
  752    FF_SCRIPT       = (4<<4);
*****                           ^ not supported yet
  753    FF_DECORATIVE   = (5<<4);
*****                           ^ not supported yet
  754  
  755  CONST
  756    FW_DONTCARE     = 0;
  757    FW_THIN         = 100;
  758    FW_EXTRALIGHT   = 200;
  759    FW_LIGHT        = 300;
  760    FW_NORMAL       = 400;
  761    FW_MEDIUM       = 500;
  762    FW_SEMIBOLD     = 600;
  763    FW_BOLD         = 700;
  764    FW_EXTRABOLD    = 800;
  765    FW_HEAVY        = 900;
  766  
  767    FW_ULTRALIGHT   = FW_EXTRALIGHT;
*****                      ^ not supported yet
  768    FW_REGULAR      = FW_NORMAL;
*****                      ^ not supported yet
  769    FW_DEMIBOLD     = FW_SEMIBOLD;
*****                      ^ not supported yet
  770    FW_ULTRABOLD    = FW_EXTRABOLD;
*****                      ^ not supported yet
  771    FW_BLACK        = FW_HEAVY;
*****                      ^ not supported yet
  772  
  773  CONST
  774    RASTER_FONTTYPE = 01H;
  775    DEVICE_FONTTYPE = 02H;
  776  
  777  
  778  CONST
  779    TRANSPARENT     = 1;
  780    OPAQUE          = 2;
  781    MM_TEXT         = 1;
  782    MM_LOMETRIC     = 2;
  783    MM_HIMETRIC     = 3;
  784    MM_LOENGLISH    = 4;
  785    MM_HIENGLISH    = 5;
  786    MM_TWIPS        = 6;
  787    MM_ISOTROPIC    = 7;
  788    MM_ANISOTROPIC  = 8;
  789    ABSOLUTE        = 1;
  790    RELATIVE        = 2;
  791    WHITE_BRUSH     = 0;
  792    LTGRAY_BRUSH    = 1;
  793    GRAY_BRUSH      = 2;
  794    DKGRAY_BRUSH    = 3;
  795    BLACK_BRUSH     = 4;
  796    NULL_BRUSH      = 5;
  797  
  798    HOLLOW_BRUSH = NULL_BRUSH;
*****                   ^ not supported yet
  799  
  800  CONST
  801    WHITE_PEN       = 6;
  802    BLACK_PEN       = 7;
  803    NULL_PEN        = 8;
  804    OEM_FIXED_FONT  = 10;
  805    ANSI_FIXED_FONT = 11;
  806    ANSI_VAR_FONT   = 12;
  807    SYSTEM_FONT     = 13;
  808    DEVICE_DEFAULT_FONT   = 14;
  809    DEFAULT_PALETTE       = 15;
  810    SYSTEM_FIXED_FONT     = 16;
  811    BS_SOLID        = 0;
  812    BS_NULL         = 1;
  813    BS_HOLLOW       = BS_NULL;
*****                      ^ not supported yet
  814    BS_HATCHED      = 2;
  815    BS_PATTERN      = 3;
  816    BS_INDEXED      = 4;
  817    BS_DIBPATTERN   = 5;
  818    HS_HORIZONTAL   = 0;
  819    HS_VERTICAL     = 1;
  820    HS_FDIAGONAL    = 2;
  821    HS_BDIAGONAL    = 3;
  822    HS_CROSS        = 4;
  823    HS_DIAGCROSS    = 5;
  824    PS_SOLID        = 0;
  825    PS_DASH         = 1;
  826    PS_DOT          = 2;
  827    PS_DASHDOT      = 3;
  828    PS_DASHDOTDOT   = 4;
  829    PS_NULL         = 5;
  830    PS_INSIDEFRAME  = 6;
  831    DRIVERVERSION   = 0;
  832    TECHNOLOGY      = 2;
  833    HORZSIZE        = 4;
  834    VERTSIZE        = 6;
  835    HORZRES         = 8;
  836    VERTRES         = 10;
  837    BITSPIXEL       = 12;
  838    PLANES          = 14;
  839    NUMBRUSHES      = 16;
  840    NUMPENS         = 18;
  841    NUMMARKERS      = 20;
  842    NUMFONTS        = 22;
  843    NUMCOLORS       = 24;
  844    PDEVICESIZE     = 26;
  845    CURVECAPS       = 28;
  846    LINECAPS        = 30;
  847    POLYGONALCAPS   = 32;
  848    TEXTCAPS        = 34;
  849    CLIPCAPS        = 36;
  850    RASTERCAPS      = 38;
  851    ASPECTX         = 40;
  852    ASPECTY         = 42;
  853    ASPECTXY        = 44;
  854    LOGPIXELSX      = 88;
  855    LOGPIXELSY      = 90;
  856    SIZEPALETTE     = 104;
  857    NUMRESERVED     = 106;
  858    COLORRES        = 108;
  859    DT_PLOTTER      = 0;
  860    DT_RASDISPLAY   = 1;
  861    DT_RASPRINTER   = 2;
  862    DT_RASCAMERA    = 3;
  863    DT_CHARSTREAM   = 4;
  864    DT_METAFILE     = 5;
  865    DT_DISPFILE     = 6;
  866    CC_NONE         = 0;
  867    CC_CIRCLES      = 1;
  868    CC_PIE          = 2;
  869    CC_CHORD        = 4;
  870    CC_ELLIPSES     = 8;
  871    CC_WIDE         = 16;
  872    CC_STYLED       = 32;
  873    CC_WIDESTYLED   = 64;
  874    CC_INTERIORS    = 128;
  875    LC_NONE         = 0;
  876    LC_POLYLINE     = 2;
  877    LC_MARKER       = 4;
  878    LC_POLYMARKER   = 8;
  879    LC_WIDE         = 16;
  880    LC_STYLED       = 32;
  881    LC_WIDESTYLED   = 64;
  882    LC_INTERIORS    = 128;
  883    PC_NONE         = 0;
  884    PC_POLYGON      = 1;
  885    PC_RECTANGLE    = 2;
  886    PC_WINDPOLYGON  = 4;
  887    PC_TRAPEZOID    = 4;
  888    PC_SCANLINE     = 8;
  889    PC_WIDE         = 16;
  890    PC_STYLED       = 32;
  891    PC_WIDESTYLED   = 64;
  892    PC_INTERIORS    = 128;
  893    CP_NONE         = 0;
  894    CP_RECTANGLE    = 1;
  895    TC_OP_CHARACTER = 01H;
  896    TC_OP_STROKE    = 02H;
  897    TC_CP_STROKE    = 04H;
  898    TC_CR_90        = 08H;
  899    TC_CR_ANY       = 010H;
  900    TC_SF_X_YINDEP  = 020H;
  901    TC_SA_DOUBLE    = 040H;
  902    TC_SA_INTEGER   = 080H;
  903    TC_SA_CONTIN    = 0100H;
  904    TC_EA_DOUBLE    = 0200H;
  905    TC_IA_ABLE      = 0400H;
  906    TC_UA_ABLE      = 0800H;
  907    TC_SO_ABLE      = 01000H;
  908    TC_RA_ABLE      = 02000H;
  909    TC_VA_ABLE      = 04000H;
  910    TC_RESERVED     = 08000H;
  911    RC_BITBLT       = 0;
  912    RC_BANDING      = 1;
  913    RC_SCALING      = 2;
  914    RC_BITMAP64     = 3;
  915    RC_GDI20_OUTPUT = 4;
  916    RC_DI_BITMAP    = 7;
  917    RC_PALETTE      = 8;
  918    RC_DIBTODEV     = 9;
  919    RC_BIGFONT      = 10;
  920    RC_STRETCHBLT   = 11;
  921    RC_FLOODFILL    = 12;
  922    RC_STRETCHDIB   = 13;
  923  (*
  924    RC_BITBLT       = 1;
  925    RC_BANDING      = 2;
  926    RC_SCALING      = 4;
  927    RC_BITMAP64     = 8;
  928    RC_GDI20_OUTPUT = 010H;
  929    RC_DI_BITMAP    = 080H;
  930    RC_PALETTE      = 0100H;
  931    RC_DIBTODEV     = 0200H;
  932    RC_BIGFONT      = 0400H;
  933    RC_STRETCHBLT   = 0800H;
  934    RC_FLOODFILL    = 01000H;
  935    RC_STRETCHDIB   = 02000H;
  936  *)
  937    PC_RESERVED     = 01H;
  938    PC_EXPLICIT     = 02H;
  939    PC_NOCOLLAPSE   = 04H;
  940    DIB_RGB_COLORS  = 0;
  941    DIB_PAL_COLORS  = 1;
  942    SYSPAL_STATIC   = 1;
  943    SYSPAL_NOSTATIC = 2;
  944    CBM_INIT        = 04H;
  945    DT_TOP          = 00H;
  946    DT_LEFT         = 00H;
  947    DT_CENTER       = 01H;
  948    DT_RIGHT        = 02H;
  949    DT_VCENTER      = 04H;
  950    DT_BOTTOM       = 08H;
  951    DT_WORDBREAK    = 010H;
  952    DT_SINGLELINE   = 020H;
  953    DT_EXPANDTABS   = 040H;
  954    DT_TABSTOP      = 080H;
  955    DT_NOCLIP       = 0100H;
  956    DT_EXTERNALLEADING = 0200H;
  957    DT_CALCRECT     = 0400H;
  958    DT_NOPREFIX     = 0800H;
  959    DT_INTERNAL     = 01000H;
  960  
  961  PROCEDURE DrawText(_:HDC; _:ARRAY OF CHAR; _:INTEGER; VAR _:RECT; _:CARDINAL) : INTEGER;
*****                            ^ duplicate identifier
*****                                       ^ not supported yet
*****                                             ^ duplicate identifier
*****                                                            ^ duplicate identifier
*****                                                                    ^ duplicate identifier
  962  PROCEDURE DrawIcon(_:HDC; _:INTEGER; _:INTEGER; _:HICON) : BOOL;
*****                            ^ duplicate identifier
*****                                       ^ duplicate identifier
*****                                                  ^ duplicate identifier
  963  
  964  CONST
  965    FLOODFILLBORDER  = 0;
  966    FLOODFILLSURFACE = 1;
  967  
  968  PROCEDURE GetWindowDC(_:HWND) : HDC;
  969  PROCEDURE GetDC(_:HWND) : HDC;
  970  PROCEDURE ReleaseDC(_:HWND; _:HDC) : INTEGER;
*****                              ^ duplicate identifier
  971  PROCEDURE CreateDC(_:ARRAY OF CHAR; _:ARRAY OF CHAR; _:ARRAY OF CHAR; _:ARRAY OF CHAR) : HDC;
*****                                ^ not supported yet
*****                                      ^ duplicate identifier
*****                                                 ^ not supported yet
*****                                                       ^ duplicate identifier
*****                                                                  ^ not supported yet
*****                                                                        ^ duplicate identifier
*****                                                                                   ^ not supported yet
  972  PROCEDURE CreateIC(_:ARRAY OF CHAR; _:ARRAY OF CHAR; _:ARRAY OF CHAR; _:ARRAY OF CHAR) : HDC;
*****                                ^ not supported yet
*****                                      ^ duplicate identifier
*****                                                 ^ not supported yet
*****                                                       ^ duplicate identifier
*****                                                                  ^ not supported yet
*****                                                                        ^ duplicate identifier
*****                                                                                   ^ not supported yet
  973  PROCEDURE CreateCompatibleDC(_:HDC) : HDC;
  974  PROCEDURE DeleteDC(_:HDC) : BOOL;
  975  PROCEDURE SaveDC(_:HDC) : INTEGER;
  976  PROCEDURE RestoreDC(_:HDC; _:INTEGER) : BOOL;
*****                             ^ duplicate identifier
  977  PROCEDURE MoveTo(_:HDC; _:INTEGER; _:INTEGER) : LONGCARD;
*****                          ^ duplicate identifier
*****                                     ^ duplicate identifier
*****                                                  ^ undeclared identifier
  978  PROCEDURE GetCurrentPosition(_:HDC) : LONGCARD;
*****                                        ^ undeclared identifier
  979  PROCEDURE LineTo(_:HDC; _:INTEGER; _:INTEGER) : BOOL;
*****                          ^ duplicate identifier
*****                                     ^ duplicate identifier
  980  PROCEDURE GetDCOrg(_:HDC) : LONGCARD;
*****                              ^ undeclared identifier
  981  PROCEDURE MulDiv(_:INTEGER; _:INTEGER; _:INTEGER) : INTEGER;
*****                              ^ duplicate identifier
*****                                         ^ duplicate identifier
  982  PROCEDURE ExtTextOut(_:HDC; _:INTEGER; _:INTEGER; _:CARDINAL; VAR _:RECT; _:ARRAY OF CHAR; _:CARDINAL; VAR _:INTEGER) : BOOL;
*****                              ^ duplicate identifier
*****                                         ^ duplicate identifier
*****                                                    ^ duplicate identifier
*****                                                                    ^ duplicate identifier
*****                                                                            ^ duplicate identifier
*****                                                                                       ^ not supported yet
*****                                                                                             ^ duplicate identifier
*****                                                                                                             ^ duplicate identifier
  983  PROCEDURE Polyline(_:HDC; VAR _:POINT; _:INTEGER) : BOOL;
*****                                ^ duplicate identifier
*****                                         ^ duplicate identifier
  984  PROCEDURE Polygon(_:HDC; VAR _:POINT; _:INTEGER) : BOOL;
*****                               ^ duplicate identifier
*****                                        ^ duplicate identifier
  985  PROCEDURE PolyPolygon(_:HDC; VAR _:POINT; VAR _:INTEGER; _:INTEGER) : BOOL;
*****                                   ^ duplicate identifier
*****                                                ^ duplicate identifier
*****                                                           ^ duplicate identifier
  986  PROCEDURE Rectangle(_:HDC; _:INTEGER; _:INTEGER; _:INTEGER; _:INTEGER) : BOOL;
*****                             ^ duplicate identifier
*****                                        ^ duplicate identifier
*****                                                   ^ duplicate identifier
*****                                                              ^ duplicate identifier
  987  PROCEDURE RoundRect(_:HDC; _:INTEGER; _:INTEGER; _:INTEGER; _:INTEGER; _:INTEGER; _:INTEGER) : BOOL;
*****                             ^ duplicate identifier
*****                                        ^ duplicate identifier
*****                                                   ^ duplicate identifier
*****                                                              ^ duplicate identifier
*****                                                                         ^ duplicate identifier
*****                                                                                    ^ duplicate identifier
  988  PROCEDURE Ellipse(_:HDC; _:INTEGER; _:INTEGER; _:INTEGER; _:INTEGER) : BOOL;
*****                           ^ duplicate identifier
*****                                      ^ duplicate identifier
*****                                                 ^ duplicate identifier
*****                                                            ^ duplicate identifier
  989  PROCEDURE Arc(_:HDC; _:INTEGER; _:INTEGER; _:INTEGER; _:INTEGER; _:INTEGER; _:INTEGER; _:INTEGER; _:INTEGER) : BOOL;
*****                       ^ duplicate identifier
*****                                  ^ duplicate identifier
*****                                             ^ duplicate identifier
*****                                                        ^ duplicate identifier
*****                                                                   ^ duplicate identifier
*****                                                                              ^ duplicate identifier
*****                                                                                         ^ duplicate identifier
*****                                                                                                    ^ duplicate identifier
  990  PROCEDURE Chord(_:HDC; _:INTEGER; _:INTEGER; _:INTEGER; _:INTEGER; _:INTEGER; _:INTEGER; _:INTEGER; _:INTEGER) : BOOL;
*****                         ^ duplicate identifier
*****                                    ^ duplicate identifier
*****                                               ^ duplicate identifier
*****                                                          ^ duplicate identifier
*****                                                                     ^ duplicate identifier
*****                                                                                ^ duplicate identifier
*****                                                                                           ^ duplicate identifier
*****                                                                                                      ^ duplicate identifier
  991  PROCEDURE Pie(_:HDC; _:INTEGER; _:INTEGER; _:INTEGER; _:INTEGER; _:INTEGER; _:INTEGER; _:INTEGER; _:INTEGER) : BOOL;
*****                       ^ duplicate identifier
*****                                  ^ duplicate identifier
*****                                             ^ duplicate identifier
*****                                                        ^ duplicate identifier
*****                                                                   ^ duplicate identifier
*****                                                                              ^ duplicate identifier
*****                                                                                         ^ duplicate identifier
*****                                                                                                    ^ duplicate identifier
  992  PROCEDURE PatBlt(_:HDC; _:INTEGER; _:INTEGER; _:INTEGER; _:INTEGER; _:LONGCARD) : BOOL;
*****                          ^ duplicate identifier
*****                                     ^ duplicate identifier
*****                                                ^ duplicate identifier
*****                                                           ^ duplicate identifier
*****                                                                      ^ duplicate identifier
*****                                                                        ^ undeclared identifier
  993  PROCEDURE BitBlt(_:HDC; _:INTEGER; _:INTEGER; _:INTEGER; _:INTEGER; _:HDC; _:INTEGER; _:INTEGER; _:LONGCARD) : BOOL;
*****                          ^ duplicate identifier
*****                                     ^ duplicate identifier
*****                                                ^ duplicate identifier
*****                                                           ^ duplicate identifier
*****                                                                      ^ duplicate identifier
*****                                                                             ^ duplicate identifier
*****                                                                                        ^ duplicate identifier
*****                                                                                                   ^ duplicate identifier
*****                                                                                                     ^ undeclared identifier
  994  PROCEDURE StretchBlt(_:HDC; _:INTEGER; _:INTEGER; _:INTEGER; _:INTEGER; _:HDC; _:INTEGER; _:INTEGER; _:INTEGER; _:INTEGER; _:LONGCARD) : BOOL;
*****                              ^ duplicate identifier
*****                                         ^ duplicate identifier
*****                                                    ^ duplicate identifier
*****                                                               ^ duplicate identifier
*****                                                                          ^ duplicate identifier
*****                                                                                 ^ duplicate identifier
*****                                                                                            ^ duplicate identifier
*****                                                                                                       ^ duplicate identifier
*****                                                                                                                  ^ duplicate identifier
*****                                                                                                                             ^ duplicate identifier
*****                                                                                                                               ^ undeclared identifier
  995  PROCEDURE TextOut(_:HDC; _:INTEGER; _:INTEGER; _:ARRAY OF CHAR; _:INTEGER) : BOOL;
*****                           ^ duplicate identifier
*****                                      ^ duplicate identifier
*****                                                 ^ duplicate identifier
*****                                                            ^ not supported yet
*****                                                                  ^ duplicate identifier
  996  PROCEDURE TabbedTextOut(_:HDC; _:INTEGER; _:INTEGER; _:ARRAY OF CHAR; _:INTEGER; _:INTEGER; VAR _:INTEGER; _:INTEGER) : LONGINT;
*****                                 ^ duplicate identifier
*****                                            ^ duplicate identifier
*****                                                       ^ duplicate identifier
*****                                                                  ^ not supported yet
*****                                                                        ^ duplicate identifier
*****                                                                                   ^ duplicate identifier
*****                                                                                                  ^ duplicate identifier
*****                                                                                                             ^ duplicate identifier
  997  PROCEDURE GetCharWidth(_:HDC; _:CARDINAL; _:CARDINAL; VAR _:ARRAY OF CARDINAL) : BOOL;
*****                                ^ duplicate identifier
*****                                            ^ duplicate identifier
*****                                                            ^ duplicate identifier
*****                                                                       ^ not supported yet
  998  PROCEDURE SetPixel(_:HDC; _:INTEGER; _:INTEGER; _:LONGCARD) : LONGCARD;
*****                            ^ duplicate identifier
*****                                       ^ duplicate identifier
*****                                                  ^ duplicate identifier
*****                                                    ^ undeclared identifier
*****                                                                ^ undeclared identifier
  999  PROCEDURE GetPixel(_:HDC; _:INTEGER; _:INTEGER) : LONGCARD;
*****                            ^ duplicate identifier
*****                                       ^ duplicate identifier
*****                                                    ^ undeclared identifier
 1000  PROCEDURE FloodFill(_:HDC; _:INTEGER; _:INTEGER; _:LONGCARD) : BOOL;
*****                             ^ duplicate identifier
*****                                        ^ duplicate identifier
*****                                                   ^ duplicate identifier
*****                                                     ^ undeclared identifier
 1001  PROCEDURE ExtFloodFill(_:HDC; _:INTEGER; _:INTEGER; _:LONGCARD; _:CARDINAL) : BOOL;
*****                                ^ duplicate identifier
*****                                           ^ duplicate identifier
*****                                                      ^ duplicate identifier
*****                                                        ^ undeclared identifier
*****                                                                  ^ duplicate identifier
 1002  PROCEDURE LineDDA(_:INTEGER; _:INTEGER; _:INTEGER; _:INTEGER; _:FARPROC; _:ARRAY OF CHAR);
*****                               ^ duplicate identifier
*****                                          ^ duplicate identifier
*****                                                     ^ duplicate identifier
*****                                                                ^ duplicate identifier
*****                                                                           ^ duplicate identifier
*****                                                                                      ^ not supported yet
 1003  PROCEDURE GetStockObject(_:INTEGER) : HANDLE;
 1004  PROCEDURE CreatePen(_:INTEGER; _:INTEGER; _:LONGCARD) : HPEN;
*****                                 ^ duplicate identifier
*****                                            ^ duplicate identifier
*****                                              ^ undeclared identifier
 1005  PROCEDURE CreatePenIndirect(VAR _:LOGPEN) : HPEN;
 1006  PROCEDURE CreateSolidBrush(_:LONGCARD) : HBRUSH;
*****                               ^ undeclared identifier
 1007  PROCEDURE CreateHatchBrush(_:INTEGER; _:LONGCARD) : HBRUSH;
*****                                        ^ duplicate identifier
*****                                          ^ undeclared identifier
 1008  PROCEDURE SetBrushOrg(_:HDC; _:INTEGER; _:INTEGER) : LONGCARD;
*****                               ^ duplicate identifier
*****                                          ^ duplicate identifier
*****                                                       ^ undeclared identifier
 1009  PROCEDURE GetBrushOrg(_:HDC) : LONGCARD;
*****                                 ^ undeclared identifier
 1010  PROCEDURE CreatePatternBrush(_:HBITMAP) : HBRUSH;
 1011  PROCEDURE CreateBrushIndirect(VAR _:LOGBRUSH) : HBRUSH;
 1012  PROCEDURE CreateBitmap(_:INTEGER; _:INTEGER; _:SHORTCARD; _:SHORTCARD; _:ARRAY OF CHAR) : HBITMAP;
*****                                    ^ duplicate identifier
*****                                               ^ duplicate identifier
*****                                                            ^ duplicate identifier
*****                                                                         ^ duplicate identifier
*****                                                                                    ^ not supported yet
 1013  PROCEDURE CreateBitmapIndirect(VAR _:BITMAP) : HBITMAP;
 1014  PROCEDURE CreateCompatibleBitmap(_:HDC; _:INTEGER; _:INTEGER) : HBITMAP;
*****                                          ^ duplicate identifier
*****                                                     ^ duplicate identifier
 1015  PROCEDURE CreateDiscardableBitmap(_:HDC; _:INTEGER; _:INTEGER) : HBITMAP;
*****                                           ^ duplicate identifier
*****                                                      ^ duplicate identifier
 1016  PROCEDURE SetBitmapBits(_:HBITMAP; _:LONGCARD; _:ARRAY OF CHAR) : LONGINT;
*****                                     ^ duplicate identifier
*****                                       ^ undeclared identifier
*****                                                 ^ duplicate identifier
*****                                                            ^ not supported yet
 1017  PROCEDURE GetBitmapBits(_:HBITMAP; _:LONGINT; _:ARRAY OF CHAR) : LONGINT;
*****                                     ^ duplicate identifier
*****                                                ^ duplicate identifier
*****                                                           ^ not supported yet
 1018  PROCEDURE SetBitmapDimension(_:HBITMAP; _:INTEGER; _:INTEGER) : LONGCARD;
*****                                          ^ duplicate identifier
*****                                                     ^ duplicate identifier
*****                                                                  ^ undeclared identifier
 1019  PROCEDURE GetBitmapDimension(_:HBITMAP) : LONGCARD;
*****                                            ^ undeclared identifier
 1020  PROCEDURE CreateFont(_:INTEGER; _:INTEGER; _:INTEGER; _:INTEGER; _:INTEGER; _:SHORTCARD; _:SHORTCARD; _:SHORTCARD; _:SHORTCARD; _:SHORTCARD; _:SHORTCARD; _:SHORTCARD; _:SHORTCARD; _:ARRAY OF CHAR) : HFONT;
*****                                  ^ duplicate identifier
*****                                             ^ duplicate identifier
*****                                                        ^ duplicate identifier
*****                                                                   ^ duplicate identifier
*****                                                                              ^ duplicate identifier
*****                                                                                           ^ duplicate identifier
*****                                                                                                        ^ duplicate identifier
*****                                                                                                                     ^ duplicate identifier
*****                                                                                                                                  ^ duplicate identifier
*****                                                                                                                                               ^ duplicate identifier
*****                                                                                                                                                            ^ duplicate identifier
*****                                                                                                                                                                         ^ duplicate identifier
*****                                                                                                                                                                                      ^ duplicate identifier
*****                                                                                                                                                                                                 ^ not supported yet
 1021  PROCEDURE CreateFontIndirect(VAR _:LOGFONT) : HFONT;
 1022  PROCEDURE SelectClipRgn(_:HDC; _:HRGN) : INTEGER;
*****                                 ^ duplicate identifier
 1023  PROCEDURE CreateRectRgn(_:INTEGER; _:INTEGER; _:INTEGER; _:INTEGER) : HRGN;
*****                                     ^ duplicate identifier
*****                                                ^ duplicate identifier
*****                                                           ^ duplicate identifier
 1024  PROCEDURE SetRectRgn(_:HRGN; _:INTEGER; _:INTEGER; _:INTEGER; _:INTEGER);
*****                               ^ duplicate identifier
*****                                          ^ duplicate identifier
*****                                                     ^ duplicate identifier
*****                                                                ^ duplicate identifier
 1025  PROCEDURE CreateRectRgnIndirect(VAR _:RECT) : HRGN;
 1026  PROCEDURE CreateEllipticRgnIndirect(VAR _:RECT) : HRGN;
 1027  PROCEDURE CreateEllipticRgn(_:INTEGER; _:INTEGER; _:INTEGER; _:INTEGER) : HRGN;
*****                                         ^ duplicate identifier
*****                                                    ^ duplicate identifier
*****                                                               ^ duplicate identifier
 1028  PROCEDURE CreatePolygonRgn(VAR _:POINT; _:INTEGER; _:INTEGER) : HRGN;
*****                                          ^ duplicate identifier
*****                                                     ^ duplicate identifier
 1029  PROCEDURE CreatePolyPolygonRgn(VAR _:POINT; VAR _:INTEGER; _:INTEGER; _:INTEGER) : HRGN;
*****                                                  ^ duplicate identifier
*****                                                             ^ duplicate identifier
*****                                                                        ^ duplicate identifier
 1030  PROCEDURE CreateRoundRectRgn(_:INTEGER; _:INTEGER; _:INTEGER; _:INTEGER; _:INTEGER; _:INTEGER) : HRGN;
*****                                          ^ duplicate identifier
*****                                                     ^ duplicate identifier
*****                                                                ^ duplicate identifier
*****                                                                           ^ duplicate identifier
*****                                                                                      ^ duplicate identifier
 1031  PROCEDURE GetObject(_:HANDLE; _:INTEGER; _:ARRAY OF BYTE) : INTEGER;
*****                                ^ duplicate identifier
*****                                           ^ duplicate identifier
*****                                                      ^ undeclared identifier
 1032  PROCEDURE DeleteObject(_:HANDLE) : BOOL;
 1033  PROCEDURE SelectObject(_:HDC; _:HANDLE) : HANDLE;
*****                                ^ duplicate identifier
 1034  PROCEDURE UnrealizeObject(_:HBRUSH) : BOOL;
 1035  PROCEDURE SetBkColor(_:HDC; _:LONGCARD) : LONGCARD;
*****                              ^ duplicate identifier
*****                                ^ undeclared identifier
*****                                            ^ undeclared identifier
 1036  PROCEDURE GetBkColor(_:HDC) : LONGCARD;
*****                                ^ undeclared identifier
 1037  PROCEDURE SetBkMode(_:HDC; _:INTEGER) : INTEGER;
*****                             ^ duplicate identifier
 1038  PROCEDURE GetBkMode(_:HDC) : INTEGER;
 1039  PROCEDURE SetTextColor(_:HDC; _:LONGCARD) : LONGCARD;
*****                                ^ duplicate identifier
*****                                  ^ undeclared identifier
*****                                              ^ undeclared identifier
 1040  PROCEDURE GetTextColor(_:HDC) : LONGCARD;
*****                                  ^ undeclared identifier
 1041  PROCEDURE SetTextAlign(_:HDC; _:CARDINAL) : CARDINAL;
*****                                ^ duplicate identifier
 1042  PROCEDURE GetTextAlign(_:HDC) : CARDINAL;
 1043  PROCEDURE SetMapperFlags(_:HDC; _:LONGCARD) : LONGCARD;
*****                                  ^ duplicate identifier
*****                                    ^ undeclared identifier
*****                                                ^ undeclared identifier
 1044  PROCEDURE GetAspectRatioFilter(_:HDC) : LONGCARD;
*****                                          ^ undeclared identifier
 1045  PROCEDURE GetNearestColor(_:HDC; _:LONGCARD) : LONGCARD;
*****                                   ^ duplicate identifier
*****                                     ^ undeclared identifier
*****                                                 ^ undeclared identifier
 1046  PROCEDURE SetROP2(_:HDC; _:INTEGER) : INTEGER;
*****                           ^ duplicate identifier
 1047  PROCEDURE GetROP2(_:HDC) : INTEGER;
 1048  PROCEDURE SetStretchBltMode(_:HDC; _:INTEGER) : INTEGER;
*****                                     ^ duplicate identifier
 1049  PROCEDURE GetStretchBltMode(_:HDC) : INTEGER;
 1050  PROCEDURE SetPolyFillMode(_:HDC; _:INTEGER) : INTEGER;
*****                                   ^ duplicate identifier
 1051  PROCEDURE GetPolyFillMode(_:HDC) : INTEGER;
 1052  PROCEDURE SetMapMode(_:HDC; _:INTEGER) : INTEGER;
*****                              ^ duplicate identifier
 1053  PROCEDURE GetMapMode(_:HDC) : INTEGER;
 1054  PROCEDURE SetWindowOrg(_:HDC; _:INTEGER; _:INTEGER) : LONGCARD;
*****                                ^ duplicate identifier
*****                                           ^ duplicate identifier
*****                                                        ^ undeclared identifier
 1055  PROCEDURE GetWindowOrg(_:HDC) : LONGCARD;
*****                                  ^ undeclared identifier
 1056  PROCEDURE SetWindowExt(_:HDC; _:INTEGER; _:INTEGER) : LONGCARD;
*****                                ^ duplicate identifier
*****                                           ^ duplicate identifier
*****                                                        ^ undeclared identifier
 1057  PROCEDURE GetWindowExt(_:HDC) : LONGCARD;
*****                                  ^ undeclared identifier
 1058  PROCEDURE SetViewportOrg(_:HDC; _:INTEGER; _:INTEGER) : LONGCARD;
*****                                  ^ duplicate identifier
*****                                             ^ duplicate identifier
*****                                                          ^ undeclared identifier
 1059  PROCEDURE GetViewportOrg(_:HDC) : LONGCARD;
*****                                    ^ undeclared identifier
 1060  PROCEDURE SetViewportExt(_:HDC; _:INTEGER; _:INTEGER) : LONGCARD;
*****                                  ^ duplicate identifier
*****                                             ^ duplicate identifier
*****                                                          ^ undeclared identifier
 1061  PROCEDURE GetViewportExt(_:HDC) : LONGCARD;
*****                                    ^ undeclared identifier
 1062  PROCEDURE OffsetViewportOrg(_:HDC; _:INTEGER; _:INTEGER) : LONGCARD;
*****                                     ^ duplicate identifier
*****                                                ^ duplicate identifier
*****                                                             ^ undeclared identifier
 1063  PROCEDURE ScaleViewportExt(_:HDC; _:INTEGER; _:INTEGER; _:INTEGER; _:INTEGER) : LONGCARD;
*****                                    ^ duplicate identifier
*****                                               ^ duplicate identifier
*****                                                          ^ duplicate identifier
*****                                                                     ^ duplicate identifier
*****                                                                                  ^ undeclared identifier
 1064  PROCEDURE OffsetWindowOrg(_:HDC; _:INTEGER; _:INTEGER) : LONGCARD;
*****                                   ^ duplicate identifier
*****                                              ^ duplicate identifier
*****                                                           ^ undeclared identifier
 1065  PROCEDURE ScaleWindowExt(_:HDC; _:INTEGER; _:INTEGER; _:INTEGER; _:INTEGER) : LONGCARD;
*****                                  ^ duplicate identifier
*****                                             ^ duplicate identifier
*****                                                        ^ duplicate identifier
*****                                                                   ^ duplicate identifier
*****                                                                                ^ undeclared identifier
 1066  PROCEDURE GetClipBox(_:HDC; VAR _:RECT) : INTEGER;
*****                                  ^ duplicate identifier
 1067  PROCEDURE IntersectClipRect(_:HDC; _:INTEGER; _:INTEGER; _:INTEGER; _:INTEGER) : INTEGER;
*****                                     ^ duplicate identifier
*****                                                ^ duplicate identifier
*****                                                           ^ duplicate identifier
*****                                                                      ^ duplicate identifier
 1068  PROCEDURE OffsetClipRgn(_:HDC; _:INTEGER; _:INTEGER) : INTEGER;
*****                                 ^ duplicate identifier
*****                                            ^ duplicate identifier
 1069  PROCEDURE ExcludeClipRect(_:HDC; _:INTEGER; _:INTEGER; _:INTEGER; _:INTEGER) : INTEGER;
*****                                   ^ duplicate identifier
*****                                              ^ duplicate identifier
*****                                                         ^ duplicate identifier
*****                                                                    ^ duplicate identifier
 1070  PROCEDURE PtVisible(_:HDC; _:INTEGER; _:INTEGER) : BOOL;
*****                             ^ duplicate identifier
*****                                        ^ duplicate identifier
 1071  PROCEDURE CombineRgn(_:HRGN; _:HRGN; _:HRGN; _:INTEGER) : INTEGER;
*****                               ^ duplicate identifier
*****                                       ^ duplicate identifier
*****                                               ^ duplicate identifier
 1072  PROCEDURE EqualRgn(_:HRGN; _:HRGN) : BOOL;
*****                             ^ duplicate identifier
 1073  PROCEDURE OffsetRgn(_:HRGN; _:INTEGER; _:INTEGER) : INTEGER;
*****                              ^ duplicate identifier
*****                                         ^ duplicate identifier
 1074  PROCEDURE GetRgnBox(_:HRGN; VAR _:RECT) : INTEGER;
*****                                  ^ duplicate identifier
 1075  PROCEDURE SetTextJustification(_:HDC; _:INTEGER; _:INTEGER) : INTEGER;
*****                                        ^ duplicate identifier
*****                                                   ^ duplicate identifier
 1076  PROCEDURE GetTextExtent(_:HDC; _:ARRAY OF CHAR; _:INTEGER) : LONGCARD;
*****                                 ^ duplicate identifier
*****                                            ^ not supported yet
*****                                                  ^ duplicate identifier
*****                                                               ^ undeclared identifier
 1077  PROCEDURE GetTabbedTextExtent(_:HDC; _:ARRAY OF CHAR; _:INTEGER; _:INTEGER; VAR _:INTEGER) : LONGCARD;
*****                                       ^ duplicate identifier
*****                                                  ^ not supported yet
*****                                                        ^ duplicate identifier
*****                                                                   ^ duplicate identifier
*****                                                                                  ^ duplicate identifier
*****                                                                                               ^ undeclared identifier
 1078  PROCEDURE SetTextCharacterExtra(_:HDC; _:INTEGER) : INTEGER;
*****                                         ^ duplicate identifier
 1079  PROCEDURE GetTextCharacterExtra(_:HDC) : INTEGER;
 1080  PROCEDURE GetMetaFile(_:ARRAY OF CHAR) : HANDLE;
*****                                   ^ not supported yet
 1081  PROCEDURE DeleteMetaFile(_:HANDLE) : BOOL;
 1082  PROCEDURE CopyMetaFile(_:HANDLE; _:ARRAY OF CHAR) : HANDLE;
*****                                   ^ duplicate identifier
*****                                              ^ not supported yet
 1083  PROCEDURE PlayMetaFileRecord(_:HDC; VAR _:HANDLETABLE; VAR _:METARECORD; _:CARDINAL);
*****                                          ^ duplicate identifier
*****                                                             ^ duplicate identifier
*****                                                                           ^ duplicate identifier
 1084  PROCEDURE EnumMetaFile(_:HDC; _:HANDLE; _:FARPROC; VAR _:SHORTCARD) : BOOL;
*****                                ^ duplicate identifier
*****                                          ^ duplicate identifier
*****                                                         ^ duplicate identifier
 1085  PROCEDURE PlayMetaFile(_:HDC; _:HANDLE) : BOOL;
*****                                ^ duplicate identifier
 1086  PROCEDURE Escape(_:HDC; _:INTEGER; _:INTEGER; _:FarADDRESS; _:FarADDRESS) : INTEGER;
*****                          ^ duplicate identifier
*****                                     ^ duplicate identifier
*****                                                ^ duplicate identifier
*****                                                  ^ undeclared identifier
*****                                                              ^ duplicate identifier
*****                                                                ^ undeclared identifier
 1087  PROCEDURE EnumFonts(_:HDC; _:ARRAY OF CHAR; _:FARPROC; _:ARRAY OF CHAR) : INTEGER;
*****                             ^ duplicate identifier
*****                                        ^ not supported yet
*****                                              ^ duplicate identifier
*****                                                         ^ duplicate identifier
*****                                                                    ^ not supported yet
 1088  PROCEDURE EnumObjects(_:HDC; _:INTEGER; _:FARPROC; _:ARRAY OF CHAR) : INTEGER;
*****                               ^ duplicate identifier
*****                                          ^ duplicate identifier
*****                                                     ^ duplicate identifier
*****                                                                ^ not supported yet
 1089  PROCEDURE GetTextFace(_:HDC; _:INTEGER; _:ARRAY OF CHAR) : INTEGER;
*****                               ^ duplicate identifier
*****                                          ^ duplicate identifier
*****                                                     ^ not supported yet
 1090  PROCEDURE GetTextMetrics(_:HDC; VAR _:TEXTMETRIC) : BOOL;
*****                                      ^ duplicate identifier
 1091  PROCEDURE GetDeviceCaps(_:HDC; _:INTEGER) : INTEGER;
*****                                 ^ duplicate identifier
 1092  PROCEDURE SetEnvironment(_:ARRAY OF CHAR; _:ARRAY OF CHAR; _:CARDINAL) : INTEGER;
*****                                      ^ not supported yet
*****                                            ^ duplicate identifier
*****                                                       ^ not supported yet
*****                                                             ^ duplicate identifier
 1093  PROCEDURE GetEnvironment(_:ARRAY OF CHAR; _:ARRAY OF CHAR; _:CARDINAL) : INTEGER;
*****                                      ^ not supported yet
*****                                            ^ duplicate identifier
*****                                                       ^ not supported yet
*****                                                             ^ duplicate identifier
 1094  PROCEDURE DPtoLP(_:HDC; VAR _:POINT; _:INTEGER) : BOOL;
*****                              ^ duplicate identifier
*****                                       ^ duplicate identifier
 1095  PROCEDURE LPtoDP(_:HDC; VAR _:POINT; _:INTEGER) : BOOL;
*****                              ^ duplicate identifier
*****                                       ^ duplicate identifier
 1096  PROCEDURE CreateMetaFile(_:ARRAY OF CHAR) : HANDLE;
*****                                      ^ not supported yet
 1097  PROCEDURE CloseMetaFile(_:HANDLE) : HANDLE;
 1098  PROCEDURE GetMetaFileBits(_:HANDLE) : HANDLE;
 1099  PROCEDURE SetMetaFileBits(_:HANDLE) : HANDLE;
 1100  PROCEDURE SetDIBits(_:HDC; _:HANDLE; _:CARDINAL; _:CARDINAL; _:ARRAY OF CHAR; VAR _:BITMAPINFO; _:CARDINAL) : INTEGER;
*****                             ^ duplicate identifier
*****                                       ^ duplicate identifier
*****                                                   ^ duplicate identifier
*****                                                               ^ duplicate identifier
*****                                                                          ^ not supported yet
*****                                                                                    ^ duplicate identifier
*****                                                                                                  ^ duplicate identifier
 1101  PROCEDURE GetDIBits(_:HDC; _:HANDLE; _:CARDINAL; _:CARDINAL; _:ARRAY OF CHAR; VAR _:BITMAPINFO; _:CARDINAL) : INTEGER;
*****                             ^ duplicate identifier
*****                                       ^ duplicate identifier
*****                                                   ^ duplicate identifier
*****                                                               ^ duplicate identifier
*****                                                                          ^ not supported yet
*****                                                                                    ^ duplicate identifier
*****                                                                                                  ^ duplicate identifier
 1102  PROCEDURE SetDIBitsToDevice(_:HDC; _:CARDINAL; _:CARDINAL; _:CARDINAL; _:CARDINAL; _:CARDINAL; _:CARDINAL; _:CARDINAL; _:CARDINAL; _:ARRAY OF CHAR; VAR _:BITMAPINFO; _:CARDINAL) : INTEGER;
*****                                     ^ duplicate identifier
*****                                                 ^ duplicate identifier
*****                                                             ^ duplicate identifier
*****                                                                         ^ duplicate identifier
*****                                                                                     ^ duplicate identifier
*****                                                                                                 ^ duplicate identifier
*****                                                                                                             ^ duplicate identifier
*****                                                                                                                         ^ duplicate identifier
*****                                                                                                                                     ^ duplicate identifier
*****                                                                                                                                                ^ not supported yet
*****                                                                                                                                                          ^ duplicate identifier
*****                                                                                                                                                                        ^ duplicate identifier
 1103  PROCEDURE CreateDIBitmap(_:HDC; VAR _:BITMAPINFOHEADER; _:LONGCARD; _:ARRAY OF CHAR; VAR _:BITMAPINFO; _:CARDINAL) : HBITMAP;
*****                                      ^ duplicate identifier
*****                                                          ^ duplicate identifier
*****                                                            ^ undeclared identifier
*****                                                                      ^ duplicate identifier
*****                                                                                 ^ not supported yet
*****                                                                                           ^ duplicate identifier
*****                                                                                                         ^ duplicate identifier
 1104  PROCEDURE CreateDIBPatternBrush(_:HANDLE; _:CARDINAL) : HBRUSH;
*****                                            ^ duplicate identifier
 1105  PROCEDURE StretchDIBits(_:HDC; _:CARDINAL; _:CARDINAL; _:CARDINAL; _:CARDINAL; _:CARDINAL; _:CARDINAL; _:CARDINAL; _:CARDINAL; _:ARRAY OF CHAR; VAR _:BITMAPINFO; _:CARDINAL; _:LONGCARD) : INTEGER;
*****                                 ^ duplicate identifier
*****                                             ^ duplicate identifier
*****                                                         ^ duplicate identifier
*****                                                                     ^ duplicate identifier
*****                                                                                 ^ duplicate identifier
*****                                                                                             ^ duplicate identifier
*****                                                                                                         ^ duplicate identifier
*****                                                                                                                     ^ duplicate identifier
*****                                                                                                                                 ^ duplicate identifier
*****                                                                                                                                            ^ not supported yet
*****                                                                                                                                                      ^ duplicate identifier
*****                                                                                                                                                                    ^ duplicate identifier
*****                                                                                                                                                                                ^ duplicate identifier
*****                                                                                                                                                                                  ^ undeclared identifier
 1106  PROCEDURE CreatePalette(VAR _:LOGPALETTE) : HPALETTE;
 1107  PROCEDURE SelectPalette(_:HDC; _:HPALETTE; _:BOOL) : HPALETTE;
*****                                 ^ duplicate identifier
*****                                             ^ duplicate identifier
 1108  PROCEDURE RealizePalette(_:HDC) : CARDINAL;
 1109  PROCEDURE UpdateColors(_:HDC) : INTEGER;
 1110  PROCEDURE AnimatePalette(_:HPALETTE; _:CARDINAL; _:CARDINAL; VAR _:PALETTEENTRY);
*****                                       ^ duplicate identifier
*****                                                   ^ duplicate identifier
*****                                                                   ^ duplicate identifier
 1111  PROCEDURE SetPaletteEntries(_:HPALETTE; _:CARDINAL; _:CARDINAL; VAR _:PALETTEENTRY) : CARDINAL;
*****                                          ^ duplicate identifier
*****                                                      ^ duplicate identifier
*****                                                                      ^ duplicate identifier
 1112  PROCEDURE GetPaletteEntries(_:HPALETTE; _:CARDINAL; _:CARDINAL; VAR _:PALETTEENTRY) : CARDINAL;
*****                                          ^ duplicate identifier
*****                                                      ^ duplicate identifier
*****                                                                      ^ duplicate identifier
 1113  PROCEDURE GetNearestPaletteIndex(_:HPALETTE; _:LONGCARD) : CARDINAL;
*****                                               ^ duplicate identifier
*****                                                 ^ undeclared identifier
 1114  PROCEDURE ResizePalette(_:HPALETTE; _:CARDINAL) : BOOL;
*****                                      ^ duplicate identifier
 1115  PROCEDURE GetSystemPaletteEntries(_:HDC; _:CARDINAL; _:CARDINAL; VAR _:PALETTEENTRY) : CARDINAL;
*****                                           ^ duplicate identifier
*****                                                       ^ duplicate identifier
*****                                                                       ^ duplicate identifier
 1116  PROCEDURE GetSystemPaletteUse(_:HDC; _:CARDINAL) : CARDINAL;
*****                                       ^ duplicate identifier
 1117  PROCEDURE SetSystemPaletteUse(_:HDC; _:CARDINAL) : CARDINAL;
*****                                       ^ duplicate identifier
 1118  PROCEDURE wvsprintf(_:ARRAY OF CHAR; _:ARRAY OF CHAR; _:ARRAY OF BYTE) : INTEGER;
*****                                 ^ not supported yet
*****                                       ^ duplicate identifier
*****                                                  ^ not supported yet
*****                                                        ^ duplicate identifier
*****                                                                   ^ undeclared identifier
 1119  (*# save, call(var_arg=>on, c_conv=>on, reg_param=>()),name(prefix=>c) *)
 1120  PROCEDURE wsprintf(_:ARRAY OF CHAR; _:ARRAY OF CHAR) : INTEGER;
*****                                ^ not supported yet
*****                                      ^ duplicate identifier
*****                                                 ^ not supported yet
 1121  (*# restore *)
 1122  CONST
 1123    SB_HORZ            = 0;
 1124    SB_VERT            = 1;
 1125    SB_CTL             = 2;
 1126    SB_BOTH            = 3;
 1127    SB_LINEUP          = 0;
 1128    SB_LINEDOWN        = 1;
 1129    SB_PAGEUP          = 2;
 1130    SB_PAGEDOWN        = 3;
 1131    SB_THUMBPOSITION   = 4;
 1132    SB_THUMBTRACK      = 5;
 1133    SB_TOP             = 6;
 1134    SB_BOTTOM          = 7;
 1135    SB_ENDSCROLL       = 8;
 1136    SW_HIDE            = 0;
 1137    SW_SHOWNORMAL      = 1;
 1138    SW_NORMAL          = 1;
 1139    SW_SHOWMINIMIZED   = 2;
 1140    SW_SHOWMAXIMIZED   = 3;
 1141    SW_MAXIMIZE        = 3;
 1142    SW_SHOWNOACTIVATE  = 4;
 1143    SW_SHOW            = 5;
 1144    SW_MINIMIZE        = 6;
 1145    SW_SHOWMINNOACTIVE = 7;
 1146    SW_SHOWNA          = 8;
 1147    SW_RESTORE         = 9;
 1148    HIDE_WINDOW        = 0;
 1149    SHOW_OPENWINDOW    = 1;
 1150    SHOW_ICONWINDOW    = 2;
 1151    SHOW_FULLSCREEN    = 3;
 1152    SHOW_OPENNOACTIVATE= 4;
 1153    SW_PARENTCLOSING   = 1;
 1154    SW_OTHERZOOM       = 2;
 1155    SW_PARENTOPENING   = 3;
 1156    SW_OTHERUNZOOM     = 4;
 1157    ERROR              = 0;
 1158    NULLREGION         = 1;
 1159    SIMPLEREGION       = 2;
 1160    COMPLEXREGION      = 3;
 1161    RGN_AND            = 1;
 1162    RGN_OR             = 2;
 1163    RGN_XOR            = 3;
 1164    RGN_DIFF           = 4;
 1165    RGN_COPY           = 5;
 1166    VK_LBUTTON         = 01H;
 1167    VK_RBUTTON         = 02H;
 1168    VK_CANCEL          = 03H;
 1169    VK_MBUTTON         = 04H;
 1170    VK_BACK            = 08H;
 1171    VK_TAB             = 09H;
 1172    VK_CLEAR           = 0CH;
 1173    VK_RETURN          = 0DH;
 1174    VK_SHIFT           = 010H;
 1175    VK_CONTROL         = 011H;
 1176    VK_MENU            = 012H;
 1177    VK_PAUSE           = 013H;
 1178    VK_CAPITAL         = 014H;
 1179    VK_ESCAPE          = 01BH;
 1180    VK_SPACE           = 020H;
 1181    VK_PRIOR           = 021H;
 1182    VK_NEXT            = 022H;
 1183    VK_END             = 023H;
 1184    VK_HOME            = 024H;
 1185    VK_LEFT            = 025H;
 1186    VK_UP              = 026H;
 1187    VK_RIGHT           = 027H;
 1188    VK_DOWN            = 028H;
 1189    VK_SELECT          = 029H;
 1190    VK_PRINT           = 02AH;
 1191    VK_EXECUTE         = 02BH;
 1192    VK_SNAPSHOT        = 02CH;
 1193    VK_INSERT          = 02DH;
 1194    VK_DELETE          = 02EH;
 1195    VK_HELP            = 02FH;
 1196    VK_NUMPAD0         = 060H;
 1197    VK_NUMPAD1         = 061H;
 1198    VK_NUMPAD2         = 062H;
 1199    VK_NUMPAD3         = 063H;
 1200    VK_NUMPAD4         = 064H;
 1201    VK_NUMPAD5         = 065H;
 1202    VK_NUMPAD6         = 066H;
 1203    VK_NUMPAD7         = 067H;
 1204    VK_NUMPAD8         = 068H;
 1205    VK_NUMPAD9         = 069H;
 1206    VK_MULTIPLY        = 06AH;
 1207    VK_ADD             = 06BH;
 1208    VK_SEPARATOR       = 06CH;
 1209    VK_SUBTRACT        = 06DH;
 1210    VK_DECIMAL         = 06EH;
 1211    VK_DIVIDE          = 06FH;
 1212    VK_F1              = 070H;
 1213    VK_F2              = 071H;
 1214    VK_F3              = 072H;
 1215    VK_F4              = 073H;
 1216    VK_F5              = 074H;
 1217    VK_F6              = 075H;
 1218    VK_F7              = 076H;
 1219    VK_F8              = 077H;
 1220    VK_F9              = 078H;
 1221    VK_F10             = 079H;
 1222    VK_F11             = 07AH;
 1223    VK_F12             = 07BH;
 1224    VK_F13             = 07CH;
 1225    VK_F14             = 07DH;
 1226    VK_F15             = 07EH;
 1227    VK_F16             = 07FH;
 1228    VK_NUMLOCK         = 090H;
 1229    WH_MSGFILTER       = -1;
 1230    WH_JOURNALRECORD   = 0;
 1231    WH_JOURNALPLAYBACK = 1;
 1232    WH_KEYBOARD        = 2;
 1233    WH_GETMESSAGE      = 3;
 1234    WH_CALLWNDPROC     = 4;
 1235    WH_CBT             = 5;
 1236    WH_SYSMSGFILTER    = 6;
 1237    WH_WINDOWMGR       = 7;
 1238    HC_LPLPFNNEXT      = -2;
 1239    HC_LPFNNEXT        = -1;
 1240    HC_ACTION          = 0;
 1241    HC_GETNEXT         = 1;
 1242    HC_SKIP            = 2;
 1243    HC_NOREM           = 3;
 1244    HC_NOREMOVE        = 3;
 1245    HC_SYSMODALON      = 4;
 1246    HC_SYSMODALOFF     = 5;
 1247    HCBT_MOVESIZE      = 0;
 1248    HCBT_MINMAX        = 1;
 1249    HCBT_QS            = 2;
 1250    MSGF_DIALOGBOX     = 0;
 1251    MSGF_MESSAGEBOX    = 1;
 1252    MSGF_MENU          = 2;
 1253    MSGF_MOVE          = 3;
 1254    MSGF_SIZE          = 4;
 1255    MSGF_SCROLLBAR     = 5;
 1256    MSGF_NEXTWINDOW    = 6;
 1257    WC_INIT            = 1;
 1258    WC_SWP             = 2;
 1259    WC_DEFWINDOWPROC   = 3;
 1260    WC_MINMAX          = 4;
 1261    WC_MOVE            = 5;
 1262    WC_SIZE            = 6;
 1263    WC_DRAWCAPTION     = 7;
 1264  
 1265  TYPE
 1266  
 1267    EVENTMSG = RECORD
 1268                 message : CARDINAL;
 1269                 paramL  : CARDINAL;
 1270                 paramH  : CARDINAL;
 1271                 time    : LONGCARD;
*****                           ^ undeclared identifier
 1272               END;
*****               ^ not supported yet
 1273    LPEVENTMSGMSG = POINTER TO EVENTMSG;
*****                               ^ not supported yet
 1274  
 1275    WNDCLASS = RECORD
 1276                 style         : CARDINAL;
 1277                 lpfnWndProc   : FarADDRESS; (* Address of PROCEDURE *);
*****                                 ^ undeclared identifier
 1278                 cbClsExtra    : INTEGER;
 1279                 cbWndExtra    : INTEGER;
 1280                 hInstance     : HANDLE;
 1281                 hIcon         : HICON;
 1282                 hCursor       : HCURSOR;
 1283                 hbrBackground : HBRUSH;
 1284                 lpszMenuName  : LPSTR;
 1285                 lpszClassName : LPSTR;
 1286               END;
*****               ^ not supported yet
 1287    LPWNDCLASS = POINTER TO WNDCLASS;
*****                            ^ not supported yet
 1288  
 1289    MSG = RECORD
 1290            hwnd    : CARDINAL;
 1291            message : CARDINAL;
 1292            wParam  : CARDINAL;
 1293            lParam  : LONGINT;
 1294            time    : LONGCARD;
*****                      ^ undeclared identifier
 1295            pt      : POINT;
 1296          END;
*****          ^ not supported yet
 1297    LPMSG = POINTER TO MSG;
*****                       ^ not supported yet
 1298  
 1299  CONST
 1300    GWL_WNDPROC        = -4;
 1301    GWW_HINSTANCE      = -6;
 1302    GWW_HWNDPARENT     = -8;
 1303    GWW_ID             = -12;
 1304    GWL_STYLE          = -16;
 1305    GWL_EXSTYLE        = -20;
 1306    GCL_MENUNAME       = -8;
 1307    GCW_HBRBACKGROUND  = -10;
 1308    GCW_HCURSOR        = -12;
 1309    GCW_HICON          = -14;
 1310    GCW_HMODULE        = -16;
 1311    GCW_CBWNDEXTRA     = -18;
 1312    GCW_CBCLSEXTRA     = -20;
 1313    GCL_WNDPROC        = -24;
 1314    GCW_STYLE          = -26;
 1315    WM_NULL            = 00H;
 1316    WM_CREATE          = 01H;
 1317    WM_DESTROY         = 02H;
 1318    WM_MOVE            = 03H;
 1319    WM_SIZE            = 05H;
 1320    WM_ACTIVATE        = 06H;
 1321    WM_SETFOCUS        = 07H;
 1322    WM_KILLFOCUS       = 08H;
 1323    WM_ENABLE          = 0AH;
 1324    WM_SETREDRAW       = 0BH;
 1325    WM_SETTEXT         = 0CH;
 1326    WM_GETTEXT         = 0DH;
 1327    WM_GETTEXTLENGTH   = 0EH;
 1328    WM_PAINT           = 0FH;
 1329    WM_CLOSE           = 010H;
 1330    WM_QUERYENDSESSION = 011H;
 1331    WM_QUIT            = 012H;
 1332    WM_QUERYOPEN       = 013H;
 1333    WM_ERASEBKGND      = 014H;
 1334    WM_SYSCOLORCHANGE  = 015H;
 1335    WM_ENDSESSION      = 016H;
 1336    WM_SHOWWINDOW      = 018H;
 1337    WM_CTLCOLOR        = 019H;
 1338    WM_WININICHANGE    = 01AH;
 1339    WM_DEVMODECHANGE   = 01BH;
 1340    WM_ACTIVATEAPP     = 01CH;
 1341    WM_FONTCHANGE      = 01DH;
 1342    WM_TIMECHANGE      = 01EH;
 1343    WM_CANCELMODE      = 01FH;
 1344    WM_SETCURSOR       = 020H;
 1345    WM_MOUSEACTIVATE   = 021H;
 1346    WM_CHILDACTIVATE   = 022H;
 1347    WM_QUEUESYNC       = 023H;
 1348    WM_GETMINMAXINFO   = 024H;
 1349    WM_PAINTICON       = 026H;
 1350    WM_ICONERASEBKGND  = 027H;
 1351    WM_NEXTDLGCTL      = 028H;
 1352    WM_SPOOLERSTATUS   = 02AH;
 1353    WM_DRAWITEM        = 02BH;
 1354    WM_MEASUREITEM     = 02CH;
 1355    WM_DELETEITEM      = 02DH;
 1356    WM_VKEYTOITEM      = 02EH;
 1357    WM_CHARTOITEM      = 02FH;
 1358    WM_SETFONT         = 030H;
 1359    WM_GETFONT         = 031H;
 1360    WM_QUERYDRAGICON   = 037H;
 1361    WM_COMPAREITEM     = 039H;
 1362    WM_COMPACTING      = 041H;
 1363    WM_NCCREATE        = 081H;
 1364    WM_NCDESTROY       = 082H;
 1365    WM_NCCALCSIZE      = 083H;
 1366    WM_NCHITTEST       = 084H;
 1367    WM_NCPAINT         = 085H;
 1368    WM_NCACTIVATE      = 086H;
 1369    WM_GETDLGCODE      = 087H;
 1370    WM_NCMOUSEMOVE     = 0A0H;
 1371    WM_NCLBUTTONDOWN   = 0A1H;
 1372    WM_NCLBUTTONUP     = 0A2H;
 1373    WM_NCLBUTTONDBLCLK = 0A3H;
 1374    WM_NCRBUTTONDOWN   = 0A4H;
 1375    WM_NCRBUTTONUP     = 0A5H;
 1376    WM_NCRBUTTONDBLCLK = 0A6H;
 1377    WM_NCMBUTTONDOWN   = 0A7H;
 1378    WM_NCMBUTTONUP     = 0A8H;
 1379    WM_NCMBUTTONDBLCLK = 0A9H;
 1380    WM_KEYFIRST        = 0100H;
 1381    WM_KEYDOWN         = 0100H;
 1382    WM_KEYUP           = 0101H;
 1383    WM_CHAR            = 0102H;
 1384    WM_DEADCHAR        = 0103H;
 1385    WM_SYSKEYDOWN      = 0104H;
 1386    WM_SYSKEYUP        = 0105H;
 1387    WM_SYSCHAR         = 0106H;
 1388    WM_SYSDEADCHAR     = 0107H;
 1389    WM_KEYLAST         = 0108H;
 1390    WM_INITDIALOG      = 0110H;
 1391    WM_COMMAND         = 0111H;
 1392    WM_SYSCOMMAND      = 0112H;
 1393    WM_TIMER           = 0113H;
 1394    WM_HSCROLL         = 0114H;
 1395    WM_VSCROLL         = 0115H;
 1396    WM_INITMENU        = 0116H;
 1397    WM_INITMENUPOPUP   = 0117H;
 1398    WM_MENUSELECT      = 011FH;
 1399    WM_MENUCHAR        = 0120H;
 1400    WM_ENTERIDLE       = 0121H;
 1401    WM_MOUSEFIRST      = 0200H;
 1402    WM_MOUSEMOVE       = 0200H;
 1403    WM_LBUTTONDOWN     = 0201H;
 1404    WM_LBUTTONUP       = 0202H;
 1405    WM_LBUTTONDBLCLK   = 0203H;
 1406    WM_RBUTTONDOWN     = 0204H;
 1407    WM_RBUTTONUP       = 0205H;
 1408    WM_RBUTTONDBLCLK   = 0206H;
 1409    WM_MBUTTONDOWN     = 0207H;
 1410    WM_MBUTTONUP       = 0208H;
 1411    WM_MBUTTONDBLCLK   = 0209H;
 1412    WM_MOUSELAST       = 0209H;
 1413    WM_PARENTNOTIFY    = 0210H;
 1414    WM_MDICREATE       = 0220H;
 1415    WM_MDIDESTROY      = 0221H;
 1416    WM_MDIACTIVATE     = 0222H;
 1417    WM_MDIRESTORE      = 0223H;
 1418    WM_MDINEXT         = 0224H;
 1419    WM_MDIMAXIMIZE     = 0225H;
 1420    WM_MDITILE         = 0226H;
 1421    WM_MDICASCADE      = 0227H;
 1422    WM_MDIICONARRANGE  = 0228H;
 1423    WM_MDIGETACTIVE    = 0229H;
 1424    WM_MDISETMENU      = 0230H;
 1425    WM_CUT             = 0300H;
 1426    WM_COPY            = 0301H;
 1427    WM_PASTE           = 0302H;
 1428    WM_CLEAR           = 0303H;
 1429    WM_UNDO            = 0304H;
 1430    WM_RENDERFORMAT    = 0305H;
 1431    WM_RENDERALLFORMATS= 0306H;
 1432    WM_DESTROYCLIPBOARD= 0307H;
 1433    WM_DRAWCLIPBOARD   = 0308H;
 1434    WM_PAINTCLIPBOARD  = 0309H;
 1435    WM_VSCROLLCLIPBOARD= 030AH;
 1436    WM_SIZECLIPBOARD   = 030BH;
 1437    WM_ASKCBFORMATNAME = 030CH;
 1438    WM_CHANGECBCHAIN   = 030DH;
 1439    WM_HSCROLLCLIPBOARD= 030EH;
 1440    WM_QUERYNEWPALETTE = 030FH;
 1441    WM_PALETTEISCHANGING = 0310H;
 1442    WM_PALETTECHANGED  = 0311H;
 1443    WM_USER            = 0400H;
 1444    ST_BEGINSWP        = 0;
 1445    ST_ENDSWP          = 1;
 1446    HTERROR            = -2;
 1447    HTTRANSPARENT      = -1;
 1448    HTNOWHERE          = 0;
 1449    HTCLIENT           = 1;
 1450    HTCAPTION          = 2;
 1451    HTSYSMENU          = 3;
 1452    HTGROWBOX          = 4;
 1453    HTSIZE             = HTGROWBOX;
*****                         ^ not supported yet
 1454    HTMENU             = 5;
 1455    HTHSCROLL          = 6;
 1456    HTVSCROLL          = 7;
 1457    HTREDUCE           = 8;
 1458    HTZOOM             = 9;
 1459    HTLEFT             = 10;
 1460    HTRIGHT            = 11;
 1461    HTTOP              = 12;
 1462    HTTOPLEFT          = 13;
 1463    HTTOPRIGHT         = 14;
 1464    HTBOTTOM           = 15;
 1465    HTBOTTOMLEFT       = 16;
 1466    HTBOTTOMRIGHT      = 17;
 1467    HTSIZEFIRST        = HTLEFT;
*****                         ^ not supported yet
 1468    HTSIZELAST         = HTBOTTOMRIGHT;
*****                         ^ not supported yet
 1469  
 1470    MA_ACTIVATE        = 1;
 1471    MA_ACTIVATEANDEAT  = 2;
 1472    MA_NOACTIVATE      = 3;
 1473  
 1474  PROCEDURE RegisterWindowMessage(_:ARRAY OF CHAR) : CARDINAL;
*****                                             ^ not supported yet
 1475  
 1476  CONST
 1477    SIZENORMAL         = 0;
 1478    SIZEICONIC         = 1;
 1479    SIZEFULLSCREEN     = 2;
 1480    SIZEZOOMSHOW       = 3;
 1481    SIZEZOOMHIDE       = 4;
 1482    MK_LBUTTON         = 01H;
 1483    MK_RBUTTON         = 02H;
 1484    MK_SHIFT           = 04H;
 1485    MK_CONTROL         = 08H;
 1486    MK_MBUTTON         = 010H;
 1487    WS_OVERLAPPED      = 00H;
 1488    WS_POPUP           = 080000000H;
 1489    WS_CHILD           = 040000000H;
 1490    WS_MINIMIZE        = 020000000H;
 1491    WS_VISIBLE         = 010000000H;
 1492    WS_DISABLED        = 08000000H;
 1493    WS_CLIPSIBLINGS    = 04000000H;
 1494    WS_CLIPCHILDREN    = 02000000H;
 1495    WS_MAXIMIZE        = 01000000H;
 1496    WS_CAPTION         = 0C00000H;
 1497    WS_BORDER          = 0800000H;
 1498    WS_DLGFRAME        = 0400000H;
 1499    WS_VSCROLL         = 0200000H;
 1500    WS_HSCROLL         = 0100000H;
 1501    WS_SYSMENU         = 080000H;
 1502    WS_THICKFRAME      = 040000H;
 1503    WS_GROUP           = 020000H;
 1504    WS_TABSTOP         = 010000H;
 1505    WS_MINIMIZEBOX     = 020000H;
 1506    WS_MAXIMIZEBOX     = 010000H;
 1507    WS_TILED           = WS_OVERLAPPED;
*****                         ^ not supported yet
 1508    WS_ICONIC          = WS_MINIMIZE;
*****                         ^ not supported yet
 1509    WS_SIZEBOX         = WS_THICKFRAME;
*****                         ^ not supported yet
 1510    WS_OVERLAPPEDWINDOW = 0CF0000H; (* WS_OVERLAPPED OR WS_CAPTION OR WS_SYSMENU OR WS_THICKFRAME OR WS_MINIMIZEBOX OR WS_MAXIMIZEBOX; *)
 1511    WS_POPUPWINDOW     = 080880000H; (* WS_POPUP OR WS_BORDER OR WS_SYSMENU; *)
 1512    WS_CHILDWINDOW     = WS_CHILD;
*****                         ^ not supported yet
 1513    WS_TILEDWINDOW     = WS_OVERLAPPEDWINDOW;
*****                         ^ not supported yet
 1514    WS_EX_DLGMODALFRAME  = 01H;
 1515    WS_EX_NOPARENTNOTIFY = 04H;
 1516  
 1517    CS_VREDRAW         = 01H;
 1518    CS_HREDRAW         = 02H;
 1519    CS_KEYCVTWINDOW    = 04H;
 1520    CS_DBLCLKS         = 08H;
 1521    CS_OWNDC           = 020H;
 1522    CS_CLASSDC         = 040H;
 1523    CS_PARENTDC        = 080H;
 1524    CS_NOKEYCVT        = 0100H;
 1525    CS_NOCLOSE         = 0200H;
 1526    CS_SAVEBITS        = 0800H;
 1527    CS_BYTEALIGNCLIENT = 01000H;
 1528    CS_BYTEALIGNWINDOW = 02000H;
 1529    CS_GLOBALCLASS     = 04000H;
 1530  
 1531    CF_TEXT            = 1;
 1532    CF_BITMAP          = 2;
 1533    CF_METAFILEPICT    = 3;
 1534    CF_SYLK            = 4;
 1535    CF_DIF             = 5;
 1536    CF_TIFF            = 6;
 1537    CF_OEMTEXT         = 7;
 1538    CF_DIB             = 8;
 1539    CF_PALETTE         = 9;
 1540    CF_OWNERDISPLAY    = 080H;
 1541    CF_DSPTEXT         = 081H;
 1542    CF_DSPBITMAP       = 082H;
 1543    CF_DSPMETAFILEPICT = 083H;
 1544    CF_PRIVATEFIRST    = 0200H;
 1545    CF_PRIVATELAST     = 02FFH;
 1546    CF_GDIOBJFIRST     = 0300H;
 1547    CF_GDIOBJLAST      = 03FFH;
 1548  
 1549  TYPE
 1550  
 1551    PAINTSTRUCT = RECORD
 1552                    hdc : HDC;
 1553                    fErase : BOOL;
 1554                    rcPaint : RECT;
 1555                    fRestore : BOOL;
 1556                    fIncUpdate : BOOL;
 1557                    rgbReserved : ARRAY [0..15] OF SHORTCARD;
*****                                            ^ not supported yet
*****                                                   ^ not supported yet
 1558                  END;
*****                  ^ not supported yet
 1559    LPPAINTSTRUCT = POINTER TO PAINTSTRUCT;
*****                               ^ not supported yet
 1560  
 1561    CREATESTRUCT = RECORD
 1562                     lpCreateParams : LPSTR;
 1563                     hInstance      : HANDLE;
 1564                     hMenu          : HANDLE;
 1565                     hwndParent     : HWND;
 1566                     cy             : INTEGER;
 1567                     cx             : INTEGER;
 1568                     y              : INTEGER;
 1569                     x              : INTEGER;
 1570                     style          : LONGINT;
 1571                     lpszName       : LPSTR;
 1572                     lpszClass      : LPSTR;
 1573                     dwExStyle      : LONGCARD;
*****                                      ^ undeclared identifier
 1574                   END;
*****                   ^ not supported yet
 1575    LPCREATESTRUCT = POINTER TO CREATESTRUCT;
*****                                ^ not supported yet
 1576  
 1577  CONST
 1578    ODT_MENU        = 1;
 1579    ODT_LISTBOX     = 2;
 1580    ODT_COMBOBOX    = 3;
 1581    ODT_BUTTON      = 4;
 1582    ODA_DRAWENTIRE  = 0;
 1583    ODA_SELECT      = 1;
 1584    ODA_FOCUS       = 2;
 1585    ODS_SELECTED    = 0;
 1586    ODS_GRAYED      = 1;
 1587    ODS_DISABLED    = 2;
 1588    ODS_CHECKED     = 3;
 1589    ODS_FOCUS       = 4;
 1590  (*
 1591    ODA_DRAWENTIRE  = 01H;
 1592    ODA_SELECT      = 02H;
 1593    ODA_FOCUS       = 04H;
 1594    ODS_SELECTED    = 01H;
 1595    ODS_GRAYED      = 02H;
 1596    ODS_DISABLED    = 04H;
 1597    ODS_CHECKED     = 08H;
 1598    ODS_FOCUS       = 010H;
 1599  *)
 1600  TYPE
 1601  
 1602    MEASUREITEMSTRUCT = RECORD
 1603                          CtlType    : CARDINAL;
 1604                          CtlID      : CARDINAL;
 1605                          itemID     : CARDINAL;
 1606                          itemWidth  : CARDINAL;
 1607                          itemHeight : CARDINAL;
 1608                          itemData   : LONGCARD;
*****                                       ^ undeclared identifier
 1609                        END;
*****                        ^ not supported yet
 1610    LPMEASUREITEMSTRUCT = POINTER TO MEASUREITEMSTRUCT;
*****                                     ^ not supported yet
 1611  
 1612    DRAWITEMSTRUCT = RECORD
 1613                       CtlType    : CARDINAL;
 1614                       CtlID      : CARDINAL;
 1615                       itemID     : CARDINAL;
 1616                       itemAction : BITSET;
*****                                    ^ undeclared identifier
 1617                       itemState  : BITSET;
*****                                    ^ undeclared identifier
 1618                       hwndItem   : HWND;
 1619                       hDC        : HDC;
 1620                       rcItem     : RECT;
 1621                       itemData   : LONGCARD;
*****                                    ^ undeclared identifier
 1622                     END;
*****                     ^ not supported yet
 1623    LPDRAWITEMSTRUCT = POINTER TO DRAWITEMSTRUCT;
*****                                  ^ not supported yet
 1624  
 1625    DELETEITEMSTRUCT = RECORD
 1626                         CtlType  : CARDINAL;
 1627                         CtlID    : CARDINAL;
 1628                         itemID   : CARDINAL;
 1629                         hwndItem : HWND;
 1630                         itemData : LONGCARD;
*****                                    ^ undeclared identifier
 1631                       END;
*****                       ^ not supported yet
 1632    LPDELETEITEMSTRUCT = POINTER TO DELETEITEMSTRUCT;
*****                                    ^ not supported yet
 1633  
 1634    COMPAREITEMSTRUCT = RECORD
 1635                          CtlType   : CARDINAL;
 1636                          CtlID     : CARDINAL;
 1637                          hwndItem  : HWND;
 1638                          itemID1   : CARDINAL;
 1639                          itemData1 : LONGCARD;
*****                                      ^ undeclared identifier
 1640                          itemID2   : CARDINAL;
 1641                          itemData2 : LONGCARD;
*****                                      ^ undeclared identifier
 1642                        END;
*****                        ^ not supported yet
 1643    LPCOMPAREITEMSTRUCT = POINTER TO COMPAREITEMSTRUCT;
*****                                     ^ not supported yet
 1644  
 1645  PROCEDURE GetMessage(VAR _:MSG; _:HWND; _:CARDINAL; _:CARDINAL) : BOOL;
*****                                  ^ duplicate identifier
*****                                          ^ duplicate identifier
*****                                                      ^ duplicate identifier
 1646  PROCEDURE TranslateMessage(VAR _:MSG) : BOOL;
 1647  PROCEDURE DispatchMessage(VAR _:MSG) : LONGINT;
 1648  PROCEDURE PeekMessage(VAR _:MSG; _:HWND; _:CARDINAL; _:CARDINAL; _:CARDINAL) : BOOL;
*****                                   ^ duplicate identifier
*****                                           ^ duplicate identifier
*****                                                       ^ duplicate identifier
*****                                                                   ^ duplicate identifier
 1649  
 1650  CONST
 1651    PM_NOREMOVE = 00H;
 1652    PM_REMOVE = 01H;
 1653    PM_NOYIELD = 02H;
 1654  
 1655  PROCEDURE lstrcmp( _:ARRAY OF CHAR; _:ARRAY OF CHAR ): INTEGER;
*****                                ^ not supported yet
*****                                      ^ duplicate identifier
*****                                                 ^ not supported yet
 1656  PROCEDURE lstrcmpi( _:ARRAY OF CHAR; _:ARRAY OF CHAR ): INTEGER;
*****                                 ^ not supported yet
*****                                       ^ duplicate identifier
*****                                                  ^ not supported yet
 1657  PROCEDURE lstrcpy( _:ARRAY OF CHAR; _:ARRAY OF CHAR ): LPSTR;
*****                                ^ not supported yet
*****                                      ^ duplicate identifier
*****                                                 ^ not supported yet
 1658  PROCEDURE lstrcat( _:ARRAY OF CHAR; _:ARRAY OF CHAR ): LPSTR;
*****                                ^ not supported yet
*****                                      ^ duplicate identifier
*****                                                 ^ not supported yet
 1659  PROCEDURE lstrlen( _:ARRAY OF CHAR ): INTEGER;
*****                                ^ not supported yet
 1660  
 1661  PROCEDURE _lopen( _:ARRAY OF CHAR; _:INTEGER ): INTEGER;
*****                               ^ not supported yet
*****                                     ^ duplicate identifier
 1662  PROCEDURE _lclose( _:INTEGER ): INTEGER;
 1663  PROCEDURE _lcreat( _:ARRAY OF CHAR; _:INTEGER ): INTEGER;
*****                                ^ not supported yet
*****                                      ^ duplicate identifier
 1664  PROCEDURE _llseek( _:INTEGER; _:LONGINT; _:INTEGER ): LONGINT;
*****                                ^ duplicate identifier
*****                                           ^ duplicate identifier
 1665  PROCEDURE _lread( _:INTEGER; _:ARRAY OF BYTE; _:INTEGER ): WORD;
*****                               ^ duplicate identifier
*****                                          ^ undeclared identifier
*****                                                ^ duplicate identifier
*****                                                             ^ undeclared identifier
 1666  PROCEDURE _lwrite( _:INTEGER; _:ARRAY OF BYTE; _:INTEGER ): WORD;
*****                                ^ duplicate identifier
*****                                           ^ undeclared identifier
*****                                                 ^ duplicate identifier
*****                                                              ^ undeclared identifier
 1667  
 1668  CONST
 1669    READ        = 0;   (* Flags for _lopen *)
 1670    WRITE       = 1;
 1671    READ_WRITE  = 2;
 1672  
 1673  PROCEDURE ExitWindows(dwReserved : LONGCARD; wReturnCode : CARDINAL) : BOOL;
*****                                     ^ undeclared identifier
 1674  PROCEDURE SwapMouseButton(_:BOOL) : BOOL;
 1675  PROCEDURE GetMessagePos() : LONGCARD;
*****                              ^ undeclared identifier
 1676  PROCEDURE GetMessageTime() : LONGINT;
 1677  PROCEDURE GetSysModalWindow() : HWND;
 1678  PROCEDURE SetSysModalWindow(_:HWND) : HWND;
 1679  PROCEDURE SendMessage(_:HWND; _:CARDINAL; _:CARDINAL; _:LONGINT) : LONGINT;
*****                                ^ duplicate identifier
*****                                            ^ duplicate identifier
*****                                                        ^ duplicate identifier
 1680  PROCEDURE PostMessage(_:HWND; _:CARDINAL; _:CARDINAL; _:LONGINT) : BOOL;
*****                                ^ duplicate identifier
*****                                            ^ duplicate identifier
*****                                                        ^ duplicate identifier
 1681  PROCEDURE PostAppMessage(_:HANDLE; _:CARDINAL; _:CARDINAL; _:LONGINT) : BOOL;
*****                                     ^ duplicate identifier
*****                                                 ^ duplicate identifier
*****                                                             ^ duplicate identifier
 1682  PROCEDURE ReplyMessage(_:LONGINT);
 1683  PROCEDURE WaitMessage();
 1684  PROCEDURE DefWindowProc(_:HWND; _:CARDINAL; _:CARDINAL; _:LONGINT) : LONGINT;
*****                                  ^ duplicate identifier
*****                                              ^ duplicate identifier
*****                                                          ^ duplicate identifier
 1685  PROCEDURE PostQuitMessage(_:INTEGER);
 1686  PROCEDURE CallWindowProc(_:FARPROC; _:HWND; _:CARDINAL; _:CARDINAL; _:LONGINT) : LONGINT;
*****                                      ^ duplicate identifier
*****                                              ^ duplicate identifier
*****                                                          ^ duplicate identifier
*****                                                                      ^ duplicate identifier
 1687  PROCEDURE InSendMessage() : BOOL;
 1688  PROCEDURE GetDoubleClickTime() : CARDINAL;
 1689  PROCEDURE SetDoubleClickTime(_:CARDINAL);
 1690  PROCEDURE RegisterClass(VAR _:WNDCLASS) : BOOL;
 1691  PROCEDURE UnregisterClass(_:ARRAY OF CHAR; _:HANDLE) : BOOL;
*****                                       ^ not supported yet
*****                                             ^ duplicate identifier
 1692  PROCEDURE GetClassInfo(_:HANDLE; _:ARRAY OF CHAR; VAR _:WNDCLASS) : BOOL;
*****                                   ^ duplicate identifier
*****                                              ^ not supported yet
*****                                                        ^ duplicate identifier
 1693  PROCEDURE SetMessageQueue(_:INTEGER) : BOOL;
 1694  
 1695  CONST
 1696    CW_USEDEFAULT = MIN(INTEGER);
*****                    ^ undeclared identifier
*****                               ^ not supported yet
 1697  
 1698  PROCEDURE CreateWindow(_:FarADDRESS; _:ARRAY OF CHAR; _:LONGCARD; _:INTEGER; _:INTEGER; _:INTEGER; _:INTEGER; _:HWND; _:HMENU; _:HANDLE; _:FarADDRESS) : HWND;
*****                           ^ undeclared identifier
*****                                       ^ duplicate identifier
*****                                                  ^ not supported yet
*****                                                        ^ duplicate identifier
*****                                                          ^ undeclared identifier
*****                                                                    ^ duplicate identifier
*****                                                                               ^ duplicate identifier
*****                                                                                          ^ duplicate identifier
*****                                                                                                     ^ duplicate identifier
*****                                                                                                                ^ duplicate identifier
*****                                                                                                                        ^ duplicate identifier
*****                                                                                                                                 ^ duplicate identifier
*****                                                                                                                                           ^ duplicate identifier
*****                                                                                                                                             ^ undeclared identifier
 1699  PROCEDURE CreateWindowEx(_:LONGCARD; _:FarADDRESS; _:ARRAY OF CHAR; _:LONGCARD; _:INTEGER; _:INTEGER; _:INTEGER; _:INTEGER; _:HWND; _:HMENU; _:HANDLE; _:ARRAY OF CHAR) : HWND;
*****                             ^ undeclared identifier
*****                                       ^ duplicate identifier
*****                                         ^ undeclared identifier
*****                                                     ^ duplicate identifier
*****                                                                ^ not supported yet
*****                                                                      ^ duplicate identifier
*****                                                                        ^ undeclared identifier
*****                                                                                  ^ duplicate identifier
*****                                                                                             ^ duplicate identifier
*****                                                                                                        ^ duplicate identifier
*****                                                                                                                   ^ duplicate identifier
*****                                                                                                                              ^ duplicate identifier
*****                                                                                                                                      ^ duplicate identifier
*****                                                                                                                                               ^ duplicate identifier
*****                                                                                                                                                         ^ duplicate identifier
*****                                                                                                                                                                    ^ not supported yet
 1700  PROCEDURE IsWindow(_:HWND) : BOOL;
 1701  PROCEDURE IsChild(_:HWND; _:HWND) : BOOL;
*****                            ^ duplicate identifier
 1702  PROCEDURE DestroyWindow(_:HWND) : BOOL;
 1703  PROCEDURE ShowWindow(_:HWND; _:INTEGER) : BOOL;
*****                               ^ duplicate identifier
 1704  PROCEDURE FlashWindow(_:HWND; _:BOOL) : BOOL;
*****                                ^ duplicate identifier
 1705  PROCEDURE ShowOwnedPopups(_:HWND; _:BOOL);
*****                                    ^ duplicate identifier
 1706  PROCEDURE OpenIcon(_:HWND) : BOOL;
 1707  PROCEDURE CloseWindow(_:HWND);
 1708  PROCEDURE MoveWindow(_:HWND; _:INTEGER; _:INTEGER; _:INTEGER; _:INTEGER; _:BOOL);
*****                               ^ duplicate identifier
*****                                          ^ duplicate identifier
*****                                                     ^ duplicate identifier
*****                                                                ^ duplicate identifier
*****                                                                           ^ duplicate identifier
 1709  PROCEDURE SetWindowPos(_:HWND; _:HWND; _:INTEGER; _:INTEGER; _:INTEGER; _:INTEGER; _:CARDINAL);
*****                                 ^ duplicate identifier
*****                                         ^ duplicate identifier
*****                                                    ^ duplicate identifier
*****                                                               ^ duplicate identifier
*****                                                                          ^ duplicate identifier
*****                                                                                     ^ duplicate identifier
 1710  PROCEDURE BeginDeferWindowPos(nNumWindows : INTEGER) : HANDLE;
 1711  PROCEDURE DeferWindowPos(hWinPosInfo : HANDLE; hWnd : HWND; hWndInsertAfter : HWND; x : INTEGER; y : INTEGER; cx : INTEGER; cy : INTEGER; wFlags : CARDINAL) : HANDLE;
 1712  PROCEDURE EndDeferWindowPos(hWinPosInfo : HANDLE);
 1713  PROCEDURE IsWindowVisible(_:HWND) : BOOL;
 1714  PROCEDURE IsIconic(_:HWND) : BOOL;
 1715  PROCEDURE AnyPopup() : BOOL;
 1716  PROCEDURE BringWindowToTop(_:HWND);
 1717  PROCEDURE IsZoomed(_:HWND) : BOOL;
 1718  
 1719  CONST
 1720    SWP_NOSIZE             = 01H;
 1721    SWP_NOMOVE             = 02H;
 1722    SWP_NOZORDER           = 04H;
 1723    SWP_NOREDRAW           = 08H;
 1724    SWP_NOACTIVATE         = 010H;
 1725    SWP_DRAWFRAME          = 020H;
 1726    SWP_SHOWWINDOW         = 040H;
 1727    SWP_HIDEWINDOW         = 080H;
 1728    SWP_NOCOPYBITS         = 0100H;
 1729    SWP_NOREPOSITION       = 0200H;
 1730  
 1731  PROCEDURE CreateDialog(_:HANDLE; _:ARRAY OF CHAR; _:HWND; _:FARPROC) : HWND;
*****                                   ^ duplicate identifier
*****                                              ^ not supported yet
*****                                                    ^ duplicate identifier
*****                                                            ^ duplicate identifier
 1732  PROCEDURE CreateDialogIndirect(_:HANDLE; _:ARRAY OF CHAR; _:HWND; _:FARPROC) : HWND;
*****                                           ^ duplicate identifier
*****                                                      ^ not supported yet
*****                                                            ^ duplicate identifier
*****                                                                    ^ duplicate identifier
 1733  PROCEDURE CreateDialogParam(_:HANDLE; _:ARRAY OF CHAR; _:HWND; _:FARPROC; _:LONGINT) : HWND;
*****                                        ^ duplicate identifier
*****                                                   ^ not supported yet
*****                                                         ^ duplicate identifier
*****                                                                 ^ duplicate identifier
*****                                                                            ^ duplicate identifier
 1734  PROCEDURE CreateDialogIndirectParam(_:HANDLE; _:ARRAY OF CHAR; _:HWND; _:FARPROC; _:LONGINT) : HWND;
*****                                                ^ duplicate identifier
*****                                                           ^ not supported yet
*****                                                                 ^ duplicate identifier
*****                                                                         ^ duplicate identifier
*****                                                                                    ^ duplicate identifier
 1735  PROCEDURE DialogBox(_:HANDLE; _:FarADDRESS; _:HWND; _:FARPROC) : INTEGER;
*****                                ^ duplicate identifier
*****                                  ^ undeclared identifier
*****                                              ^ duplicate identifier
*****                                                      ^ duplicate identifier
 1736  PROCEDURE DialogBoxIndirect(_:HANDLE; _:HANDLE; _:HWND; _:FARPROC) : INTEGER;
*****                                        ^ duplicate identifier
*****                                                  ^ duplicate identifier
*****                                                          ^ duplicate identifier
 1737  PROCEDURE DialogBoxParam(_:HANDLE; _:FarADDRESS; _:HWND; _:FARPROC; _:LONGINT) : INTEGER;
*****                                     ^ duplicate identifier
*****                                       ^ undeclared identifier
*****                                                   ^ duplicate identifier
*****                                                           ^ duplicate identifier
*****                                                                      ^ duplicate identifier
 1738  PROCEDURE DialogBoxIndirectParam(_:HANDLE; _:HANDLE; _:HWND; _:FARPROC; _:LONGINT) : INTEGER;
*****                                             ^ duplicate identifier
*****                                                       ^ duplicate identifier
*****                                                               ^ duplicate identifier
*****                                                                          ^ duplicate identifier
 1739  PROCEDURE EndDialog(_:HWND; _:INTEGER);
*****                              ^ duplicate identifier
 1740  PROCEDURE GetDlgItem(_:HWND; _:INTEGER) : HWND;
*****                               ^ duplicate identifier
 1741  PROCEDURE SetDlgItemInt(_:HWND; _:INTEGER; _:CARDINAL; _:BOOL);
*****                                  ^ duplicate identifier
*****                                             ^ duplicate identifier
*****                                                         ^ duplicate identifier
 1742  PROCEDURE GetDlgItemInt(_:HWND; _:INTEGER; VAR _:BOOL; _:BOOL) : CARDINAL;
*****                                  ^ duplicate identifier
*****                                                 ^ duplicate identifier
*****                                                         ^ duplicate identifier
 1743  PROCEDURE SetDlgItemText(_:HWND; _:INTEGER; _:ARRAY OF CHAR);
*****                                   ^ duplicate identifier
*****                                              ^ duplicate identifier
*****                                                         ^ not supported yet
 1744  PROCEDURE GetDlgItemText(_:HWND; _:INTEGER; _:ARRAY OF CHAR; _:INTEGER) : INTEGER;
*****                                   ^ duplicate identifier
*****                                              ^ duplicate identifier
*****                                                         ^ not supported yet
*****                                                               ^ duplicate identifier
 1745  PROCEDURE CheckDlgButton(_:HWND; _:INTEGER; _:CARDINAL);
*****                                   ^ duplicate identifier
*****                                              ^ duplicate identifier
 1746  PROCEDURE CheckRadioButton(_:HWND; _:INTEGER; _:INTEGER; _:INTEGER);
*****                                     ^ duplicate identifier
*****                                                ^ duplicate identifier
*****                                                           ^ duplicate identifier
 1747  PROCEDURE IsDlgButtonChecked(_:HWND; _:INTEGER) : CARDINAL;
*****                                       ^ duplicate identifier
 1748  PROCEDURE SendDlgItemMessage(_:HWND; _:INTEGER; _:CARDINAL; _:CARDINAL; _:LONGINT) : LONGINT;
*****                                       ^ duplicate identifier
*****                                                  ^ duplicate identifier
*****                                                              ^ duplicate identifier
*****                                                                          ^ duplicate identifier
 1749  PROCEDURE GetNextDlgGroupItem(_:HWND; _:HWND; _:BOOL) : HWND;
*****                                        ^ duplicate identifier
*****                                                ^ duplicate identifier
 1750  PROCEDURE GetNextDlgTabItem(_:HWND; _:HWND; _:BOOL) : HWND;
*****                                      ^ duplicate identifier
*****                                              ^ duplicate identifier
 1751  PROCEDURE GetDlgCtrlID(_:HWND) : INTEGER;
 1752  PROCEDURE GetDialogBaseUnits() : LONGINT;
 1753  PROCEDURE DefDlgProc(_:HWND; _:CARDINAL; _:CARDINAL; _:LONGINT) : LONGINT;
*****                               ^ duplicate identifier
*****                                           ^ duplicate identifier
*****                                                       ^ duplicate identifier
 1754  
 1755  CONST 
 1756    DLGWINDOWEXTRA = 30;
 1757  
 1758  PROCEDURE CallMsgFilter(VAR _:MSG; _:INTEGER) : BOOL;
*****                                     ^ duplicate identifier
 1759  PROCEDURE OpenClipboard(_:HWND) : BOOL;
 1760  PROCEDURE CloseClipboard() : BOOL;
 1761  PROCEDURE GetClipboardOwner() : HWND;
 1762  PROCEDURE SetClipboardViewer(_:HWND) : HWND;
 1763  PROCEDURE GetClipboardViewer() : HWND;
 1764  PROCEDURE ChangeClipboardChain(_:HWND; _:HWND) : BOOL;
*****                                         ^ duplicate identifier
 1765  PROCEDURE SetClipboardData(_:CARDINAL; _:HANDLE) : HANDLE;
*****                                         ^ duplicate identifier
 1766  PROCEDURE GetClipboardData(_:CARDINAL) : HANDLE;
 1767  PROCEDURE RegisterClipboardFormat(_:ARRAY OF CHAR) : CARDINAL;
*****                                               ^ not supported yet
 1768  PROCEDURE CountClipboardFormats() : INTEGER;
 1769  PROCEDURE EnumClipboardFormats(_:CARDINAL) : CARDINAL;
 1770  PROCEDURE GetClipboardFormatName(_:CARDINAL; _:ARRAY OF CHAR; _:INTEGER) : INTEGER;
*****                                               ^ duplicate identifier
*****                                                          ^ not supported yet
*****                                                                ^ duplicate identifier
 1771  PROCEDURE EmptyClipboard() : BOOL;
 1772  PROCEDURE IsClipboardFormatAvailable(_:CARDINAL) : BOOL;
 1773  PROCEDURE GetPriorityClipboardFormat(VAR _:CARDINAL; _:INTEGER) : INTEGER;
*****                                                       ^ duplicate identifier
 1774  PROCEDURE SetFocus(_:HWND) : HWND;
 1775  PROCEDURE GetFocus() : HWND;
 1776  PROCEDURE GetActiveWindow() : HWND;
 1777  PROCEDURE GetKeyState(_:INTEGER) : INTEGER;
 1778  PROCEDURE GetAsyncKeyState(_:INTEGER) : INTEGER;
 1779  PROCEDURE GetKeyboardState(VAR _:SHORTCARD);
 1780  PROCEDURE SetKeyboardState(VAR _:SHORTCARD);
 1781  PROCEDURE EnableHardwareInput(_:BOOL) : BOOL;
 1782  PROCEDURE GetInputState() : BOOL;
 1783  PROCEDURE GetCapture() : HWND;
 1784  PROCEDURE SetCapture(_:HWND) : HWND;
 1785  PROCEDURE ReleaseCapture();
 1786  PROCEDURE SetTimer(_:HWND; _:INTEGER; _:CARDINAL; _:FARPROC) : CARDINAL;
*****                             ^ duplicate identifier
*****                                        ^ duplicate identifier
*****                                                    ^ duplicate identifier
 1787  PROCEDURE KillTimer(_:HWND; _:INTEGER) : BOOL;
*****                              ^ duplicate identifier
 1788  PROCEDURE EnableWindow(_:HWND; _:BOOL) : BOOL;
*****                                 ^ duplicate identifier
 1789  PROCEDURE IsWindowEnabled(_:HWND) : BOOL;
 1790  PROCEDURE LoadAccelerators(_:HANDLE; _:ARRAY OF CHAR) : HANDLE;
*****                                       ^ duplicate identifier
*****                                                  ^ not supported yet
 1791  PROCEDURE TranslateAccelerator(_:HWND; _:HANDLE; VAR _:MSG) : INTEGER;
*****                                         ^ duplicate identifier
*****                                                       ^ duplicate identifier
 1792  
 1793  CONST
 1794    SM_CXSCREEN          = 0;
 1795    SM_CYSCREEN          = 1;
 1796    SM_CXVSCROLL         = 2;
 1797    SM_CYHSCROLL         = 3;
 1798    SM_CYCAPTION         = 4;
 1799    SM_CXBORDER          = 5;
 1800    SM_CYBORDER          = 6;
 1801    SM_CXDLGFRAME        = 7;
 1802    SM_CYDLGFRAME        = 8;
 1803    SM_CYVTHUMB          = 9;
 1804    SM_CXHTHUMB          = 10;
 1805    SM_CXICON            = 11;
 1806    SM_CYICON            = 12;
 1807    SM_CXCURSOR          = 13;
 1808    SM_CYCURSOR          = 14;
 1809    SM_CYMENU            = 15;
 1810    SM_CXFULLSCREEN      = 16;
 1811    SM_CYFULLSCREEN      = 17;
 1812    SM_CYKANJIWINDOW     = 18;
 1813    SM_MOUSEPRESENT      = 19;
 1814    SM_CYVSCROLL         = 20;
 1815    SM_CXHSCROLL         = 21;
 1816    SM_DEBUG             = 22;
 1817    SM_SWAPBUTTON        = 23;
 1818    SM_RESERVED1         = 24;
 1819    SM_RESERVED2         = 25;
 1820    SM_RESERVED3         = 26;
 1821    SM_RESERVED4         = 27;
 1822    SM_CXMIN             = 28;
 1823    SM_CYMIN             = 29;
 1824    SM_CXSIZE            = 30;
 1825    SM_CYSIZE            = 31;
 1826    SM_CXFRAME           = 32;
 1827    SM_CYFRAME           = 33;
 1828    SM_CXMINTRACK        = 34;
 1829    SM_CYMINTRACK        = 35;
 1830    SM_CMETRICS          = 36;
 1831  
 1832  PROCEDURE GetSystemMetrics(_:INTEGER) : INTEGER;
 1833  PROCEDURE LoadMenu(_:HANDLE; _:ARRAY OF CHAR) : HMENU;
*****                               ^ duplicate identifier
*****                                          ^ not supported yet
 1834  PROCEDURE LoadMenuIndirect(_:ARRAY OF CHAR) : HMENU;
*****                                        ^ not supported yet
 1835  PROCEDURE GetMenu(_:HWND) : HMENU;
 1836  PROCEDURE SetMenu(_:HWND; _:HMENU) : BOOL;
*****                            ^ duplicate identifier
 1837  PROCEDURE ChangeMenu(_:HMENU; _:CARDINAL; _:FarADDRESS; _:CARDINAL; _:CARDINAL) : BOOL;
*****                                ^ duplicate identifier
*****                                            ^ duplicate identifier
*****                                              ^ undeclared identifier
*****                                                          ^ duplicate identifier
*****                                                                      ^ duplicate identifier
 1838  PROCEDURE HiliteMenuItem(_:HWND; _:HMENU; _:CARDINAL; _:CARDINAL) : BOOL;
*****                                   ^ duplicate identifier
*****                                            ^ duplicate identifier
*****                                                        ^ duplicate identifier
 1839  PROCEDURE GetMenuString(_:HMENU; _:CARDINAL; _:ARRAY OF CHAR; _:INTEGER; _:CARDINAL) : INTEGER;
*****                                   ^ duplicate identifier
*****                                               ^ duplicate identifier
*****                                                          ^ not supported yet
*****                                                                ^ duplicate identifier
*****                                                                           ^ duplicate identifier
 1840  PROCEDURE GetMenuState(_:HMENU; _:CARDINAL; _:CARDINAL) : CARDINAL;
*****                                  ^ duplicate identifier
*****                                              ^ duplicate identifier
 1841  PROCEDURE DrawMenuBar(_:HWND);
 1842  PROCEDURE GetSystemMenu(_:HWND; _:BOOL) : HMENU;
*****                                  ^ duplicate identifier
 1843  PROCEDURE CreateMenu() : HMENU;
 1844  PROCEDURE CreatePopupMenu() : HMENU;
 1845  PROCEDURE DestroyMenu(_:HMENU) : BOOL;
 1846  PROCEDURE CheckMenuItem(_:HMENU; _:CARDINAL; _:CARDINAL) : BOOL;
*****                                   ^ duplicate identifier
*****                                               ^ duplicate identifier
 1847  PROCEDURE EnableMenuItem(_:HMENU; _:CARDINAL; _:CARDINAL) : BOOL;
*****                                    ^ duplicate identifier
*****                                                ^ duplicate identifier
 1848  PROCEDURE GetSubMenu(_:HMENU; _:INTEGER) : HMENU;
*****                                ^ duplicate identifier
 1849  PROCEDURE GetMenuItemID(_:HMENU; _:INTEGER) : CARDINAL;
*****                                   ^ duplicate identifier
 1850  PROCEDURE GetMenuItemCount(_:HMENU) : CARDINAL;
 1851  PROCEDURE InsertMenu(_:HMENU; _:CARDINAL; _:CARDINAL; _:CARDINAL; _:ARRAY OF CHAR) : BOOL;
*****                                ^ duplicate identifier
*****                                            ^ duplicate identifier
*****                                                        ^ duplicate identifier
*****                                                                    ^ duplicate identifier
*****                                                                               ^ not supported yet
 1852  PROCEDURE AppendMenu(_:HMENU; _:CARDINAL; _:CARDINAL; _:FarADDRESS) : BOOL;
*****                                ^ duplicate identifier
*****                                            ^ duplicate identifier
*****                                                        ^ duplicate identifier
*****                                                          ^ undeclared identifier
 1853  PROCEDURE ModifyMenu(_:HMENU; _:CARDINAL; _:CARDINAL; _:CARDINAL; _:FarADDRESS) : BOOL;
*****                                ^ duplicate identifier
*****                                            ^ duplicate identifier
*****                                                        ^ duplicate identifier
*****                                                                    ^ duplicate identifier
*****                                                                      ^ undeclared identifier
 1854  PROCEDURE RemoveMenu(_:HMENU; _:CARDINAL; _:CARDINAL) : BOOL;
*****                                ^ duplicate identifier
*****                                            ^ duplicate identifier
 1855  PROCEDURE DeleteMenu(_:HMENU; _:CARDINAL; _:CARDINAL) : BOOL;
*****                                ^ duplicate identifier
*****                                            ^ duplicate identifier
 1856  PROCEDURE SetMenuItemBitmaps(_:HMENU; _:CARDINAL; _:CARDINAL; _:HBITMAP; _:HBITMAP) : BOOL;
*****                                        ^ duplicate identifier
*****                                                    ^ duplicate identifier
*****                                                                ^ duplicate identifier
*****                                                                           ^ duplicate identifier
 1857  PROCEDURE GetMenuCheckMarkDimensions() : LONGINT;
 1858  PROCEDURE TrackPopupMenu(_:HMENU; _:CARDINAL; _:INTEGER; _:INTEGER; _:INTEGER; _:HWND; VAR _:RECT) : BOOL;
*****                                    ^ duplicate identifier
*****                                                ^ duplicate identifier
*****                                                           ^ duplicate identifier
*****                                                                      ^ duplicate identifier
*****                                                                                 ^ duplicate identifier
*****                                                                                             ^ duplicate identifier
 1859  PROCEDURE GrayString(_:HDC; _:HBRUSH; _:FARPROC; _:LONGCARD; _:INTEGER; _:INTEGER; _:INTEGER; _:INTEGER; _:INTEGER) : BOOL;
*****                              ^ duplicate identifier
*****                                        ^ duplicate identifier
*****                                                   ^ duplicate identifier
*****                                                     ^ undeclared identifier
*****                                                               ^ duplicate identifier
*****                                                                          ^ duplicate identifier
*****                                                                                     ^ duplicate identifier
*****                                                                                                ^ duplicate identifier
*****                                                                                                           ^ duplicate identifier
 1860  PROCEDURE UpdateWindow(_:HWND);
 1861  PROCEDURE SetActiveWindow(_:HWND) : HWND;
 1862  PROCEDURE BeginPaint(_:HWND; VAR _:PAINTSTRUCT) : HDC;
*****                                   ^ duplicate identifier
 1863  PROCEDURE EndPaint(_:HWND; VAR _:PAINTSTRUCT);
*****                                 ^ duplicate identifier
 1864  PROCEDURE GetUpdateRect(_:HWND; VAR _:RECT; _:BOOL) : BOOL;
*****                                      ^ duplicate identifier
*****                                              ^ duplicate identifier
 1865  PROCEDURE GetUpdateRgn(_:HWND; _:HRGN; _:BOOL) : INTEGER;
*****                                 ^ duplicate identifier
*****                                         ^ duplicate identifier
 1866  PROCEDURE ExcludeUpdateRgn(_:HDC; _:HWND) : INTEGER;
*****                                    ^ duplicate identifier
 1867  PROCEDURE InvalidateRect(_:HWND; VAR _:RECT; _:BOOL);
*****                                       ^ duplicate identifier
*****                                               ^ duplicate identifier
 1868  PROCEDURE ValidateRect(_:HWND; VAR _:RECT);
*****                                     ^ duplicate identifier
 1869  PROCEDURE InvalidateRgn(_:HWND; _:HRGN; _:BOOL);
*****                                  ^ duplicate identifier
*****                                          ^ duplicate identifier
 1870  PROCEDURE ValidateRgn(_:HWND; _:HRGN);
*****                                ^ duplicate identifier
 1871  PROCEDURE ScrollWindow(_:HWND; _:INTEGER; _:INTEGER; VAR _:RECT; VAR _:RECT);
*****                                 ^ duplicate identifier
*****                                            ^ duplicate identifier
*****                                                           ^ duplicate identifier
*****                                                                       ^ duplicate identifier
 1872  PROCEDURE ScrollDC(_:HDC; _:INTEGER; _:INTEGER; VAR _:RECT; VAR _:RECT; _:HRGN; VAR _:RECT) : BOOL;
*****                            ^ duplicate identifier
*****                                       ^ duplicate identifier
*****                                                      ^ duplicate identifier
*****                                                                  ^ duplicate identifier
*****                                                                          ^ duplicate identifier
*****                                                                                      ^ duplicate identifier
 1873  PROCEDURE SetScrollPos(_:HWND; _:INTEGER; _:INTEGER; _:BOOL) : INTEGER;
*****                                 ^ duplicate identifier
*****                                            ^ duplicate identifier
*****                                                       ^ duplicate identifier
 1874  PROCEDURE GetScrollPos(_:HWND; _:INTEGER) : INTEGER;
*****                                 ^ duplicate identifier
 1875  PROCEDURE SetScrollRange(_:HWND; _:INTEGER; _:INTEGER; _:INTEGER; _:BOOL);
*****                                   ^ duplicate identifier
*****                                              ^ duplicate identifier
*****                                                         ^ duplicate identifier
*****                                                                    ^ duplicate identifier
 1876  PROCEDURE GetScrollRange(_:HWND; _:INTEGER; VAR _:INTEGER; VAR _:INTEGER);
*****                                   ^ duplicate identifier
*****                                                  ^ duplicate identifier
*****                                                                 ^ duplicate identifier
 1877  PROCEDURE ShowScrollBar(_:HWND; _:CARDINAL; _:BOOL);
*****                                  ^ duplicate identifier
*****                                              ^ duplicate identifier
 1878  PROCEDURE SetProp(_:HWND; _:ARRAY OF CHAR; _:HANDLE) : BOOL;
*****                            ^ duplicate identifier
*****                                       ^ not supported yet
*****                                             ^ duplicate identifier
 1879  PROCEDURE GetProp(_:HWND; _:ARRAY OF CHAR) : HANDLE;
*****                            ^ duplicate identifier
*****                                       ^ not supported yet
 1880  PROCEDURE RemoveProp(_:HWND; _:ARRAY OF CHAR) : HANDLE;
*****                               ^ duplicate identifier
*****                                          ^ not supported yet
 1881  PROCEDURE EnumProps(_:HWND; _:FARPROC) : INTEGER;
*****                              ^ duplicate identifier
 1882  PROCEDURE SetWindowText(_:HWND; _:ARRAY OF CHAR);
*****                                  ^ duplicate identifier
*****                                             ^ not supported yet
 1883  PROCEDURE GetWindowText(_:HWND; _:ARRAY OF CHAR; _:INTEGER) : INTEGER;
*****                                  ^ duplicate identifier
*****                                             ^ not supported yet
*****                                                   ^ duplicate identifier
 1884  PROCEDURE GetWindowTextLength(_:HWND) : INTEGER;
 1885  PROCEDURE GetClientRect(_:HWND; VAR _:RECT);
*****                                      ^ duplicate identifier
 1886  PROCEDURE GetWindowRect(_:HWND; VAR _:RECT);
*****                                      ^ duplicate identifier
 1887  PROCEDURE AdjustWindowRect(VAR _:RECT; _:LONGINT; _:BOOL);
*****                                         ^ duplicate identifier
*****                                                    ^ duplicate identifier
 1888  PROCEDURE AdjustWindowRectEx(VAR _:RECT; _:LONGINT; _:BOOL; _:LONGCARD);
*****                                           ^ duplicate identifier
*****                                                      ^ duplicate identifier
*****                                                              ^ duplicate identifier
*****                                                                ^ undeclared identifier
 1889  
 1890  
 1891  CONST
 1892    MB_OK                 = 00H;
 1893    MB_OKCANCEL           = 01H;
 1894    MB_ABORTRETRYIGNORE   = 02H;
 1895    MB_YESNOCANCEL        = 03H;
 1896    MB_YESNO              = 04H;
 1897    MB_RETRYCANCEL        = 05H;
 1898    MB_ICONHAND           = 010H;
 1899    MB_ICONQUESTION       = 020H;
 1900    MB_ICONEXCLAMATION    = 030H;
 1901    MB_ICONASTERISK       = 040H;
 1902    MB_ICONINFORMATION    = MB_ICONASTERISK;
*****                            ^ not supported yet
 1903    MB_ICONSTOP           = MB_ICONHAND;
*****                            ^ not supported yet
 1904    MB_DEFBUTTON1         = 00H;
 1905    MB_DEFBUTTON2         = 0100H;
 1906    MB_DEFBUTTON3         = 0200H;
 1907    MB_APPLMODAL          = 00H;
 1908    MB_SYSTEMMODAL        = 01000H;
 1909    MB_TASKMODAL          = 02000H;
 1910    MB_NOFOCUS            = 08000H;
 1911    MB_TYPEMASK           = 0FH;
 1912    MB_ICONMASK           = 0F0H;
 1913    MB_DEFMASK            = 0F00H;
 1914    MB_MODEMASK           = 03000H;
 1915    MB_MISCMASK           = 0C000H;
 1916  
 1917  PROCEDURE MessageBox(_:HWND; _:ARRAY OF CHAR; _:ARRAY OF CHAR; _:CARDINAL) : INTEGER;
*****                               ^ duplicate identifier
*****                                          ^ not supported yet
*****                                                ^ duplicate identifier
*****                                                           ^ not supported yet
*****                                                                 ^ duplicate identifier
 1918  PROCEDURE MessageBeep(_:CARDINAL);
 1919  PROCEDURE ShowCursor(_:BOOL) : INTEGER;
 1920  PROCEDURE SetCursorPos(_:INTEGER; _:INTEGER);
*****                                    ^ duplicate identifier
 1921  PROCEDURE SetCursor(_:HCURSOR) : HCURSOR;
 1922  PROCEDURE GetCursorPos(VAR _:POINT);
 1923  PROCEDURE ClipCursor(VAR _:RECT);
 1924  PROCEDURE CreateCaret(_:HWND; _:HBITMAP; _:INTEGER; _:INTEGER);
*****                                ^ duplicate identifier
*****                                           ^ duplicate identifier
*****                                                      ^ duplicate identifier
 1925  PROCEDURE GetCaretBlinkTime() : CARDINAL;
 1926  PROCEDURE SetCaretBlinkTime(_:CARDINAL);
 1927  PROCEDURE DestroyCaret();
 1928  PROCEDURE HideCaret(_:HWND);
 1929  PROCEDURE ShowCaret(_:HWND);
 1930  PROCEDURE SetCaretPos(_:INTEGER; _:INTEGER);
*****                                   ^ duplicate identifier
 1931  PROCEDURE GetCaretPos(VAR _:POINT);
 1932  PROCEDURE ClientToScreen(_:HWND; VAR _:POINT);
*****                                       ^ duplicate identifier
 1933  PROCEDURE ScreenToClient(_:HWND; VAR _:POINT);
*****                                       ^ duplicate identifier
 1934  PROCEDURE WindowFromPoint(_:POINT) : HWND;
 1935  PROCEDURE ChildWindowFromPoint(_:HWND; _:POINT) : HWND;
*****                                         ^ duplicate identifier
 1936  
 1937  CONST
 1938    CTLCOLOR_MSGBOX        = 0;
 1939    CTLCOLOR_EDIT          = 1;
 1940    CTLCOLOR_LISTBOX       = 2;
 1941    CTLCOLOR_BTN           = 3;
 1942    CTLCOLOR_DLG           = 4;
 1943    CTLCOLOR_SCROLLBAR     = 5;
 1944    CTLCOLOR_STATIC        = 6;
 1945    CTLCOLOR_MAX           = 8;
 1946    COLOR_SCROLLBAR        = 0;
 1947    COLOR_BACKGROUND       = 1;
 1948    COLOR_ACTIVECAPTION    = 2;
 1949    COLOR_INACTIVECAPTION  = 3;
 1950    COLOR_MENU             = 4;
 1951    COLOR_WINDOW           = 5;
 1952    COLOR_WINDOWFRAME      = 6;
 1953    COLOR_MENUTEXT         = 7;
 1954    COLOR_WINDOWTEXT       = 8;
 1955    COLOR_CAPTIONTEXT      = 9;
 1956    COLOR_ACTIVEBORDER     = 10;
 1957    COLOR_INACTIVEBORDER   = 11;
 1958    COLOR_APPWORKSPACE     = 12;
 1959    COLOR_HIGHLIGHT        = 13;
 1960    COLOR_HIGHLIGHTTEXT    = 14;
 1961    COLOR_BTNFACE          = 15;
 1962    COLOR_BTNSHADOW        = 16;
 1963    COLOR_GRAYTEXT         = 17;
 1964    COLOR_BTNTEXT          = 18;
 1965  
 1966    COLOR_ENDCOLORS = COLOR_BTNTEXT;
*****                      ^ not supported yet
 1967  
 1968  PROCEDURE GetSysColor(_:INTEGER) : LONGINT;
 1969  PROCEDURE SetSysColors(_:INTEGER; VAR _:INTEGER; VAR _:LONGINT);
*****                                        ^ duplicate identifier
*****                                                       ^ duplicate identifier
 1970  PROCEDURE FillRgn(_:HDC; _:HRGN; _:HBRUSH) : BOOL;
*****                           ^ duplicate identifier
*****                                   ^ duplicate identifier
 1971  PROCEDURE FrameRgn(_:HDC; _:HRGN; _:HBRUSH; _:INTEGER; _:INTEGER) : BOOL;
*****                            ^ duplicate identifier
*****                                    ^ duplicate identifier
*****                                              ^ duplicate identifier
*****                                                         ^ duplicate identifier
 1972  PROCEDURE InvertRgn(_:HDC; _:HRGN) : BOOL;
*****                             ^ duplicate identifier
 1973  PROCEDURE PaintRgn(_:HDC; _:HRGN) : BOOL;
*****                            ^ duplicate identifier
 1974  PROCEDURE PtInRegion(_:HRGN; _:INTEGER; _:INTEGER) : BOOL;
*****                               ^ duplicate identifier
*****                                          ^ duplicate identifier
 1975  PROCEDURE DrawFocusRect(_:HDC; VAR _:RECT);
*****                                     ^ duplicate identifier
 1976  PROCEDURE FillRect(_:HDC; VAR _:RECT; _:HBRUSH) : INTEGER;
*****                                ^ duplicate identifier
*****                                        ^ duplicate identifier
 1977  PROCEDURE FrameRect(_:HDC; VAR _:RECT; _:HBRUSH) : INTEGER;
*****                                 ^ duplicate identifier
*****                                         ^ duplicate identifier
 1978  PROCEDURE InvertRect(_:HDC; VAR _:RECT);
*****                                  ^ duplicate identifier
 1979  PROCEDURE SetRect(VAR _:RECT; _:INTEGER; _:INTEGER; _:INTEGER; _:INTEGER);
*****                                ^ duplicate identifier
*****                                           ^ duplicate identifier
*****                                                      ^ duplicate identifier
*****                                                                 ^ duplicate identifier
 1980  PROCEDURE SetRectEmpty(VAR _:RECT);
 1981  PROCEDURE CopyRect(VAR _:RECT; VAR _:RECT) : INTEGER;
*****                                     ^ duplicate identifier
 1982  PROCEDURE InflateRect(VAR _:RECT; _:INTEGER; _:INTEGER);
*****                                    ^ duplicate identifier
*****                                               ^ duplicate identifier
 1983  PROCEDURE IntersectRect(VAR _:RECT; VAR _:RECT; VAR _:RECT) : INTEGER;
*****                                          ^ duplicate identifier
*****                                                      ^ duplicate identifier
 1984  PROCEDURE UnionRect(VAR _:RECT; VAR _:RECT; VAR _:RECT) : INTEGER;
*****                                      ^ duplicate identifier
*****                                                  ^ duplicate identifier
 1985  PROCEDURE OffsetRect(VAR _:RECT; _:INTEGER; _:INTEGER);
*****                                   ^ duplicate identifier
*****                                              ^ duplicate identifier
 1986  PROCEDURE IsRectEmpty(VAR _:RECT) : BOOL;
 1987  PROCEDURE EqualRect(VAR _:RECT; VAR _:RECT) : BOOL;
*****                                      ^ duplicate identifier
 1988  PROCEDURE PtInRect(VAR _:RECT; _:POINT) : BOOL;
*****                                 ^ duplicate identifier
 1989  PROCEDURE RectVisible(_:HDC; VAR _:RECT) : BOOL;
*****                                   ^ duplicate identifier
 1990  PROCEDURE RectInRegion(_:HRGN; VAR _:RECT) : BOOL;
*****                                     ^ duplicate identifier
 1991  PROCEDURE GetCurrentTime() : LONGCARD;
*****                               ^ undeclared identifier
 1992  PROCEDURE GetTickCount() : LONGCARD;
*****                             ^ undeclared identifier
 1993  PROCEDURE GetWindowWord(_:HWND; _:INTEGER) : CARDINAL;
*****                                  ^ duplicate identifier
 1994  PROCEDURE SetWindowWord(_:HWND; _:INTEGER; _:CARDINAL) : CARDINAL;
*****                                  ^ duplicate identifier
*****                                             ^ duplicate identifier
 1995  PROCEDURE GetWindowLong(_:HWND; _:INTEGER) : LONGINT;
*****                                  ^ duplicate identifier
 1996  PROCEDURE SetWindowLong(_:HWND; _:INTEGER; _:LONGINT) : LONGINT;
*****                                  ^ duplicate identifier
*****                                             ^ duplicate identifier
 1997  PROCEDURE GetClassWord(_:HWND; _:INTEGER) : CARDINAL;
*****                                 ^ duplicate identifier
 1998  PROCEDURE SetClassWord(_:HWND; _:INTEGER; _:CARDINAL) : CARDINAL;
*****                                 ^ duplicate identifier
*****                                            ^ duplicate identifier
 1999  PROCEDURE GetClassLong(_:HWND; _:INTEGER) : LONGINT;
*****                                 ^ duplicate identifier
 2000  PROCEDURE SetClassLong(_:HWND; _:INTEGER; _:LONGINT) : LONGINT;
*****                                 ^ duplicate identifier
*****                                            ^ duplicate identifier
 2001  PROCEDURE GetDesktopHwnd() : HWND;
 2002  PROCEDURE GetDesktopWindow() : HWND;
 2003  PROCEDURE GetParent(_:HWND) : HWND;
 2004  PROCEDURE SetParent(_:HWND; _:HWND) : HWND;
*****                              ^ duplicate identifier
 2005  PROCEDURE EnumChildWindows(_:HWND; _:FARPROC; _:LONGINT) : BOOL;
*****                                     ^ duplicate identifier
*****                                                ^ duplicate identifier
 2006  PROCEDURE FindWindow(_:ARRAY OF CHAR; _:ARRAY OF CHAR) : HWND;
*****                                  ^ not supported yet
*****                                        ^ duplicate identifier
*****                                                   ^ not supported yet
 2007  PROCEDURE EnumWindows(_:FARPROC; _:LONGINT) : BOOL;
*****                                   ^ duplicate identifier
 2008  PROCEDURE EnumTaskWindows(_:HANDLE; _:FARPROC; _:LONGINT) : BOOL;
*****                                      ^ duplicate identifier
*****                                                 ^ duplicate identifier
 2009  PROCEDURE GetClassName(_:HWND; _:ARRAY OF CHAR; _:INTEGER) : INTEGER;
*****                                 ^ duplicate identifier
*****                                            ^ not supported yet
*****                                                  ^ duplicate identifier
 2010  PROCEDURE GetTopWindow(_:HWND) : HWND;
 2011  PROCEDURE GetNextWindow(_:HWND; _:CARDINAL) : HWND;
*****                                  ^ duplicate identifier
 2012  PROCEDURE GetWindowTask(_:HWND) : HANDLE;
 2013  PROCEDURE GetLastActivePopup(_:HWND) : HWND;
 2014  
 2015  CONST
 2016    GW_HWNDFIRST = 0;
 2017    GW_HWNDLAST  = 1;
 2018    GW_HWNDNEXT  = 2;
 2019    GW_HWNDPREV  = 3;
 2020    GW_OWNER     = 4;
 2021    GW_CHILD     = 5;
 2022  
 2023  
 2024  PROCEDURE GetWindow(_:HWND; _:CARDINAL) : HWND;
*****                              ^ duplicate identifier
 2025  PROCEDURE SetWindowsHook(_:INTEGER; _:FARPROC) : FARPROC;
*****                                      ^ duplicate identifier
 2026  PROCEDURE UnhookWindowsHook(_:INTEGER; _:FARPROC) : BOOL;
*****                                         ^ duplicate identifier
 2027  PROCEDURE DefHookProc(_:INTEGER; _:CARDINAL; _:LONGCARD; VAR _:FARPROC) : LONGCARD;
*****                                   ^ duplicate identifier
*****                                               ^ duplicate identifier
*****                                                 ^ undeclared identifier
*****                                                               ^ duplicate identifier
*****                                                                            ^ undeclared identifier
 2028  
 2029  CONST
 2030    MF_INSERT           = 00H;
 2031    MF_CHANGE           = 080H;
 2032    MF_APPEND           = 0100H;
 2033    MF_DELETE           = 0200H;
 2034    MF_REMOVE           = 01000H;
 2035    MF_BYCOMMAND        = 00H;
 2036    MF_BYPOSITION       = 0400H;
 2037    MF_SEPARATOR        = 0800H;
 2038    MF_ENABLED          = 00H;
 2039    MF_GRAYED           = 01H;
 2040    MF_DISABLED         = 02H;
 2041    MF_UNCHECKED        = 00H;
 2042    MF_CHECKED          = 08H;
 2043    MF_USECHECKBITMAPS  = 0200H;
 2044    MF_STRING           = 00H;
 2045    MF_BITMAP           = 04H;
 2046    MF_OWNERDRAW        = 0100H;
 2047    MF_POPUP            = 010H;
 2048    MF_MENUBARBREAK     = 020H;
 2049    MF_MENUBREAK        = 040H;
 2050    MF_UNHILITE         = 00H;
 2051    MF_HILITE           = 080H;
 2052    MF_SYSMENU          = 02000H;
 2053    MF_HELP             = 04000H;
 2054    MF_MOUSESELECT      = 08000H;
 2055  
 2056  TYPE 
 2057  
 2058    MENUITEMTEMPLATEHEADER = RECORD
 2059                               versionNumber : CARDINAL;
 2060                               offset        : CARDINAL;
 2061                             END;
*****                             ^ not supported yet
 2062  
 2063    MENUITEMTEMPLATE = RECORD
 2064                         mtOption : CARDINAL;
 2065                         mtID     : CARDINAL;
 2066                         mtString : LPSTR;
 2067                       END;
*****                       ^ not supported yet
 2068  
 2069  CONST
 2070    MF_END             = 080H;
 2071    SC_SIZE            = 0F000H;
 2072    SC_MOVE            = 0F010H;
 2073    SC_MINIMIZE        = 0F020H;
 2074    SC_MAXIMIZE        = 0F030H;
 2075    SC_NEXTWINDOW      = 0F040H;
 2076    SC_PREVWINDOW      = 0F050H;
 2077    SC_CLOSE           = 0F060H;
 2078    SC_VSCROLL         = 0F070H;
 2079    SC_HSCROLL         = 0F080H;
 2080    SC_MOUSEMENU       = 0F090H;
 2081    SC_KEYMENU         = 0F100H;
 2082    SC_ARRANGE         = 0F110H;
 2083    SC_RESTORE         = 0F120H;
 2084    SC_TASKLIST        = 0F130H;
 2085  
 2086    SC_ICON = SC_MINIMIZE;
*****              ^ not supported yet
 2087    SC_ZOOM = SC_MAXIMIZE;
*****              ^ not supported yet
 2088  
 2089  PROCEDURE LoadBitmap(_:HANDLE; _:FarADDRESS) : HBITMAP;
*****                                 ^ duplicate identifier
*****                                   ^ undeclared identifier
 2090  PROCEDURE LoadCursor(_:HANDLE; _:FarADDRESS) : HCURSOR;
*****                                 ^ duplicate identifier
*****                                   ^ undeclared identifier
 2091  PROCEDURE CreateCursor(_:HANDLE; _:INTEGER; _:INTEGER; _:INTEGER; _:INTEGER; _:ARRAY OF CHAR; _:ARRAY OF CHAR) : HCURSOR;
*****                                   ^ duplicate identifier
*****                                              ^ duplicate identifier
*****                                                         ^ duplicate identifier
*****                                                                    ^ duplicate identifier
*****                                                                               ^ duplicate identifier
*****                                                                                          ^ not supported yet
*****                                                                                                ^ duplicate identifier
*****                                                                                                           ^ not supported yet
 2092  PROCEDURE DestroyCursor(_:HCURSOR) : BOOL;
 2093  
 2094  CONST
 2095    IDC_ARROW     = LPSTR(32512);
*****                               ^ not supported yet
 2096    IDC_IBEAM     = LPSTR(32513);
*****                               ^ not supported yet
 2097    IDC_WAIT      = LPSTR(32514);
*****                               ^ not supported yet
 2098    IDC_CROSS     = LPSTR(32515);
*****                               ^ not supported yet
 2099    IDC_UPARROW   = LPSTR(32516);
*****                               ^ not supported yet
 2100    IDC_SIZE      = LPSTR(32640);
*****                               ^ not supported yet
 2101    IDC_ICON      = LPSTR(32641);
*****                               ^ not supported yet
 2102    IDC_SIZENWSE  = LPSTR(32642);
*****                               ^ not supported yet
 2103    IDC_SIZENESW  = LPSTR(32643);
*****                               ^ not supported yet
 2104    IDC_SIZEWE    = LPSTR(32644);
*****                               ^ not supported yet
 2105    IDC_SIZENS    = LPSTR(32645);
*****                               ^ not supported yet
 2106  
 2107  PROCEDURE LoadIcon(_:HANDLE; _:FarADDRESS) : HICON;
*****                               ^ duplicate identifier
*****                                 ^ undeclared identifier
 2108  PROCEDURE CreateIcon(_:HANDLE; _:INTEGER; _:INTEGER; _:SHORTCARD; _:SHORTCARD; _:ARRAY OF CHAR; _:ARRAY OF CHAR) : HICON;
*****                                 ^ duplicate identifier
*****                                            ^ duplicate identifier
*****                                                       ^ duplicate identifier
*****                                                                    ^ duplicate identifier
*****                                                                                 ^ duplicate identifier
*****                                                                                            ^ not supported yet
*****                                                                                                  ^ duplicate identifier
*****                                                                                                             ^ not supported yet
 2109  PROCEDURE DestroyIcon(_:HICON) : BOOL;
 2110  
 2111  CONST
 2112    ORD_LANGDRIVER = 1;
 2113  
 2114    IDI_APPLICATION = LPSTR(32512);
*****                                 ^ not supported yet
 2115    IDI_HAND        = LPSTR(32513);
*****                                 ^ not supported yet
 2116    IDI_QUESTION    = LPSTR(32514);
*****                                 ^ not supported yet
 2117    IDI_EXCLAMATION = LPSTR(32515);
*****                                 ^ not supported yet
 2118    IDI_ASTERISK    = LPSTR(32516);
*****                                 ^ not supported yet
 2119  
 2120  PROCEDURE LoadString(_:HANDLE; _:CARDINAL; _:ARRAY OF CHAR; _:INTEGER) : INTEGER;
*****                                 ^ duplicate identifier
*****                                             ^ duplicate identifier
*****                                                        ^ not supported yet
*****                                                              ^ duplicate identifier
 2121  PROCEDURE AddFontResource(_:ARRAY OF CHAR) : INTEGER;
*****                                       ^ not supported yet
 2122  PROCEDURE RemoveFontResource(_:ARRAY OF CHAR) : BOOL;
*****                                          ^ not supported yet
 2123  
 2124  
 2125  CONST
 2126    CP_HWND              = 0;
 2127    CP_OPEN              = 1;
 2128    CP_DIRECT            = 2;
 2129    VK_KANA              = 015H;
 2130    VK_ROMAJI            = 016H;
 2131    VK_ZENKAKU           = 017H;
 2132    VK_HIRAGANA          = 018H;
 2133    VK_KANJI             = 019H;
 2134    VK_CONVERT           = 01CH;
 2135    VK_NONCONVERT        = 01DH;
 2136    VK_ACCEPT            = 01EH;
 2137    VK_MODECHANGE        = 01FH;
 2138    KNJ_START            = 01H;
 2139    KNJ_END              = 02H;
 2140    KNJ_QUERY            = 03H;
 2141    KNJ_LEARN_MODE       = 010H;
 2142    KNJ_GETMODE          = 011H;
 2143    KNJ_SETMODE          = 012H;
 2144    KNJ_CODECONVERT      = 020H;
 2145    KNJ_CONVERT          = 021H;
 2146    KNJ_NEXT             = 022H;
 2147    KNJ_PREVIOUS         = 023H;
 2148    KNJ_ACCEPT           = 024H;
 2149    KNJ_LEARN            = 030H;
 2150    KNJ_REGISTER         = 031H;
 2151    KNJ_REMOVE           = 032H;
 2152    KNJ_CHANGE_UDIC      = 033H;
 2153    KNJ_JIS1toJIS1KATAKANA  = 014H;
 2154    KNJ_JIS1toSJIS2         = 013H;
 2155    KNJ_JIS1toSJIS2HIRAGANA = 015H;
 2156    KNJ_JIS1toSJIS2KATAKANA = 016H;
 2157    KNJ_JIS1toDEFAULT       = 010H;
 2158    KNJ_JIS1toSJIS2OEM      = 01FH;
 2159    KNJ_JIS2toSJIS2         = 023H;
 2160    KNJ_SJIS2toJIS2         = 032H;
 2161    KNJ_MD_ALPHA         = 01H;
 2162    KNJ_MD_HIRAGANA      = 02H;
 2163    KNJ_MD_HALF          = 04H;
 2164    KNJ_MD_JIS           = 08H;
 2165    KNJ_MD_SPECIAL       = 010H;
 2166    KNJ_CVT_NEXT         = 01H;
 2167    KNJ_CVT_PREV         = 02H;
 2168    KNJ_CVT_KATAKANA     = 03H;
 2169    KNJ_CVT_HIRAGANA     = 04H;
 2170    KNJ_CVT_JIS1         = 05H;
 2171    KNJ_CVT_SJIS2        = 06H;
 2172    KNJ_CVT_DEFAULT      = 07H;
 2173    KNJ_CVT_TYPED        = 08H;
 2174  
 2175  TYPE
 2176  
 2177    KANJISTRUCT = RECORD
 2178                    fnc    : INTEGER;
 2179                    wParam : INTEGER;
 2180                    lpSource : LPSTR;
 2181                    lpDest : LPSTR;
 2182                    wCount : INTEGER;
 2183                    lpReserved1 : LPSTR;
 2184                    lpReserved2 : LPSTR;
 2185                  END;
*****                  ^ not supported yet
 2186    LPKANJISTRUCT = POINTER TO KANJISTRUCT;
*****                               ^ not supported yet
 2187  
 2188  PROCEDURE ConvertRequest(_:HWND; VAR _:KANJISTRUCT) : INTEGER;
*****                                       ^ duplicate identifier
 2189  PROCEDURE SetConvertParams(_:INTEGER; _:INTEGER) : BOOL;
*****                                        ^ duplicate identifier
 2190  PROCEDURE SetConvertHook(_:BOOL);
 2191  PROCEDURE IsTwoByteCharPrefix(_:CHAR) : BOOL;
 2192  
 2193  CONST
 2194    IDOK               = 1;
 2195    IDCANCEL           = 2;
 2196    IDABORT            = 3;
 2197    IDRETRY            = 4;
 2198    IDIGNORE           = 5;
 2199    IDYES              = 6;
 2200    IDNO               = 7;
 2201    ES_LEFT            = 00H;
 2202    ES_CENTER          = 01H;
 2203    ES_RIGHT           = 02H;
 2204    ES_MULTILINE       = 04H;
 2205    ES_UPPERCASE       = 08H;
 2206    ES_LOWERCASE       = 010H;
 2207    ES_PASSWORD        = 020H;
 2208    ES_AUTOVSCROLL     = 040H;
 2209    ES_AUTOHSCROLL     = 080H;
 2210    ES_NOHIDESEL       = 0100H;
 2211    ES_OEMCONVERT      = 0400H;
 2212    EN_SETFOCUS        = 0100H;
 2213    EN_KILLFOCUS       = 0200H;
 2214    EN_CHANGE          = 0300H;
 2215    EN_UPDATE          = 0400H;
 2216    EN_ERRSPACE        = 0500H;
 2217    EN_MAXTEXT         = 0501H;
 2218    EN_HSCROLL         = 0601H;
 2219    EN_VSCROLL         = 0602H;
 2220    EM_GETSEL          = WM_USER+0;
*****                                 ^ not supported yet
 2221    EM_SETSEL          = WM_USER+1;
*****                                 ^ not supported yet
 2222    EM_GETRECT         = WM_USER+2;
*****                                 ^ not supported yet
 2223    EM_SETRECT         = WM_USER+3;
*****                                 ^ not supported yet
 2224    EM_SETRECTNP       = WM_USER+4;
*****                                 ^ not supported yet
 2225    EM_SCROLL          = WM_USER+5;
*****                                 ^ not supported yet
 2226    EM_LINESCROLL      = WM_USER+6;
*****                                 ^ not supported yet
 2227    EM_GETMODIFY       = WM_USER+8;
*****                                 ^ not supported yet
 2228    EM_SETMODIFY       = WM_USER+9;
*****                                 ^ not supported yet
 2229    EM_GETLINECOUNT    = WM_USER+10;
*****                                 ^ not supported yet
 2230    EM_LINEINDEX       = WM_USER+11;
*****                                 ^ not supported yet
 2231    EM_SETHANDLE       = WM_USER+12;
*****                                 ^ not supported yet
 2232    EM_GETHANDLE       = WM_USER+13;
*****                                 ^ not supported yet
 2233    EM_GETTHUMB        = WM_USER+14;
*****                                 ^ not supported yet
 2234    EM_LINELENGTH      = WM_USER+17;
*****                                 ^ not supported yet
 2235    EM_REPLACESEL      = WM_USER+18;
*****                                 ^ not supported yet
 2236    EM_SETFONT         = WM_USER+19;
*****                                 ^ not supported yet
 2237    EM_GETLINE         = WM_USER+20;
*****                                 ^ not supported yet
 2238    EM_LIMITTEXT       = WM_USER+21;
*****                                 ^ not supported yet
 2239    EM_CANUNDO         = WM_USER+22;
*****                                 ^ not supported yet
 2240    EM_UNDO            = WM_USER+23;
*****                                 ^ not supported yet
 2241    EM_FMTLINES        = WM_USER+24;
*****                                 ^ not supported yet
 2242    EM_LINEFROMCHAR    = WM_USER+25;
*****                                 ^ not supported yet
 2243    EM_SETWORDBREAK    = WM_USER+26;
*****                                 ^ not supported yet
 2244    EM_SETTABSTOPS     = WM_USER+27;
*****                                 ^ not supported yet
 2245    EM_SETPASSWORDCHAR = WM_USER+28;
*****                                 ^ not supported yet
 2246    EM_EMPTYUNDOBUFFER = WM_USER+29;
*****                                 ^ not supported yet
 2247    EM_MSGMAX          = WM_USER+30;
*****                                 ^ not supported yet
 2248    BS_PUSHBUTTON      = 00H;
 2249    BS_DEFPUSHBUTTON   = 01H;
 2250    BS_CHECKBOX        = 02H;
 2251    BS_AUTOCHECKBOX    = 03H;
 2252    BS_RADIOBUTTON     = 04H;
 2253    BS_3STATE          = 05H;
 2254    BS_AUTO3STATE      = 06H;
 2255    BS_GROUPBOX        = 07H;
 2256    BS_USERBUTTON      = 08H;
 2257    BS_AUTORADIOBUTTON = 09H;
 2258    BS_PUSHBOX         = 0AH;
 2259    BS_OWNERDRAW       = 0BH;
 2260    BS_LEFTTEXT        = 020H;
 2261    BN_CLICKED         = 0;
 2262    BN_PAINT           = 1;
 2263    BN_HILITE          = 2;
 2264    BN_UNHILITE        = 3;
 2265    BN_DISABLE         = 4;
 2266    BN_DOUBLECLICKED   = 5;
 2267    BM_GETCHECK        = WM_USER+0;
*****                                 ^ not supported yet
 2268    BM_SETCHECK        = WM_USER+1;
*****                                 ^ not supported yet
 2269    BM_GETSTATE        = WM_USER+2;
*****                                 ^ not supported yet
 2270    BM_SETSTATE        = WM_USER+3;
*****                                 ^ not supported yet
 2271    BM_SETSTYLE        = WM_USER+4;
*****                                 ^ not supported yet
 2272    SS_LEFT            = 00H;
 2273    SS_CENTER          = 01H;
 2274    SS_RIGHT           = 02H;
 2275    SS_ICON            = 03H;
 2276    SS_BLACKRECT       = 04H;
 2277    SS_GRAYRECT        = 05H;
 2278    SS_WHITERECT       = 06H;
 2279    SS_BLACKFRAME      = 07H;
 2280    SS_GRAYFRAME       = 08H;
 2281    SS_WHITEFRAME      = 09H;
 2282    SS_USERITEM        = 0AH;
 2283    SS_SIMPLE          = 0BH;
 2284    SS_LEFTNOWORDWRAP  = 0CH;
 2285    SS_NOPREFIX        = 080H;
 2286  
 2287  PROCEDURE IsDialogMessage(_:HWND; VAR _:MSG) : BOOL;
*****                                        ^ duplicate identifier
 2288  PROCEDURE MapDialogRect(_:HWND; VAR _:RECT);
*****                                      ^ duplicate identifier
 2289  PROCEDURE DlgDirList(_:HWND; _:ARRAY OF CHAR; _:INTEGER; _:INTEGER; _:CARDINAL) : INTEGER;
*****                               ^ duplicate identifier
*****                                          ^ not supported yet
*****                                                ^ duplicate identifier
*****                                                           ^ duplicate identifier
*****                                                                      ^ duplicate identifier
 2290  PROCEDURE DlgDirSelect(_:HWND; _:ARRAY OF CHAR; _:INTEGER) : BOOL;
*****                                 ^ duplicate identifier
*****                                            ^ not supported yet
*****                                                  ^ duplicate identifier
 2291  PROCEDURE DlgDirListComboBox(_:HWND; _:ARRAY OF CHAR; _:INTEGER; _:INTEGER; _:CARDINAL) : INTEGER;
*****                                       ^ duplicate identifier
*****                                                  ^ not supported yet
*****                                                        ^ duplicate identifier
*****                                                                   ^ duplicate identifier
*****                                                                              ^ duplicate identifier
 2292  PROCEDURE DlgDirSelectComboBox(_:HWND; _:ARRAY OF CHAR; _:INTEGER) : BOOL;
*****                                         ^ duplicate identifier
*****                                                    ^ not supported yet
*****                                                          ^ duplicate identifier
 2293  
 2294  CONST
 2295    DS_ABSALIGN        = 01H;
 2296    DS_SYSMODAL        = 02H;
 2297    DS_LOCALEDIT       = 020H;
 2298    DS_SETFONT         = 040H;
 2299    DS_MODALFRAME      = 080H;
 2300    DS_NOIDLEMSG       = 0100H;
 2301    DM_GETDEFID        = WM_USER+0;
*****                                 ^ not supported yet
 2302    DM_SETDEFID        = WM_USER+1;
*****                                 ^ not supported yet
 2303    DC_HASDEFID        = 0534BH;
 2304    DLGC_WANTARROWS    = 01H;
 2305    DLGC_WANTTAB       = 02H;
 2306    DLGC_WANTALLKEYS   = 04H;
 2307    DLGC_WANTMESSAGE   = 04H;
 2308    DLGC_HASSETSEL     = 08H;
 2309    DLGC_DEFPUSHBUTTON = 010H;
 2310    DLGC_UNDEFPUSHBUTTON = 020H;
 2311    DLGC_RADIOBUTTON   = 040H;
 2312    DLGC_WANTCHARS     = 080H;
 2313    DLGC_STATIC        = 0100H;
 2314    DLGC_BUTTON        = 02000H;
 2315    LB_CTLCODE         = 0;
 2316    LB_OKAY            = 0;
 2317    LB_ERR             = -1;
 2318    LB_ERRSPACE        = -2;
 2319    LBN_ERRSPACE       = -2;
 2320    LBN_SELCHANGE      = 1;
 2321    LBN_DBLCLK         = 2;
 2322    LBN_SELCANCEL      = 3;
 2323    LBN_SETFOCUS       = 4;
 2324    LBN_KILLFOCUS      = 5;
 2325    LB_ADDSTRING       = WM_USER+1;
*****                                 ^ not supported yet
 2326    LB_INSERTSTRING    = WM_USER+2;
*****                                 ^ not supported yet
 2327    LB_DELETESTRING    = WM_USER+3;
*****                                 ^ not supported yet
 2328    LB_RESETCONTENT    = WM_USER+5;
*****                                 ^ not supported yet
 2329    LB_SETSEL          = WM_USER+6;
*****                                 ^ not supported yet
 2330    LB_SETCURSEL       = WM_USER+7;
*****                                 ^ not supported yet
 2331    LB_GETSEL          = WM_USER+8;
*****                                 ^ not supported yet
 2332    LB_GETCURSEL       = WM_USER+9;
*****                                 ^ not supported yet
 2333    LB_GETTEXT         = WM_USER+10;
*****                                 ^ not supported yet
 2334    LB_GETTEXTLEN      = WM_USER+11;
*****                                 ^ not supported yet
 2335    LB_GETCOUNT        = WM_USER+12;
*****                                 ^ not supported yet
 2336    LB_SELECTSTRING    = WM_USER+13;
*****                                 ^ not supported yet
 2337    LB_DIR             = WM_USER+14;
*****                                 ^ not supported yet
 2338    LB_GETTOPINDEX     = WM_USER+15;
*****                                 ^ not supported yet
 2339    LB_FINDSTRING      = WM_USER+16;
*****                                 ^ not supported yet
 2340    LB_GETSELCOUNT     = WM_USER+17;
*****                                 ^ not supported yet
 2341    LB_GETSELITEMS     = WM_USER+18;
*****                                 ^ not supported yet
 2342    LB_SETTABSTOPS     = WM_USER+19;
*****                                 ^ not supported yet
 2343    LB_GETHORIZONTALEXTENT = WM_USER+20;
*****                                     ^ not supported yet
 2344    LB_SETHORIZONTALEXTENT = WM_USER+21;
*****                                     ^ not supported yet
 2345    LB_SETCOLUMNWIDTH  = WM_USER+22;
*****                                 ^ not supported yet
 2346    LB_SETTOPINDEX     = WM_USER+24;
*****                                 ^ not supported yet
 2347    LB_GETITEMRECT     = WM_USER+25;
*****                                 ^ not supported yet
 2348    LB_GETITEMDATA     = WM_USER+26;
*****                                 ^ not supported yet
 2349    LB_SETITEMDATA     = WM_USER+27;
*****                                 ^ not supported yet
 2350    LB_SELITEMRANGE    = WM_USER+28;
*****                                 ^ not supported yet
 2351    LB_MSGMAX          = WM_USER+33;
*****                                 ^ not supported yet
 2352    LBS_NOTIFY         = 01H;
 2353    LBS_SORT           = 02H;
 2354    LBS_NOREDRAW       = 04H;
 2355    LBS_MULTIPLESEL    = 08H;
 2356    LBS_OWNERDRAWFIXED = 010H;
 2357    LBS_OWNERDRAWVARIABLE = 020H;
 2358    LBS_HASSTRINGS     = 040H;
 2359    LBS_USETABSTOPS    = 080H;
 2360    LBS_NOINTEGRALHEIGHT = 0100H;
 2361    LBS_MULTICOLUMN    = 0200H;
 2362    LBS_WANTKEYBOARDINPUT = 0400H;
 2363    LBS_EXTENDEDSEL    = 0800H;
 2364    LBS_STANDARD       = 0A00003H; (*LBS_NOTIFY OR LBS_SORT OR WS_VSCROLL OR WS_BORDER;*)
 2365  
 2366    CB_OKAY            = 0;
 2367    CB_ERR             = -1;
 2368    CB_ERRSPACE        = -2;
 2369    CBN_ERRSPACE       = -1;
 2370    CBN_SELCHANGE      = 1;
 2371    CBN_DBLCLK         = 2;
 2372    CBN_SETFOCUS       = 3;
 2373    CBN_KILLFOCUS      = 4;
 2374    CBN_EDITCHANGE     = 5;
 2375    CBN_EDITUPDATE     = 6;
 2376    CBN_DROPDOWN       = 7;
 2377    CBS_SIMPLE         = 01H;
 2378    CBS_DROPDOWN       = 02H;
 2379    CBS_DROPDOWNLIST   = 03H;
 2380    CBS_OWNERDRAWFIXED = 010H;
 2381    CBS_OWNERDRAWVARIABLE = 020H;
 2382    CBS_AUTOHSCROLL    = 040H;
 2383    CBS_OEMCONVERT     = 080H;
 2384    CBS_SORT           = 0100H;
 2385    CBS_HASSTRINGS     = 0200H;
 2386    CBS_NOINTEGRALHEIGHT = 0400H;
 2387  
 2388    CB_GETEDITSEL      = WM_USER+0;
*****                                 ^ not supported yet
 2389    CB_LIMITTEXT       = WM_USER+1;
*****                                 ^ not supported yet
 2390    CB_SETEDITSEL      = WM_USER+2;
*****                                 ^ not supported yet
 2391    CB_ADDSTRING       = WM_USER+3;
*****                                 ^ not supported yet
 2392    CB_DELETESTRING    = WM_USER+4;
*****                                 ^ not supported yet
 2393    CB_DIR             = WM_USER+5;
*****                                 ^ not supported yet
 2394    CB_GETCOUNT        = WM_USER+6;
*****                                 ^ not supported yet
 2395    CB_GETCURSEL       = WM_USER+7;
*****                                 ^ not supported yet
 2396    CB_GETLBTEXT       = WM_USER+8;
*****                                 ^ not supported yet
 2397    CB_GETLBTEXTLEN    = WM_USER+9;
*****                                 ^ not supported yet
 2398    CB_INSERTSTRING    = WM_USER+10;
*****                                 ^ not supported yet
 2399    CB_RESETCONTENT    = WM_USER+11;
*****                                 ^ not supported yet
 2400    CB_FINDSTRING      = WM_USER+12;
*****                                 ^ not supported yet
 2401    CB_SELECTSTRING    = WM_USER+13;
*****                                 ^ not supported yet
 2402    CB_SETCURSEL       = WM_USER+14;
*****                                 ^ not supported yet
 2403    CB_SHOWDROPDOWN    = WM_USER+15;
*****                                 ^ not supported yet
 2404    CB_GETITEMDATA     = WM_USER+16;
*****                                 ^ not supported yet
 2405    CB_SETITEMDATA     = WM_USER+17;
*****                                 ^ not supported yet
 2406    CB_GETDROPPEDCONTROLRECT = WM_USER+18;
*****                                       ^ not supported yet
 2407    CB_MSGMAX          = WM_USER+19;
*****                                 ^ not supported yet
 2408  
 2409    SBS_HORZ           = 00H;
 2410    SBS_VERT           = 01H;
 2411    SBS_TOPALIGN       = 02H;
 2412    SBS_LEFTALIGN      = 02H;
 2413    SBS_BOTTOMALIGN    = 04H;
 2414    SBS_RIGHTALIGN     = 04H;
 2415    SBS_SIZEBOXTOPLEFTALIGN = 02H;
 2416    SBS_SIZEBOXBOTTOMRIGHTALIGN = 04H;
 2417    SBS_SIZEBOX        = 08H;
 2418  
 2419  PROCEDURE OpenSound() : INTEGER;
 2420  PROCEDURE CloseSound();
 2421  PROCEDURE SetVoiceQueueSize(_:INTEGER; _:INTEGER) : INTEGER;
*****                                         ^ duplicate identifier
 2422  PROCEDURE SetVoiceNote(_:INTEGER; _:INTEGER; _:INTEGER; _:INTEGER) : INTEGER;
*****                                    ^ duplicate identifier
*****                                               ^ duplicate identifier
*****                                                          ^ duplicate identifier
 2423  PROCEDURE SetVoiceAccent(_:INTEGER; _:INTEGER; _:INTEGER; _:INTEGER; _:INTEGER) : INTEGER;
*****                                      ^ duplicate identifier
*****                                                 ^ duplicate identifier
*****                                                            ^ duplicate identifier
*****                                                                       ^ duplicate identifier
 2424  PROCEDURE SetVoiceEnvelope(_:INTEGER; _:INTEGER; _:INTEGER) : INTEGER;
*****                                        ^ duplicate identifier
*****                                                   ^ duplicate identifier
 2425  PROCEDURE SetSoundNoise(_:INTEGER; _:INTEGER) : INTEGER;
*****                                     ^ duplicate identifier
 2426  PROCEDURE SetVoiceSound(_:INTEGER; _:LONGINT; _:INTEGER) : INTEGER;
*****                                     ^ duplicate identifier
*****                                                ^ duplicate identifier
 2427  PROCEDURE StartSound() : INTEGER;
 2428  PROCEDURE StopSound() : INTEGER;
 2429  PROCEDURE WaitSoundState(_:INTEGER) : INTEGER;
 2430  PROCEDURE SyncAllVoices() : INTEGER;
 2431  PROCEDURE CountVoiceNotes(_:INTEGER) : INTEGER;
 2432  PROCEDURE GetThresholdEvent() : LPINT;
 2433  PROCEDURE GetThresholdStatus() : INTEGER;
 2434  PROCEDURE SetVoiceThreshold(_:INTEGER; _:INTEGER) : INTEGER;
*****                                         ^ duplicate identifier
 2435  
 2436  
 2437  CONST 
 2438    S_QUEUEEMPTY            = 0;
 2439    S_THRESHOLD             = 1;
 2440    S_ALLTHRESHOLD          = 2;
 2441    S_NORMAL                = 0;
 2442    S_LEGATO                = 1;
 2443    S_STACCATO              = 2;
 2444    S_PERIOD512             = 0;
 2445    S_PERIOD1024            = 1;
 2446    S_PERIOD2048            = 2;
 2447    S_PERIODVOICE           = 3;
 2448    S_WHITE512              = 4;
 2449    S_WHITE1024             = 5;
 2450    S_WHITE2048             = 6;
 2451    S_WHITEVOICE            = 7;
 2452    S_SERDVNA               = -1;
 2453    S_SEROFM                = -2;
 2454    S_SERMACT               = -3;
 2455    S_SERQFUL               = -4;
 2456    S_SERBDNT               = -5;
 2457    S_SERDLN                = -6;
 2458    S_SERDCC                = -7;
 2459    S_SERDTP                = -8;
 2460    S_SERDVL                = -9;
 2461    S_SERDMD                = -10;
 2462    S_SERDSH                = -11;
 2463    S_SERDPT                = -12;
 2464    S_SERDFQ                = -13;
 2465    S_SERDDR                = -14;
 2466    S_SERDSR                = -15;
 2467    S_SERDST                = -16;
 2468    NOPARITY                = 0;
 2469    ODDPARITY               = 1;
 2470    EVENPARITY              = 2;
 2471    MARKPARITY              = 3;
 2472    SPACEPARITY             = 4;
 2473    ONESTOPBIT              = 0;
 2474    ONE5STOPBITS            = 1;
 2475    TWOSTOPBITS             = 2;
 2476    IGNORE                  = 0;
 2477    INFINITE                = 0FFFFH;
 2478    CE_RXOVER               = 01H;
 2479    CE_OVERRUN              = 02H;
 2480    CE_RXPARITY             = 04H;
 2481    CE_FRAME                = 08H;
 2482    CE_BREAK                = 010H;
 2483    CE_CTSTO                = 020H;
 2484    CE_DSRTO                = 040H;
 2485    CE_RLSDTO               = 080H;
 2486    CE_TXFULL               = 0100H;
 2487    CE_PTO                  = 0200H;
 2488    CE_IOE                  = 0400H;
 2489    CE_DNS                  = 0800H;
 2490    CE_OOP                  = 01000H;
 2491    CE_MODE                 = 08000H;
 2492    IE_BADID                = -1;
 2493    IE_OPEN                 = -2;
 2494    IE_NOPEN                = -3;
 2495    IE_MEMORY               = -4;
 2496    IE_DEFAULT              = -5;
 2497    IE_HARDWARE             = -10;
 2498    IE_BYTESIZE             = -11;
 2499    IE_BAUDRATE             = -12;
 2500    EV_RXCHAR               = 01H;
 2501    EV_RXFLAG               = 02H;
 2502    EV_TXEMPTY              = 04H;
 2503    EV_CTS                  = 08H;
 2504    EV_DSR                  = 010H;
 2505    EV_RLSD                 = 020H;
 2506    EV_BREAK                = 040H;
 2507    EV_ERR                  = 080H;
 2508    EV_RING                 = 0100H;
 2509    EV_PERR                 = 0200H;
 2510    SETXOFF                 = 1;
 2511    SETXON                  = 2;
 2512    SETRTS                  = 3;
 2513    CLRRTS                  = 4;
 2514    SETDTR                  = 5;
 2515    CLRDTR                  = 6;
 2516    RESETDEV                = 7;
 2517    LPTx                    = 080H;
 2518  
 2519    TYPE
 2520      DCBBits             = (fBinary,fRtsDisable,fPartiy,fOutxCtsFlow,fOutxDsrFlow,
 2521                             fDummy6,fDummy7,fDtrDisable,fOutX,fInX,fPeChar,fNull,
 2522                             fChEvt,fDtrFlow,fRtsFlow,fDummy15);
 2523      DCBBitSet           = SET OF DCBBits;
*****                                   ^ not supported yet
 2524      DCB                 = RECORD
 2525                              Id         : SHORTCARD;
 2526                              BaudRate   : CARDINAL;
 2527                              ByteSize   : SHORTCARD;
 2528                              Parity     : SHORTCARD;
 2529                              StopBits   : SHORTCARD;
 2530                              RlsTimeout : CARDINAL;
 2531                              CtsTimeout : CARDINAL;
 2532                              DsrTimeout : CARDINAL;
 2533                              fBits      : DCBBitSet;
 2534                              XonChar    : CHAR;
 2535                              XoffChar   : CHAR;
 2536                              XonLim     : CARDINAL;
 2537                              XoffLim    : CARDINAL;
 2538                              PeChar     : CHAR;
 2539                              EofChar    : CHAR;
 2540                              EvtChar    : CHAR;
 2541                              TxDelay    : CARDINAL;
 2542                            END; (*DCB*)
*****                            ^ not supported yet
 2543  
 2544    COMSTAT = RECORD
 2545                fCtsHold : SHORTCARD;  (* bit fields: fCtsHold:1, fDsrHold:1, fRlsdHold:1, fXoffHold:1, fXoffSent:1, fEof:1, fTxim:1 *)
 2546                cbInQue : CARDINAL;
 2547                cbOutQue : CARDINAL;
 2548              END;
*****              ^ not supported yet
 2549  
 2550  PROCEDURE OpenComm(_:ARRAY OF CHAR; _:CARDINAL; _:CARDINAL) : INTEGER;
*****                                ^ not supported yet
*****                                      ^ duplicate identifier
*****                                                  ^ duplicate identifier
 2551  PROCEDURE SetCommState(VAR _:DCB) : INTEGER;
 2552  PROCEDURE GetCommState(_:INTEGER; VAR _:DCB) : INTEGER;
*****                                        ^ duplicate identifier
 2553  PROCEDURE ReadComm(_:INTEGER; _:ARRAY OF CHAR; _:INTEGER) : INTEGER;
*****                                ^ duplicate identifier
*****                                           ^ not supported yet
*****                                                 ^ duplicate identifier
 2554  PROCEDURE UngetCommChar(_:INTEGER; _:CHAR) : INTEGER;
*****                                     ^ duplicate identifier
 2555  PROCEDURE WriteComm(_:INTEGER; _:ARRAY OF CHAR; _:INTEGER) : INTEGER;
*****                                 ^ duplicate identifier
*****                                            ^ not supported yet
*****                                                  ^ duplicate identifier
 2556  PROCEDURE CloseComm(_:INTEGER) : INTEGER;
 2557  PROCEDURE GetCommError(_:INTEGER; VAR _:COMSTAT) : INTEGER;
*****                                        ^ duplicate identifier
 2558  PROCEDURE BuildCommDCB(_:ARRAY OF CHAR; VAR _:DCB) : INTEGER;
*****                                    ^ not supported yet
*****                                              ^ duplicate identifier
 2559  PROCEDURE TransmitCommChar(_:INTEGER; _:CHAR) : INTEGER;
*****                                        ^ duplicate identifier
 2560  PROCEDURE SetCommEventMask(_:INTEGER; _:CARDINAL) : ADDRESS;
*****                                        ^ duplicate identifier
*****                                                      ^ undeclared identifier
 2561  PROCEDURE GetCommEventMask(_:INTEGER; _:INTEGER) : CARDINAL;
*****                                        ^ duplicate identifier
 2562  PROCEDURE SetCommBreak(_:INTEGER) : INTEGER;
 2563  PROCEDURE ClearCommBreak(_:INTEGER) : INTEGER;
 2564  PROCEDURE FlushComm(_:INTEGER; _:INTEGER) : INTEGER;
*****                                 ^ duplicate identifier
 2565  PROCEDURE EscapeCommFunction(_:INTEGER; _:INTEGER) : INTEGER;
*****                                          ^ duplicate identifier
 2566  
 2567  TYPE
 2568  
 2569    MDICREATESTRUCT = RECORD
 2570                        szClass : LPSTR;
 2571                        szTitle : LPSTR;
 2572                        hOwner : CARDINAL;
 2573                        x : INTEGER;
 2574                        y : INTEGER;
 2575                        cx : INTEGER;
 2576                        cy : INTEGER;
 2577                        style : LONGINT;
 2578                        lParam : LONGINT;
 2579                      END;
*****                      ^ not supported yet
 2580    LPMDICREATESTRUCT = POINTER TO MDICREATESTRUCT;
*****                                   ^ not supported yet
 2581  
 2582    CLIENTCREATESTRUCT = RECORD
 2583                           hWindowMenu : CARDINAL;
 2584                           idFirstChild : CARDINAL;
 2585                         END;
*****                         ^ not supported yet
 2586    LPCLIENTCREATESTRUCT = POINTER TO CLIENTCREATESTRUCT;
*****                                      ^ not supported yet
 2587  
 2588  PROCEDURE DefFrameProc(_:CARDINAL; _:CARDINAL; _:CARDINAL; _:CARDINAL; _:LONGINT) : LONGINT;
*****                                     ^ duplicate identifier
*****                                                 ^ duplicate identifier
*****                                                             ^ duplicate identifier
*****                                                                         ^ duplicate identifier
 2589  PROCEDURE DefMDIChildProc(_:CARDINAL; _:CARDINAL; _:CARDINAL; _:LONGINT) : LONGINT;
*****                                        ^ duplicate identifier
*****                                                    ^ duplicate identifier
*****                                                                ^ duplicate identifier
 2590  PROCEDURE TranslateMDISysAccel(_:CARDINAL; VAR _:MSG) : INTEGER;
*****                                                 ^ duplicate identifier
 2591  PROCEDURE ArrangeIconicWindows(_:CARDINAL) : CARDINAL;
 2592  
 2593  CONST
 2594    HELP_CONTEXT           = 01H;
 2595    HELP_QUIT              = 02H;
 2596    HELP_INDEX             = 03H;
 2597    HELP_HELPONHELP        = 04H;
 2598    HELP_SETINDEX          = 05H;
 2599    HELP_KEY               = 0101H;
 2600    HELP_MULTIKEY          = 0201H;
 2601  
 2602  PROCEDURE WinHelp(hwndMain : CARDINAL; lpszHelp : ARRAY OF CHAR; usCommand : CARDINAL; ulData : LONGCARD) : INTEGER;
*****                                                             ^ not supported yet
*****                                                                                                  ^ undeclared identifier
 2603  
 2604  TYPE
 2605  
 2606    MULTIKEYHELP = RECORD
 2607                     mkSize : CARDINAL;
 2608                     mkKeylist : SHORTCARD;
 2609                     szKeyphrase : ARRAY [0..0] OF SHORTCARD;
*****                                             ^ not supported yet
*****                                                   ^ not supported yet
 2610                   END;
*****                   ^ not supported yet
 2611  
 2612  (*# save,call(c_conv=>off,reg_param=>(),near_call=>off),name(prefix=>none)*)
 2613  PROCEDURE ProfInsChk() : INTEGER;
 2614  PROCEDURE ProfSetup(_:INTEGER; _:INTEGER);
*****                                 ^ duplicate identifier
 2615  PROCEDURE ProfSampRate(_:INTEGER; _:INTEGER);
*****                                    ^ duplicate identifier
 2616  PROCEDURE ProfStart();
 2617  PROCEDURE ProfStop();
 2618  PROCEDURE ProfClear();
 2619  PROCEDURE ProfFlush();
 2620  PROCEDURE ProfFinish();
 2621  (*# restore *)
 2622  
 2623  PROCEDURE GlobalDosAlloc(_:LONGCARD):LONGCARD;
*****                             ^ undeclared identifier
*****                                       ^ undeclared identifier
 2624  PROCEDURE GlobalDosFree(_:CARDINAL):CARDINAL;
 2625  
 2626  PROCEDURE FatalAppExit(_:CARDINAL;_:ARRAY OF CHAR);
*****                                    ^ duplicate identifier
*****                                               ^ not supported yet
 2627  PROCEDURE GetDOSEnvironment():FarADDRESS;
*****                                ^ undeclared identifier
 2628  
 2629    CONST
 2630      CCHDEVICENAME       = 32;
 2631  
 2632    TYPE
 2633      DEVMODE             = RECORD
 2634                              dmDeviceName    : ARRAY[0..CCHDEVICENAME-1] OF CHAR;
*****                                                                       ^ not supported yet
*****                                                                             ^ not supported yet
 2635                              dmSpecVersion   : CARDINAL;
 2636                              dmDriverVersion : CARDINAL;
 2637                              dmSize          : CARDINAL;
 2638                              dmDriverExtra   : CARDINAL;
 2639                              dmFields        : LONGCARD;
*****                                                ^ undeclared identifier
 2640                              dmOrientation   : SHORTCARD;
 2641                              dmPaperSize     : SHORTCARD;
 2642                              dmPaperLength   : SHORTCARD;
 2643                              dmPaperWidth    : SHORTCARD;
 2644                              dmScale         : SHORTCARD;
 2645                              dmCopies        : SHORTCARD;
 2646                              dmDefaultSource : SHORTCARD;
 2647                              dmPrintQuality  : SHORTCARD;
 2648                              dmColor         : SHORTCARD;
 2649                              dmDuplex        : SHORTCARD;
 2650                            END; (*DEVMODE*)
*****                            ^ not supported yet
 2651      PDEVMODE            = POINTER TO DEVMODE;
*****                                       ^ not supported yet
 2652  
 2653    PROCEDURE DefineHandleTable(_:CARDINAL):BOOL;
 2654    PROCEDURE DeviceCapabilities(_:ARRAY OF CHAR;_:ARRAY OF CHAR;_:CARDINAL;_:ARRAY OF CHAR;VAR _:DEVMODE):LONGCARD;
*****                                            ^ not supported yet
*****                                                 ^ duplicate identifier
*****                                                            ^ not supported yet
*****                                                                 ^ duplicate identifier
*****                                                                            ^ duplicate identifier
*****                                                                                       ^ not supported yet
*****                                                                                                ^ duplicate identifier
*****                                                                                                           ^ undeclared identifier
 2655    PROCEDURE DeviceMode(_:HWND;_:HANDLE;_:ARRAY OF CHAR;_:ARRAY OF CHAR);
*****                                ^ duplicate identifier
*****                                         ^ duplicate identifier
*****                                                    ^ not supported yet
*****                                                         ^ duplicate identifier
*****                                                                    ^ not supported yet
 2656    PROCEDURE ExtDeviceMode(_:HWND;_:HANDLE;VAR _:DEVMODE;_:ARRAY OF CHAR;_:ARRAY OF CHAR;VAR _:DEVMODE;_:ARRAY OF CHAR;_:CARDINAL):INTEGER;
*****                                   ^ duplicate identifier
*****                                                ^ duplicate identifier
*****                                                          ^ duplicate identifier
*****                                                                     ^ not supported yet
*****                                                                          ^ duplicate identifier
*****                                                                                     ^ not supported yet
*****                                                                                              ^ duplicate identifier
*****                                                                                                        ^ duplicate identifier
*****                                                                                                                   ^ not supported yet
*****                                                                                                                        ^ duplicate identifier
 2657  
 2658  (* extras *)
 2659  
 2660  PROCEDURE WAITEVENT( c:CARDINAL);
 2661  PROCEDURE INITAPP( c:CARDINAL):CARDINAL;
 2662  PROCEDURE _exit( c:CARDINAL);
 2663  
 2664  VAR
 2665  (* The following are for use as VAR parameters when NULL required *)
 2666    NullVar[0:0]          : ARRAY[0..0] OF BYTE;
*****            ^ not supported yet
*****              ^ not supported yet
*****                                     ^ not supported yet
*****                                           ^ undeclared identifier
 2667    NullStr[0:0]          : ARRAY[0..0] OF CHAR;
*****            ^ not supported yet
*****              ^ not supported yet
*****                                     ^ not supported yet
*****                                           ^ not supported yet
 2668    NullRect[0:0]         : RECT;
*****             ^ not supported yet
*****               ^ not supported yet
*****                            ^ not supported yet
 2669  
 2670  (* Inline utility procedures *)
 2671  (*# restore *)
 2672  
 2673  (*# save,call(inline=>on,seg_name=>INLINE,near_call=>off) *)
 2674  
 2675    INLINE PROCEDURE GlobalDiscard(h:HANDLE):HANDLE;
 2676      BEGIN
 2677        RETURN GlobalReAlloc(h,0,GMEM_MOVEABLE);
 2678      END GlobalDiscard;
 2679  
 2680    INLINE PROCEDURE LockData(dummy:WORD):HANDLE;
 2681      BEGIN
 2682        RETURN LockSegment(0FFFFH);
 2683      END LockData;
 2684  
 2685    INLINE PROCEDURE UnlockData(dummy:WORD):HANDLE;
 2686      BEGIN
 2687        RETURN UnlockSegment(0FFFFH);
 2688      END UnlockData;
 2689  
 2690  
 2691    CONST
 2692  (*%T _fcall *) _Ret     = 0CBH; (*%E *)
 2693  (*%F _fcall *) _Ret     = 0C3H; (*%E *)
 2694    TYPE
 2695      _C1                 = ARRAY[0..0] OF BYTE;
 2696      _C2                 = ARRAY[0..1] OF BYTE;
 2697      _C3                 = ARRAY[0..2] OF BYTE;
 2698      _C4                 = ARRAY[0..3] OF BYTE;
 2699      _C5                 = ARRAY[0..4] OF BYTE;
 2700      _C7                 = ARRAY[0..6] OF BYTE;
 2701  
 2702  (*# call(reg_param=>(ax,dx),reg_saved=>(bx,cx,si,di,es,ds,st1,st2)) *)
 2703    INLINE PROCEDURE MAKELONG (lo,hi : WORD):LONGWORD = _C1(_Ret);
 2704  (*# call(reg_param=>(ax,dx),reg_saved=>(bx,cx,si,di,es,ds,st1,st2)) *)
 2705    INLINE PROCEDURE LOWORD(lw:LONGWORD):WORD     = _C1(_Ret);
 2706    INLINE PROCEDURE LOCARD(lw:LONGWORD):CARDINAL = _C1(_Ret);
 2707    INLINE PROCEDURE LOINT (lw:LONGWORD):INTEGER  = _C1(_Ret);
 2708  (*# call(reg_param=>(dx,ax),reg_saved=>(bx,cx,si,di,es,ds,st1,st2)) *)
 2709    INLINE PROCEDURE HIWORD(lw:LONGWORD):WORD     = _C1(_Ret);
 2710    INLINE PROCEDURE HICARD(lw:LONGWORD):CARDINAL = _C1(_Ret);
 2711    INLINE PROCEDURE HIINT (lw:LONGWORD):INTEGER  = _C1(_Ret);
 2712  (*# call(reg_param=>(ax),reg_saved=>(bx,cx,dx,si,di,es,ds,st1,st2)) *)
 2713    INLINE PROCEDURE LOBYTE(lw:WORD):BYTE = _C1(_Ret);
 2714  (*# call(reg_param=>(ax),reg_saved=>(bx,cx,dx,si,di,es,ds,st1,st2)) *)
 2715    INLINE PROCEDURE HIBYTE(lw:WORD):BYTE = _C3(86H,0C4H (* xchg al,ah *),_Ret);
 2716  (*# call(reg_param=>(ax,bx,dx),reg_saved=>(cx,si,di,es,ds,st1,st2)) *)
 2717    INLINE PROCEDURE RGB(r,g,b:BYTE):LONGWORD = _C5(88H,0DCH (* mov ah,bl *),0B6H,0 (* mov dh,0 *),_Ret);
 2718  (*# call(reg_param=>(ax,bx,dx),reg_saved=>(cx,si,di,es,ds,st1,st2)) *)
 2719    INLINE PROCEDURE PALETTERGB(r,g,b:BYTE):LONGWORD = _C5(88H,0DCH (* mov ah,bl *),0B6H,2 (* mov dh,2 *),_Ret);
 2720  (*# call(reg_param=>(ax),reg_saved=>(bx,cx,si,di,es,ds,st1,st2)) *)
 2721    INLINE PROCEDURE PALETTEINDEX(i:WORD):LONGWORD = _C4(0BAH,0,1 (* mov dx,100H *),_Ret);
 2722  (*# call(reg_param=>(ax,bx),reg_saved=>(cx,dx,si,di,es,ds,st1,st2)) *)
 2723    INLINE PROCEDURE GetRValue(rgb:LONGWORD):BYTE = _C1(_Ret);
 2724  (*# call(reg_param=>(ax,bx),reg_saved=>(cx,dx,si,di,es,ds,st1,st2)) *)
 2725    INLINE PROCEDURE GetGValue(rgb:LONGWORD):BYTE = _C3(86H,0C4H (* xchg ah,al *),_Ret);
 2726  (*# call(reg_param=>(ax,bx),reg_saved=>(cx,dx,si,di,es,ds,st1,st2)) *)
 2727    INLINE PROCEDURE GetBValue(rgb:LONGWORD):BYTE = _C3(88H,0DCH (* mov ah,bl *),_Ret);
 2728  (*# call(reg_param=>(ax,bx),reg_saved=>(cx,dx,si,di,ds,es,st0,st1,st2))*)
 2729    INLINE PROCEDURE Min(a,b:WORD):WORD=_C7(03BH,0C3H,072H,002H,08BH,0C3H,_Ret);
 2730    INLINE PROCEDURE Max(a,b:WORD):WORD=_C7(03BH,0C3H,077H,002H,08BH,0C3H,_Ret);
 2731  (*# restore *)
 2732  
 2733  END Windows.

 1377 errors