Topspeed_JPI/TS-V3/INCLUDE/WINDOWS.LST

Listing:

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

 1337 errors