parse arg type .

if ^stream('rc','c','executable') then do
    say 'You must compile rc.c first'
    exit 1
    end

files = 'ls'( '../trip/*.rexx') 

do while files^=''
   parse var files file files
/*   parse var file '../trip/' file */
   say center(' 'file' ',72,'=')
   interpret "junk = '"file"'()" 
/*   if files^='' & type='' then
      junk = '../trip/testing'( 'norecurse' )  */
   end

exit
