If "<FreeTime$Dir>"="" Then Set FreeTime$Dir <Obey$Dir>
RMEnsure StrongHelp 2 If "<StrongHelp$Dir>"<>"" Then WimpTask <StrongHelp$Dir>
RMEnsure StrongHelp 2 If "<StrongHelp$Dir>"="" Then Error Please open the directory containing StrongHelp first
Stronghelp <FreeTime$dir>.FreeTime !Root