home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / mod201j.zip / modula2.exe / os2demo / hello / dlltest.mod < prev    next >
Text File  |  1996-01-15  |  1KB  |  21 lines
  1. IMPLEMENTATION MODULE DLLTest;
  2. (*--------------------------------------------------------------------------*)
  3. (* Beispiel eines sebstgeschrieben DLL's                                    *)
  4. (* Version 1.00 (32Bit-Version MOD32)                                       *)
  5. (*--------------------------------------------------------------------------*)
  6.  
  7. (*$XL+       Modula-2 extensions: '_' in symbol names, OOP facilities   *)
  8. (*$XF+       Relaxed function designators                               *)
  9. (*$CDECL-    C-style procedures                                         *)
  10. (*$A         default alignment for record fields                        *)
  11.  
  12. PROCEDURE AddTwoCard(a,b:CARDINAL):CARDINAL;
  13. (*--------------------------------------------------------------------------*)
  14. (* Zwei Cardinal-Zahlen addieren und wieder zurckgeben.                    *)
  15. (*--------------------------------------------------------------------------*)
  16. BEGIN
  17.   RETURN a+b;
  18. END AddTwoCard;
  19.  
  20. END DLLTest.
  21.