Listing 1 -- FX.rexx Generic File Extraction Program


    1  /* Generic File Extractor -- Randy C. Finch 1990 */
    2
    3  'list >ram:rcflist files quick'
    4
    5  call open('rcf','ram:rcflist','R')
    6
    7  do until eof('rcf')
    8       fn = readln('rcf')
    9       rs = right(fn,4)
   10       if rs == '.arc' | ,
   11          rs == '.zoo' | ,
   12          rs == '.lzh'
   13       then do
   14          ls = left(fn,length(fn)-4)
   15          'makedir ' ls
   16          'cd ' ls
   17          select
   18               when rs == '.arc' then   'arc x /'ls'.arc'
   19               when rs == '.zoo' then   'zoo x// /'ls'.zoo'
   20               when rs == '.lzh' then   'lharc -x x /'ls'.lzh'
   21          end  /* select */
   22          'cd /'
   23       end   /* do */
   24  end   /* do */
   25  call close('rcf')
   26  'delete ram:rcflist'