home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 3 / goldfish_volume_3.bin / files / dev / e / amigae / src / reqs / asldemo.e next >
Text File  |  1992-09-02  |  637b  |  26 lines
  1. /* Some demo to use other, kick2 only librarys from E.
  2.    We'll pop up a filerequester from the asl.library.   */
  3.  
  4. MODULE 'Asl', 'libraries/Asl'
  5.  
  6. DEF req:PTR TO filerequester
  7.  
  8. PROC main()
  9.   IF aslbase:=OpenLibrary('asl.library',37)
  10.     IF req:=AllocFileRequest()
  11.       WriteF('Pick a file:\n')
  12.       IF RequestFile(req)
  13.         WriteF('Guess what! you picked "\s" in "\s" !\n',req.file,req.drawer)
  14.       ELSE
  15.         WriteF('Hard eh?\n')
  16.       ENDIF
  17.       FreeFileRequest(req)
  18.     ELSE
  19.       WriteF('Could not open filerequester!\n')
  20.     ENDIF
  21.     CloseLibrary(aslbase)
  22.   ELSE
  23.     WriteF('Could not open asl.library!\n')
  24.   ENDIF
  25. ENDPROC
  26.