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

...

Do while ...
 - RP File_name
 ' ...
;  

Return 