-- CreateServerGentian.cm
-- Carl Hauser, May 7, 1985 3:03:32 pm PDT
-- Rick Beach, June 22, 1985 11:43:59 am PDT
Run AlpineCommonImpls
Run AlpineServerImpls
run skipatrol
run skipatrollogviewerimpl
← AlpineControl.Initialize[filePageMgrNormalChunks: 50, filePageMgrLogChunks: 50, filePageMgrLeaderChunks: 10, coordinatorMapHashArraySlots: 64, transactionMapHashArraySlots: 64, fileMapHashArraySlots: 43, openFileMapHashArraySlots: 256, lockHashArraySlots: 256, fileMapFinalizationQueueLength: 60, nAccessCacheEntries: 20, alpineWheels: "AllDemo↑.demo"]
← AlpineControl.Start[fileStore: "Gentian.alpine", logVolumeName: "Alpine", typeOfRestart: createServer, nLogPages: 4000, nOwners: 20]
← AlpineControl.ExportInterfaces[]
-- showc
-- showw
-- startlog