home *** CD-ROM | disk | FTP | other *** search
/ ftp.alaska-software.com / 2014.06.ftp.alaska-software.com.tar / ftp.alaska-software.com / acsn / BDZIP.ZIP / UNZIP.PRG < prev   
Text File  |  2000-11-06  |  256b  |  10 lines
  1. // Sample of how to use the UnzipFile function.
  2. // This program unzips a zip file that you pass it to the current directory.
  3.  
  4. #define BA_CB_ADDZIP 200
  5.  
  6. PROCEDURE MAIN(cFileName)
  7.   aFiles := UnzipFile(cFileName)
  8.   AEVAL(aFiles,{|x|QOUT(x)})
  9. RETURN
  10.