/* This is my first subroutine in REXX */
ARG file , level

rc = SysFileTree( file || '\' || '*.*' , fli, 'F')
do z = 1 to fli.0
  sum = sum + subword(fli.z,3,1)
END

rc = SysFileTree( file || '\' || '*.*' , fl, 'DO')
do (x.level)=1 to fl.0
  response=VpMessageBox(window,'title', x.level || ' -!- ' || fl.(x.level))

  CALL RCRSDIR fl.(x.level) , level + 1
END

