ZipList: procedure 
Arg Zip_name, Mask

Zip_files = <> ..

...

Return Zip_files                                                               /* !!! */