home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d6xx / d634 / apig.lha / APIG / apig33.lzh / aslfile1.rexx < prev    next >
OS/2 REXX Batch file  |  1992-02-05  |  405b  |  18 lines
  1. /* Example of using ASL Library FILE requester */
  2.  
  3. /*  */
  4.  x = addlib("apig.library",0,-30,0)
  5.  
  6. freq = ALLOCFILEREQUEST()       /* allocate an ASL file requester */
  7.  
  8. filename = REQUESTFILE(freq)    /* display requester, result = filename */
  9.  
  10. if filename = null() then
  11.    say "Requester Canceled"
  12. else
  13.    say "Selected File:" upper(filename)
  14.  
  15. call FREEFILEREQUEST(freq)      /* Free the requester */
  16.  
  17. exit
  18.