Zip_files = <> ..

Call ZipList Archive_name Flags ( File_name :
                                              Zip_files .= File_name
                                )
Where Flags = User_input.Command_line.File_mask