home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 19 / AACD19.BIN / AACD / Programming / YAEC / testsrc / library_test.e < prev    next >
Encoding:
Text File  |  2001-02-23  |  244 b   |  13 lines
  1. EXTERN 'library'
  2.  
  3. DEF librarybase
  4.  
  5. RAISE "LIB" IF OpenLibrary()=NIL
  6.  
  7. PROC main()
  8.    librarybase := OpenLibrary('e:testsrc/library.library', 0)
  9.    PrintF('\d\n', Nisse(1, 2, 3))
  10. EXCEPT DO
  11.    IF librarybase THEN CloseLibrary(librarybase)
  12. ENDPROC
  13.