$ If F$TrnLnm("MUSH_DEBUG") .Nes. "" Then Set Verify $ Set NoOn $! $! Basically a conversion of the startmush shell script as provided... $! $ CurDir = "USR:[SYNFUL.MUSH]" $! $! Remake the indices for the various help files $! $ MkIndx :== $'CurDir'MkIndx $ MkIndx 'CurDir'News.Txt 'CurDir'News.Indx $ MkIndx 'CurDir'Help.Txt 'CurDir'Help.Indx $ MkIndx 'CurDir'WizHelp.Txt 'CurDir'WizHelp.Indx $! $! Should check for panic dump -- we don't, though. $! $! Save a copy of the previous input database. $! $ Rename 'CurDir'Mush_DB. 'CurDir'Mush_DB.Save $! $! If there is a good checkpoint database, use it for the input database. $! If not, use the saved database. $! $ CKPDB = F$Search("''CurDir'Mush_DB_New.*") $ If CKPDB .Nes. "" $ Then $ Rename 'CKPDB' 'CurDir'Mush_DB. $ Else $ Copy 'CurDir'Mush_DB.Save 'CurDir'Mush_DB. $ EndIf $! $ Define Sys$Error NetMush.Log $ NetMush := $'CurDir'NetMush $ NetMush 'CurDir'NetMush.Conf $ Exit