Listing:

    1  (*# check(stack=>off,
    2            index=>off,
    3            range=>off,
    4            overflow=>off,
    5            nil_ptr=>off) *)
    6  IMPLEMENTATION MODULE WDLLMod;
    7  
    8  PROCEDURE MessagePaint(hdc: Windows.HDC; szMessage: ARRAY OF CHAR; MessageLength: CARDINAL);
*****                              ^ undeclared identifier
*****                                      ^ not supported yet
*****                                                               ^ not supported yet
    9  
   10  BEGIN
   11    IF Windows.TextOut(hdc, 10, 10, szMessage, MessageLength ) # 0 THEN END;
*****       ^ undeclared identifier
*****               ^ not supported yet
*****                       ^ not supported yet
*****                                    ^ not supported yet
*****                                                             ^ not supported yet
   12  END MessagePaint;
*****      ^ not supported yet
   13  
   14  
   15  END WDLLMod.
*****      ^ not supported yet

   10 errors