<> <> <Top>SaveMap.df>> DIRECTORY AMViewerOps, BcdDefs, Directory, File, FileStream; SetSaveMapDate: PROGRAM IMPORTS AMViewerOps, Directory, FileStream = BEGIN Set: PROC = { version: BcdDefs.VersionStamp _ AMViewerOps.FileVersion["[Indigo]Top>SaveMap.df"]; cap: File.Capability _ Directory.Lookup[ fileName: "SaveMap.df", permissions: Directory.ignore]; FileStream.SetLeaderPropertiesForCapability[cap: cap, create: LOOPHOLE[version.time]]; }; Set[]; END.