Listing:

    1  IMPLEMENTATION MODULE LibMain;
    2    IMPORT Windows;
    3  
    4    PROCEDURE LIBMAIN(hInstance:HANDLE;wDataSeg,cbHeapSize:CARDINAL;lpszCmdLine:ARRAY OF CHAR):INTEGER;
*****                                ^ undeclared identifier
*****                                                                                         ^ not supported yet
    5      VAR
    6        Ret               : INTEGER;
    7      BEGIN
    8        Ret := 1;
    9        (*               .                 *)
   10        (*               .                 *)
   11        (*               .                 *)
   12        (* Perform DLL Initialization here *)
   13        (*               .                 *)
   14        (*               .                 *)
   15        (*               .                 *)
   16        IF cbHeapSize > 0 THEN
   17          Windows.UnlockData(0);
*****          ^ not supported yet
*****                  ^ not supported yet
*****                              ^ not supported yet
   18        END; (*IF*)
   19        RETURN Ret;
   20      END LIBMAIN;
*****          ^ not supported yet
   21  
   22    PROCEDURE WEP(nParam:INTEGER):INTEGER;
   23      BEGIN
   24        CASE nParam OF
   25          Windows.WEP_SYSTEM_EXIT   : (* System Shutdown *)
*****          ^ not supported yet
*****                  ^ not supported yet
   26                                      RETURN 1;                             |
   27          Windows.WEP_FREE_DLL      : (* Use count = 0 - DLL freed *)
*****          ^ not supported yet
*****                  ^ not supported yet
   28                                      RETURN 1;                             |
   29        ELSE (* Undefined, just return *)
   30          RETURN 1;
   31        END; (*CASE*)
   32      END WEP;
*****          ^ not supported yet
   33  
   34  END LibMain.
*****      ^ not supported yet

   12 errors