home *** CD-ROM | disk | FTP | other *** search
/ Prima Shareware 3 / DuCom_Prima-Shareware-3_cd1.bin / PROGRAMO / C / COMPRS / UNPACK.PRG < prev   
Encoding:
Text File  |  1991-12-11  |  446 b   |  26 lines
  1. ** Un-Pack a Archive
  2.  
  3. Set Talk off
  4. if "(X)" $version(1)
  5.     Wait "Demo Does not Support Foxpro (X)"
  6.     return
  7. Endif
  8. Clear
  9. ? "Installing Foxpro 2 Data Compression System 5.0 DEMO"
  10. ? " "
  11. ? " "
  12. Use Comp5Demo
  13. Go top
  14. Copy Memo Data To comp5d.Plb
  15. Set  Libr to comp5d
  16. Skip
  17. Do while !eof()
  18.     ? "De-Compressing ->"+File+" "+desc
  19.     Nul=Decomp(@data,Trim(File))
  20.     Skip
  21. Enddo
  22. Use
  23. Set Libr to
  24. Wait "Install Complete!" Window
  25.  
  26.