home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Misc / OB3.2D2.DMS / in.adf / LibLink / Mathe / IntMathe.mod < prev    next >
Encoding:
Text File  |  1992-11-02  |  588 b   |  22 lines
  1. MODULE IntMathe;
  2.  
  3. IMPORT e: Exec, sys: SYSTEM;
  4.  
  5. VAR
  6.   base: e.LibraryPtr;
  7.  
  8. PROCEDURE GGT*     {base,-30}(x{2},y{3}: LONGINT): LONGINT;
  9. PROCEDURE KGV*     {base,-36}(x{2},y{3}: LONGINT): LONGINT;
  10. PROCEDURE Sqrt*    {base,-42}(x{2}     : LONGINT): LONGINT;
  11. PROCEDURE Fak*     {base,-48}(x{2}     : LONGINT): LONGINT;
  12. PROCEDURE BinKoeff*{base,-54}(n{2},k{3}: LONGINT): LONGINT;
  13. PROCEDURE Pow*     {base,-60}(n{2},k{3}: LONGINT): LONGINT;
  14.  
  15. BEGIN
  16.   base := e.OpenLibrary("intmathe.library",1);
  17.   IF base=NIL THEN HALT(20) END;
  18. CLOSE
  19.   IF base#NIL THEN e.CloseLibrary(base) END;
  20. END IntMathe.
  21.  
  22.