
  TYPE
    put$operation = (puc$backup_permanent_files, puc$restore_permanent_files, puc$display_backup_file,
          puc$$backup_file);
