home *** CD-ROM | disk | FTP | other *** search
/ Aminet 10 / aminetcdnumber101996.iso / Aminet / dev / e / dd_Modules.lha / dd_Modules / dd_libraries / dd_sharedlibstest.e < prev    next >
Encoding:
Text File  |  1995-02-26  |  462 b   |  21 lines
  1. MODULE 'utility'
  2. MODULE 'utility/tagitem'
  3. MODULE 'lowlevel'
  4.  
  5. MODULE '*dd_sharedlibs'
  6.  
  7. DEF libs:sharedlibs
  8.  
  9. PROC main()
  10.   NEW libs.new([DDA_LIB_LibraryList,
  11.                   [
  12.                    ['utility.library',37,{utilitybase}]:libentry,
  13.                    ['lowlevel.library',39,{lowlevelbase}]:libentry
  14.                   ],
  15.                 TAG_DONE])
  16. ->     libs.do(DDM_LIB_OpenLibrary,{lowlevelbase})
  17.  
  18.   -> PrintF('Libraries opened\n')
  19.   END libs
  20. ENDPROC
  21.