ZipList ->
Arg Zip_name, Mask : String, 
    RP : < String > 

...

Do while ...
 - RP File_name
 Where ...
;  

Return 