home *** CD-ROM | disk | FTP | other *** search
/ The Fred Fish Collection 1.5 / ffcollection-1-5-1992-11.iso / ff_progs / prog_c / freq.lzh / FREQ / EXAMPLES / EXTRACT_ZOO < prev    next >
Encoding:
Text File  |  1991-08-16  |  789 b   |  39 lines
  1. /* Extract_Zoo  (Arexx) - uses the ZOO command to extract Zoo'ed files */
  2.  
  3. /* ** Note **  This program assumes that you have the 'ZOO' program located
  4.                in your SYS:C directory */
  5.  
  6.  
  7. if ~(Show('P', 'FileRequester')) then
  8.     do
  9.     ADDRESS COMMAND "Run >NIL: DEVS:Freq"
  10.     ADDRESS COMMAND "WaitForPort FileRequester"
  11.     if ~(Show('P', 'FileRequester')) then
  12.         do
  13.         say "UnAble to Load FileRequester"
  14.         exit
  15.         end
  16.     end
  17.  
  18. OPTIONS RESULTS
  19. ADDRESS "FileRequester"
  20. 'SetPattern'
  21. 'SetFileName'
  22. more = "TRUE"
  23. do while more = "TRUE"
  24.     'SetTitle Select a ZOO File to Extract'
  25.     'DisplayDef'
  26.     'GETFILENAME'
  27.     if (RC = 0) then
  28.         do
  29.         say "ZOO Extracting File: " Result
  30.         ADDRESS COMMAND "SYS:C/ZOO x//" '"' || Result || '"'
  31.         end
  32.     else
  33.         do
  34.         more = "FALSE"
  35.         say 'Operation Canceled'
  36.         end
  37.     end
  38. exit 0
  39.