-- AlpineServer.cm
-- Carl Hauser, June 26, 1986 9:37:08 am PDT
Install ViewRec
Run AlpineCommonImpls
Run AlpineServerImpls
run skipatrol
run skipatrollogviewerimpl
← AlpineControl.Initialize[filePageMgrNormalChunks: 150, filePageMgrLogChunks: 150, filePageMgrLeaderChunks: 20, coordinatorMapHashArraySlots: 64, transactionMapHashArraySlots: 64, fileMapHashArraySlots: 43, openFileMapHashArraySlots: 256, lockHashArraySlots: 256, fileMapFinalizationQueueLength: 60, nAccessCacheEntries: 20, alpineWheels: "AlpineWheels^.pa"]
-- ← AlpineControl.Start[fileStore: "Sea-wolf.alpine", typeOfRestart: warmStart, nLogPages: 4000, nOwners: 10, additionalVolumes: LOOPHOLE[LIST["Donner.alpine"]]]

← AlpineControl.Start[fileStore: "Sea-wolf.alpine", logVolumeName: "Donner.Alpine", additionalVolumes: LOOPHOLE[CONS["AltCedar", NIL]], typeOfRestart: warmStart, nLogPages: 4000, nOwners: 10, nBackupBTreePages: 100]
← AlpineControl.ExportInterfaces[]
push ///NewAlpineUser/
Install AlpineUser
pop

run backupbtreeimpl

-- run backuppackage
-- ← AMEvents.StopEvents[WorldVM.LocalWorld[]]
-- showc
-- showw
startlog

run backuppackage

alpinecontrolpanel