ZipList: procedure 
Arg Zip_name, Mask, @RP

...

Do while ...
 Call RP File_name, Parameters
 Where ...
;  

Return 