procedure backup_file(name: anystring);