home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / EGS / egssys71.lha / EGSClusterInc.lha / EGS.mod < prev    next >
Encoding:
Text File  |  1994-12-13  |  589 b   |  28 lines
  1. |##########|
  2. |#MAGIC   #|DBBCMEIO
  3. |#PROJECT #|""
  4. |#PATHS   #|"EGSProject"
  5. |#FLAGS   #|-x-x-x--x-----x-----------------
  6. |#USERSW  #|--------------------------------
  7. |#USERMASK#|--------------------------------
  8. |#SWITCHES#|x--x-x----------
  9. |##########|
  10. $$ConstChk:=FALSE
  11. (* $V- $R- $S- $N- *)
  12. IMPLEMENTATION MODULE EGS;
  13.  
  14. FROM Exec       IMPORT OpenLibrary,CloseLibrary;
  15. FROM Exceptions IMPORT CouldNotOpenLibrary;
  16.  
  17.  
  18. BEGIN
  19.   EGSBase:=OpenLibrary("egs.library",0);
  20.   ASSERT(EGSBase#NIL,CouldNotOpenLibrary);
  21. CLOSE
  22.   IF EGSBase#NIL THEN
  23.     CloseLibrary(EGSBase);EGSBase:=NIL
  24.   END;
  25. END EGS.
  26.  
  27.  
  28.