home *** CD-ROM | disk | FTP | other *** search
/ The Fred Fish Collection 1.5 / ffcollection-1-5-1992-11.iso / ff_disks / 300-399 / ff308.lzh / FReq / Examples / DeArc < prev    next >
Text File  |  1990-01-18  |  802b  |  36 lines
  1. /* DeArc.rexx  -  uses the ARC command to extract archive files */
  2.  
  3. /* ** Note **  This program assumes that you have the 'ARC' program located
  4.                in your SYS:C directory */
  5.  
  6.  
  7. if ~(Show('P', 'FileRequester')) then
  8.     do
  9.     ADDRESS COMMAND "Run >NIL: <NIL: DEVS:Freq >NIL: <NIL:"
  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'        /* clear the pattern */
  21. 'SetFileName'        /* clear the filename */
  22. more = "TRUE"
  23. do while more = "TRUE"
  24.     'SetTitle Select an Archive to Extract'
  25.     'DisplayDef'
  26.     'GETFILENAME'
  27.     if (RC = 0) then
  28.         ADDRESS COMMAND 'SYS:C/ARC -x' '"' || Result || '"'
  29.     else
  30.         do
  31.         more = "FALSE"
  32.         say 'Operation Canceled'
  33.         end
  34.     end
  35. exit 0
  36.